Подразумевается что ipmitool установлен, загружены и работают модули Linux ядра
ipmi_devintf
ipmi_si
ipmi_msghandler
Для проверки можно выполнить :
# ipmitool chassis status
System Power : on
Power Overload : false
Power Interlock : inactive
Main Power Fault : false
...
У Вас сообщения могут быть другими, но не суть важно, важен факт что команда работает.
По умолчанию этот скрипт будет выводить "имя сервера" на LCD экран:
#!/usr/bin/perl
use warnings ;
use strict ;
my $DEBUG = 0 ;
my $name = qx {hostname} ;
chomp $name ;
$name = (split(/\./,$name))[0];
my @letters = split(//,$name);
my $length = scalar @letters ;
if ( $length < 1 ) {
print "Hostname not found\n" ;
exit 1 ;
}
my $string ;
foreach my $letter ( @letters) {
my $h = ord($letter);
my $hexval = sprintf("0x%x ", $h);
$string .=$hexval ;
}
print "string $string of length $length\n" if $DEBUG ;
my $out = qx {ipmitool raw 0x6 0x58 193 0 0 $length $string};
print "Output [$out]" if $DEBUG ;
$out = qx {ipmitool raw 0x6 0x58 194 0};
print $out if $DEBUG ;
|