Subversion Repositories camp_sysinfo_client_3

Rev

Rev 251 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 251 Rev 256
Line 1... Line 1...
1 
#!/usr/bin/env perl
 1 
#!/usr/bin/env perl
2 
use warnings;
 2 
use warnings;
3 
use strict;
3 
use strict;
4 
 
 4 
 
5 
# Description: Power Sensors for ipmi enabled servers
 5 
use version ; our $VERSION = 'v1.1.0';
- 
 
 6 
 
6 
# IPMI power module for sysinfo client
 7 
# Power Sensors for ipmi enabled servers
7 
# Author: R. W. Rodolico
 8 
# Author: R. W. Rodolico
8 
# Date:   2020-01-27
 9 
# Date:   2020-01-27
9 
#
 10 
#
- 
 
 11 
# IPMI power module for sysinfo client
- 
 
 12 
#
- 
 
 13 
# Revision History
- 
 
 14 
#
10 
# v1.1 RWR 20230205
 15 
# v1.1 RWR 20230205
11 
# cleaned up the detection for if we do not have driver installed on this system
 16 
# cleaned up the detection for if we do not have driver installed on this system
12 
# ie, binary only, probably to connect to other machines
 17 
# ie, binary only, probably to connect to other machines
- 
 
 18 
#
13 
 
 19 
 
14 
 
 - 
 
15 
our $VERSION = '1.1';
 - 
 
16 
 
 - 
 
17 
# find our location and use it for searching for libraries
 20 
# find our location and use it for searching for libraries. library.pm must be in the same directory as the calling script
- 
 
 21 
# or, if run interactively, in the parent of the modules
18 
BEGIN {
 22 
BEGIN {
19 
   use FindBin;
 23 
   use FindBin;
20 
   use File::Spec;
 24 
   use File::Spec;
21 
   use lib File::Spec->catdir($FindBin::Bin);
 25 
   # prepend the bin directory and its parent
22 
   eval( 'use library;' ); die "Could not find library.pm in the code directory\n" if $@;
 26 
   use lib File::Spec->catdir($FindBin::Bin), File::Spec->catdir("$FindBin::Bin/..");
23 
   eval( 'use Data::Dumper;' );
 27 
   eval( 'use library;' );
- 
 
 28 
   die sprintf( "Could not find library.pm in %s, INC is %s\n", __FILE__, join( "\n", @INC ) ) if $@;
24 
}
 29 
}
- 
 
 30 
 
- 
 
 31 
#####
- 
 
 32 
##### Change these to match your needs
- 
 
 33 
#####
- 
 
 34 
 
- 
 
 35 
# Make this a list of all the modules we are going to use. You can replace undef with the version you need, if you like
- 
 
 36 
my $modulesList = {
- 
 
 37 
        'Data::Dumper'     => undef,
- 
 
 38 
   };
- 
 
 39 
 
- 
 
 40 
# hash of commands that are needed for the system. key is the name of the command and, in some cases, the value will become
- 
 
 41 
# the full path (from which or where)
- 
 
 42 
my $commandsList = {
- 
 
 43 
        'ipmitool' => undef,
- 
 
 44 
   };
- 
 
 45 
 
- 
 
 46 
# list of operating systems this module can be used on.
- 
 
 47 
my $osList = {
- 
 
 48 
#         'mswin32' => undef,
- 
 
 49 
         'freebsd' => undef,
- 
 
 50 
         'linux'   => undef,
- 
 
 51 
   };
25 
 
 52 
 
26 
# check for valid OS.
- 
 
27 
exit 1 unless &checkOS( { 'linux' => undef, 'freebsd' => undef } );
 - 
 
28 
 
 - 
 
29 
# check for required commands, return 2 if they don't exist. Enter an full list of all commands required. If one doesn't exist
 - 
 
30 
# script returns a 2
 - 
 
31 
foreach my $command ( 'ipmitool' ) {
 - 
 
32 
   exit 2 unless &validCommandOnSystem( $command );
 - 
 
33 
}
 - 
 
34 
 
 - 
 
35 
# category we will use for all values found
 53 
# the category the return data should go into. See sysinfo for a list
36 
# see sysinfo for a list of valid categories
 - 
 
37 
my $CATEGORY = 'system';
 54 
my $CATEGORY = 'system';
38 
 
 55 
 
- 
 
 56 
#####
- 
 
 57 
##### End of required
- 
 
 58 
#####
- 
 
 59 
 
39 
# run the commands necessary to do whatever you want to do
 60 
# some variables needed for our system
- 
 
 61 
my $errorPrepend = 'error: in ' . __FILE__; # this is prepended to any error messages
40 
# The library entered above has some helper routines
 62 
my @out; # temporary location for each line of output
- 
 
 63 
 
41 
# validCommandOnSystem -- passed a name, returns the fully qualified path or
 64 
# Try to load the modules we need. If we can not, then make a list of missing modules for error message.
- 
 
 65 
for my $module ( keys %$modulesList ) {
42 
# '' if it does not exist
 66 
   eval ( "use $module;" );
43 
# cleanUp - passed a delimiter and a string, does the following (delimiter
 67 
   push @out, "$errorPrepend Could not load $module" if $@;
44 
# can be '')
 68 
}
- 
 
 69 
 
- 
 
 70 
if ( ! @out && ! checkOS ( $osList ) ) { # check if we are on an acceptible operating system
45 
#           chomps the string (removes trailing newlines)
 71 
    push @out, "$errorPrepend Invalid Operating System";
- 
 
 72 
}
- 
 
 73 
if ( !@out && ! validCommandOnSystem ( $commandsList ) ) {
- 
 
 74 
   push @out, "$errorPrepend Can not find some commands needed";
- 
 
 75 
}
46 
#           removes all text BEFORE the delimiter, the delimiter, and any
 76 
if ( !@out ) { # we made it, we have everything, so do the processing
47 
# whitespace
 77 
   #####
48 
#           thus, the string 'xxI Am x  a weird string' with a newline will
 78 
   ##### Your code starts here. Remember to push all output onto @out
49 
# become
 79 
   #####
- 
 
 80
- 
 
 81 
   # some systems have ipmitool installed simply for managing other machines
50 
#           'a weird string' with no newline
 82 
   # but do not have ipmi themselves
- 
 
 83 
   if ( -e '/dev/ipmi0' || -e '/dev/ipmi/0' || -e '/dev/ipmidev/0' ) {
51 
 
 84 
 
52 
# now, return the tab delimited output (to STDOUT). $CATEGORY is the first
 - 
 
53 
# item, name as recognized by sysinfo is the second and the value is
 85 
      my @temp = qx( ipmitool sensor 2>/dev/null );
54 
# the last one. For multiple entries, place on separate lines (ie, newline
 - 
 
55 
# separated)
 86 
      chomp @temp;
56 
 
 87 
 
57 
# check for commands we want to run
 88 
      my @current;
- 
 
 89 
      my @voltage;
58 
my %commands = (
90 
      my @power;
59 
                  'ipmitool' => ''
 91 
      my $power = 0;
60 
               );
 92 
      my $i;
61 
 
 93 
 
- 
 
 94 
      while ( my $line = shift @temp ) {
- 
 
 95 
         chomp $line;
- 
 
 96 
         my @fields = split( /\s*\|\s*/, $line );
62 
# check the commands for validity
 97 
         next if $fields[1] eq 'na';
63 
foreach my $command ( keys %commands ) {
 98 
         if ( $fields[0] =~ /Current.*\d*/ ) {
- 
 
 99 
            push @current, $fields[1];
- 
 
 100 
            print "$CATEGORY\tPower $fields[0]\t$fields[1] $fields[2]\n";
- 
 
 101 
         } elsif ( $fields[0] =~ /Voltage.*\d*/ ) {
- 
 
 102 
            push @voltage, $fields[1];
- 
 
 103 
            print "$CATEGORY\tPower $fields[0]\t$fields[1] $fields[2]\n";
- 
 
 104 
         } elsif ( $fields[0] =~ m/Power Supply.*\d*/ && $fields[2] eq 'Watts' ) {
- 
 
 105 
            push @power, $fields[1];
- 
 
 106 
            print "$CATEGORY\t$fields[0] Draw\t$fields[1] $fields[2]\n";
64 
   $commands{$command} = &validCommandOnSystem( $command );
 107 
         } elsif ( $fields[0] eq 'Power Meter' ) {
- 
 
 108 
            print "$CATEGORY\tPower Draw\t$fields[1] $fields[2]\n";
- 
 
 109 
            exit;
- 
 
 110 
         }
- 
 
 111 
      }
65 
}
 112 
 
- 
 
 113 
      for ( $i = 0; $i < @current; $i++ ) {
- 
 
 114 
         $power += $current[$i] * $voltage[$i];
- 
 
 115 
      }
66 
 
 116 
 
67 
# bail if we don't have the commands we need
 117 
      for ( $i = 0; $i < @power; $i++ ) {
68 
exit 1 unless $commands{'ipmitool'};
 118 
         $power += $power[$i];
- 
 
 119 
      }
69 
 
 120 
 
70 
# some systems have ipmitool installed simply for managing other machines
 - 
 
71 
# but do not have ipmi themselves
 - 
 
72 
exit 2 unless -e '/dev/ipmi0' || -e '/dev/ipmi/0' || -e '/dev/ipmidev/0';
 - 
 
73 
 
 - 
 
74 
my @temp = qx( $commands{'ipmitool'} sensor 2>/dev/null );
 - 
 
75 
exit 2 unless @temp; # ipmitool installed, but driver not. Probably using to connect someplace else.
 - 
 
76 
chomp @temp;
 - 
 
77 
 
 - 
 
78 
my @current;
 - 
 
79 
my @voltage;
 - 
 
80 
my @power;
 - 
 
81 
my $power = 0;
 - 
 
82 
my $i;
 - 
 
83 
 
 - 
 
84 
while ( my $line = shift @temp ) {
 - 
 
85 
   chomp $line;
 - 
 
86 
   my @fields = split( /\s*\|\s*/, $line );
 - 
 
87 
   next if $fields[1] eq 'na';
 - 
 
88 
   if ( $fields[0] =~ /Current.*\d*/ ) {
 - 
 
89 
      push @current, $fields[1];
 - 
 
90 
      print "$CATEGORY\tPower $fields[0]\t$fields[1] $fields[2]\n";
 - 
 
91 
   } elsif ( $fields[0] =~ /Voltage.*\d*/ ) {
 - 
 
92 
      push @voltage, $fields[1];
 - 
 
93 
      print "$CATEGORY\tPower $fields[0]\t$fields[1] $fields[2]\n";
 - 
 
94 
   } elsif ( $fields[0] =~ m/Power Supply.*\d*/ && $fields[2] eq 'Watts' ) {
 - 
 
95 
      push @power, $fields[1];
 - 
 
96 
      print "$CATEGORY\t$fields[0] Draw\t$fields[1] $fields[2]\n";
 - 
 
97 
   } elsif ( $fields[0] eq 'Power Meter' ) {
 - 
 
98 
      print "$CATEGORY\tPower Draw\t$fields[1] $fields[2]\n";
 121 
      push @out, "$CATEGORY\tPower Draw\t$power Watts" if $power;
99 
      exit;
 - 
 
100 
   }
 122 
   }
- 
 
 123
- 
 
 124 
   #####
- 
 
 125 
   ##### Your code ends here.
- 
 
 126 
   #####
101 
}
 127 
}
102 
 
 128 
 
103 
for ( $i = 0; $i < @current; $i++ ) {
 129 
# If we are testing from the command line (caller is undef), print the results for debugging
104 
   $power += $current[$i] * $voltage[$i];
 130 
print join( "\n", @out ) . "\n" unless caller;
105 
}
 - 
 
106 
 
 - 
 
107 
for ( $i = 0; $i < @power; $i++ ) {
 131 
# called by do, which has a value of the last assignment made, so make the assignment. The equivilent of a return
108 
   $power += $power[$i];
 132 
my $return = join( "\n", @out );
109 
}
 - 
 
110 
 
 - 
 
111 
print "$CATEGORY\tPower Draw\t$power Watts\n" if $power;
 - 
 
112 
 
 133 
 
113 
exit 0;
 -