Increased speed by 10 to 20%.

diff --git a/wwwroot/cgi-bin/plugins/rawlog.pm b/wwwroot/cgi-bin/plugins/rawlog.pm
index afa31ea5047611462dd3f25cf542637cdc6a0ea4..4d711356a009f4b1d29eadaca430fc9d507fdbbc 100644 (file)
--- a/wwwroot/cgi-bin/plugins/rawlog.pm
+++ b/wwwroot/cgi-bin/plugins/rawlog.pm
@@ -76,7 +76,10 @@ sub AddHTMLBodyHeader_rawlog {
 sub BuildFullHTMLOutput_rawlog {
        # <-----
        my $Filter='';
-       if ($QueryString =~ /filterrawlog=([^&]+)/i) { $Filter=&DecodeEncodedString("$1"); }
+       if ($QueryString =~ /filterrawlog=([^&]+)/i) {
+               my $filter=&DecodeEncodedString("$1");
+               $Filter=qr/$filter/i;
+       }
 
        # Show form
        &_ShowForm($Filter);
@@ -89,13 +92,9 @@ sub BuildFullHTMLOutput_rawlog {
        my $i=0;
        while (<LOG>) {
                chomp $_; $_ =~ s/\r//;
-               
-               if ($Filter) {
-                       if ($_ !~ m/$Filter/i) { next; }
-               }
+               if ($Filter && $_ !~ /$Filter/o) { next; }
                print "$_<br />\n";
-               $i++;
-               if ($i > $MAXLINE) { last; }
+               if (++$i > $MAXLINE) { last; }
        }
        print "<b>$i lines.</b><br />";
        return 1;