# I HATE PERL.. kthxbye
# ---------------------------------------------------
+$ENV{"LD_LIBRARY_PATH"} = $ENV{"LD_LIBRARY_PATH"} . ":/usr/local/lib/mysql:/usr/lib/mysql";
+
my $conffile = "@CONFIG_DIR@/inspircd.conf";
my $binpath = "@BINARY_DIR@/inspircd";
if (getstatus() == 0) { print "InspIRCd is not running. (Or PID File not found)"; return 0; }
# Get to here, we have something to kill.
my $pid = getprocessid();
+ print "Stopping InspIRCd...\n";
system("kill -TERM $pid >/dev/null 2>&1");
+ sleep 2;
+ if (getstatus() == 1)
+ {
+ print "InspIRCd not dying Quietly -- Forcing Kill\n";
+ system("kill -9 $pid >/dev/null 2>&1");
+ }
print "InspIRCd Stopped.\n";
}