client/meter/powersupply

   1 #!/usr/bin/env perl
   2
   3 require "common.pl";
   4
   5 for my $psu_path (glob '/sys/class/power_supply/*')
   6 {
   7         my ($psu_name) = $psu_path =~ /([^\/]+)$/;
   8         my $percent = file_get_line("$psu_path/capacity");
   9         my $status = file_get_line("$psu_path/status");
  10         my $online = file_get_line("$psu_path/online");
  11
  12         if(not defined $percent and $charge_full)
  13         {
  14                 my $charge_full = file_get_line("$psu_path/charge_full");
  15                 my $charge_now = file_get_line("$psu_path/charge_now");
  16                 $percent = $charge_now*100/$charge_full;
  17         }
  18
  19
  20         $\ = "\n";
  21
  22         print sprintf "%s.percent       %d", $psu_name, $percent if defined $percent;
  23         print sprintf "%s.status.%s     1", $psu_name, $status if $status;
  24         print sprintf "%s.online        1", $psu_name if $online;
  25 }