cvs commit logwatch.pl

Big diff that includes some HTML stuff from Ross Becker and the new  
file sort routines. I still am not sure I've got the order down but  
it might not matter.

Rigel:~/Projects/logwatch_cvs/logwatch/scripts mgt$ cvs diff logwatch.pl
Index: logwatch.pl
===================================================================
RCS file: /var/cvs/logwatch/scripts/logwatch.pl,v
retrieving revision 1.210
diff -r1.210 logwatch.pl
439c439,442
<                         @TempLogFileList = reverse(glob($dir .  
$ReadConfigValues[$i]));
---
 >                         #@TempLogFileList = reverse(glob($dir .  
$ReadConfigValues[$i]));
 >                         @TempLogFileList = sort{
 >                            ($b =~ /(\d+)$/) <=> ($a =~ /(\d+)$/)  
|| uc($a) cmp  uc($b)
 >                         }(glob($dir . $ReadConfigValues[$i]));
445c448,451
<                      @TempLogFileList = reverse(glob 
($ReadConfigValues[$i]));
---
 >                      #@TempLogFileList = reverse(glob 
($ReadConfigValues[$i]));
 >                      @TempLogFileList = sort{
 >                         ($b =~ /(\d+)$/) <=> ($a =~ /(\d+)$/) || uc 
($a) cmp  uc($b)
 >                      }(glob($ReadConfigValues[$i]));
472c478,481
<                         @TempLogFileList = reverse(glob($dir .  
$ReadConfigValues[$i]));
---
 >                         #@TempLogFileList = reverse(glob($dir .  
$ReadConfigValues[$i]));
 >                         @TempLogFileList = sort{
 >                            ($b =~ /(\d+)$/) <=> ($a =~ /(\d+)$/)  
|| uc($a) cmp  uc($b)
 >                         }(glob($dir . $ReadConfigValues[$i]));
478c487,490
<                      @TempLogFileList = reverse(glob 
($ReadConfigValues[$i]));
---
 >                      #@TempLogFileList = reverse(glob 
($ReadConfigValues[$i]));
 >                      @TempLogFileList = sort{
 >                         ($b =~ /(\d+)$/) <=> ($a =~ /(\d+)$/) || uc 
($a) cmp  uc($b)
 >                      }(glob($ReadConfigValues[$i]));
774a787
 >       #FIXME - We have a bug report for filenames with spaces, can  
be caught here needs test -mgt
1170c1183
<       &output( $index_par, "\n <h2><font color=\"blue\"> Logwatch  
$Version ($VDate)</font></h2>\n", "header");
---
 >       &output( $index_par, "       Logwatch Version: $Version  
($VDate)\n", "line");
1330c1343
<                    &output( $index_par, "\n <h3><font color=\"blue 
\">$ServiceData{$Service}{'title'} $BeginVar </font></h3>\n", "header");
---
 >                    #&output( $index_par, "\n <h2>$ServiceData 
{$Service}{'title'}</h2>\n", "header");
1343c1356
<                 &output( $index_par,  "\n <h3><font color=\"blue\"> 
$ServiceData{$Service}{'title'} End </font></h3>\n", "header");
---
 >                 #&output( $index_par,  "\n <h3><font color=\"blue 
\">$ServiceData{$Service}{'title'} End </font></h3>\n", "header");
1393,1394c1406
<       &output( $index_par,  "Logwatch End", "start" );
<       &output( $index_par,  "\n <h3><font color=\"blue\">Logwatch  
ended at ".  localtime(time) ."</font></h3>\n", "header") if  
($printing);
---
 >       &output( $index_par,  "Logwatch Ended at " . localtime 
(time) , "start" );
1455,1458c1467,1472
<          $out_body{$index} .= " <hr>
<          <h2><a name=\"$index\">$reports[$index]</a></h2>
<          <div class=service>
<          <table border=1 width=100%>\n";
---
 >          $out_body{$index} .=
 >          "<div class=service>
 >          <table border=1 width=100%>
 >            <tr><th>
 >            <h2><a name=\"$index\">$reports[$index]</a></h2>
 >            </tr></th>\n";

-Mike