#!/usr/bin/perl

use CGI qw(:standard);
use Time::Local;

$html_fragments_dir="/home/toby/webs/www.qtq.org/htdocs/mud2/NOW";
$mobile_records_dir="/home/toby/mud2/telnet/RESET_LOGS/mobile_records";
$your_host=remote_addr();

%level=("protector",1,"seer",1,
"yeoman",2,"soothsayer",2,
"warrior",3,"cabalist",3,
"swordsman",4,"magician",4,
"hero",5,"enchanter",5,
"superhero",6,"spellbinder",6,
"champion",7,"sorcerer",7,
"guardian",8,"necromancer",8,
"legend",9,"warlock",9,
"Sir",10,"mage",10,
"protector",1,"seeress",1,
"yeowoman",2,"soothsayer",2,
"warrior",3,"cabalist",3,
"swordswoman",4,"magicienne",4,
"heroine",5,"enchantress",5,
"superheroine",6,"spellbindress",6,
"championne",7,"sorceress",7,
"guardienne",8,"necromancess",8,
"legend",9,"warlock",9,
"Lady",10,"mage",10,
"pathfinder",1,"neophyte",1,
"voyager",2,"pilgrim",2,
"wayfarer",3,"acolyte",3,
"scout",4,"friar",4,
"rover",5,"cleric",5,
"pioneer",6,"Brother",6,
"explorer",7,"priest",7,
"ranger",8,"prelate",8,
"minstrel",9,"patriarch",9,
"pathfinder",1,"neophyte",1,
"voyager",2,"pilgrim",2,
"wayfarer",3,"acolyte",3,
"scout",4,"friar",4,
"rover",5,"cleric",5,
"pioneer",6,"Sister",6,
"explorer",7,"priestess",7,
"ranger",8,"prelate",8,
"minstrel",9,"matriarch",9);

foreach (keys %level) {
    #print "<h4>$_=$level{$_}</h4>";
    $kills{$_}=0;
}

$mobile=param('keywords');

if ((length($mobile)==0)||(length($mobile)>20)) {
    print "Status: 204 No Response\n\n";
    SystemLog("mobile_victims.pl: 204 (mobile name invalid)");
    exit;
}
$_=$mobile;
s/[0-9]//g;
tr/A-Z/a-z/;
$bad_chars=tr/a-z//c;
if ($bad_chars!=0) {
    SystemLog("mobile_victims.pl: 204 (contained invalid characters: [$_])");
    print "Status: 204 No Response\n\n";
    exit;
}

$match_found=0;
open(FILE,"/home/toby/webs/www.qtq.org/htdocs/mud2/NOW/top5mobiles.html");
while (<FILE>) {
    s/.+\<td class\=polla align\=left\>//;
    s/\.\<td\>\<tr\>.*//;
    s/ //g;
    if (m/$mobile/) {
	$match_found=1;
	last;
    }
}
close(FILE);

if (! $match_found) {
    SystemLog("mobile_victims.pl: 204 ($mobile not in top5mobiles.html");
    print "Status: 204 No Response\n\n";
    exit;
}

foreach $filename (<$mobile_records_dir/The_*>) {
    $_=$filename;
    s#.*\/##g;
    s#_##g;
    s#The##g;
    if (m#$mobile#) {
	open(FILE,$filename);
	$mobile_name=<FILE>;
	chomp($mobile_name);
	while ($line=<FILE>) {
	    chomp($line);
	    $_=$line;
	    ($victim)=/\[.*\]\=\>\[(.*)\]/;
	    $victim=~s/\(//;
	    $victim=~s/\)//;
	    $victim=" $victim ";
	    #$result.="<h3>($mobile_name,$victim)</h3>";
	    foreach (keys %level) {
		if ($victim=~m# $_ #) {
		    #$result.="<h4>$_</h4>";
		    $kills{$_}++;
		    last;
		}
	    }
	}
	close(FILE);
	last;
    }
}

#$result.="<table>";
#foreach (keys %level) {
#    $result.="<tr><td>$_</td><td>$kills{$_}</td></tr>";
#}
#$result.="</table>";

if (! defined($mobile_name)) {
    SystemLog("mobile_victims.pl: couldn't find a file for [$mobile]");
    print "Status: 204 No Response\n\n";
    exit;
}

SystemLog("mobile_victims.pl: [$mobile] OK");

#print "<h2>Fatalities caused by $mobile_name.</h2>\n";

open(FILE,"/home/toby/mud2/telnet/RESET_LOGS/LAST_RESET_MOBILE_KILLS_COUNTED");
$LAST_RESET=<FILE>;
close(FILE);
chomp($LAST_RESET);

$mobile_name=lc($mobile_name);

$sum=0;
$kills=0;

$table="<table border=0 cellpadding=2 cellspacing=1 BGCOLOR='#003366'>";
$table.="<tr><th colspan=4 BGCOLOR='white'><b><font size='+1'>U</font>NPROTECTED <font size='+1'>P</font>ERSONAE</b></th><th bgcolor='white'><font size=\"+1\">K</font>ILLS</th><th bgcolor='red' text='white'><font size='+1'>S</font>CORE</th></tr>";

$total=$kills{protector}+$kills{seer}+$kills{seeress};
$score=$total*$level{protector};
$sum+=$score;
$kills+=$total;
$table.="<tr><td class='level'>protector</td><td class='number'>$kills{protector}</td><td class='level'>seer/seeress </td><td class='number'>$kills{seer}/$kills{seeress}</td><td bgcolor='white' class='total'>$total</td><td class='score'>$score</td></tr>";

$total=$kills{yeoman}+$kills{yeowoman}+$kills{soothsayer};
$score=$total*$level{yeoman};
$sum+=$score;
$kills+=$total;
$table.="<tr><td class='level'>yeoman<span class='mark'>/</span>yeowoman</td><td class='number'>$kills{yeoman}/$kills{yeowoman}</td><td class='level'>soothsayer</td><td class='number'>$kills{soothsayer}</td><td bgcolor='white' class='total'>$total</td><td class='score'>$score</td></tr>";

$total=$kills{warrior}+$kills{cabalist};
$score=$total*$level{warrior};
$sum+=$score;
$kills+=$total;
$table.="<tr><td class='level'>warrior</td><td class='number'>$kills{warrior}</td><td class='level'>cabalist</td><td class='number'>$kills{cabalist}</td><td bgcolor='white' class='total'>$total</td><td class='score'>$score</td></tr>";

$total=$kills{swordsman}+$kills{swordswoman}+$kills{magician}+$kills{magicienne};
$score=$total*$level{swordsman};
$sum+=$score;
$kills+=$total;
$table.="<tr><td class='level'>swordsman/swordswoman</td><td class='number'>$kills{swordsman}/$kills{swordswoman}</td><td class='level'>magician/magicienne</td><td class='number'>$kills{magician}/$kills{magicienne}</td><td bgcolor='white' class='total'>$total</td><td class='score'>$score</td></tr>";

$total=$kills{hero}+$kills{heroine}+$kills{enchanter}+$kills{echantress};
$score=$total*$level{hero};
$sum+=$score;
$kills+=$total;
$table.="<tr><td class='level'>hero/heroine</td><td class='number'>$kills{hero}/$kills{heroine}</td><td class='level'>enchanter/enchantress</td><td class='number'>$kills{enchanter}/$kills{enchantress}</td><td bgcolor='white' class='total'>$total</td><td class='score'>$score</td></tr>";

$total=$kills{superhero}+$kills{superheroine}+$kills{spellbinder}+$kills{spellbindress};
$score=$total*$level{superhero};
$sum+=$score;
$kills+=$total;
$table.="<tr><td class='level'>superhero/superheroine</td><td class='number'>$kills{superhero}/$kills{superheroine}</td><td class='level'>spellbinder/spellbindress</td><td class='number'>$kills{spellbinder}/$kills{spellbindress}</td><td bgcolor='white' class='total'>$total</td><td class='score'>$score</td></tr>";

$total=$kills{champion}+$kills{championne}+$kills{sorcerer}+$kills{sorceress};
$score=$total*$level{champion};
$sum+=$score;
$kills+=$total;
$table.="<tr><td class='level'>champion/championne</td><td class='number'>$kills{champion}/$kills{championne}</td><td class='level'>sorcerer/sorceress</td><td class='number'>$kills{sorcerer}/$kills{sorceress}</td><td bgcolor='white' class='total'>$total</td><td class='score'>$score</td></tr>";

$total=$kills{guardian}+$kills{guardienne}+$kills{necromancer}+$kills{necromancess};
$score=$total*$level{guardian};
$sum+=$score;
$kills+=$total;
$table.="<tr><td class='level'>guardian/guardienne</td><td class='number'>$kills{guardian}/$kills{guardienne}</td><td class='level'>necromancer/necromancess</td><td class='number'>$kills{necromancer}/$kills{necromancess}</td><td bgcolor='white' class='total'>$total</td><td class='score'>$score</td></tr>";

$total=$kills{legend}+$kills{warlock};
$score=$total*$level{legend};
$sum+=$score;
$kills+=$total;
$table.="<tr><td class='level'>legend</td><td class='number'>$kills{legend}</td><td class='level'>warlock</td><td class='number'>$kills{warlock}</td><td bgcolor='white' class='total'>$total</td><td class='score'>$score</td></tr>";

$total=$kills{Sir}+$kills{Lady}+$kills{mage};
$score=$total*$level{Sir};
$sum+=$score;
$kills+=$total;
$table.="<tr><td class='level'>Sir/Lady</td><td class='number'>$kills{Sir}/$kills{Lady}</td><td class='level'>mage</td><td class='number'>$kills{mage}</td><td bgcolor='white' class='total'>$total</td><td class='score'>$score</td></tr>";

$table.="<tr><th colspan=4 BGCOLOR='white'><b><font size='+1'>P</font>ROTECTED <font size='+1'>P</font>ERSONAE</b></th><th bgcolor='white'><font size='+1'>K</font>ILLS</th><th bgcolor='red' text='white'><font size='+1'>S</font>CORE</th></tr>";

$total=$kills{pathfinder}+$kills{neophyte};
$score=$total*$level{pathfinder};
$sum+=$score;
$kills+=$total;
$table.="<tr><td class='level'>pathfinder</td><td class='number'>$kills{pathfinder}</td><td class='level'>neophyte</td><td class='number'>$kills{neophyte}</td><td bgcolor='white' class='total'>$total</td><td class='score'>$score</td></tr>";

$total=$kills{voyager}+$kills{pilgrim};
$score=$total*$level{voyager};
$sum+=$score;
$kills+=$total;
$table.="<tr><td class='level'>voyager</td><td class='number'>$kills{voyager}</td><td class='level'>pilgrim</td><td class='number'>$kills{pilgrim}</td><td bgcolor='white' class='total'>$total</td><td class='score'>$score</td></tr>";

$total=$kills{wayfarer}+$kills{acolyte};
$score=$total*$level{wayfarer};
$sum+=$score;
$kills+=$total;
$table.="<tr><td class='level'>wayfarer</td><td class='number'>$kills{wayfarer}</td><td class='level'>acolyte</td><td class='number'>$kills{acolyte}</td><td bgcolor='white' class='total'>$total</td><td class='score'>$score</td></tr>";

$total=$kills{scout}+$kills{friar};
$score=$total*$level{scout};
$sum+=$score;
$kills+=$total;
$table.="<tr><td class='level'>scout</td><td class='number'>$kills{scout}</td><td class='level'>friar</td><td class='number'>$kills{friar}</td><td bgcolor='white' class='total'>$total</td><td class='score'>$score</td></tr>";

$total=$kills{rover}+$kills{cleric};
$score=$total*$level{rover};
$sum+=$score;
$kills+=$total;
$table.="<tr><td class='level'>rover</td><td class='number'>$kills{rover}</td><td class='level'>cleric</td><td class='number'>$kills{cleric}</td><td bgcolor='white' class='total'>$total</td><td class='score'>$score</td></tr>";

$total=$kills{pioneer}+$kills{Brother}+$kills{Sister};
$score=$total*$level{pioneer};
$sum+=$score;
$kills+=$total;
$table.="<tr><td class='level'>pioneer</td><td class='number'>$kills{pioneer}</td><td class='level'>Brother/Sister</td><td class='number'>$kills{Brother}/$kills{Sister}</td><td bgcolor='white' class='total'>$total</td><td class='score'>$score</td></tr>";

$total=$kills{explorer}+$kills{priest}+$kills{priestess};
$score=$total*$level{explorer};
$sum+=$score;
$kills+=$total;
$table.="<tr><td class='level'>explorer</td><td class='number'>$kills{explorer}</td><td class='level'>priest/priestess</td><td class='number'>$kills{priest}/$kills{priestess}</td><td bgcolor='white' class='total'>$total</td><td class='score'>$score</td></tr>";

$total=$kills{ranger}+$kills{prelate};
$score=$total*$level{ranger};
$sum+=$score;
$kills+=$total;
$table.="<tr><td class='level'>ranger</td><td class='number'>$kills{ranger}</td><td class='level'>prelate</td><td class='number'>$kills{prelate}</td><td bgcolor='white' class='total'>$total</td><td class='score'>$score</td></tr>";

$total=$kills{minstrel}+$kills{patriarch}+$kills{matriarch};
$score=$total*$level{minstrel};
$sum+=$score;
$kills+=$total;
$table.="<tr><td class='level'>minstrel</td><td class='number'>$kills{minstrel}</td><td class='level'>patriarch/matriarch</td><td class='number'>$kills{patriarch}/$kills{matriarch}</td><td bgcolor='white' class='total'>$total</td><td class='score'>$score</td></tr>";

$table.="<tr><th colspan=4 bgcolor='white' align=right><font size='+1'>G</font>RAND <font size='+1'>T</font>OTAL</th><td class='grandtotal'><font size='+1'>$kills</font></td><td class='grandscore'><font size='+1'>$sum</font></td></tr>";

$table.="</table>";

$result=&Template("mobile_victims.htmlf");

print header();
print $result;

sub Template {
	local(*FILE);
	local($file);
	local($HTML);
	local($_);

	$file = $html_fragments_dir."/".$_[0] || die "Template : No template file specified\n";

	open(FILE, "$file") || print " Error: $!";
	while (<FILE>) {
	$HTML .= $_;
	}
	close(FILE);
	$HTML =~ s/\$(\w+)/${$1}/g;
	return $HTML;
}

sub SystemLog {
        local (*LOG_FILE);
        local ($log_filename);
        local ($log_string);
        local ($log_time);

        $log_filename="/home/toby/mud2/mud2comNOW_system_log.txt";
        $log_string=$_[0];

	$currenttime=`/bin/date +'@ %d %B %y, %X %Z'`;
        $log_time=$currenttime;
        chomp($log_time);

        open(LOG_FILE,">>$log_filename");
        print LOG_FILE "$log_time:$log_string/$your_host\n";
        close(LOG_FILE);
}