/[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 39 by dpavlin, Thu Jun 14 11:56:26 2007 UTC revision 55 by dpavlin, Tue Oct 2 16:10:08 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  use Data::Dump qw/dump/;  eval {
12            use Data::Dump qw/dump/;
13    };
14    
15  my $dt = 3;  my $dt = 3;
16  my $acpi_every = 10;  my $acpi_every = 10;
# Line 74  sub unit { Line 76  sub unit {
76          my @units = qw/b k M G/;          my @units = qw/b k M G/;
77          my $o = 0;          my $o = 0;
78    
79          while ( ( $v / 1024 ) >= 1 ) {          while ( ( $v / 10000 ) >= 1 ) {
80                  $o++;                  $o++;
81                  $v /= 1024;                  $v /= 1024;
82          }          }
Legend:
Removed from v.39  
changed lines
  Added in v.55
  ViewVC Help
Powered by ViewVC 1.1.26