#! /usr/bin/perl
# Per SNMP Identnummer von einem Primergy-Server holen
#  Der Rechnername bzw. die IP-Adresse kann über STDIN oder
#  über eine Eingabedatei übergeben werden.
#################################################################

use strict;
use vars qw($session $error $response);
use Getopt::Long;
use Net::SNMP;

my $host = 'localhost';
my $community = 'public';
my $timeout = 4;
my $identifier = '.1.3.6.1.2.1.1.5.0';      # System Name
# my $identifier = '.1.3.6.1.2.1.1.1.0';    # System Beschreibung
# my $identifier = '.1.3.6.1.2.1.1.3.0';    # System Uptime
# my $identifier = '.1.3.6.1.2.1.1.4.0';    # System Kontaktadresse
# my $identifier = '.1.3.6.1.2.1.1.6.0';    # System Location
# my $identifier = '.1.3.6.1.2.1.25.2.2.0'; # RAM-Größe
# my $identifier = '.1.3.6.1.4.1.231.2.10.2.2.5.10.3.1.3.0'; # Identnummer
# my $identifier = '.1.3.6.1.4.1.231.2.10.2.5.2.6.0'; # CPU Usage

my $help = "";

my $USAGE = <<EOF;
usage: $0 -Optionen
  Optionen:
    -id=objectID      SNMP-ObjectID der MIB
    -community=name   Community-Name
    -timeout=sek      Timeout in Sekunden
    -help             Anzeige dieser Hilfe

 Die gewünschte SNMP-ObjectID kann mit Hilfe des Kommandos
 'snmptranslate [-m MIB-File] -Tl' des Softwarepaketes
 'UCD-SNMP'  ermittelt werden.

  Einige brauchbare ObjectID's:
  1.3.6.1.2.1.1.1.0 	                System Beschreibung
  1.3.6.1.2.1.1.3.0	                System Uptime
  1.3.6.1.2.1.1.4.0	                System Kontaktadresse
  1.3.6.1.2.1.1.5.0	                System Name
  1.3.6.1.2.1.1.6.0	                System Location
  1.3.6.1.2.1.25.2.2.0	                RAM-Größe 
  1.3.6.1.4.1.231.2.10.2.2.5.10.3.1.3.0	Identnummer 
  1.3.6.1.4.1.231.2.10.2.2.5.4.18.0	belegter virtueller Speicher in KBytes
  1.3.6.1.4.1.231.2.10.2.2.5.4.19.0	freier virtueller Speicher in Prozent
  1.3.6.1.4.1.231.2.10.2.2.5.4.20.0	freier Physikal. Speicher in KBytes
  1.3.6.1.4.1.231.2.10.2.2.5.4.21.0	freier Physikal. Speicher in Prozent
  1.3.6.1.4.1.231.2.10.2.5.2.6.0	CPU Auslastung in Prozent
  1.3.6.1.4.1.231.2.10.2.5.2.8.0	Datum des BIOS
  1.3.6.1.4.1.231.2.10.2.2.1.1.0	BIOS Hauptersion
  1.3.6.1.4.1.231.2.10.2.2.1.2.0	BIOS Subversion
  1.3.6.1.4.1.231.2.10.2.2.1.14.0	BIOS Revision
  1.3.6.1.4.1.1597.1.2.1.1.4.0	        DPT/Adaptec RAID-Controller Firmware-Version
  1.3.6.1.4.1.1597.1.2.1.1.5.0	        DPT/Adaptec RAID-Controller Serien-Nummer
  1.3.6.1.4.1.1597.1.2.1.1.32.0	        DPT/Adaptec RAID-Controller BIOS-Version
  1.3.6.1.4.1.231.2.10.2.6.2.1.3.1.11.0	Mylex Firmware Version
  1.3.6.1.4.1.231.2.10.2.6.2.1.3.1.11.0	Mylex BIOS Version
EOF

&GetOptions ("id:s"        => \$identifier,
	     "community=s" => \$community,
	     "timeout=s"   => \$timeout,
	     "help"        => \$help);

if ($help) {
    die "$USAGE";
}

while (<>) {
    chop;
    $host = $_;
    ($session, $error) = Net::SNMP->session(
					    -hostname  => "$host",
					    -community => "$community",
					    -timeout   => "$timeout",
					    -port      => 161
					    );

    if (!defined($session)) {
	printf("ERROR: %s.\n", $error);
	next;
    }
    
    if (!defined($response = $session->get_request($identifier))) {
	printf("ERROR: %s.\n", $session->error());
	$session->close();
	next;
    }
    
    printf("%s %s\n",
	   $session->hostname(),
	   $response->{$identifier}
	   );
    
    $session->close();
}