Changeset 3411

Show
Ignore:
Timestamp:
07/02/08 16:25:34 (6 months ago)
Author:
ksprotte
Message:

squid-access-log2csv: finally useful line count output

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

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

    r3410 r3411  
    2424    (with-loop-split (list in " \\+") 
    2525      (when (= 10 (length list)) 
    26         (when (zerop (mod line-count 10000)) 
     26        (incf line-count) 
     27        (when (zerop (mod line-count 1000)) 
    2728          (format *error-output* "Reading log line ~D...~C" 
    28                   (incf line-count) #\Return)) 
     29                  line-count #\Return)) 
    2930        (destructuring-bind (timestamp elapsed client action/code 
    3031                                       size method uri ident