/[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.4 by dpavlin, Tue Sep 10 18:09:24 2002 UTC
# Line 25  my @stat = ( Line 25  my @stat = (
25  #       '------------------' output width  #       '------------------' output width
26          'In Progress',          'In Progress',
27          'In Progress/Failur',          'In Progress/Failur',
28            'In Progress/Errors',
29          'Queuing',          'Queuing',
30          'Aborted',          'Aborted',
31          'Failed',          'Failed',
# Line 67  while(<O>) { Line 68  while(<O>) {
68                  $media++;                  $media++;
69          } elsif ($type !~ m/=+/) {          } elsif ($type !~ m/=+/) {
70                  # don't report this on header!                  # don't report this on header!
71                  print STDERR "unknown type: $type";                  print STDERR "unknown type: '$type'\n";
72          }          }
73  }  }
74  close(O);  close(O);
# Line 94  foreach (@stat) { Line 95  foreach (@stat) {
95    
96  my $other;  my $other;
97  foreach (keys %backup) {  foreach (keys %backup) {
98          print STDERR "other backup: -->$_<--\n" if ($debug);          print STDERR "unknown status backup: '$_'\n";
99          $other += $backup{$_};          $other += $backup{$_};
100  }  }
101  print $other || "0\n";  print $other || "0\n";
# Line 103  print $other || "0\n"; Line 104  print $other || "0\n";
104    
105  undef $other;  undef $other;
106  foreach (keys %restore) {  foreach (keys %restore) {
107          print STDERR "other restore -->$_<--\n" if ($debug);          print STDERR "unkwown status restore: '$_'\n";
108          $other += $restore{$_};          $other += $restore{$_};
109  }  }
110  print $other || "0\n";  print $other || "0\n";
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.26