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

Generic List of Accounts

List of database fields:
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]; } foreach $i (@names){ print " $i
\n"; } print << "EOF";

Enter your query definition:
where

Click to submit your message.

EOF