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

#I am assuming that you are using the COP3832/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.

$server = $ENV{HOME} . "/COP3832/server";
$command = "/depot/http/bin/httpd -d";

if (@ARGV == 0 || @ARGV > 1) {
    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

    There are four 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 these options may be selected

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 -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 -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 -gwwux`;
    foreach (@ps) {
	@fields = split(/\s+/);
	if (/$command/) {
	    $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";
    }
}