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

[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

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

12 Apr '09

Revision: 4378 Author: hans URL: http://bknr.net/trac/changeset/4378 more version number removals A trunk/thirdparty/cl-fad/ D trunk/thirdparty/cl-fad-0.6.2/ A trunk/thirdparty/md5/ D trunk/thirdparty/md5-1.8.5/ A trunk/thirdparty/puri/ D trunk/thirdparty/puri-1.5.1/ D trunk/thirdparty/url-rewrite-0.1.1/ Copied: trunk/thirdparty/cl-fad (from rev 4352, trunk/thirdparty/cl-fad-0.6.2) Copied: trunk/thirdparty/md5 (from rev 4352, trunk/thirdparty/md5-1.8.5) Copied: trunk/thirdparty/puri (from rev 4352, trunk/thirdparty/puri-1.5.1)

1 0

[bknr-cvs] hans changed trunk/thirdparty/cl-base64
by BKNR Commits 12 Apr '09

12 Apr '09

Revision: 4377 Author: hans URL: http://bknr.net/trac/changeset/4377 use versionless directory name A trunk/thirdparty/cl-base64/ D trunk/thirdparty/cl-base64-3.3.2/ Copied: trunk/thirdparty/cl-base64 (from rev 4352, trunk/thirdparty/cl-base64-3.3.2)

1 0

[bknr-cvs] hans changed trunk/thirdparty/bordeaux-threads
by BKNR Commits 12 Apr '09

12 Apr '09

Revision: 4376 Author: hans URL: http://bknr.net/trac/changeset/4376 use versionless directory name A trunk/thirdparty/bordeaux-threads/ D trunk/thirdparty/bordeaux-threads_0.4.0/ Copied: trunk/thirdparty/bordeaux-threads (from rev 4352, trunk/thirdparty/bordeaux-threads_0.4.0)

1 0

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

12 Apr '09

Revision: 4375 Author: hans URL: http://bknr.net/trac/changeset/4375 use versionless directory name _U trunk/thirdparty/cl-gd/ A trunk/thirdparty/zpb-exif/ D trunk/thirdparty/zpb-exif-1.0/ Property changes on: trunk/thirdparty/cl-gd ___________________________________________________________________ Name: svn:ignore - *.ofasl cl-gd-glue.so + *.ofasl cl-gd-glue.so cl-gd-glue.dylib Copied: trunk/thirdparty/zpb-exif (from rev 4374, trunk/thirdparty/zpb-exif-1.0)

1 0

[bknr-cvs] hans changed trunk/thirdparty/zpb-exif-1.0/
by BKNR Commits 12 Apr '09

12 Apr '09

Revision: 4374 Author: hans URL: http://bknr.net/trac/changeset/4374 import zpb-exif A trunk/thirdparty/zpb-exif-1.0/ A trunk/thirdparty/zpb-exif-1.0/exif.lisp A trunk/thirdparty/zpb-exif-1.0/zpb-exif.asd A trunk/thirdparty/zpb-exif-1.0/zpb-exif.html Change set too large, please see URL above

1 0