memusage support for open/free/net bsd added. patch from Kuma/Rev

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

diff --git a/src/core.pl b/src/core.pl
index cfd304f9829f53bc355ebc379e89b87ce0c98f73..b75fb1d14b7a7057d520fe38dc813c67932d3e42 100644 (file)
--- a/src/core.pl
+++ b/src/core.pl
@@ -244,29 +244,37 @@ sub showProc {
        }
        close IN;
 
-       if (defined $memusageOld and &IsParam("DEBUG")) {
-           # it's always going to be increase.
-           my $delta = $memusage - $memusageOld;
-           my $str;
-           if ($delta == 0) {
-               return;
-           } elsif ($delta > 500) {
-               $str = "MEM:$prefix increased by $delta kB. (total: $memusage kB)";
-           } elsif ($delta > 0) {
-               $str = "MEM:$prefix increased by $delta kB";
-           } else {    # delta < 0.
-               $delta = -$delta;
-               # never knew RSS could decrease, probably Size can't?
-               $str = "MEM:$prefix decreased by $delta kB. YES YES YES";
-           }
-
-           &status($str);
-       }
-       $memusageOld = $memusage;
+    } elsif ($^O eq "netbsd") {
+       $memusage = (stat "/proc/$$/mem")[7]/1024;
+
+    } elsif ($^O =~ /^(free|open)bsd$/) {
+       my @info  = split /\s+/, `/bin/ps -l -p $$`;
+       $memusage = $info[20];
+
     } else {
        $memusage = "UNKNOWN";
+       return;
+    }
+
+    if (defined $memusageOld and &IsParam("DEBUG")) {
+       # it's always going to be increase.
+       my $delta = $memusage - $memusageOld;
+       my $str;
+       if ($delta == 0) {
+           return;
+       } elsif ($delta > 500) {
+           $str = "MEM:$prefix increased by $delta kB. (total: $memusage kB)";
+       } elsif ($delta > 0) {
+           $str = "MEM:$prefix increased by $delta kB";
+       } else {        # delta < 0.
+           $delta = -$delta;
+           # never knew RSS could decrease, probably Size can't?
+           $str = "MEM:$prefix decreased by $delta kB. YES YES YES";
+       }
+
+       &status($str);
     }
-    ### TODO: FreeBSD/*BSD support.
+    $memusageOld = $memusage;
 }
 
 ######