#!/usr/bin/perl
use DBI;
use CGI;
$|++;

# Run the program and trap fatal errors.
# ----------------------------------------------------------------
eval { &main; };
$@ and die("Fatal Error: $@");

sub main {
# ================================================================
# We are either displaying the add screen, or processing a command.
#
@dbi_connect = ('DBI:mysql:guestbook:www.thefew.com:3306', 'guestbook', 'nemo6865');
$DBH = DBI->connect (@dbi_connect) or die("Can't connect to database. Reason: $DBI::errstr");
my($username,$userid,$numrows,$listuser);
# open (BADLIST, ">badusers.txt");
# flock(BADLIST, 2);

$qry=qq!
select username from guestbook_users
!;
$sth=$DBH->prepare($qry) || die("Can't prepare query.Reason:$DBI::errstr. Query: $qry");
$rs=$sth->execute() || die("Can't execute query.Reason:$DBI::errstr. Query: $qry");
if ($sth->rows) {
for($i=0;$i< $sth->rows;$i++) {
($username) = $sth->fetchrow_array;
$username_q = $DBH->quote($username);
$query = qq~
select count(*) from guestbook where userid = $username_q
~;
$sth1=$DBH->prepare($query) || die("Can't prepare query.Reason:$DBI::errstr. Query: $query");
$rs1=$sth1->execute() || die("Can't execute query.Reason:$DBI::errstr. Query: $query");
if ($sth1->rows) {
$numrows = $sth1->fetchrow_array;
if(!$numrows) {
$query = qq~
DELETE FROM guestbook_users WHERE username = $username_q
~;
$sth2=$DBH->prepare($query) || die("Can't prepare query.Reason:$DBI::errstr. Query: $query");
$rs2=$sth2->execute() || die("Can't execute query.Reason:$DBI::errstr. Query: $query");
# print BADLIST "DELETE FROM guestbook_users WHERE username = $username_q\n";
}
}
}
}
# close (BADLIST);
$DBH->disconnect;
}