[bknr-cvs] hans changed trunk/projects/poll-postbank/

[BKNR Commits]

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