#!/usr/local/bin/perl 

use strict;
no strict "refs";

use CGI;
use Proc::ProcessTable;

our $statusCGI = new CGI;

# Configuration variables
our $acmePath = "/usr/local/acme";
our $universedBin = "universed";
our $worldBin = "world";

our %universed = ();
our %world = ();

sub queryProcesses {
	my $server = shift;
	my $found  = 0;
	my @found;

	my $process = new Proc::ProcessTable(); 
	my $processTableRecord;

	foreach $processTableRecord (@{$process->table}) {
		if ($processTableRecord->fname eq $server) {
			$found++;
			push @found, $processTableRecord;
			}
		}
	if ($found == 0) {
		%{$server} = (
				status => "<font color=\"red\" face=\"Arial, Helvetica, sans serif\">Down</font>",
				server => $server,
				action => "Start"
				);
		}
	elsif ($found == 1) {
		%{$server} = (
				status => "<font color=\"green\" face=\"Arial, Helvetica, sans serif\">Up</font>",
				PID => $found[0]->pid,
				server => $found[0]->fname,
				action => "Stop"
				);
		#print $processTableRecord->uid, "\n";
		}
	else {

		}
	}

sub printStatusHTML {
	print 	$statusCGI->header( "text/html" ),
		$statusCGI->start_html( "chat.educ.foo.edu Administration" );

print <<EOHTML;

<table align="center" border="0" cellspacing="1" cellpadding="2">
<tr><td colspan="5">
<font color="#000000" face="Arial, Helvetica, sans serif" size="+1"><b>Server Stats</b></font>
<font color="#000000" face="Arial, Helvetica, sans serif"> as of</font>
</td></tr>
<tr><td bgcolor="#000077">
<form action="status.cgi" method="POST">
<font color="#FFFFFF" face="Arial, Helvetica, sans serif">Status</font>
</td><td bgcolor="#000077">
<font color="#FFFFFF" face="Arial, Helvetica, sans serif">Server</font>
</td><td bgcolor="#000077">
<font color="#FFFFFF" face="Arial, Helvetica, sans serif">Uptime</font>
</td><td bgcolor="#000077">
<font color="#FFFFFF" face="Arial, Helvetica, sans serif">User</font>
</td><td bgcolor="#000077">
<font color="#FFFFFF" face="Arial, Helvetica, sans serif">PID</font>
</td><td bgcolor="#000077">
<font color="#FFFFFF" face="Arial, Helvetica, sans serif">Action</font>
</td></tr>
<tr><td bgcolor="#EEEEEE">
<font color="#000000" face="Arial, Helvetica, sans serif">$universed{status}</font>
</td><td bgcolor="#EEEEEE">
<font color="#000000" face="Arial, Helvetica, sans serif">$universed{server}</font>
</td><td bgcolor="#EEEEEE">
<font color="#000000" face="Arial, Helvetica, sans serif"></font>
</td><td bgcolor="#EEEEEE">
<font color="#000000" face="Arial, Helvetica, sans serif"></font>
</td><td bgcolor="#EEEEEE">
<font color="#000000" face="Arial, Helvetica, sans serif">$universed{PID}</font>
<input type="hidden" name="universedPID" value="$universed{PID}">
</td><td align="center" bgcolor="#EEEEEE">
<input type="hidden" name="universedAction" value="$universed{action}">
<input type="submit" value="$universed{action}">
</form>
</td></tr>
<tr><td bgcolor="#f2eedb">
<form action="status.cgi" method="POST">
<font color="#000000" face="Arial, Helvetica, sans serif">$world{status}</font>
</td><td bgcolor="#f2eedb">
<font color="#000000" face="Arial, Helvetica, sans serif">$world{server}</font>
</td><td bgcolor="#f2eedb">
<font color="#000000" face="Arial, Helvetica, sans serif"></font>
</td><td bgcolor="#f2eedb">
<font color="#000000" face="Arial, Helvetica, sans serif"></font>
</td><td bgcolor="#f2eedb">
<font color="#000000" face="Arial, Helvetica, sans serif">$world{PID}</font>
<input type="hidden" name="worldPID" value="$world{PID}">
</td><td align="center" bgcolor="#f2eedb">
<input type="hidden" name="worldAction" value="$world{action}">
<input type="submit" value="$world{action}">
</form>
</td></tr>
<tr><td colspan="5">
<font color="#000000" face="Arial, Helvetica, sans serif"><a href="http://www.activeworlds.com/help/aw31/uniserver.html" target="_blank">Uniserver Documentation</a> | <a href="http://www.activeworlds.com/help/aw31/world.html" target="_blank">Worlds Server Documentation</a></font>
</td></tr>
</table>

EOHTML

	print $statusCGI->end_html;
	}

our $universedAction = $statusCGI->param("universedAction");
our $worldAction = $statusCGI->param("worldAction");

if ( $statusCGI->query_string eq "" ) {
	queryProcesses($universedBin);
	queryProcesses($worldBin);
	printStatusHTML();
	}
elsif ( $statusCGI->param("universedAction") eq "start") {
	die(print STDERR "Got to first elsif.") unless system("/usr/local/bin/universed start");
	sleep 5;
	queryProcesses($universedBin);
	queryProcesses($worldBin);
	printStatusHTML();
	;
	}
elsif ($statusCGI->param("universedAction") eq "stop") {
	die unless system("/usr/local/bin/universed stop");
	sleep 5;
	queryProcesses($universedBin);
	queryProcesses($worldBin);
	printStatusHTML();
	}
elsif ($statusCGI->param("worldAction") eq "start") {
	die unless system("/usr/local/bin/world start");
	sleep 5;
	queryProcesses($universedBin);
	queryProcesses($worldBin);
	printStatusHTML();
	}
elsif ($statusCGI->param("worldAction") eq "stop") {
	die unless system("/usr/local/bin/world stop");
	sleep 5;
	queryProcesses($universedBin);
	queryProcesses($worldBin);
	printStatusHTML();
	}