- # 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");
+ # Check to see its not 'running' already.
+ if (getstatus() == 1) { print "InspIRCd is already running.\n"; return 0; }
+
+ print "$binpath/$executable doesn't exist\n" and return 0 unless(-e "$binpath/$executable");
+
+ # Check we have gdb
+ checkgdb();
+
+ # If we are still alive here.. Try starting the IRCd..
+ system("gdb --command=$basepath/.gdbargs --args $binpath/$executable -nofork -debug -nolog");
+}
+
+sub screendebug
+{
+ # Check to see its not 'running' already.
+ if (getstatus() == 1) { print "InspIRCd is already running.\n"; return 0; }
+
+ print "$binpath/$executable doesn't exist\n" and return 0 unless(-e "$binpath/$executable");
+
+ #Check we have gdb
+ checkgdb();
+ checkscreen();
+
+ # If we are still alive here.. Try starting the IRCd..
+ print "Starting InspIRCd in `screen`, type `screen -r` when the ircd crashes to view the gdb output and get a backtrace.\n";
+ print "Once you're inside the screen session press ^C + d to re-detach from the session\n";
+ system("screen -m -d gdb --command=$basepath/.gdbargs --args $binpath/$executable -nofork -debug -nolog");
+}
+
+sub valdebug
+{
+ # Check to see its not 'running' already.
+ if (getstatus() == 1) { print "InspIRCd is already running.\n"; return 0; }
+
+ print "$binpath/$executable doesn't exist\n" and return 0 unless(-e "$binpath/$executable");
+
+ # Check we have valgrind and gdb
+ checkvalgrind();
+ checkgdb();
+
+ # If we are still alive here.. Try starting the IRCd..
+ # May want to do something with these args at some point: --suppressions=.inspircd.sup --gen-suppressions=yes
+ # Could be useful when we want to stop it complaining about things we're sure aren't issues.
+ system("valgrind -v --tool=memcheck --leak-check=yes --db-attach=yes --num-callers=10 $binpath/$executable -nofork -debug -nolog");