]> git.netwichtig.de Git - user/henk/code/inspircd.git/blobdiff - .inspircd.inc
As we have an enum for type, why not ..use it?
[user/henk/code/inspircd.git] / .inspircd.inc
index 0ba1f88def9fe6da77a348aedf0eb2962a377d14..37d23b8c5eab7c800e0e7d515ec0996c9367eb3f 100644 (file)
@@ -3,7 +3,7 @@
 #       | Inspire Internet Relay Chat Daemon |
 #       +------------------------------------+
 #
-#      (C) 2002-2007 InspIRCd Development Team
+#      (C) 2002-2008 InspIRCd Development Team
 #   http://www.inspircd.org/wiki/index.php/Credits
 #
 # Written by Craig Edwards, Craig McLure, and others.
@@ -100,6 +100,7 @@ sub start {
        if (getstatus() == 1) { print "InspIRCd is already running.\n"; return 0; }
        # If we are still alive here.. Try starting the IRCd..
        print "$binpath/$executable doesn't exist\n" and return 0 unless(-e "$binpath/$executable");
+       print "$binpath/$executable is not executable\n" and return 0 unless(-f "$binpath/$executable" && -x "$binpath/$executable");
 
        system("$binpath/$executable");
        return 1;
@@ -110,6 +111,7 @@ sub debug {
        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");
+       print "$binpath/$executable is not executable\n" and return 0 unless(-f "$binpath/$executable" && -x "$binpath/$executable");
 
        # Check we have gdb
        checkgdb();
@@ -141,6 +143,7 @@ sub valdebug
        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");
+       print "$binpath/$executable is not executable\n" and return 0 unless(-f "$binpath/$executable" && -x "$binpath/$executable");
 
        # Check we have valgrind and gdb
        checkvalgrind();
@@ -158,6 +161,7 @@ sub screenvaldebug
        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");
+       print "$binpath/$executable is not executable\n" and return 0 unless(-f "$binpath/$executable" && -x "$binpath/$executable");
 
        #Check we have gdb
        checkvalgrind();