/[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 35 by dpavlin, Sun May 27 09:14:14 2007 UTC revision 36 by dpavlin, Sun May 27 15:30:12 2007 UTC
# Line 109  while ( 1 ) { Line 109  while ( 1 ) {
109          foreach ( split(/\n/, $net) ) {          foreach ( split(/\n/, $net) ) {
110                  s/^\s+//;                  s/^\s+//;
111                  my @n = split(/\s+/, $_, 17);                  my @n = split(/\s+/, $_, 17);
112                  next unless ( $n[0] =~ m!(eth\d|ath\d):! );                  next unless ( $n[0] =~ s!(eth\d|ath\d):!! );
113    
114                  warn dump( @n ) if ($debug);                  warn dump( @n ) if ($debug);
115                  $rx += $n[1];                  $rx += $n[0];
116                  $tx += $n[9];                  $tx += $n[8];
117          }          }
118          warn "rx: $rx tx: $tx\n" if ($debug);          warn "rx: $rx tx: $tx\n" if ($debug);
119    

Legend:
Removed from v.35  
changed lines
  Added in v.36

  ViewVC Help
Powered by ViewVC 1.1.26