#!/usr/bin/perl
print "Content-Type: text/html\n\n";
print "\n";
print "City Of Night Public Home Page Area\n";
print "City Of Night Public Home Page Area
\n";
print "
\n";
print "Welcome to the City Of Night's Public Home Page Area! Here you\n";
print "can view the Home Pages created by other visitors, or even\n";
print '';
print "Add Your Own HomePage!\n";
print 'Click Here';
print "to delete a page.";
print 'Please ';
print "\nE-Mail The Webmaster with any comments.\n";
print "
\n\n";
open (LIST, ";
chop $a;
if (length($a) != 66)
{goto done;}
$handle = substr($a,0,7);
$title = substr($a,16,50);
($a,$b) = split(/ /,$handle,2);
print '';
print "\n";
print $handle." - ".$title."\n\n";
goto loop1;
done:
close LIST;
print "\n
\n\n";
exit;