#!/usr/bin/perl # $basepath = "."; $logname = $ENV{'QUERY_STRING'}; print "Content-type:text/html\n\n"; print < Harper\'s Tale Online Logs
EndHTML ; if ( -e $logname ) { open(INF,"$basepath/$logname"); @mydat = ; close(INF); print < The World of Pern™ is copyright to Anne McCaffrey © 1967. The Dragonriders of Pern® is a registered copyright. This is a recorded sesssion, online by permission of the author but generated by Harper's Tale members on the date indicated, for the benefit of members unable to attend.
CopyR ; &do_file(@mydat); } else { print "

Error

The online log you requested does not exist. Please notify kira\@harpers-tale.com of this error.

\n"; } print "

Home | Archive Index

\n\n\n"; sub do_file { local(@stuff) = @_; $hdr = 0; $headct = 1; while ($hdr == 0) { $inf = shift(@stuff); if ($inf eq "" || $headct == 4) { $hdr = 1; } if ($inf ne "") { print "

$inf

\n"; } $headct = $headct + 1; } print "
\n";
    foreach $i (@stuff) {
	print $i;
    }
    print "

\n"; }