#!/usr/bin/perl

$help = <<ENDHELP;
	Usage:  killquerier [prog1,...]
	
	Action:  
	Kills dealsearch.cgi, submittalform.cgi, dsrouter.cgi, carly.cgi, and
	bravo.cgi in order to change databases.  User executing
	the script must have permission to kill the process.

	if 'dealsearch', 'submittalform', 'bravo', 'carly', 'Querier' is passed as
	argument(s), only those processes will be killed.
ENDHELP

if (@ARGV)
{
	while (@ARGV) 
	{
		my $arg = shift;
		if (grep /^$arg$/i, qw(dealsearch submittalform bravo carly dsrouter))
		{
			&killprocess("\L$arg",'cgi');
		}
		else
		{
			print $help;
		}
	}
	exit(0);
}

&killprocess('carly','cgi');
&killprocess('dealsearch','cgi');
&killprocess('submittalform','cgi');
&killprocess('bravo','cgi');
&killprocess('dsrouter','cgi');

#-------------------------------------------------------#
#					kill process						#
#-------------------------------------------------------#
sub killprocess
{
	my ($name, $suffix) = @_;
	
	$cmd = "ps -ef | grep $name";
	open (RSLT, "$cmd |") or die "Can't open pipe to $cmd:$!\n";
	@results = <RSLT>;
	close(RSLT);
#	print join("",@results);

	@found = grep { /$name\.$suffix/ } @results;
	if (@found)
	{
		($owner, $pid, $rest) = split(" ",$found[0]);
		$cmd = "kill $pid";
		system($cmd);
		print  localtime() . ", Killed $name.$suffix, pid=$pid.\n";
	}	
	else
	{
#		print localtime() . ", $name.$suffix process not found!...\n";
	}
}