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"}++; |
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 |
} |
} |
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: ", |
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 |
# |
# |
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 |
|
|