ircCheck(): added full path for ipcs,ipcrm

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@43 c11ca15a-4712-0410-83d8-924469b57eb5

diff --git a/src/IRC/Schedulers.pl b/src/IRC/Schedulers.pl
index ac0c82cfb71264cbbceaa27ef86e3f67215fbc9e..13955bd1efcf4a65bb843c922a6a84dbed47eb73 100644 (file)
--- a/src/IRC/Schedulers.pl
+++ b/src/IRC/Schedulers.pl
@@ -398,8 +398,15 @@ sub ircCheck {
        &FIXME("ircCheck: current channels * 2 <= config channels. FIXME.");
     }
 
+    my @ipcs;
+    if ( -x "/usr/bin/ipcs") {
+       @ipcs = `/usr/bin/ipcs`;
+    } else {
+       &WARN("ircCheck: no 'ipcs' binary.");
+    }
+
     # shmid stale remove.
-    foreach (`ipcs`) {
+    foreach (@ipcs) {
        chop;
 
        # key, shmid, owner, perms, bytes, nattch
@@ -409,7 +416,7 @@ sub ircCheck {
        next unless ($shmid != $shm and $size == 2000);
 
        &status("SHM: nuking shmid $shmid");
-       system("ipcrm shm $shmid >/dev/null");
+       system("/usr/bin/ipcrm shm $shmid >/dev/null");
     }
 
     if (!$conn->connected and time - $msgtime > 3600) {