rawlog plugin now use precompiled regex.

diff --git a/wwwroot/cgi-bin/plugins/rawlog.pm b/wwwroot/cgi-bin/plugins/rawlog.pm
index 867a467a42a73f798e6e47275b084d3001e892a9..2ccc94b888ea8f3fc2b7d5dba0d6e5156226bb9b 100644 (file)
--- a/wwwroot/cgi-bin/plugins/rawlog.pm
+++ b/wwwroot/cgi-bin/plugins/rawlog.pm
@@ -76,14 +76,14 @@ sub AddHTMLBodyHeader_rawlog {
 sub BuildFullHTMLOutput_rawlog {
        # <-----
        my $Filter='';
-       if ($QueryString =~ /filterrawlog=([^&]+)/i) {
-               my $filter=&DecodeEncodedString("$1");
-               $Filter=qr/$filter/i;
-       }
+       if ($QueryString =~ /filterrawlog=([^&]+)/i) { $Filter=&DecodeEncodedString("$1"); }
 
        # Show form
        &_ShowForm($Filter);
 
+       # Precompiled regex Filter to speed up scan
+       if ($Filter) { $Filter=qr/$Filter/i; }
+
        print "<hr />\n";
        
        # Show raws
@@ -96,7 +96,7 @@ sub BuildFullHTMLOutput_rawlog {
                print "$_<br />\n";
                if (++$i > $MAXLINE) { last; }
        }
-       print "<b>$i lines.</b><br />";
+       print "<br>\n<b>$i lines.</b><br />";
        return 1;
        # ----->
 }