#!/usr/bin/perl -w

use strict;
use CGI qw(:standard);
use CGI::Carp;
    # Msql.pmモジュールを用いる。
use DBI;
CGI::use_named_parameters(1);

my ($db);
my $output = new CGI;
$db = param('db') or die("データベースが見つかりません！");

# 要求されたサーバへ接続する。
my $dbh = DBI->connect("DBI:mysql:$db:$server", undef, undef);

# $dbhが存在しないと、データベースサーバへの接続は確立されない。
# サーバが稼働していない、または指定されたデータベースが
# 存在していない可能性がある。
if (not $dbh) {
        print header, start_html('title'=>"Information on $host => $db",
        'BGCOLOR'=>'white');

        print <<END_OF_HTML;
<H1>$host</h1>
<H2>$db</h2>
以下の理由により、接続は確立されませんでした。<BR>
$DBI::errstr
</body></html>
END_OF_HTML
        exit(0);
} 

print header, start_html('title'=>"Information on $host => $db",
        'BGCOLOR'=>'white');
print <<END_OF_HTML;
<H1>$host</h1>
<H2>$db</h2>
<p>
テーブル:<br>
<UL>
END_OF_HTML
# $dbh->listtableにより、現在のデータベースで
# 入手可能なテーブルの配列が返される。
my @tables = $dbh->func( '_ListTables' );
foreach (@tables) {
         print "<LI>$_\n";
}
print <<END_OF_HTML;
</ul>
</body></html>
END_OF_HTML
       exit(0);