# | Inspire Internet Relay Chat Daemon |
# +------------------------------------+
#
-# Inspire is copyright (C) 2002-2004 ChatSpike-Dev.
-# E-mail:
-# <brain@chatspike.net>
-# <Craig@chatspike.net>
+# (C) 2002-2007 InspIRCd Development Team
+# http://www.inspircd.org/wiki/index.php/Credits
#
# Written by Craig Edwards, Craig McLure, and others.
# This program is free but copyrighted software; see
# the file COPYING for details.
#
-# I HATE PERL.. kthxbye
# ---------------------------------------------------
use POSIX;
###
print "Invalid Argument: $arg\n";
print "Usage: inspircd (start|stop|restart|rehash|status|cron|checkconf|version)\n";
+print "Developer arguments: (debug|screendebug|valdebug|screenvaldebug)\n";
exit();
###
checkgdb();
# If we are still alive here.. Try starting the IRCd..
- system("gdb --command=$basepath/.gdbargs --args $binpath/$executable -nofork -debug -nolog");
+ system("gdb --command=$basepath/.gdbargs --args $binpath/$executable -nofork -debug");
}
sub screendebug
# remove trailing newlines
chomp($i);
- # clean up
- $i =~ s/[^=]+=\s(.*)/\1/;
-
# convert tabs to spaces
$i =~ s/\t/ /g;
# remove trailing spaces
$i =~ s/ *$//;
+ # setup incf for include check and clean it up, since this breaks parsing use local var
+ my $incf = $i;
+ $incf =~ s/[^=]+=\s(.*)/\1/;
+
# include file?
- if (($i =~ s/\<include file=\"(.+?)\"\>//i) && ($i !~ /^#/))
+ if (($incf =~ s/\<include file=\"(.+?)\"\>//i) && ($incf !~ /^#/))
{
# yes, process it
validateconf($1);