From 6e4305fc87342952cfb4f4525f8a06a8e982ebdb Mon Sep 17 00:00:00 2001
From: "J.T. Sage" <jtsage@gmail.com>
Date: Sun, 27 Jun 2010 19:22:29 +0200
Subject: [PATCH] Initial version

---
 plugins/other/dar_memusage | 104 +++++++++++++++++++++++++++++++++++++
 1 file changed, 104 insertions(+)
 create mode 100755 plugins/other/dar_memusage

diff --git a/plugins/other/dar_memusage b/plugins/other/dar_memusage
new file mode 100755
index 00000000..a377f6bf
--- /dev/null
+++ b/plugins/other/dar_memusage
@@ -0,0 +1,104 @@
+#!/usr/bin/perl -w
+# -*- perl -*-
+
+=head1 NAME
+
+dar_mumusage - Munin plugin to monitor darwin physical memory usage.
+
+=head1 APPLICABLE SYSTEMS
+
+Should work on any darwin (Mac OS X) system with the 'top' command.
+
+=head1 CONFIGURATION
+
+None needed
+
+=head1 INTERPRETATION
+
+The plugin runs the top command and shows the physical memory for the machine.
+
+=head1 BUGS
+
+The stats are a snapshot at the time of the command - a 5 minute average would
+be better.
+
+=head1 MAGIC MARKERS
+
+  #%# family=auto
+  #%# capabilities=autoconf
+
+=head1 VERSION
+
+  v.0.0.1
+
+=head1 AUTHOR
+
+Copyright (C) 2010.
+
+Original version by J.T.Sage (at) gmail (dot) com.
+
+=head1 LICENSE
+
+GPLv2
+
+=cut
+
+use Munin::Plugin;
+
+if ( defined($ARGV[0])) {
+    if ($ARGV[0] eq 'autoconf') {
+	$uname = `uname`;
+	if ( not ( $uname =~ /Darwin/ ) ) { print "no (not a Darwin System)\n"; }
+	else {
+		if ( not -x "/usr/bin/top" ) { print "no (top not found)\n"; }
+		else {
+			print "yes\n";
+		}
+	}
+	exit 0;
+    }
+
+    if ( $ARGV[0] eq "config" ) {
+	$maxmemcmd = `hostinfo | grep memory`;
+	$maxmemcmd =~ m/^.+?: (\d+\.\d+) (\w).+$/;
+	$memline = $1;
+	if ( $2 eq "m" ) { $memline = $memline * 1024 * 1024; }
+	if ( $2 eq "g" ) { $memline = $memline * 1024 * 1024 * 1024; }
+
+	print "graph_title Memory usage\n";
+	print "graph_args --base 1024 --lower-limit 0 --upper-limit ".$memline." --rigid\n";
+	print "graph_vlabel Bytes\n";
+	print "graph_scale yes\n";
+	print "graph_category system\n";
+	print "wired.label wired\nwired.type GAUGE\nwired.draw AREA\n";
+	print "active.label active\nactive.type GAUGE\nactive.draw STACK\n";
+	print "inactive.label inactive\ninactive.type GAUGE\ninactive.draw STACK\n";
+	print "free.label free\nfree.type GAUGE\nfree.draw STACK\n";
+	print "used.label used\nused.type GAUGE\nused.draw LINE2\n";
+	exit 0;
+    }
+}
+
+@top = `top -l1 -n0 -u`;
+$quit = 0;
+for ( $i = 1;  ($i < $#top and $quit == 0); $i++ ) {
+	if ( $top[$i] =~ /^PhysMem/ ) {
+		$wired = $active = $inactive = $free = $used = $top[$i];
+		$wired =~ s/^.+?: (\d+)M wired.+$/$1/; chomp $wired; $wired = $wired * 1024 * 1024;
+		$active =~ s/^.+?, (\d+)M active.+$/$1/; chomp $active; $active = $active * 1024 * 1024;
+		$inactive =~ s/^.+?, (\d+)M inactive.+$/$1/; chomp $inactive; $inactive = $inactive * 1024 * 1024;
+		$free =~ s/^.+?, (\d+)([M|K]) free.+$/$1/; chomp $free; $free = $free * 1024 * 1024; if ( $2 eq "K" ) { $free = $free / 1024; }
+		$used =~ s/^.+?, (\d+)M used.+$/$1/; chomp $used; $used = $used * 1024 * 1024;
+		print "wired.value " . $wired . "\n";
+		print "active.value " . $active . "\n";
+		print "inactive.value " . $inactive . "\n";
+		print "free.value " . $free . "\n";
+		print "used.value " . $used . "\n";
+		$quit = 1; 
+	}
+}
+
+
+
+
+# vim:syntax=perl