Select Code to Download

#!/appl/perl-5.6.1/bin/perl

...
eval "use Oraperl";

$mycgi = CGI->new();

#Modified by JB54 to include logname parameter (random number) for eac
+h transaction. File locks were becoming a latency issue.
$WWW_tempemp = $mycgi->param("tempemp");
...

#Added print {fh} and $DBI::errstr\n to die for debugging
($db) || die(print {$fh} "Database did not connect.\n $DBI::errstr\n")
+;

print {$fh} "Database connected...To select users\n";

$sql = "select * from sysadm.logon_p01 where clock = upper('$WWW_tempe
+mp')";

...
#print "";

exit $status