X-Git-Url: https://git.sven.stormbind.net/?a=blobdiff_plain;f=mrtg-alix%2Fmrtg-scripts%2Fexplore_load;fp=mrtg-alix%2Fmrtg-scripts%2Fexplore_load;h=fc485faa98ea31f26e69ccd254aafe7b80a52746;hb=e1c2d0940e95d5a903d8bbc8cc7837f67bdcac89;hp=0000000000000000000000000000000000000000;hpb=0d5f2f20d9da1b932020bf17f84ad4cd542cc86a;p=sven%2Fscripts.git

diff --git a/mrtg-alix/mrtg-scripts/explore_load b/mrtg-alix/mrtg-scripts/explore_load
new file mode 100755
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;
+