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

[bknr-cvs] hans changed deployed/quickhoney/projects/quickhoney/src/init.lisp
by BKNR Commits 08 May '09

08 May '09

Revision: 4388 Author: hans URL: http://bknr.net/trac/changeset/4388 another hunchentoot 1.0 change U deployed/quickhoney/projects/quickhoney/src/init.lisp Modified: deployed/quickhoney/projects/quickhoney/src/init.lisp =================================================================== --- deployed/quickhoney/projects/quickhoney/src/init.lisp 2009-05-08 10:09:10 UTC (rev 4387) +++ deployed/quickhoney/projects/quickhoney/src/init.lisp 2009-05-08 10:13:51 UTC (rev 4388) @@ -38,7 +38,7 @@ (load "site-config.lisp"))) (setf *acceptor* (make-instance 'hunchentoot:acceptor :port *webserver-port* - :taskmaster 'hunchentoot:single-threaded-taskmaster + :taskmaster (make-instance 'hunchentoot:single-threaded-taskmaster) :persistent-connections-p nil)) (bt:make-thread (curry #'hunchentoot:start *acceptor*) :name (format nil "HTTP server on port ~A" *webserver-port*)))

1 0

[bknr-cvs] hans changed deployed/quickhoney/projects/quickhoney/src/
by BKNR Commits 08 May '09

08 May '09

Revision: 4387 Author: hans URL: http://bknr.net/trac/changeset/4387 hunchentoot 1.0 changes U deployed/quickhoney/projects/quickhoney/src/handlers.lisp U deployed/quickhoney/projects/quickhoney/src/init.lisp Modified: deployed/quickhoney/projects/quickhoney/src/handlers.lisp =================================================================== --- deployed/quickhoney/projects/quickhoney/src/handlers.lisp 2009-05-08 09:54:06 UTC (rev 4386) +++ deployed/quickhoney/projects/quickhoney/src/handlers.lisp 2009-05-08 10:09:10 UTC (rev 4387) @@ -587,6 +587,10 @@ (defclass shutdown-handler (admin-only-handler page-handler) ()) +(defvar *acceptor* nil) + (defmethod handle ((handler shutdown-handler)) - (hunchentoot:stop-server hunchentoot:*server*) + (when *acceptor* + (hunchentoot:stop *acceptor*) + (setf *acceptor* nil)) "Shutting down HTTP server") Modified: deployed/quickhoney/projects/quickhoney/src/init.lisp =================================================================== --- deployed/quickhoney/projects/quickhoney/src/init.lisp 2009-05-08 09:54:06 UTC (rev 4386) +++ deployed/quickhoney/projects/quickhoney/src/init.lisp 2009-05-08 10:09:10 UTC (rev 4387) @@ -36,8 +36,9 @@ (format t "; loading site configuration file~%") (let ((*package* (find-package :quickhoney.config))) (load "site-config.lisp"))) - (bt:make-thread (curry #'hunchentoot:start-server - :port *webserver-port* - :threaded nil - :persistent-connections-p nil) + (setf *acceptor* (make-instance 'hunchentoot:acceptor + :port *webserver-port* + :taskmaster 'hunchentoot:single-threaded-taskmaster + :persistent-connections-p nil)) + (bt:make-thread (curry #'hunchentoot:start *acceptor*) :name (format nil "HTTP server on port ~A" *webserver-port*)))

1 0

[bknr-cvs] hans changed deployed/quickhoney/projects/quickhoney/src/handlers.lisp
by BKNR Commits 08 May '09

08 May '09

Revision: 4386 Author: hans URL: http://bknr.net/trac/changeset/4386 remove auto-twitter functionality as requested U deployed/quickhoney/projects/quickhoney/src/handlers.lisp Modified: deployed/quickhoney/projects/quickhoney/src/handlers.lisp =================================================================== --- deployed/quickhoney/projects/quickhoney/src/handlers.lisp 2009-05-03 15:12:13 UTC (rev 4385) +++ deployed/quickhoney/projects/quickhoney/src/handlers.lisp 2009-05-08 09:54:06 UTC (rev 4386) @@ -334,13 +334,6 @@ :spider-keywords spider-keywords)))) (with-http-response () (with-http-body () - (let ((tinyurl (drakma:http-request - (format nil "http://tinyurl.com/api-create.php?url=~A" - (hunchentoot:url-encode (format nil "http://quickhoney.com~A/~A" - (handler-path handler) image-name)))))) - (twitter:update-status (bknr-session-user) - (format nil "Uploaded new image ~A: ~A" - image-name tinyurl))) (html (:html (:head (:title "Upload successful") @@ -405,8 +398,6 @@ (apply #'make-store-image :image uploaded-image args) (apply #'import-image (upload-pathname uploaded-file) args)))) (declare (ignore item)) ; for now - (twitter:update-status (bknr-session-user) - (format nil "Posted news item: http://quickhoney.com/news/~A" name)) (with-http-response () (with-http-body () (html (:html

1 0

[bknr-cvs] hans changed deployed/bos/thirdparty/usocket/condition.lisp
by BKNR Commits 03 May '09

03 May '09

Revision: 4385 Author: hans URL: http://bknr.net/trac/changeset/4385 merge usocket fix U deployed/bos/thirdparty/usocket/condition.lisp Modified: deployed/bos/thirdparty/usocket/condition.lisp =================================================================== --- deployed/bos/thirdparty/usocket/condition.lisp 2009-05-03 15:02:07 UTC (rev 4384) +++ deployed/bos/thirdparty/usocket/condition.lisp 2009-05-03 15:12:13 UTC (rev 4385) @@ -183,7 +183,7 @@ ((49 99) . address-not-available-error) ((9) . bad-file-descriptor-error) ((61 111) . connection-refused-error) - ((64 131) . connection-reset-error) + ((54 104) . connection-reset-error) ((53 103) . connection-aborted-error) ((22) . invalid-argument-error) ((55 105) . no-buffers-error)

1 0

[bknr-cvs] hans changed deployed/quickhoney/thirdparty/usocket/condition.lisp
by BKNR Commits 03 May '09

03 May '09

Revision: 4384 Author: hans URL: http://bknr.net/trac/changeset/4384 Correct errno for ECONNRESET U deployed/quickhoney/thirdparty/usocket/condition.lisp Modified: deployed/quickhoney/thirdparty/usocket/condition.lisp =================================================================== --- deployed/quickhoney/thirdparty/usocket/condition.lisp 2009-04-16 16:42:38 UTC (rev 4383) +++ deployed/quickhoney/thirdparty/usocket/condition.lisp 2009-05-03 15:02:07 UTC (rev 4384) @@ -183,7 +183,7 @@ ((49 99) . address-not-available-error) ((9) . bad-file-descriptor-error) ((61 111) . connection-refused-error) - ((64 131) . connection-reset-error) + ((54 104) . connection-reset-error) ((53 103) . connection-aborted-error) ((22) . invalid-argument-error) ((55 105) . no-buffers-error)

1 0

[bknr-cvs] hans changed trunk/projects/poll-postbank/poll-postbank.lisp
by BKNR Commits 16 Apr '09

16 Apr '09

Revision: 4383 Author: hans URL: http://bknr.net/trac/changeset/4383 snapshot U trunk/projects/poll-postbank/poll-postbank.lisp Modified: trunk/projects/poll-postbank/poll-postbank.lisp =================================================================== --- trunk/projects/poll-postbank/poll-postbank.lisp 2009-04-16 06:42:30 UTC (rev 4382) +++ trunk/projects/poll-postbank/poll-postbank.lisp 2009-04-16 16:42:38 UTC (rev 4383) @@ -1,5 +1,20 @@ (in-package :poll-postbank) +(defparameter *header-scanner* (cl-ppcre:create-scanner + "Kontoumsätze Postbank Girokonto + +Name: (.*) +BLZ: (.*) +Kontonummer: (.*) +IBAN: (.*) + +Aktueller Kontostand: (.*) Euro +Summe vorgemerkter Umsätze: (.*) Euro + +Datum Wertstellung Art Buchungshinweis Auftraggeber Empfänger Betrag Euro Saldo Euro" + :multi-line-mode t)) + + (defun poll-postbank (kontonummer password) (let ((headers (nth-value 2 (drakma:http-request "https://banking.postbank.de/app/login.do" @@ -17,20 +32,27 @@ (defun umsatz-xml (kontonummer password) (cxml:with-xml-output (cxml:make-character-stream-sink *standard-output*) (cxml:with-element "Kontostatus" - (let ((in-header t)) - (cl-ppcre:do-matches-as-strings (line ".*(?>\\r?\\n)" (poll-postbank kontonummer password)) - (cond - (in-header - (cond - ((cl-ppcre:scan "^Datum" line) - (setf in-header nil)))) - (t - (cxml:with-element "Umsatz" - (loop - for name in '("Datum" "Wertstellung" "Art" "Buchungshinweis" "Auftraggeber" "Empfaenger" "Betrag" "Saldo") - for value in (cl-ppcre:split "\\t" line) - do (cxml:with-element name - (cxml:text value))))))))))) + (let ((status-string (poll-postbank kontonummer password))) + (cl-ppcre:do-register-groups (name blz kontonummer iban kontostand summe-vorgemerkt) + (*header-scanner* status-string) + (cxml:with-element "Name" (cxml:text name)) + (cxml:with-element "BLZ" (cxml:text blz)) + (cxml:with-element "Kontonummer" (cxml:text kontonummer)) + (cxml:with-element "IBAN" (cxml:text iban)) + (cxml:with-element "Kontostand" (cxml:text kontostand)) + (cxml:with-element "SummeVorgemerkt" (cxml:text summe-vorgemerkt))) + #+(or) + (destructuring-bind (nothing bewegungen) + (cl-ppcre:split *header-scanner* status-string) + (declare (ignore nothing)) + (cxml:with-element "Bewegungen" + (cl-ppcre:do-matches-as-strings (line ".*(?>\\r?\\n)" bewegungen) + (cxml:with-element "Umsatz" + (loop + for name in '("Datum" "Wertstellung" "Art" "Buchungshinweis" "Auftraggeber" "Empfaenger" "Betrag" "Saldo") + for value in (cl-ppcre:split "\\t" line) + do (cxml:with-element name + (cxml:text value))))))))))) (defun umsatz-plist (kontonummer password) )

1 0

[bknr-cvs] hans changed trunk/projects/poll-postbank/
by BKNR Commits 16 Apr '09

16 Apr '09

Revision: 4382 Author: hans URL: http://bknr.net/trac/changeset/4382 snapshot _U trunk/projects/poll-postbank/ A trunk/projects/poll-postbank/package.lisp A trunk/projects/poll-postbank/poll-postbank.asd U trunk/projects/poll-postbank/poll-postbank.lisp Property changes on: trunk/projects/poll-postbank ___________________________________________________________________ Name: svn:ignore + poll-postbank.mem *.fas *.lib Added: trunk/projects/poll-postbank/package.lisp =================================================================== --- trunk/projects/poll-postbank/package.lisp (rev 0) +++ trunk/projects/poll-postbank/package.lisp 2009-04-16 06:42:30 UTC (rev 4382) @@ -0,0 +1,4 @@ +(defpackage :poll-postbank + (:nicknames :pp) + (:use :cl) + (:export #:run)) \ No newline at end of file Property changes on: trunk/projects/poll-postbank/package.lisp ___________________________________________________________________ Name: svn:executable + * Added: trunk/projects/poll-postbank/poll-postbank.asd =================================================================== --- trunk/projects/poll-postbank/poll-postbank.asd (rev 0) +++ trunk/projects/poll-postbank/poll-postbank.asd 2009-04-16 06:42:30 UTC (rev 4382) @@ -0,0 +1,16 @@ +;;;; -*- lisp -*- + +(in-package :cl-user) + +(defpackage :poll-postbank.system + (:use :cl :asdf)) + +(in-package :poll-postbank.system) + +(defsystem :poll-postbank + :name "poll-postbank" + :licence "BSD" + :depends-on (:drakma :cxml :cl-ppcre) + :serial t + :components ((:file "package") + (:file "poll-postbank"))) Property changes on: trunk/projects/poll-postbank/poll-postbank.asd ___________________________________________________________________ Name: svn:executable + * Modified: trunk/projects/poll-postbank/poll-postbank.lisp =================================================================== --- trunk/projects/poll-postbank/poll-postbank.lisp 2009-04-16 06:26:40 UTC (rev 4381) +++ trunk/projects/poll-postbank/poll-postbank.lisp 2009-04-16 06:42:30 UTC (rev 4382) @@ -1,3 +1,4 @@ +(in-package :poll-postbank) (defun poll-postbank (kontonummer password) (let ((headers (nth-value 2 @@ -32,4 +33,8 @@ (cxml:text value))))))))))) (defun umsatz-plist (kontonummer password) - ) \ No newline at end of file + ) + +(defun run (kontonummer password) + (asdf:oos 'asdf:load-op :cl+ssl) + (poll-postbank kontonummer password)) \ No newline at end of file

1 0

[bknr-cvs] hans changed trunk/projects/poll-postbank
by BKNR Commits 16 Apr '09

16 Apr '09

Revision: 4381 Author: hans URL: http://bknr.net/trac/changeset/4381 oops, wrong name A trunk/projects/poll-postbank/ D trunk/projects/poll-postbank.lisp/ Copied: trunk/projects/poll-postbank (from rev 4380, trunk/projects/poll-postbank.lisp)

1 0

[bknr-cvs] hans changed trunk/projects/poll-postbank.lisp/
by BKNR Commits 16 Apr '09

16 Apr '09

Revision: 4380 Author: hans URL: http://bknr.net/trac/changeset/4380 Send bank account updates through SMS A trunk/projects/poll-postbank.lisp/ A trunk/projects/poll-postbank.lisp/poll-postbank.lisp Added: trunk/projects/poll-postbank.lisp/poll-postbank.lisp =================================================================== --- trunk/projects/poll-postbank.lisp/poll-postbank.lisp (rev 0) +++ trunk/projects/poll-postbank.lisp/poll-postbank.lisp 2009-04-16 06:25:46 UTC (rev 4380) @@ -0,0 +1,35 @@ + +(defun poll-postbank (kontonummer password) + (let ((headers (nth-value 2 + (drakma:http-request "https://banking.postbank.de/app/login.do" + :method :post + :parameters (list (cons "accountNumber" kontonummer) + (cons "pinNumber" password)))))) + (cl-ppcre:register-groups-bind (jsessionid) (".*jsessionid=([^;]*)" + (or (cdr (assoc :location headers)) + (error "no Location header found in response"))) + (flexi-streams:octets-to-string + (drakma:http-request (format nil "https://banking.postbank.de/app/kontoumsatz.umsatz.init.do;jsessionid=~A?~ + action=download&cache=true&konto=~A" + jsessionid kontonummer)))))) + +(defun umsatz-xml (kontonummer password) + (cxml:with-xml-output (cxml:make-character-stream-sink *standard-output*) + (cxml:with-element "Kontostatus" + (let ((in-header t)) + (cl-ppcre:do-matches-as-strings (line ".*(?>\\r?\\n)" (poll-postbank kontonummer password)) + (cond + (in-header + (cond + ((cl-ppcre:scan "^Datum" line) + (setf in-header nil)))) + (t + (cxml:with-element "Umsatz" + (loop + for name in '("Datum" "Wertstellung" "Art" "Buchungshinweis" "Auftraggeber" "Empfaenger" "Betrag" "Saldo") + for value in (cl-ppcre:split "\\t" line) + do (cxml:with-element name + (cxml:text value))))))))))) + +(defun umsatz-plist (kontonummer password) + ) \ No newline at end of file

1 0

[bknr-cvs] hans changed ediware/
by BKNR Commits 12 Apr '09

12 Apr '09

1 0