arif/xcat-core
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

-Potentially support energy management function in IBM servers

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@4767 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
jbjohnso 2009-12-14 16:35:58 +00:00
parent aece424889
commit 14d515d0fa
1 changed files with 79 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

82
xCAT-server/lib/xcat/plugins/ipmi.pm.2
View File

@ -1,3 +1,4 @@
#!/usr/bin/perl
# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html
#egan@us.ibm.com
#modified by jbjohnso@us.ibm.com
@ -26,6 +27,11 @@ use HTTP::Request::Common;
my $tfactor = 0;
my $vpdhash;
my %bmc_comm_pids;
my $iem_support;
eval {
require IBM::EnergyManager;
$iem_support=1;
};
require Exporter;
our @ISA = qw(Exporter);
@ -4255,6 +4261,76 @@ sub getaddsensorevent {
return($text);
}
sub readenergy {
unless ($iem_support) {
return (1,"IBM::EnergyManager package required for this value");
}
my $iem = IBM::EnergyManager->new();
my @payload = $iem->get_next_payload();
my $netfun = shift @payload;
my @returnd;
my $error = docmd(
$netfun<<2,
\@payload,
\@returnd
);
@returnd=splice @returnd,36-$authoffset;
$iem->handle_next_payload(@returnd);
my @entries;
$iem->prep_get_ac_energy();
my $entry;
$entry = process_energy_from_iem($iem);
$iem->prep_get_precision();
execute_iem_commands($iem);
$entry .= sprintf(" +/- %.1f %",$iem->energy_ac_precision()*0.1);
push @entries,$entry;
$iem->prep_get_dc_energy();
$entry = process_energy_from_iem($iem);
$entry .= sprintf(" +/- %.1f %",$iem->energy_dc_precision()*0.1);
push @entries,$entry;
return (0,@entries);
}
sub execute_iem_commands {
my $iem = shift;
my @payload = $iem->get_next_payload();
my @returnd;
while (scalar @payload) {
my $netfun = shift @payload;
my $error = docmd($netfun<<2,\@payload,\@returnd);
if ($error) { return $error; }
@returnd=splice @returnd,36-$authoffset;
$iem->handle_next_payload(@returnd);
@payload = $iem->get_next_payload();
}
return 0;
}
sub process_energy_from_iem {
my $iem = shift;
my @returnd;
my @iemdata;
if (!execute_iem_commands($iem)) {
@iemdata = $iem->extract_data;
}
my $label = shift @iemdata;
my $units = shift @iemdata;
my $value=0;
my $shift=0;
while (scalar @iemdata) { #stuff the 64-bits of data into an int, would break in 32 bit
$value+=pop(@iemdata)<<$shift;
#$value.=sprintf("%02x ",shift @iemdata);
$shift+=8;
}
if ($units eq "mJ") {
$units = "kWh";
$value = $value / 3600000000;
}
return sprintf("$label: %.4f $units",$value);
}
sub checkleds {
my $netfun = 0xe8; #really 0x3a
my @cmd;
@ -4515,9 +4591,9 @@ sub vitals {
$text = sprintf($format,"Power Status:",$text,"");
push(@output,$text);
($rc,@cleds) = checkleds();
foreach $text (@cleds) {
push(@output,$text);
}
push @output,@cleds;
($rc,@cleds)=readenergy();
push @output,@cleds;
}
return($rc,@output);