admin-tools/check-battery

   1 #!/usr/bin/env perl
   2
   3 $0 =~ s/^.*\/([^\/]+)$/$1/;
   4
   5 if(not $ENV{'BATTERY_LOW_ACTION'})
   6 {
   7         die "$0: Set BATTERY_LOW_ACTION environment to a command.\n";
   8 }
   9 if(not $ENV{'BATTERY_TIME_THRESHOLD'} and not $ENV{'BATTERY_PERCENTAGE_THRESHOLD'})
  10 {
  11         die "$0: Set BATTERY_TIME_THRESHOLD and/or BATTERY_PERCENTAGE_THRESHOLD environment to at most how many remaining sec or percentage will trigger the action.\n";
  12 }
  13 if(not $ENV{'MIN_UPTIME'})
  14 {
  15         die "$0: Set MIN_UPTIME environment to prevent firing action shortly after reboot.\n";
  16 }
  17
  18
  19 open my $fh, '/proc/uptime' or die "$0: $!";
  20 ($uptime) = <$fh> =~ /(\d+)/;
  21 close $fh;
  22
  23 if($uptime <= $ENV{'MIN_UPTIME'})
  24 {
  25         exit 0;
  26 }
  27
  28
  29 $highest_remaining_sec = undef;
  30 $highest_percent = undef;
  31 $batteries_with_sufficient_charge = 0;
  32
  33
  34 open my $pipe, '-|', 'acpi', '-ab' or die "$0: $!";
  35 while(<$pipe>)
  36 {
  37         chomp;
  38         $remaining_sec = undef;
  39         $remaining_time = undef;
  40         $percent = undef;
  41         my $battery_has_sufficient_charge = 1;
  42
  43         if(/Adapter.*on-line/)
  44         {
  45                 warn "$0: $_: No action.\n";
  46                 exit 0;
  47         }
  48         if(/(\d\d+):(\d\d):(\d\d) remaining/)
  49         {
  50                 my ($hour, $min, $sec) = ($1, $2, $3);
  51                 $remaining_sec = $hour * 3600 + $min * 60 + $sec;
  52                 if($remaining_sec > $highest_remaining_sec)
  53                 {
  54                         $highest_remaining_sec = $remaining_sec;
  55                         $highest_remaining_time = "$hour:$min:$sec";
  56                 }
  57         }
  58         if(/(\d+)%/)
  59         {
  60                 $percent = $1;
  61                 if($percent > $highest_percent)
  62                 {
  63                         $highest_percent = $percent;
  64                 }
  65         }
  66
  67         if($ENV{'BATTERY_TIME_THRESHOLD'} and defined $remaining_sec and $remaining_sec <= $ENV{'BATTERY_TIME_THRESHOLD'})
  68         {
  69                 $battery_has_sufficient_charge = 0;
  70         }
  71         if($ENV{'BATTERY_PERCENTAGE_THRESHOLD'} and defined $percent and $percent <= $ENV{'BATTERY_PERCENTAGE_THRESHOLD'})
  72         {
  73                 $battery_has_sufficient_charge = 0;
  74         }
  75         if($battery_has_sufficient_charge)
  76         {
  77                 $batteries_with_sufficient_charge++;
  78         }
  79 }
  80 close $pipe;
  81
  82
  83 $message = sprintf "remaining percentage: %s%%, remaining time: %s, batteries with enough capacity: %d.", $highest_percent // "unknown", $highest_remaining_time // "unknown", $batteries_with_sufficient_charge;
  84
  85
  86 if($batteries_with_sufficient_charge < 1)
  87 {
  88         my $command = $ENV{'BATTERY_LOW_ACTION'};
  89         warn "$0: $message Running '$command'.\n";
  90         system $command;
  91 }
  92 else
  93 {
  94         warn "$0: $message No action.\n";
  95 }