#!/usr/local/bin/perl
###################################################
#mysql.cgi MySQLプログラム
# 2003.02.13 MARCO
# edit 2003.12.13 MARCO
#
# パーミッション
# mysql.cgi(755)
###################################################
############ 設定項目 ##############
#データベース名
$dbname='データベース名';
#ユーザー名
$user='ユーザ名';
#パスワード
$pass='パスワード';
######################################
#入力データを獲得
use CGI;
use DBI;
$form=CGI->new();
$sql=$form->param("sql");
#ＨＴＭＬ作成
print "Content-type: text/html\n\n";
print "<HTML>\n<HEAD>\n";
print "<meta http-equiv=\"Content-Type\"
content=\"text/html;charset=x-sjis\">\n";
print "<TITLE>MySQL</TITLE>\n";
print "</HEAD>\n<BODY>\n";
print "<center><font
size=5><b>MySQL</b></font></center>\n";
if($sql ne ''){
$db=DBI->connect("DBI:mysql:$dbname:localhost","$user","$pass");
$sth=$db->prepare($sql);
$res=$sth->execute;
if($res){
$num=$sth->rows;
$com=substr($sql,0,6);
$com=~tr/a-z/A-Z/;
if($com eq 'SELECT'){
print "<TABLE bgcolor=#ddddff>\n";
for($i=0;$i<$num;$i++){
@a=$sth->fetchrow_array;
print "<tr>";
foreach(@a){
print "<td> $_ </td>\n";
}
print "</tr>\n";
}
print "</table>\n";
}
print "$num件処理されました<br>\n";
print "戻り値 = $res<br>\n";
}
else{
print "エラーです\n";
}
$sth->finish;
$db->disconnect;
}
print "<FORM ACTION=mysql.cgi METHOD=POST>SQL<br>\n";
print "<textarea name=sql rows=5 cols=70>$sql</textarea>\n";
print "<br><input type=submit value=submit><br>\n";
print "</FORM>\n";
print "</BODY>\n</HTML>\n";
