#!/usr/bin/perl

print "Content-Type: text/html\n\n";
print "<html>\n";
print "<title>City Of Night Public Home Page Area</title>\n";
print "<h3>City Of Night Public Home Page Area</h3>\n";
print "<hr>\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 '<a href="http://citynight.com/page/makepage.html">';
print "Add Your Own HomePage</a>!\n";
print 'Click <a href="http://citynight.com/page/delpage.html">Here';
print "</a>to delete a page.";
print 'Please <a href="mailto:webmaster@citynight.com">';
print "\nE-Mail The Webmaster</a> with any comments.\n";
print "<hr>\n<pre>\n";
open (LIST, "</www2/makepg.lst");
loop1:
$a = <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 '<a href="http://citynight.com/page/';
print $a ;
print '">';
print "\n";
print $handle." - ".$title."\n</a>\n";
goto loop1;
done:
close LIST;
print "</pre>\n<hr>\n</html>\n";
exit;

