/[mon-modules]/parse_log.cgi
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_log.cgi

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

revision 1.6 by dpavlin, Tue Oct 7 07:26:28 2003 UTC revision 1.7 by dpavlin, Tue Oct 7 14:39:58 2003 UTC
# Line 153  if (!$data || !$sg_filter) { Line 153  if (!$data || !$sg_filter) {
153                                                  'sg'=>"$group/$service",                                                  'sg'=>"$group/$service",
154                                                  'from'=>$fail{$id},                                                  'from'=>$fail{$id},
155                                                  'to'=>$utime,                                                  'to'=>$utime,
156                                                  'dur'=>($utime-$fail{id}),                                                  'dur'=>($utime-$fail{$id}),
157                                                  'desc'=>$desc };                                                  'desc'=>$desc };
158                                  }                                  }
159                                  $sg_filter->{"$group/$service"}++;                                  $sg_filter->{"$group/$service"}++;
# Line 175  if (!$data || !$sg_filter) { Line 175  if (!$data || !$sg_filter) {
175                                                  'sg'=>"$group/$service",                                                  'sg'=>"$group/$service",
176                                                  'from'=>$fail{$id},                                                  'from'=>$fail{$id},
177                                                  'to'=>$utime,                                                  'to'=>$utime,
178                                                  'dur'=>($utime-$fail{id}),                                                  'dur'=>($utime-$fail{$id}),
179                                                  'desc'=>'[failure again]'};                                                  'desc'=>'[failure again]'};
180                                          $fail{$id} = $utime;                                          $fail{$id} = $utime;
181                                  }                                  }
# Line 210  print start_form, Line 210  print start_form,
210                  ),                  ),
211          ),td(          ),td(
212          em("Other options:"),br,          em("Other options:"),br,
213          $q->checkbox(-name=>'rep_reset',-default=>0,          $q->checkbox(-name=>'rep_reset',-checked=>0,
214          -label=>"show repeated failures on same service as individual failures"),          -label=>"show repeated failures on same service as individual failures"),
215          br,          br,
216          $q->checkbox(-name=>'print_orphans',-default=>0,          $q->checkbox(-name=>'print_orphans',-checked=>0,
217          -label=>"show records which are not complete in this interval"),          -label=>"show records which are not complete in this interval"),
218          br,          br,
219          $q->checkbox(-name=>'use_date_limit',-default=>1,          $q->checkbox(-name=>'use_date_limit',-checked=>1,
220          -label=>"use date limit from:"),          -label=>"use date limit from:"),
221          $q->textfield(-name=>'from_date',-size=>20,-default=>$from_date),          $q->textfield(-name=>'from_date',-size=>20,-default=>$from_date),
222          " to: ",          " to: ",
223          $q->textfield(-name=>'to_date',-size=>20,-default=>$to_date),          $q->textfield(-name=>'to_date',-size=>20,-default=>$to_date),
224          small('Using <a href="http://search.cpan.org/search?mode=module&query=Time::ParseDate">Time::ParseDate</a>'),          small('Using <a href="http://search.cpan.org/search?mode=module&query=Time::ParseDate">Time::ParseDate</a>'),
225          br,          br,
226          $q->checkbox(-name=>'use_time_limit',-default=>1,          $q->checkbox(-name=>'use_time_limit',-checked=>1, -value=>'on',
227          -label=>"use time limit for each day:"),          -label=>"use time limit for each day:"),
228          $q->textfield(-name=>'from_time_interval',-size=>8,-default=>$from_time_interval),          $q->textfield(-name=>'from_time_interval',-size=>8,-default=>$from_time_interval),
229          " to: ",          " to: ",
# Line 241  print start_form, Line 241  print start_form,
241                  ]                  ]
242                  ),                  ),
243          $q->submit(-name=>'show',-value=>'Show report'),          $q->submit(-name=>'show',-value=>'Show report'),
244          )),end_table;          )),end_table,
245            end_form;
246    
247  # dump report  # dump report
248  #  #
# Line 348  foreach my $sg (keys %$downtime) { Line 349  foreach my $sg (keys %$downtime) {
349                  td(small("in ".$sg_count->{$sg}." failures"))),"\n";                  td(small("in ".$sg_count->{$sg}." failures"))),"\n";
350  }  }
351    
352  print end_table,  print end_table;
         end_form;  
353    

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

  ViewVC Help
Powered by ViewVC 1.1.26