#!/usr/bin/perl

$ENV{CATALINA_BASE}='/usr/local/jakarta/tomcat';
$ENV{CATALINA_HOME}='/usr/local/jakarta/tomcat';
$ENV{CATALINA_TMPDIR}='/var/tmp';
$ENV{JAVA_HOME}='/usr/local/jdk';
$ENV{PATH}="$ENV{JAVA_HOME}/bin:$ENV{PATH}:/usr/local/bin:/usr/X11R6/bin";
$ENV{XML}="$ENV{JAVA_HOME}/lib";
$ENV{SSL}="$ENV{JAVA_HOME}/lib";
$ENV{JAVAMYSQL}="$ENV{JAVA_HOME}/lib";
$ENV{CLASSPATH}=".:$ENV{JAVA_HOME}/lib/classes.zip";
$ENV{JAKARTA_HOME}="/usr/local/jakarta/tomcat";
opendir(JK,"$ENV{JAKARTA_HOME}/lib");
while($file = readdir(JK)) {
        next if ($file =~ /^\./);
        $ENV{CLASSPATH} = "$ENV{CLASSPATH}:$ENV{JAKARTA_HOME}/lib/${file}";
}
$ENV{TOMCAT_HOME}=$ENV{JAKARTA_HOME};
$ENV{CATALINA_HOME}="/usr/local/jakarta";

open(PIDF,"/var/run/jsvc.pid");
my $pid = <PIDF>;
close(PIDF);
chomp($pid);
if ($pid > 1) {
	kill(9,$pid);
}
my @PSLINES = split(/\n/,`ps -efw | grep jsvc`);
foreach my $psline (@PSLINES) {
	(undef,$pid,undef) = split(/[\t\s]+/, $psline);
	next if ($pid <= 1);
	push(@PIDS,$pid);
}
kill(9,@PIDS);