From: eldy <>
Date: Sat, 15 Nov 2003 19:35:27 +0000 (+0000)
Subject: Increased speed by 10 to 20%.
X-Git-Tag: AWSTATS_6_0_BETA~111
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b67d4fd3bd7d93de6492e1a42cb9d759e49c54cf;p=thirdparty%2FAWStats.git

Increased speed by 10 to 20%.
---

diff --git a/wwwroot/cgi-bin/plugins/rawlog.pm b/wwwroot/cgi-bin/plugins/rawlog.pm
index afa31ea5..4d711356 100644
--- 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;