- bknr-cvs@common-lisp.net - mailman3.common-lisp.net

[bknr-cvs] ksprotte changed trunk/projects/bos/tools/squid-access-log2csv
by BKNR Commits 02 Jul '08

02 Jul '08

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)

1 0

[bknr-cvs] ksprotte changed trunk/projects/bos/tools/squid-access-log2csv
by BKNR Commits 02 Jul '08

02 Jul '08

Revision: 3409 Author: ksprotte URL: http://bknr.net/trac/changeset/3409 squid-access-log2csv typo, sorry 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:18:35 UTC (rev 3408) +++ trunk/projects/bos/tools/squid-access-log2csv 2008-07-02 14:20:16 UTC (rev 3409) @@ -23,7 +23,7 @@ (with-open-file (in (first ext:*args*)) (with-loop-split (list in " \\+") (when (= 10 (length list)) - (format *standard-error* "Reading log line ~D...~C" + (format *error-output* "Reading log line ~D...~C" (incf line-count) #\Return) (destructuring-bind (timestamp elapsed client action/code size method uri ident

1 0

[bknr-cvs] ksprotte changed trunk/projects/bos/tools/squid-access-log2csv
by BKNR Commits 02 Jul '08

02 Jul '08

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))))))))

1 0

[bknr-cvs] ksprotte changed trunk/projects/bos/tools/squid-access-log2csv
by BKNR Commits 02 Jul '08

02 Jul '08

Revision: 3407 Author: ksprotte URL: http://bknr.net/trac/changeset/3407 squid-access-log2csv small 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:05:55 UTC (rev 3406) +++ trunk/projects/bos/tools/squid-access-log2csv 2008-07-02 14:08:27 UTC (rev 3407) @@ -3,9 +3,8 @@ (use-package :regexp) (assert (probe-file (first ext:*args*)) nil - "Usage: log.lisp <access.log>") + "Usage: squid-access-log2csv <access.log>") - (defvar *uri-hash* (make-hash-table :test #'equal)) (defvar *action/codes* nil)

1 0

[bknr-cvs] ksprotte changed trunk/projects/bos/tools/squid-access-log2csv
by BKNR Commits 02 Jul '08

02 Jul '08

Revision: 3406 Author: ksprotte URL: http://bknr.net/trac/changeset/3406 initial import squid-access-log2csv A trunk/projects/bos/tools/squid-access-log2csv Added: trunk/projects/bos/tools/squid-access-log2csv =================================================================== --- trunk/projects/bos/tools/squid-access-log2csv (rev 0) +++ trunk/projects/bos/tools/squid-access-log2csv 2008-07-02 14:05:55 UTC (rev 3406) @@ -0,0 +1,57 @@ +#!/usr/local/bin/clisp -C + +(use-package :regexp) + +(assert (probe-file (first ext:*args*)) nil + "Usage: log.lisp <access.log>") + + +(defvar *uri-hash* (make-hash-table :test #'equal)) +(defvar *action/codes* nil) + +(defun action/code-count (uri action/code) + (or (cdr (assoc action/code (gethash uri *uri-hash*))) + 0)) + +(defun (setf action/code-count) (count uri action/code) + (let ((cons (assoc action/code (gethash uri *uri-hash*)))) + (if cons + (rplacd cons count) + (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 (lists) + (maphash (lambda (key value) + (push (cons key value) lists)) + *uri-hash*) + (setf lists (sort lists #'> + :key (lambda (uri) (cdr (assoc :total (cdr uri)))))) + (format t "uri,TOTAL,~{~A~^,~}~%" *action/codes*) + (dolist (list lists) + (destructuring-bind (uri . alist) + list + (format t "\"~A\"," uri) + (format t "~A," (cdr (assoc :total alist))) + (format t "~{~D~^,~}~%" + (mapcar (lambda (action/code) + (or (cdr (assoc action/code alist)) + 0)) + *action/codes*))))) +

1 0

[bknr-cvs] ksprotte changed trunk/projects/bos/test/tsung.xml
by BKNR Commits 02 Jul '08

02 Jul '08

Revision: 3405 Author: ksprotte URL: http://bknr.net/trac/changeset/3405 tsung new session name='GE' U trunk/projects/bos/test/tsung.xml Change set too large, please see URL above

1 0

[bknr-cvs] ksprotte changed trunk/projects/bos/test/tsung.xml
by BKNR Commits 02 Jul '08

02 Jul '08

Revision: 3404 Author: ksprotte URL: http://bknr.net/trac/changeset/3404 tsung.xml dyn vars for buy-sqm fixed U trunk/projects/bos/test/tsung.xml Modified: trunk/projects/bos/test/tsung.xml =================================================================== --- trunk/projects/bos/test/tsung.xml 2008-07-02 09:14:02 UTC (rev 3403) +++ trunk/projects/bos/test/tsung.xml 2008-07-02 11:12:03 UTC (rev 3404) @@ -23,9 +23,34 @@ duration --> <load> - <arrivalphase phase="1" duration="30" unit="second"> - <users interarrival="0.6" unit="second" maxnumber="500"></users> + <arrivalphase phase="1" duration="10" unit="minute"> + <users interarrival="2" unit="second" maxnumber="500"></users> </arrivalphase> + + + <arrivalphase phase="2" duration="5" unit="minute"> + <users interarrival="0.5" unit="second" maxnumber="500"></users> + </arrivalphase> + + + <arrivalphase phase="3" duration="2" unit="minute"> + <users interarrival="0.1" unit="second" maxnumber="500"></users> + </arrivalphase> + + + <arrivalphase phase="4" duration="10" unit="minute"> + <users interarrival="2" unit="second" maxnumber="500"></users> + </arrivalphase> + + + <arrivalphase phase="5" duration="5" unit="minute"> + <users interarrival="0.1" unit="second" maxnumber="500"></users> + </arrivalphase> + + + <arrivalphase phase="6" duration="10" unit="minute"> + <users interarrival="1" unit="second" maxnumber="500"></users> + </arrivalphase> </load> <options> @@ -36,7 +61,7 @@ </options>  <sessions> @@ -495,12 +520,12 @@ <request>   - <dyn_variable name="contract_id" regexp='contract-id=\([0-9]*\)'></dyn_variable> - <dyn_variable name="sponsor_id" regexp='sponsor-id=\([0-9]*\)'></dyn_variable> - <dyn_variable name="master_code" regexp='master-code=\([0-9]*\)'></dyn_variable> + <dyn_variable name="contract_id" regexp='cartId=\([0-9]*\)'></dyn_variable> + <dyn_variable name="sponsor_id" regexp='MC_sponsorid=\([0-9]*\)'></dyn_variable> + <dyn_variable name="master_code" regexp='MC_password=\([0-9]*\)'></dyn_variable> <http url='/de/buy-sqm' version='1.1' - contents='numsqm=1&numsqm1=&disclaimer_read=1&action=%C3%9Cberweisen' + contents='numsqm=1&numsqm1=&disclaimer_read=1' content_type='application/x-www-form-urlencoded' method='POST'></http> </request> <request><http url='/images/step3.gif' version='1.1' method='GET'></http></request>

1 0

[bknr-cvs] ksprotte changed trunk/projects/bos/test/tsung.xml
by BKNR Commits 02 Jul '08

02 Jul '08

Revision: 3403 Author: ksprotte URL: http://bknr.net/trac/changeset/3403 tsung added session name='buy-sqm' U trunk/projects/bos/test/tsung.xml Modified: trunk/projects/bos/test/tsung.xml =================================================================== --- trunk/projects/bos/test/tsung.xml 2008-07-02 08:27:24 UTC (rev 3402) +++ trunk/projects/bos/test/tsung.xml 2008-07-02 09:14:02 UTC (rev 3403) @@ -459,5 +459,111 @@ <request><http url='/m2-javascript/6662/6236' version='1.1' method='GET'></http></request> <request><http url='/contract-image/3028792/ffff00' version='1.1' method='GET'></http></request> </session> + + + <session name='buy-sqm' probability='3' type='ts_http'> + <request><http url='/' version='1.1' method='GET'></http></request> + <request><http url='/index' version='1.1' method='GET'></http></request> + <request><http url='/en/index' version='1.1' method='GET'></http></request> + <request><http url='/static/toplevel_style.css' version='1.1' method='GET'></http></request> + <request><http url='/static/content_style.css' version='1.1' method='GET'></http></request> + <request><http url='/static/bos.js' version='1.1' method='GET'></http></request> + <request><http url='/favicon.ico' version='1.1' method='GET'></http></request> + <request><http url='/images/header_ganzneu.gif' version='1.1' method='GET'></http></request> + <request><http url='/images/pfeil_link_on.gif' version='1.1' method='GET'></http></request> + <request><http url='/images/spenden.jpg' version='1.1' method='GET'></http></request> + <request><http url='/images/trans.gif' version='1.1' method='GET'></http></request> + <request><http url='/infosystem/bilder/submit.gif' version='1.1' method='GET'></http></request> + <request><http url='/images/start_pic_headline1.jpg' version='1.1' method='GET'></http></request> + <request><http url='/images/start_pic_headline2b.jpg' version='1.1' method='GET'></http></request> + <request><http url='/images/start_pic_headline3.jpg' version='1.1' method='GET'></http></request> + <request><http url='/images/satellite_ganzneu2.gif' version='1.1' method='GET'></http></request> + <request><http url='/images/bg_content_right.gif' version='1.1' method='GET'></http></request> + + <thinktime random='true' value='7'/> + + <request><http url='/de/index' version='1.1' method='GET'></http></request> + + <thinktime random='true' value='3'/> + + <request><http url='/de/bestellung' version='1.1' method='GET'></http></request> + <request><http url='/images/step1.gif' version='1.1' method='GET'></http></request> + + <thinktime random='true' value='7'/> + + <transaction name='buy_sqm'> + <request> +  +  + <dyn_variable name="contract_id" regexp='contract-id=\([0-9]*\)'></dyn_variable> + <dyn_variable name="sponsor_id" regexp='sponsor-id=\([0-9]*\)'></dyn_variable> + <dyn_variable name="master_code" regexp='master-code=\([0-9]*\)'></dyn_variable> + <http url='/de/buy-sqm' + version='1.1' + contents='numsqm=1&numsqm1=&disclaimer_read=1&action=%C3%9Cberweisen' + content_type='application/x-www-form-urlencoded' method='POST'></http> + </request> + <request><http url='/images/step3.gif' version='1.1' method='GET'></http></request> + </transaction> +  + + <thinktime random='false' value='10'/> + + <request subst="true"> + <http url='/handle-sale?transStatus=P&name=TestSponsor&address=abc&instId=103530&cartId=%%_contract_id%%&amount=3&currency=EUR&lang=de&desc=3%20qm%20Regenwald%20in%20Samboja%20Lestari&MC_sponsorid=%%_sponsor_id%%&MC_password=%%_master_code%%&MC_donationcert-yearly=0&MC_gift=0&testMode=100' + version='1.1' method='GET'></http> + </request> + + <thinktime random='true' value='5'/> + + <request subst="true"> + <http url='/de/versand_quittung' version='1.1' + contents='sponsor-id=%%_sponsor_id%%&master-code=%%_master_code%%&contract-id=%%_contract_id%%&email=&next-step-name=weiter&name=TestSponsor&want-print=no&address=TestSponsor%0D%0Aabc%0D%0A&Button=speichern+und+weiter' + content_type='application/x-www-form-urlencoded' + method='POST'></http> + </request> + + <thinktime random='true' value='2'/> + + <request subst="true"> + <http url='/de/generate-cert' version='1.1' + contents='sponsor-id=%%_sponsor_id%%&__sponsorid=%%_sponsor_id%%&__password=%%_master_code%%&contract-id=%%_contract_id%%&want-print=no&name=TestSponsor&address=TestSponsor%0D%0Aabc%0D%0A&email=&gift=&Button=weiter' + content_type='application/x-www-form-urlencoded' + method='POST'></http> + </request> + <request subst="true"><http url='/de/profil_setup?name=TestSponsor&email=&sponsor-id=%%_sponsor_id%%' version='1.1' method='GET'></http></request> + + <thinktime random='true' value='13'/> + + <request><http url='/infosystem' version='1.1' method='GET'></http></request> + <request><http url='/infosystem/de/satellitenkarte.htm' version='1.1' if_modified_since='Fri, 20 Jun 2008 15:07:34 GMT' method='GET'></http></request> + <request subst="true"><http url='/de/save-initial-profile' version='1.1' contents='sponsor-id=%%_sponsor_id%%&password=123&password1=123&name=TestSponsor&email=ttt%40test.com&Button=speichern+und+zu+den+Quadratmetern' content_type='application/x-www-form-urlencoded' method='POST'></http></request> + <request><http url='/sponsor-login' version='1.1' method='GET'></http></request> + <request><http url='/m2-javascript/' version='1.1' method='GET'></http></request> + <request><http url='/poi-javascript' version='1.1' method='GET'></http></request> + + <thinktime random='true' value='6'/> + + <request><http url='/overview/6480/6030/background/areas/contracts' version='1.1' method='GET'></http></request> + <request><http url='/overview/6480/6120/background/areas/contracts' version='1.1' if_modified_since='Tue, 01 Jul 2008 16:16:00 GMT' method='GET'></http></request> + <request><http url='/overview/6480/6210/background/areas/contracts' version='1.1' if_modified_since='Tue, 01 Jul 2008 16:16:00 GMT' method='GET'></http></request> + <request><http url='/overview/6480/6300/background/areas/contracts' version='1.1' if_modified_since='Tue, 01 Jul 2008 16:16:00 GMT' method='GET'></http></request> + <request><http url='/overview/6570/6030/background/areas/contracts' version='1.1' method='GET'></http></request> + <request><http url='/overview/6570/6120/background/areas/contracts' version='1.1' if_modified_since='Tue, 01 Jul 2008 16:16:00 GMT' method='GET'></http></request> + <request><http url='/overview/6570/6210/background/areas/contracts' version='1.1' if_modified_since='Tue, 01 Jul 2008 16:16:01 GMT' method='GET'></http></request> + <request><http url='/overview/6570/6300/background/areas/contracts' version='1.1' if_modified_since='Tue, 01 Jul 2008 16:16:00 GMT' method='GET'></http></request> + <request><http url='/overview/6660/6030/background/areas/contracts' version='1.1' method='GET'></http></request> + <request><http url='/overview/6660/6120/background/areas/contracts' version='1.1' if_modified_since='Tue, 01 Jul 2008 16:16:00 GMT' method='GET'></http></request> + <request><http url='/overview/6660/6210/background/areas/contracts' version='1.1' if_modified_since='Tue, 01 Jul 2008 16:16:00 GMT' method='GET'></http></request> + <request><http url='/overview/6660/6300/background/areas/contracts' version='1.1' if_modified_since='Tue, 01 Jul 2008 16:16:00 GMT' method='GET'></http></request> + <request><http url='/overview/6750/6030/background/areas/contracts' version='1.1' method='GET'></http></request> + <request><http url='/overview/6750/6120/background/areas/contracts' version='1.1' if_modified_since='Tue, 01 Jul 2008 16:16:00 GMT' method='GET'></http></request> + <request><http url='/overview/6750/6210/background/areas/contracts' version='1.1' if_modified_since='Tue, 01 Jul 2008 16:16:01 GMT' method='GET'></http></request> + <request><http url='/overview/6750/6300/background/areas/contracts' version='1.1' if_modified_since='Tue, 01 Jul 2008 16:16:00 GMT' method='GET'></http></request> + <request subst="true"><http url='/contract-image/%%_contract_id%%/ff0000' version='1.1' method='GET'></http></request> + </session> + </sessions> </tsung> + +

1 0

[bknr-cvs] hans changed trunk/projects/bos/web/tags.lisp
by BKNR Commits 02 Jul '08

02 Jul '08

Revision: 3402 Author: hans URL: http://bknr.net/trac/changeset/3402 Ensure bknr session when generating the cert to make sure that the following pages are called with the new sponsor being logged in. U trunk/projects/bos/web/tags.lisp Modified: trunk/projects/bos/web/tags.lisp =================================================================== --- trunk/projects/bos/web/tags.lisp 2008-07-01 14:15:15 UTC (rev 3401) +++ trunk/projects/bos/web/tags.lisp 2008-07-02 08:27:24 UTC (rev 3402) @@ -36,6 +36,7 @@ (emit-tag-children)) (define-bknr-tag generate-cert () + (ensure-bknr-session) (with-template-vars (gift email name address want-print) (let ((contract (find-store-object (parse-integer (get-template-var :contract-id))))) (when (equal want-print "no")

1 0

[bknr-cvs] hans changed trunk/projects/lisp-ecoop/
by BKNR Commits 01 Jul '08

01 Jul '08

Revision: 3401 Author: hans URL: http://bknr.net/trac/changeset/3401 Ignore datastore directory. _U trunk/projects/lisp-ecoop/ Property changes on: trunk/projects/lisp-ecoop ___________________________________________________________________ Name: svn:ignore + datastore

1 0