Changeset 2081
- Timestamp:
- 11/20/06 16:19:07 (2 years ago)
- Files:
-
- trunk/projects/bos/build.lisp (modified) (1 diff)
- trunk/projects/bos/statistics/Makefile (modified) (1 diff)
- trunk/projects/bos/web/web.lisp (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/projects/bos/build.lisp
r2045 r2081 11 11 (defun read-configuration (pathname) 12 12 (with-open-file (s pathname) 13 (loop for form = (read s nil nil)14 while form13 (loop for form = (read s nil :end-of-file) 14 while (not (eq form :end-of-file)) 15 15 collect form))) 16 16 trunk/projects/bos/statistics/Makefile
r2045 r2081 1 1 2 BASE_URL = http:// 192.168.254.132:8080/reports-xml2 BASE_URL = http://217.13.200.204:8080/reports-xml 3 3 YEAR = 4 4 LOGIN = trunk/projects/bos/web/web.lisp
r2045 r2081 15 15 (defvar *website-directory*) 16 16 (defvar *website-url*) 17 (defvar *worldpay-test-mode*) 17 18 18 (defun init (&key (port 8080) (listeners 1) (vhosts '("localhost")) website-directory website-url )19 (defun init (&key (port 8080) (listeners 1) (vhosts '("localhost")) website-directory website-url worldpay-test-mode) 19 20 (setf *port* port) 20 21 (setf *listeners* listeners) … … 22 23 (setf *website-url* website-url) 23 24 (setf *website-directory* website-directory) 25 (setf *worldpay-test-mode* worldpay-test-mode) 24 26 (unless *website-directory* 25 27 (error ":website-directory not specified")) … … 31 33 (worldpay-test::publish-worldpay-test :website-directory *website-directory* 32 34 :vhosts *vhosts* 33 :website-url *website-url*) 35 :website-url *website-url* 36 :worldpay-test-mode *worldpay-test-mode*) 34 37 (format t "~&; Starting aserve~@[ in debug mode~].~%" debug) 35 38 (force-output)
