#!/local/bin/perl require "cgi-lib.pl"; use Msql; package main; print "Content-type: text/html\n\n"; print << "EOF";

Academic Accounts

EOF $dbh = Msql->Connect("","accounts") or die "not ok 1: $Msql::db_errstr\n"; $st= $dbh->Query("select * from accounts"); $numfields=$st->numfields; for ($i=0 ; $i < $numfields ; $i++){ @names[$i]=$st->name->[$i]; } &ReadParse(*input); $q1=""; foreach $i (@names){ if($input{$i}ne ""){ print "\n"; $q1.="$i,"; } } print "\n"; chop $q1; $condition=$input{'QUERY'}; $query="select $q1 from accounts where $condition"; print "The query string is $query

\n"; $sth = $dbh->Query("$query"); while( @row = $sth->FetchRow){ $j=0; print "

"; foreach $i (@names){ if($input{$i} ne ""){ print ""; $j++; } } print "\n"; } print "

$i
@row[$j]

\n"; print "\n";