#!/local/bin/perl
require "cgi-lib.pl";
use Msql;
package main;
print "Content-type: text/html\n\n";
print << "EOF";
Academic Accounts that do not use tcsh
| Account
| Name
| Home
|
EOF
$dbh = Msql->Connect("","accounts") or
die "not ok 1: $Msql::db_errstr\n";
$sth = $dbh->Query("select account,name,shell from accounts where shell <> '/bin/tcsh' order by account") or
die "not ok 2: $Msql::db_errstr\n";
while( @row = $sth->FetchRow){
print "
| @row[0] | @row[1] | @row[2] |
\n";
}
print "
\n";
print "\n";