From 487d9b19ccdfbb59e692338099eba85825e39dff Mon Sep 17 00:00:00 2001
From: dms <dms@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Sat, 17 Feb 2001 13:36:15 +0000
Subject: [PATCH] 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
---
 src/core.pl | 48 ++++++++++++++++++++++++++++--------------------
 1 file changed, 28 insertions(+), 20 deletions(-)

diff --git a/src/core.pl b/src/core.pl
index cfd304f..b75fb1d 100644
--- 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;
 }
 
 ######
-- 
2.39.2