calamaris: Make decompressing large logs more memory-friendly.

[people/amarx/ipfire-2.x.git] / config / calamaris / mkreport

diff --git a/config/calamaris/mkreport b/config/calamaris/mkreport
index 53db9d5715d3c4cc064ad218267f2420b32213df..ee831624cc5d750a9797b9ed334f34b7682382c3 100644 (file)
--- a/config/calamaris/mkreport
+++ b/config/calamaris/mkreport
@@ -94,7 +94,7 @@ sub processlogfiles
                {
                        if ($filestr =~ /access\.log/) {
                                open (LOG,"gzip -dc $filestr |");
-                               foreach (<LOG>) {
+                               while (<LOG>) {
                                        if (substr($_,0,10) >= $date_from) { if (substr($_,0,10) <= $date_to) { print TMPLOG "$_"; } }
                                }
                                close(LOG);
@@ -106,7 +106,7 @@ sub processlogfiles
        {
                if ($filestr =~ /access\.log/) {
                        open (LOG,$filestr);
-                       foreach (<LOG>) {
+                       while (<LOG>) {
                                if (substr($_,0,10) >= $date_from) { if (substr($_,0,10) <= $date_to) { print TMPLOG "$_"; } }
                        }
                        close(LOG);