CGI Display File Contents
Display File Contents
#!perl
open(INFO, "user.list"); # Open db for reading and display
@array=<INFO>;
close (INFO);
print "Content-type:text/html\n\n"; #Content Header
print <<End_of_head;
<html>
<head><title>Display File Contents</title></head>
<body>
End_of_head
foreach $line (@array){
($last,$first)=split(/\|/,$line);
print <<End_of_line;
Name: <I>$last</I><BR>
Email: <I>$first</I><P>
End_of_line
}
print <<End_of_Doc;
</body>
</html>
End_of_Doc