#!/usr/local/bin/perl
#This is the script for stopping, starting and restarting a server
#noexec

#I am assuming that you are using the CGS4825/server directory as
#the server root. I am also assuming that this directory is 
#located in your root or HOME directory. If this is not the
#case then change the following variable so that it contains
#the full path to your server root.

print "Version 2\n";
$server_ext = "";
if (@ARGV == 2) {
    $server_ext = ".$ARGV[1]";
}   

$server = $ENV{HOME} . "/cgs4825/server$server_ext";
$command = "/home/ocelot/aul-user-web/bin/httpd -d";
$ps_com = "/bin/ps";

if (@ARGV == 0 || @ARGV > 2) {
    usage();
} else {
    ($pid_good,$pid) = test_pid();
    $option = $ARGV[0];
    if ($option =~ /^hup$/i) {
	do_hup();
    } elsif ($option =~ /^start$/i) {
	`$command $server`;
	do_info();
    } elsif ($option =~ /^stop$/i) {
	do_stop();
    } elsif ($option =~ /^pid$/i) {
	do_pid();
    } elsif ($option =~ /^info$/i) {
	do_info();
    } else {
	usage();
    }
}


sub usage() {
    print <<END;

Usage: server option [ext]

    There are five options for this command:
    start   start the server
    stop    terminate the server
    hup	    reread the configuration files for the server
    pid	    display the pid for the server
    info    display the pid and start time for all servers in your pool. 
	    The one with the lowest number is usually the original.

    Only one of the above options may be selected

    ext is optional. It can be the directory extension for the server root
END
    ;
}


sub test_pid() {
    my($pid_good, $pid, @ps);

    $pid_good = 0;
    $pid = 0;
    if (-e "$server/logs/httpd.pid") {
	$pid = `cat $server/logs/httpd.pid`;
	chomp($pid);
	@ps = `$ps_com -gwwux`;
	foreach (@ps) {
	    if (/\b$pid\b/ && /httpd/) {
		$pid_good = 1;
		last;
	    }
	}
    }
    return ($pid_good,$pid);
}

sub do_hup() {
    if ($pid_good) { 
	`kill -HUP $pid`;
	$ps = `$ps_com -gwwx`;
	if (!($ps =~ /$command/)) {
	    `$command $server`;
	} else {
	    do_info();
	}
    } else {
	print "You must start the server before you can restart it\n";
    }
}


sub do_stop() {
    if ($pid_good) {	  
	`kill -TERM $pid`;
    } else {
	print "You must start the server before you can stop it\n";
    }
}

sub do_pid() {
    if ($pid_good) {	  
	print "$pid\n";
    } else {
	print "You must start the server before you can get its PID\n";
    }
}

sub do_info() {
    $running = 0;
    @ps = `$ps_com -gwwux`;
    foreach (@ps) {
	@fields = split(/\s+/);
	if (/$command $server/) {
	    $running = 1;
	    print "$fields[1] $fields[8] $fields[9] ";
	    print "$fields[10] $fields[11] $fields[12]\n";
	}
    }
    if ($running == 0) {
	print "No servers are running\n";
    }
}