readfromlog.cgi
#!/usr/bin/perl open (LOG, "<../logs/logfile.txt") || &ErrorMessage; @logmessages = <LOG>; close (LOG); print "Content-type: text/html\n\n"; $n=1; print "<UL><h2>Messages</h2></UL>"; foreach $message (@logmessages) { print "<LI>Message # $n was <I>$message</I>\n"; $n++; } sub ErrorMessage { print "Content-type: text/html\n\n"; print "The server can't the file. It either doesn't exist or the permissions are wrong. \n"; exit; }