rot/log/ 
#!/usr/local/bin/perl

undef %Names;
undef %URL;

$maxlev = 110;
$minlev = 102;

# Set the following lines to reflect your MUD
$wizlist="/Rot/area/wizlist.txt";
$homeurl="http://www.mud.com/mud.html";
$mudname="Name of your MUD";

$Names{$maxlev}="Implementors";
$Names{$maxlev-1}="Creators";
$Names{$maxlev-2}="Supremacies";
$Names{$maxlev-3}="Deities";
$Names{$maxlev-4}="Gods";
$Names{$maxlev-5}="Immortals";
$Names{$maxlev-6}="DemiGods";
$Names{$maxlev-7}="Knights";
$Names{$maxlev-8}="Squires";

# The following names will be linked to a homepage
$URL{"Vengeance"}="http://www.lim.com/~russ";

    open(IN, "$wizlist");
    undef @All;
    while (<IN>)
    {
	chomp;
	chomp;
	push(@All, $_);
    }
    close IN;
    print "Content-type: text/html\n\n"; 
    print "<HTML><HEAD><TITLE>RoT Wizlist</TITLE></HEAD>\n"; 
    print "<BODY>\n";
    print "<center><H1>The Gods of ${mudname}</H1>\n"; 
    print "<HR><BR>\n";
    for ($a = $maxlev; $a >= $minlev; $a--)
    {
	$found = 0;
	foreach $tmp (@All)
	{
	    ($name,$level)=split(' ', $tmp);
	    if ($level == $a)
	    {
		$found = 1;
	    }
	}
	if ($found == 1)
	{
	    $title=$Names{$a};
	    print "<H2>${title} [${a}]</H2>\n";
	    if ($a > $maxlev-7)
	    {
		print "<font color=\"#00FF00\"><H3>\n";
	    } else
	    {
		print "<font color=\"#00FFFF\"><H3>\n";
	    }
	    foreach $tmp (@All)
	    {
		($name,$level)=split(' ', $tmp);
		if ($level == $a)
		{
		    if (defined($URL{$name}))
		    {
			$url=$URL{$name};
			print "<A HREF=\"${url}\">${name}</A><BR>\n";
		    } else
		    {
			print "${name}<BR>\n";
		    }
		}
	    }
	    print "</H3></font>\n";
	    print "<HR><BR>\n";
	}
    }
    print "<P></center>\n";
    print "Return to <A HREF=\"${homeurl}\">${mudname}</A> homepage.<P>\n";
    print "</BODY></HTML>\n";
exit;