Import Alix mrtg scripts

[sven/scripts.git] / mrtg-alix / mrtg-scripts / explore_load

diff --git a/mrtg-alix/mrtg-scripts/explore_load b/mrtg-alix/mrtg-scripts/explore_load
new file mode 100755 (executable)
index 0000000..fc485fa
--- /dev/null
+++ b/mrtg-alix/mrtg-scripts/explore_load
@@ -0,0 +1,17 @@
+#!/usr/bin/perl -w
+
+$_ = <>;
+my ($l, $p) = ($_ =~ /^\s*[\d.]+\s+([\d.]+)\s+[\d.]+\s+\d+\/(\d+)/);
+$l = int($l*100);
+
+my $h = `hostname`;
+chomp $h;
+print <<EOF;
+$l
+$p
+
+$h
+EOF
+
+1;
+