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

[bknr-cvs] r1858 - branches/xml-class-rework/bknr/src/web
by bknr＠bknr.net 19 Feb '06

19 Feb '06

Author: hhubner Date: 2006-02-19 12:44:08 -0600 (Sun, 19 Feb 2006) New Revision: 1858 Modified: branches/xml-class-rework/bknr/src/web/menu.lisp Log: Revert previous change in order to allow the site to run from a non-root url Modified: branches/xml-class-rework/bknr/src/web/menu.lisp =================================================================== --- branches/xml-class-rework/bknr/src/web/menu.lisp 2006-02-19 18:40:53 UTC (rev 1857) +++ branches/xml-class-rework/bknr/src/web/menu.lisp 2006-02-19 18:44:08 UTC (rev 1858) @@ -50,7 +50,6 @@ (dolist (item (menu-items menu)) (let ((item-is-active (in-subtree (puri:uri-path (net.aserve:request-uri *req*)) (item-url item)))) (with-slots (url title active-image inactive-image) item - (setf url (format nil "/~A" url)) ; XXX Fixme only absolute URLs are possible ATM (cond ((and active-image inactive-image) (if item-is-active

1 0

[bknr-cvs] r1857 - branches/xml-class-rework/projects/lisp-ecoop/src
by bknr＠bknr.net 19 Feb '06

19 Feb '06

Author: hhubner Date: 2006-02-19 12:40:53 -0600 (Sun, 19 Feb 2006) New Revision: 1857 Modified: branches/xml-class-rework/projects/lisp-ecoop/src/webserver.lisp Log: fix up redirection to relative path. Modified: branches/xml-class-rework/projects/lisp-ecoop/src/webserver.lisp =================================================================== --- branches/xml-class-rework/projects/lisp-ecoop/src/webserver.lisp 2006-02-19 18:28:46 UTC (rev 1856) +++ branches/xml-class-rework/projects/lisp-ecoop/src/webserver.lisp 2006-02-19 18:40:53 UTC (rev 1857) @@ -17,7 +17,7 @@ (make-instance 'website :name "LISP ECOOP CMS" :handler-definitions `(("/" redirect-handler - :to "/home") + :to "home") ("/" template-handler :destination ,(namestring (merge-pathnames #p"templates/" *website-directory*)) :command-packages ((:lisp-ecoop . :lisp-ecoop.tags)

1 0

[bknr-cvs] r1856 - branches/xml-class-rework/thirdparty
by bknr＠bknr.net 19 Feb '06

19 Feb '06

Author: hhubner Date: 2006-02-19 12:28:46 -0600 (Sun, 19 Feb 2006) New Revision: 1856 Removed: branches/xml-class-rework/thirdparty/cl-typesetting/ branches/xml-class-rework/thirdparty/weird-irc/ Log: Remove obsolete and unneeded thirdparty modules.

1 0

[bknr-cvs] r1855 - branches/xml-class-rework/thirdparty
by bknr＠bknr.net 19 Feb '06

19 Feb '06

Author: hhubner Date: 2006-02-19 12:27:37 -0600 (Sun, 19 Feb 2006) New Revision: 1855 Removed: branches/xml-class-rework/thirdparty/mcclim/ Log: Remove obsolete and unneeded thirdparty modules.

1 0

[bknr-cvs] r1854 - branches/xml-class-rework/thirdparty vendor
by bknr＠bknr.net 19 Feb '06

19 Feb '06

Author: hhubner Date: 2006-02-19 12:26:05 -0600 (Sun, 19 Feb 2006) New Revision: 1854 Added: vendor/clim-examples-moeller/ Removed: branches/xml-class-rework/thirdparty/clim-examples-moeller/ Log: Move these interesting files out of the main source tree. Copied: vendor/clim-examples-moeller (from rev 1853, branches/xml-class-rework/thirdparty/clim-examples-moeller)

1 0

[bknr-cvs] r1853 - branches/xml-class-rework/thirdparty/cl-gd
by bknr＠bknr.net 19 Feb '06

19 Feb '06

Author: hhubner Date: 2006-02-19 12:24:40 -0600 (Sun, 19 Feb 2006) New Revision: 1853 Modified: branches/xml-class-rework/thirdparty/cl-gd/Makefile Log: -liconv is apparently no longer needed. Modified: branches/xml-class-rework/thirdparty/cl-gd/Makefile =================================================================== --- branches/xml-class-rework/thirdparty/cl-gd/Makefile 2006-02-19 18:18:42 UTC (rev 1852) +++ branches/xml-class-rework/thirdparty/cl-gd/Makefile 2006-02-19 18:24:40 UTC (rev 1853) @@ -2,7 +2,7 @@ cl-gd-glue.so: gcc -I/usr/local/include -fPIC -c cl-gd-glue.c - ld -shared -lgd -lz -lpng -ljpeg -lfreetype -liconv -lm -lc cl-gd-glue.o -o cl-gd-glue.so -L/usr/local/lib + ld -shared -lgd -lz -lpng -ljpeg -lfreetype -lm -lc cl-gd-glue.o -o cl-gd-glue.so -L/usr/local/lib rm cl-gd-glue.o # this should work for Mac OS X

1 0

[bknr-cvs] r1852 - branches/xml-class-rework/bknr/src/web
by bknr＠bknr.net 19 Feb '06

19 Feb '06

Author: hhubner Date: 2006-02-19 12:18:42 -0600 (Sun, 19 Feb 2006) New Revision: 1852 Modified: branches/xml-class-rework/bknr/src/web/menu.lisp branches/xml-class-rework/bknr/src/web/templates.lisp Log: Fix quoting, "fix" menu. Modified: branches/xml-class-rework/bknr/src/web/menu.lisp =================================================================== --- branches/xml-class-rework/bknr/src/web/menu.lisp 2006-02-19 18:13:33 UTC (rev 1851) +++ branches/xml-class-rework/bknr/src/web/menu.lisp 2006-02-19 18:18:42 UTC (rev 1852) @@ -50,6 +50,7 @@ (dolist (item (menu-items menu)) (let ((item-is-active (in-subtree (puri:uri-path (net.aserve:request-uri *req*)) (item-url item)))) (with-slots (url title active-image inactive-image) item + (setf url (format nil "/~A" url)) ; XXX Fixme only absolute URLs are possible ATM (cond ((and active-image inactive-image) (if item-is-active Modified: branches/xml-class-rework/bknr/src/web/templates.lisp =================================================================== --- branches/xml-class-rework/bknr/src/web/templates.lisp 2006-02-19 18:13:33 UTC (rev 1851) +++ branches/xml-class-rework/bknr/src/web/templates.lisp 2006-02-19 18:18:42 UTC (rev 1852) @@ -6,12 +6,12 @@ (defvar *template-expander*) (defvar *template-env*) -(defvar *template-dtd-catalog* '(;; libxml standard +(defvar *template-dtd-catalog* `(;; libxml standard "/etc/xml/catalog" ;; FreeBSD "/usr/local/share/xml/catalog.ports" ;; Find from environment - (cdr (assoc :xmlcatalog ext:*environment-list*)))) + ,@(cdr (assoc :xmlcatalog ext:*environment-list*)))) ;; user-error is supposed to be raised when an error is provoced by ;; the user (i.e. by supplying invalid form data).

1 0

[bknr-cvs] r1851 - in branches/xml-class-rework/projects/raw-data: btscanner playwnd streamcapture
by bknr＠bknr.net 19 Feb '06

19 Feb '06

Author: hhubner Date: 2006-02-19 12:13:33 -0600 (Sun, 19 Feb 2006) New Revision: 1851 Removed: branches/xml-class-rework/projects/raw-data/btscanner/btscanner.ncb branches/xml-class-rework/projects/raw-data/playwnd/playwnd.ncb branches/xml-class-rework/projects/raw-data/streamcapture/streamcapture.ncb Log: Remove project files that will be created by MSVC anyway. Deleted: branches/xml-class-rework/projects/raw-data/btscanner/btscanner.ncb =================================================================== (Binary files differ) Deleted: branches/xml-class-rework/projects/raw-data/playwnd/playwnd.ncb =================================================================== (Binary files differ) Deleted: branches/xml-class-rework/projects/raw-data/streamcapture/streamcapture.ncb =================================================================== (Binary files differ)

1 0

[bknr-cvs] r1850 - in branches/xml-class-rework/bknr/src: . web
by bknr＠bknr.net 19 Feb '06

19 Feb '06

Author: hhubner Date: 2006-02-19 12:04:49 -0600 (Sun, 19 Feb 2006) New Revision: 1850 Modified: branches/xml-class-rework/bknr/src/packages.lisp branches/xml-class-rework/bknr/src/web/templates.lisp Log: The templater now looks for an environment variable XMLCATALOG to find the DTD catalog file, in addition to the standard locations. Modified: branches/xml-class-rework/bknr/src/packages.lisp =================================================================== --- branches/xml-class-rework/bknr/src/packages.lisp 2006-02-19 17:39:00 UTC (rev 1849) +++ branches/xml-class-rework/bknr/src/packages.lisp 2006-02-19 18:04:49 UTC (rev 1850) @@ -256,6 +256,7 @@ #:with-tag-expanders #:*html-variables* + #:*template-dtd-catalog* ;; handlers #:parse-handler-url Modified: branches/xml-class-rework/bknr/src/web/templates.lisp =================================================================== --- branches/xml-class-rework/bknr/src/web/templates.lisp 2006-02-19 17:39:00 UTC (rev 1849) +++ branches/xml-class-rework/bknr/src/web/templates.lisp 2006-02-19 18:04:49 UTC (rev 1850) @@ -6,6 +6,12 @@ (defvar *template-expander*) (defvar *template-env*) +(defvar *template-dtd-catalog* '(;; libxml standard + "/etc/xml/catalog" + ;; FreeBSD + "/usr/local/share/xml/catalog.ports" + ;; Find from environment + (cdr (assoc :xmlcatalog ext:*environment-list*)))) ;; user-error is supposed to be raised when an error is provoced by ;; the user (i.e. by supplying invalid form data). @@ -150,7 +156,7 @@ :accessor template-handler-cached-templates) (dtd-cache :initform (cxml:make-dtd-cache) :reader template-handler-dtd-cache) - (catalog :initform (cxml:make-catalog) + (catalog :initform (cxml:make-catalog *template-dtd-catalog*) :reader template-handler-catalog))) (defconstant +max-template-expansions-per-request+ 100

1 0

[bknr-cvs] r1849 - in branches/xml-class-rework/projects/lisp-ecoop: src website/templates
by bknr＠bknr.net 19 Feb '06

19 Feb '06

Author: hhubner Date: 2006-02-19 11:39:00 -0600 (Sun, 19 Feb 2006) New Revision: 1849 Modified: branches/xml-class-rework/projects/lisp-ecoop/src/init.lisp branches/xml-class-rework/projects/lisp-ecoop/website/templates/menu.xml Log: First release version for commitee review. Modified: branches/xml-class-rework/projects/lisp-ecoop/src/init.lisp =================================================================== --- branches/xml-class-rework/projects/lisp-ecoop/src/init.lisp 2006-02-19 10:29:19 UTC (rev 1848) +++ branches/xml-class-rework/projects/lisp-ecoop/src/init.lisp 2006-02-19 17:39:00 UTC (rev 1849) @@ -10,7 +10,7 @@ :n-blobs-per-directory 1000))) (unless (find-user "anonymous") (make-user "anonymous") ; used for all anonymous sessions - (make-user "admin" :password "admin" :full-name "Administrator" :flags '(:admin)) + (make-user "admin" :password "wispleb" :full-name "Administrator" :flags '(:admin)) (import-image "bknr-logo.png" :keywords '(:banner :bknr))) (bknr.cron:start-cron) Modified: branches/xml-class-rework/projects/lisp-ecoop/website/templates/menu.xml =================================================================== --- branches/xml-class-rework/projects/lisp-ecoop/website/templates/menu.xml 2006-02-19 10:29:19 UTC (rev 1848) +++ branches/xml-class-rework/projects/lisp-ecoop/website/templates/menu.xml 2006-02-19 17:39:00 UTC (rev 1849) @@ -2,8 +2,10 @@ <menu name="main"> <item url="home" title="Home" /> <item url="cfp" title="Call for Participation" /> +  <item url="contact" title="Contact" /> </menu>

1 0