/[scripts]/trunk/dwm-status.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/dwm-status.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 55 by dpavlin, Tue Oct 2 16:10:08 2007 UTC revision 56 by dpavlin, Tue Oct 2 16:32:17 2007 UTC
# Line 8  use strict; Line 8  use strict;
8  use POSIX qw/strftime/;  use POSIX qw/strftime/;
9  use File::Slurp;  use File::Slurp;
10  use Time::HiRes;  use Time::HiRes;
11  eval {  eval "use Data::Dump qw/dump/;";
         use Data::Dump qw/dump/;  
 };  
12    
13  my $dt = 3;  my $dt = 3;
14  my $acpi_every = 10;  my $acpi_every = 10;
# Line 58  find_proc_acpi('thermal_zone', sub { Line 56  find_proc_acpi('thermal_zone', sub {
56    
57  find_proc_acpi('battery', sub {  find_proc_acpi('battery', sub {
58          my $bat = shift;          my $bat = shift;
59          return unless $bat =~ /BAT/;          return unless $bat =~ /\w+/;
60    
61          warn "# testing battery $bat\n" if ( $debug );          warn "# testing battery $bat\n" if ( $debug );
62    
Legend:
Removed from v.55  
changed lines
  Added in v.56
  ViewVC Help
Powered by ViewVC 1.1.26