#! /usr/bin/perl
# Dieses Perl-Skript führt einen Shutdown bzw. Reboot eines
# fernen Primergy-Servers durch. Genützt wird die ServerView-
# Funktionalität, die Primergy's unterstützen

use strict;
use vars qw($session $error $response);

use Net::SNMP;

($session, $error) = Net::SNMP->session(
#   -version   => '2c',
   -hostname  => shift || 'localhost',
   -community => shift || 'public',
#   -debug     => '1',
   -port      => shift || 161
);

if (!defined($session)) {
   printf("ERROR: %s.\n", $error);
   exit 1;
}

my $powerOnOff = '1.3.6.1.4.1.231.2.10.2.2.5.9.3.0';
my $reboot     = 3;	# 3 ... Shutdown & Reboot
			# 1 ... Shutdown
			# 2 ... Shutdown & Off
			# 4 ... Abort pending Shutdown

$response = $session->set_request($powerOnOff, INTEGER, $reboot);

if (!defined($response)) {
   printf("ERROR: %s.\n", $session->error());
   $session->close();
   exit 1;
}

printf("Der Server '%s' wird durchgestartet'\n",
   $session->hostname() );

$session->close();
exit 0;