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

[BKNR Commits]

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

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