# ---------------------------------------------------
my $conffile = "@CONFIG_DIR@/inspircd.conf";
-my $binpath = "@BINARY_DIR@/inspircd";
+my $binpath = "@BINARY_DIR@";
+my $libpath = "@LIBRARY_DIR@";
+my $executable = "@EXECUTABLE@";
+
+$ENV{"LD_LIBRARY_PATH"} = $ENV{"LD_LIBRARY_PATH"} . ":/usr/local/lib/mysql:/usr/lib/mysql:$libpath";
# Lets see what they want to do.. Set the variable (Cause i'm a lazy coder)
my $arg = $ARGV[0];
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) {
# 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($binpath);
+ system("$binpath/$executable");
sleep 1;
if (getstatus() == 0) {
print "InspIRCd Seemingly not started, Log follows:\n";
- system("tail ircd.log");
+ system("tail $binpath/ircd.log");
} else {
# We're good!
return 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/$executable -nofork -debug");
+}
+
+
sub stop {
- if (getstatus() == 0) { print "InspIRCd is not running. (Or PID File not found)"; return 0; }
+ if (getstatus() == 0) { print "InspIRCd is not running. (Or PID File not found)\n"; return 0; }
# Get to here, we have something to kill.
my $pid = getprocessid();
print "Stopping InspIRCd...\n";
sub getpidfile {
- open INFILE, "< $conffile" or die "Couldn't open $conffile";
+ open INFILE, "< $conffile" or die "Couldn't open $conffile\n";
my(@lines) = <INFILE>;
close INFILE;
chomp(@lines);