#!/usr/local/bin/perl -w

use strict;

use CGI;
use Proc::ProcessTable;

my $statusCGI = new CGI;

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

#our %universed = ("status", "server", "uptime", "user", "PID");
our %universed = ();
#our %world = ("status", "server", "uptime", "user", "PID");
our %world = ();

sub queryProcesses($server) {
	my $process = new Proc::ProcessTable(); 
	my $processTable = $process->table;
	my $processTableRecord;

	foreach $processTableRecord (@{$process->table}) {
		if ($processTableRecord->fname eq $server) {
			%{$server} = (
					pid => '$processTableRecord->pid',
					server => '$processTableRecord->fname'
					);
			print $processTableRecord->uid, "\n";
			}
		}
	}

if (!$statusCGI->param("universedAction") && !$statusCGI->param("worldAction")) {
	queryProcesses("$universedBin");
	queryProcesses("$worldBin");
	}