getpidfile();
if ($arg eq "start") { start(); exit(); }
+if ($arg eq "debug") { debug(); exit(); }
if ($arg eq "stop") { stop(); exit(); }
if ($arg eq "status") {
if (getstatus() == 1) {
}
}
+sub debug {
+ # Check to see its not 'running' already.
+ if (getstatus() == 1) { print "InspIRCd is already running.\n"; return 0; }
+ # If we are still alive here.. Try starting the IRCd..
+ system("gdb --args $binpath -nofork -debug");
+ sleep 1;
+ if (getstatus() == 0) {
+ print "InspIRCd Seemingly not started, Log follows:\n";
+ system("tail ircd.log");
+ } else {
+ # We're good!
+ return 1;
+ }
+}
+
+
sub stop {
if (getstatus() == 0) { print "InspIRCd is not running. (Or PID File not found)"; return 0; }
# Get to here, we have something to kill.