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