[bknr-cvs] ksprotte changed trunk/projects/bos/tools/squid-access-log2csv

[BKNR Commits]

Revision: 3410
Author: ksprotte
URL: http://bknr.net/trac/changeset/3410

squid-access-log2csv last fix

U   trunk/projects/bos/tools/squid-access-log2csv

Modified: trunk/projects/bos/tools/squid-access-log2csv
===================================================================
--- trunk/projects/bos/tools/squid-access-log2csv	2008-07-02 14:20:16 UTC (rev 3409)
+++ trunk/projects/bos/tools/squid-access-log2csv	2008-07-02 14:22:33 UTC (rev 3410)
@@ -23,8 +23,9 @@
   (with-open-file (in (first ext:*args*))
     (with-loop-split (list in " \\+")
       (when (= 10 (length list))
-        (format *error-output* "Reading log line ~D...~C"
-                (incf line-count) #\Return)
+        (when (zerop (mod line-count 10000))
+          (format *error-output* "Reading log line ~D...~C"
+                  (incf line-count) #\Return))
         (destructuring-bind (timestamp elapsed client action/code
                                        size method uri ident
                                        hierarchy/from content)