/[cricket]/parse_omni.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 /parse_omni.pl

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

revision 1.2 by dpavlin, Tue Sep 10 08:12:17 2002 UTC revision 1.3 by dpavlin, Tue Sep 10 17:43:19 2002 UTC
# Line 67  while(<O>) { Line 67  while(<O>) {
67                  $media++;                  $media++;
68          } elsif ($type !~ m/=+/) {          } elsif ($type !~ m/=+/) {
69                  # don't report this on header!                  # don't report this on header!
70                  print STDERR "unknown type: $type";                  print STDERR "unknown type: '$type'\n";
71          }          }
72  }  }
73  close(O);  close(O);
# Line 94  foreach (@stat) { Line 94  foreach (@stat) {
94    
95  my $other;  my $other;
96  foreach (keys %backup) {  foreach (keys %backup) {
97          print STDERR "other backup: -->$_<--\n" if ($debug);          print STDERR "unknown status backup: '$_'\n";
98          $other += $backup{$_};          $other += $backup{$_};
99  }  }
100  print $other || "0\n";  print $other || "0\n";
# Line 103  print $other || "0\n"; Line 103  print $other || "0\n";
103    
104  undef $other;  undef $other;
105  foreach (keys %restore) {  foreach (keys %restore) {
106          print STDERR "other restore -->$_<--\n" if ($debug);          print STDERR "unkwown status restore: '$_'\n";
107          $other += $restore{$_};          $other += $restore{$_};
108  }  }
109  print $other || "0\n";  print $other || "0\n";

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

  ViewVC Help
Powered by ViewVC 1.1.26