#!/usr/athena/bin/perl

$host = $ENV{'REMOTE_ADDR'};

print("Content-Type: text/html\n\n");

if($host=~/^18\.70/ || $host =~/^18\.181/){
	chop($pid = `cat /var/local/httpd/logs/httpd.pid`);
	$result = kill 1, $pid;
	print("<h1>$result Servers Restarted</h1>\n");
	print("Killed \"$pid\"\n");
}
else{
	print("<h1>Nope!</h1>\n");
	print("You are not allowed to restart the server from a non-SIPB machine\n");
}
