innreport_inn.pm patch

[George Lindholm]

I got tired of seeing the overchan log entries in my daily
report. I don't know what to do with the numbers though

  George
-- 
George.Lindholm at ubc.ca       ITServices, UBC
Programmer/Analyst

phone:    604.822.4375       fax:      604.822.5116

-- Attached file included as plaintext by Listar --
-- File: innrep.pa

*** samples/innreport_inn.pm	1999/10/04 18:50:32	1.1
--- samples/innreport_inn.pm	1999/10/04 20:07:45
***************
*** 1458,1463 ****
--- 1458,1474 ----
      return 1 if $left =~ /cant setgroups /o;
    }
    ########
+   ## overchan
+   if ($prog eq "overchan") {
+     # times
+     if ($left =~ /(\S+) timings (\d+) arts (\d+) of (\d+) ms$/o) {
+       my ($server, $articles, $work_time, $run_time) = ($1, $2, $3, $4);
+       $server = lc $server unless $CASE_SENSITIVE;
+       # ??? What to do with numbers
+       return 1;
+     }
+   }
+   ########
    ## batcher
    if ($prog eq "batcher") {
      # times