Changeset 3410

Show
Ignore:
Timestamp:
07/02/08 16:22:33 (5 months ago)
Author:
ksprotte
Message:

squid-access-log2csv last fix

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

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

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