projekty: cacti/apcupsd_status.pl (NEW) - script parse stdout apca...

[wolvverine]

Author: wolvverine                   Date: Tue Feb 21 14:39:54 2006 GMT
Module: projekty                      Tag: HEAD
---- Log message:
- script parse stdout apcacces for cacti

---- Files affected:
projekty/cacti:
   apcupsd_status.pl (NONE -> 1.1)  (NEW)

---- Diffs:

================================================================
Index: projekty/cacti/apcupsd_status.pl
diff -u /dev/null projekty/cacti/apcupsd_status.pl:1.1
--- /dev/null	Tue Feb 21 15:39:54 2006
+++ projekty/cacti/apcupsd_status.pl	Tue Feb 21 15:39:49 2006
@@ -0,0 +1,79 @@
+#!/usr/bin/perl
+
+# Modified Weatherbug Perl Script to monitor a UPS connected to 'apcupsd'
+
+ at upsoutput=`/usr/sbin/apcaccess`;
+
+foreach(@upsoutput) {
+  chomp();
+   split();
+ if ( $_[0] eq 'BCHARGE' ) {
+   $bcharge = $_[2];
+    }
+
+        if ( $_[0] eq 'LINEV' ) {
+        $linev = $_[2];
+    }
+    
+        if ( $_[0] eq 'LOADPCT' ) {
+        $loadpct = $_[2];
+    }
+    
+        if ( $_[0] eq 'TIMELEFT' ) {
+        $timeleft = $_[2];
+    }
+     
+        if ( $_[0] eq 'NOMBATTV' ) {
+        $nombattv = $_[2];
+    }
+    
+        if ( $_[0] eq 'MAXLINEV' ) {
+        $maxlinev = $_[2];
+    }
+    
+        if ( $_[0] eq 'MINLINEV' ) {
+        $minlinev = $_[2];
+    }
+    
+        if ( $_[0] eq 'OUTPUTV' ) {
+        $outputv = $_[2];
+    }
+    
+        if ( $_[0] eq 'ITEMP' ) {
+        $itemp = $_[2];
+    }
+    
+        if ( $_[0] eq 'BATTV' ) {
+        $battv = $_[2];
+    }
+    
+        if ( $_[0] eq 'LINEFREQ' ) {
+        $linefreq = $_[2];
+    }
+    
+        if ( $_[0] eq 'NOMOUTV' ) {
+        $nomoutv = $_[2];
+    }
+    
+        if ( $_[0] eq 'ITEMP' ) {
+	            $battemp = $_[2];
+	        }
+
+    
+    }
+    print " batt_charge:"   . $bcharge .
+          " timeleft:"      . $timeleft .
+        " nom_battv:"     . $nombattv .
+      " line_volt:"     . $linev .
+            " load_pct:"      . $loadpct .
+          " max_linev:"     . $maxlinev .
+        " min_linev:"     . $minlinev .
+      " outputv:"       . $outputv .
+            " int_temp:"      . $itemp .
+          " battv:"         . $battv .
+        " linefreq:"      . $linefreq .
+      " nom_outputv:"   . $nomoutv .
+       " battemp:" 	.$battemp .
+            "\n";
+    
+    
================================================================