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)