X-Git-Url: https://git.netwichtig.de/gitweb/?a=blobdiff_plain;f=.inspircd.inc;h=03be874c69c669059990fbe85f0c63158fd8dfd5;hb=84a19a9ab6129deb71cdc24b216b74dd8eb80978;hp=1776b799c0605bb2ebbf02a2a047d8f4b7d4096f;hpb=fc31f07d4fc6488d64981d0850cba26ec3c4cafb;p=user%2Fhenk%2Fcode%2Finspircd.git

diff --git a/.inspircd.inc b/.inspircd.inc
index 1776b799c..03be874c6 100644
--- a/.inspircd.inc
+++ b/.inspircd.inc
@@ -15,14 +15,18 @@
 #               I HATE PERL.. kthxbye
 # ---------------------------------------------------
 
-my $conffile = "@CONFIG_DIR@/inspircd.conf";
-my $binpath = "@BINARY_DIR@/inspircd";
+my $confpath = "@CONFIG_DIR@/";
+my $binpath = "@BINARY_DIR@";
+my $libpath = "@LIBRARY_DIR@";
+my $executable = "@EXECUTABLE@";
+my @filesparsed;
 
 # Lets see what they want to do.. Set the variable (Cause i'm a lazy coder)
 my $arg = $ARGV[0];
-getpidfile();
+getpidfile($confpath."inspircd.conf");
 
 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) { 
@@ -79,24 +83,24 @@ sub start {
         # 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);
-        sleep 1;
-        if (getstatus() == 0) {
-                print "InspIRCd Seemingly not started, Log follows:\n";
-                system("tail ircd.log");
-        } else {
-                # We're good!
-                return 1;
-        }
+        system("$binpath/$executable");
+        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 --command=.gdbargs --args $binpath/$executable -nofork -debug -nolog");
+}
+
+
 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";
         system("kill -TERM $pid >/dev/null 2>&1");
-	sleep 2;
 	if (getstatus() == 1)
 	{
 		print "InspIRCd not dying Quietly -- Forcing Kill\n";
@@ -105,21 +109,72 @@ sub stop {
         print "InspIRCd Stopped.\n";
 }
 
+# GetPidfile Version 2 - Now With Include Support..
+# I beg for months for include support in insp, then.. 
+# when it is added, it comes around and BITES ME IN THE ASS,
+# because i then have to code support into this script.. Evil.
 
 sub getpidfile {
-	open INFILE, "<  $conffile" or die "Couldn't open $conffile";
-	my(@lines) = <INFILE>;
-	close INFILE;
-	chomp(@lines);
-
-	foreach $i (@lines) {
-	    $i =~ s/[^=]+=\s(.*)/\1/;
-	}
-
-	my $tmp = join("",@lines);
-	$tmp =~ /<pid file=\"(\S+)\">/i;
-
-	$pidfile = $1;
+  my ($file) = @_;
+  # Before we start, do we have a PID already? (Should never occur)
+  if ($pid ne "") {
+    return;
+  }
+  # Are We using a relative path?
+  if ($file !~ /^\//) {
+    # Convert it to a full path..
+    $file = $confpath . $file;
+  }
+
+  # Have we checked this file before?
+  for (my $i = 0; $i < $filesparsed; $i++) {
+    if ($filesparsed[$i] eq $file) {
+      # Already Parsed, Possible recursive loop..
+      return;
+    }
+  }
+  
+  # If we get here, Mark as 'Read'
+  $filesparsed[$filesparsed] = $file;
+
+  # Open the File..
+  open INFILE, "< $file" or die "Unable to Open file $file\n";
+  # Grab entire file contents..
+  my(@lines) = <INFILE>;
+  # Close the file
+  close INFILE;
+
+  # Clean up the file, no newlines etc..
+  chomp(@lines);
+  foreach $i (@lines) {
+    $i =~ s/[^=]+=\s(.*)/\1/;
+  }
+  my $tmp = join("",@lines);
+
+  # Does this file have a pid?
+  if ($tmp =~ /<pid file=\"(\S+)\">/i) {
+    # Set the PID file and return.
+    $pidfile = $1;
+    return;
+  }
+
+  # If we get here, NO PID FILE! -- Check for includes (Seeing as we will eventually return,
+  # The while (1) is safe.)
+  while (1) {
+    if ($tmp =~ s/\<include file=\"(.+?)\"\>//i)
+    {
+      # Decend into that file, and check for PIDs.. (that sounds like an STD ;/)
+      getpidfile($1);
+      # Was a PID found?
+      if ($pidfile ne "") {
+        # Yes, Return.
+        return;
+      }
+    } else {
+      # End of includes / No includes found.
+      return;
+    }
+  }
 }
 
 sub getstatus {