#!/bin/perl
package PerlSvc;
our %Config;

$PerlSvc::Name        = "STP Status Checker";
$PerlSvc::DisplayName = "STP Status Checker";

my @AlarmText;

sub MainLoop {
    my %switches;
    my @StpStatusTrans = qw / undef disabled blocking listening learning forwarding broken/;
    my $AlarmFlag;
    
    @AlarmText=();
    my $Header = sprintf " %-15s %-6s %-12s %-12s\n ------------------------------------------------\n", "Switch", "Port", "Erwartet", "Ausgelesen";
    push @AlarmText, $Header;
    
    open CONF, "<c:\\stp_state.conf";
    my @config=<CONF>;
    close CONF;
    
    eval "@config";
    
    my %IfIndex;
    my %StpStatus;
    
    # Jede Switch durchlaufen
    foreach my $switch (keys %switches) {
      # debug ausgabe
      #print "\n$switch\n";
    
      # Port Namen lesen um auf IfIndex zurückzuschließen
      my @IfIndexArray = `snmpwalk -mall -c public $switch .1.3.6.1.2.1.2.2.1.2`;
      
      # STP Status lesen um zum IfIndex den STP Status zuzuordnen
      my @IfStpStatusArray = `snmpwalk -mall -c public $switch .1.3.6.1.2.1.17.2.15.1.3`;
      
      # Jeden Port dieser Switch durchlaufen
      foreach (@{$switches{$switch}}) {
        my ($SollStatus,$port) = $_ =~ /([0-9])_(.*)/;
        # debug ausgabe
        #printf " %-6s %-12s", $port, $StpStatusTrans[$SollStatus];
        
        # Suche IfIndex zu Portname
        foreach (@IfIndexArray) {
          if ($_ =~ /$port"/) {
            my $index;
            ($index) = $_ =~ /\.([0-9]*) =/;
            ${$IfIndex{$switch}}{$port} = $index;
            
            # Suche STP Status zu IfIndex
            foreach (@IfStpStatusArray) {
              if ($_ =~ /$index = /) {
                my $stp;
                ($stp) = $_ =~ /= ([0-9])/;
                ${$StpStatus{$switch}}{$port} = $StpStatusTrans[$stp];
                # debug ausgabe
                #printf "%-12s", $StpStatusTrans[$stp];
                if ($stp != $SollStatus) {
                  # debug ausgabe
                  #print " ! ";
                  AlarmMail($switch, $port, $StpStatusTrans[$SollStatus], $StpStatusTrans[$stp]);
                  $AlarmFlag = 1;
                }
                # debug ausgabe
                #print "\n";
              }
            }
          }
        }
      }
    }
    
    if ($AlarmFlag) {
      open OUT, ">output.txt";
      printf OUT "@AlarmText";
      close OUT;
      `clemail -to a.wisniewski\@icfsystems.de -subject "Unerwarteter STP Status" -bodyfile output.txt -from rz\@icfsystems.de -smtpserver 130.35.0.143 -smtpport 25`;
      #unlink "output.txt";
    }
}
sub AlarmMail {
  my ($a,$b,$c,$d) = @_;
  push @AlarmText, sprintf "%-15s %-6s %-12s %-12s\n", $a, $b, $c, $d;
}

sub Startup {
  while (ContinueRun(600)) {
    MainLoop();  
  }  
}