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

squid-access-log2csv be a bit more verbose...

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:08:27 UTC (rev 3407) +++ trunk/projects/bos/tools/squid-access-log2csv 2008-07-02 14:18:35 UTC (rev 3408) @@ -19,20 +19,23 @@ (push (cons action/code count) (gethash uri *uri-hash*)))))

-(with-open-file (in (first ext:*args*)) - (with-loop-split (list in " \+") - (when (= 10 (length list)) - (destructuring-bind (timestamp elapsed client action/code - size method uri ident - hierarchy/from content) - list - (declare (ignore timestamp elapsed client - size method ident - hierarchy/from content)) - (let ((action/code (intern action/code))) - (pushnew action/code *action/codes*) - (incf (action/code-count uri action/code)) - (incf (action/code-count uri :total))))))) +(let ((line-count 0)) + (with-open-file (in (first ext:*args*)) + (with-loop-split (list in " \+") + (when (= 10 (length list)) + (format *standard-error* "Reading log line ~D...~C" + (incf line-count) #\Return) + (destructuring-bind (timestamp elapsed client action/code + size method uri ident + hierarchy/from content) + list + (declare (ignore timestamp elapsed client + size method ident + hierarchy/from content)) + (let ((action/code (intern action/code))) + (pushnew action/code *action/codes*) + (incf (action/code-count uri action/code)) + (incf (action/code-count uri :total))))))))