/[ps-trend]/ps2rrd.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 /ps2rrd.pl

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

revision 13 by dpavlin, Fri Jul 17 16:41:12 2009 UTC revision 14 by dpavlin, Fri Jul 17 18:35:34 2009 UTC
# Line 34  sub count { Line 34  sub count {
34    
35          my $t = mktime( 0, $5, $4, $3, $2 - 1, $1 - 1900 ) if $file =~ m{(\d\d\d\d)-(\d\d)-(\d\d)/(\d\d)(\d\d)};          my $t = mktime( 0, $5, $4, $3, $2 - 1, $1 - 1900 ) if $file =~ m{(\d\d\d\d)-(\d\d)-(\d\d)/(\d\d)(\d\d)};
36    
37          warn "# $file ", -s $file, " bytes [$t]\n" if $debug;  #       warn "# $file ", -s $file, " bytes [$t]\n" if $debug;
38            print STDERR "\n$file\t";
39    
40          my $cols = <$fh>;          my $cols = <$fh>;
41          $cols =~ s/^\s+//;          $cols =~ s/^\s+//;
# Line 60  sub count { Line 61  sub count {
61    
62                  my $veid = c('VEID');                  my $veid = c('VEID');
63                  next if defined $only_veid && $only_veid != $veid;                  next if defined $only_veid && $only_veid != $veid;
64                  $veid =~ s/^0$/0-hw/;                  $veid =~ s/^0$/_hw_0/;
65    
66                  my $s = c('VSZ');                  my $s = c('VSZ');
67                  my $cmd = c('COMMAND');                  my $cmd = c('COMMAND');
Legend:
Removed from v.13  
changed lines
  Added in v.14
  ViewVC Help
Powered by ViewVC 1.1.26