Changeset 3414

Show
Ignore:
Timestamp:
07/02/08 17:59:24 (6 months ago)
Author:
ksprotte
Message:

squid-access-log2csv outputs more standard cvs format (always using " and ;)

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

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

    r3411 r3414  
    4848  (setf lists (sort lists #'> 
    4949                    :key (lambda (uri) (cdr (assoc :total (cdr uri))))))   
    50   (format t "uri,TOTAL,~{~A~^,~}~%" *action/codes*) 
     50  (format t "\"uri\";\"TOTAL\";~{\"~A\"~^;~}~%" *action/codes*) 
    5151  (dolist (list lists) 
    5252    (destructuring-bind (uri . alist) 
    5353        list 
    54       (format t "\"~A\"," uri) 
    55       (format t "~A," (cdr (assoc :total alist))) 
    56       (format t "~{~D~^,~}~%" 
     54      (format t "\"~A\";" uri) 
     55      (format t "\"~A\";" (cdr (assoc :total alist))) 
     56      (format t "~{\"~D\"~^;~}~%" 
    5757              (mapcar (lambda (action/code) 
    5858                        (or (cdr (assoc action/code alist))