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)