#!/usr/bin/perl -w
use DBI;
print "content-type:text/html\n\n";
use CGI q/:standard/;
$dbh=DBI->connect('DBI:mysql:test','root','') or die "unable to connect".DBI->errstr();
print "success";
$in=new CGI();

$u=$in->param('ins');

$accno=$in->param('t1');
$author=$in->param('t2');
$edition=$in->param('t3');
$publish=$in->param('t4');
$query="insert into book values('$accno','$author','$edition','$publish')";
$sth=$dbh->prepare($query);
$sth->execute();
$sth->finish();
$dbh->disconnect();

$dis=in->param('dis');
$no=$in->param('t7');
$acc="accno";

if($dis eq "dis")
{
$query="select * from book where $acc=$no";
$sth1=$dbh->prepare($query);
$sth1->execute();
while(($q,$w,$e,$r)=$sth1->fetchrow())
{
print "$q\t$w \t $e \t  $r\n ";
}
$sth1->finish();
$dbh->disconnect();
}

$del=$in->param('delete');
$no=$in->param('t8');
if($del eq "delete")
{
$query="delete from book were $acc=$no";
$sth=$dbh->prepare($query);
$sth->execute();
print "DELETED";
$sth->finish();
$sth->disconnect();
}
exit(0);