apc-switched-pdu-hybrid-outlet-status.pl

#!/usr/bin/perl 

# requires APC MIB file, which is available for download from APC's web site

# this script will first attempt to use SNMP to send power control commands,
# and then fail back to using SSH

use strict;
use Getopt::Long;
use File::Find;
use File::Path;
use POSIX qw(setsid);
use Socket;

my $host;
my $ssh_user;
my $ssh_pass; 
my $snmp_user;
my $snmp_pass;
my $outlet;

my $snmp_command;

&process_args;

$snmp_command = "snmpget -v3 -a MD5 -l authNoPriv -u $snmp_user -A $snmp_pass -m \"/var/lib/filesystems/powernet387.mib\" $host PowerNet-MIB::rPDUOutletControlOutletCommand.$outlet";

my $snmp_output = `$snmp_command 2>&1`;
if ( $? == 0 )
{
   if($snmp_output =~ /immediateOn/)
   {
      print "On\n";
   }
   elsif($snmp_output =~ /immediateOff/)
   {
      print "Off\n";
   }
   else
   {
      print "Unknown\n";
   }

   exit 0;
}

# no fall back to ssh implemented in this script

print "Error: failed to contact APC unit.\n";
print "SNMP output: $snmp_output";
print "SSH unsupported in this utility.\n";

exit 1;

sub process_args
{
   # Parse the command line options
   # For a description of the command line options see &print_help
   use vars qw( $opt_help $opt_host $opt_ssh_user $opt_ssh_pass $opt_snmp_user $opt_snmp_pass $opt_outlet);

   Getopt::Long::Configure( "no_ignore_case", "bundling");
   GetOptions( "help",
               "host=s",
               "ssh-user=s",
               "ssh-pass=s",
               "snmp-user=s",
               "snmp-pass=s",
               "outlet=i");

   if ($opt_help)
   {
      &print_help;
      exit(0);
   }

   if(!$opt_host || !$opt_ssh_user || !$opt_ssh_pass || 
      !$opt_snmp_user || !$opt_snmp_pass || !$opt_outlet)
   {
      &print_help;
      die "Error: missing arguments.\n";
   }

   $host = $opt_host;
   $ssh_user = $opt_ssh_user;
   $ssh_pass = $opt_ssh_pass; 
   $snmp_user = $opt_snmp_user;
   $snmp_pass = $opt_snmp_pass;
   $outlet = $opt_outlet;
}


# --------------- print help information ------------------------------
sub print_help {

   print <<EOF;

This script will check the status of a single outlet on an APC power strip.  
It will only attempt communication via SNMP at this time (although it accepts
arguments for ssh authentication for future use).

usage: apc-switched-pdu-hybrid-outlet-status.pl <options>

options:
   --help                   print this help and exit
   --host        <STRING>   hostname of APC unit
   --ssh-user    <STRING>   ssh username for APC unit
   --ssh-pass    <STRING>   ssh password for APC unit
   --snmp-user   <STRING>   SNMP username for APC unit
   --snmp-pass   <STRING>   SNMP authentication pass phrase (MD5) for APC unit
   --outlet      <INTEGER>  APC outlet to control

EOF
}

# Local variables:
#  c-basic-offset: 3
#  perl-indent-level: 3
#  tab-width: 3
#  indent-tabs-mode: nil
#  shiftwidth: 3
# End:
#
# vim: ts=3 expandtab