######################################
# report1.pl by Mike Moxcey #
# First try at displaying data for Oracle/Perl tutorial #
######################################
$| = 1; # prevents forking so stuff is printed in correct order
###########################
# Define include files #
###########################
require "cgi-lib.pl"; #ReadParse
require "oracle.pl"; #&sql,fix_string
require "oratut.pl";
########
# main #
########
print &PrintHeader;
print &HtmlTopTut("Calls in Database");
##DEBUG print "SQLShow:@sql_show!";
&sql($sql_login,@sql_show);
print "</table>";
print &HtmlBotTut;