status/nut-monitor.pl

   1 # Check if some NUT value is too low or high
   2
   3 sub get_nut_status
   4 {
   5 return { 'up' => -1 } if (!&has_command("upsc"));
   6 local @sens = &get_ups_values($_[0]->{'ups'});
   7 local ($sens) = grep { $_->{'name'} eq $_[0]->{'name'} } @sens;
   8 return { 'up' => 1 } if (!$sens);
   9 if ($_[0]->{'mode'} == 1) {
  10         return $sens->{'value'} < $_[0]->{'min'} ? { 'up' => 0 }
  11                                                  : { 'up' => 1 };
  12         }
  13 elsif ($_[0]->{'mode'} == 2) {
  14         return $sens->{'value'} > $_[0]->{'max'} ? { 'up' => 0 }
  15                                                  : { 'up' => 1 };
  16         }
  17 }
  18
  19 sub show_nut_dialog
  20 {
  21 if (!&has_command("upsc")) {
  22         print &ui_table_row(undef, $text{'nut_cmd'}, 4);
  23         }
  24 else {
  25         # UPS name
  26         print &ui_table_row($text{'nut_ups'},
  27                 &ui_textbox("ups", $_[0]->{'ups'}, 20));
  28
  29         # Value to check
  30         local @sens = &get_ups_values();
  31         if (@sens) {
  32                 print &ui_table_row($text{'nut_name'},
  33                     &ui_select("name", $_[0]->{'name'},
  34                         [ map { [ $_->{'name'},
  35                             &text('nut_cur', $_->{'name'}, $_->{'value'}) ] }
  36                           @sens ]));
  37                 }
  38         else {
  39                 print &ui_table_row($text{'nut_name'},
  40                     &ui_textbox("name", $_[0]->{'name'}, 20));
  41                 }
  42
  43         # Expected value
  44         print &ui_table_row($text{'nut_value'},
  45             &ui_radio("mode", $_[0]->{'mode'} || 1,
  46                 [ [ 1, &text('sensors_value1',
  47                              &ui_textbox("min", $_[0]->{'min'}, 8)) ],
  48                   [ 2, &text('sensors_value2',
  49                              &ui_textbox("max", $_[0]->{'max'}, 8)) ] ]),
  50             3);
  51         }
  52 }
  53
  54 sub parse_nut_dialog
  55 {
  56 &has_command("upsc") || &error($text{'nut_cmd'});
  57 $in{'ups'} =~ /^\S+$/ || &error($text{'nut_eups'});
  58 $_[0]->{'ups'} = $in{'ups'};
  59 $_[0]->{'name'} = $in{'name'};
  60 $_[0]->{'mode'} = $in{'mode'};
  61 $_[0]->{'max'} = $in{'max'};
  62 $_[0]->{'min'} = $in{'min'};
  63 if ($in{'mode'} == 1) {
  64         $in{'min'} =~ /^[0-9\.\+\-]+$/ || &error($text{'nut_emin'});
  65         }
  66 elsif ($in{'mode'} == 2) {
  67         $in{'max'} =~ /^[0-9\.\+\-]+$/ || &error($text{'nut_emax'});
  68         }
  69 }
  70
  71 # get_ups_values(ups)
  72 # Returns a list of NUT attribute names and values for some UPS
  73 sub get_ups_values
  74 {
  75 if (!scalar(@get_ups_cache)) {
  76         local @rv;
  77         open(SENS, "upsc ".quotemeta($_[0])." |");
  78         while(<SENS>) {
  79                 if (/^(\S+):\s+(.*)/) {
  80                         push(@rv, { 'name' => $1,
  81                                     'value' => $2 });
  82                         }
  83                 }
  84         close(SENS);
  85         @get_ups_cache = @rv;
  86         }
  87 return @get_ups_cache;
  88 }
  89