tbnl-devel June 2004

tbnl-devel@common-lisp.net

2 participants
8 discussions

[tbnl-devel] Apache 2.0 support
by Edi Weitz 30 Jun '04

30 Jun '04

The attached email was sent to tbnl-devel when common-lisp.net was down. I'm resending it now because I think it's interesting for people who want to try out TBNL with Apache 2.0.

1 0

Re: [tbnl-devel] Problem with my tests
by Edi Weitz 15 Jun '04

15 Jun '04

On Tue, 15 Jun 2004 10:29:09 -0400, Nicolas Lamirault <lam(a)tuxfamily.org> wrote: > for tbnl i make this now : > >> (defun clwl-start () >> "Load configuration file, create a SQL database handler, >> and initialize the tbnl dispatcher for Clwl" >> (setf *conf* (load-config "/home/nlamirault/src/clwl/clwl.conf")) >> (setf *db* (get-database-connection *conf*)) >> (setf *dispatch-table* >> (nconc >> (mapcar (lambda (args) >> (apply #'create-prefix-dispatcher args)) >> '(("/tnbl/clwl/login.html" login) >> ("/tbnl/clwl/about.html" about) >> ("/tbnl/clwl/" main) >> )) >> (list #'default-dispatcher))) >> (start-tbnl)) > >> (defun clwl-stop () >> (setf *conf* nil) >> (setf *db* nil) >> (setf *dispatch-table* nil) >> (stop-tbnl)) > > so i can load clwl very quickly with asdf operations and > (clwl:clwl-start) > > i use html-template to load the html template file, and create my > web page (with data contained in sql database) but in fact i have a > problem of CSS ... > > for exemple this page : http://localhost/tbnl/clwl/index.html this > page is correcte but css isn't load > > i have this on the HTML template : > > <link rel="stylesheet" type="text/css" href="templates/advogato.css" /> > > and my architecture is like this : > > ~/src/clwl/ > *.lisp > templates/ > *.css > *.html > > > ~/public_html/tbnl/clwl <-- a link towards : ~/src/clwl/ > > > i a write this in the template : > <link rel="stylesheet" type="text/css" href="templates/advogato.css" /> > > there is no change :( > i don't really understand > any help ? I suppose you have Apache configured to delegate all pages below /tbnl/ to TBNL. As index.html is at /tbnl/clwl/index.html the address of the style sheet resolves to /tbnl/clwl/templates/advogato.css which is fed through TBNL which serves MAIN. (You can verify this with something like Ethereal. Or you can add a LOG-MESSAGE form to the MAIN function which logs the SCRIPT-NAME the browser requested.) The easiest way to solve this problem is to give static pages their own root independently of TBNL, something like this: <link rel="stylesheet" type="text/css" href="/static/templates/advogato.css" /> > Ps : i'm on #lisp, nickname : lam I usually don't have time for IRC... :) (If I'm there - very rarely - I'm nhabedi.) Cheers, Edi.

1 0

[tbnl-devel] Problem with my tests
by Nicolas Lamirault 15 Jun '04

15 Jun '04

hello, il make some tests with tbnl, and i have some problems this is how i proceed : ; SLIME 2004-04-28 CL-USER> (push "/home/nlamirault/src/cl-ini/" asdf:*central-registry*) ("/home/nlamirault/src/cl-ini/" #p"/usr/share/common-lisp/systems/" (MERGE-PATHNAMES #p".clc/systems/" (USER-HOMEDIR-PATHNAME)) *DEFAULT-PATHNAME-DEFAULTS*) CL-USER> (push "/home/nlamirault/src/url-rewrite/" asdf:*central-registry*) ("/home/nlamirault/src/url-rewrite/" "/home/nlamirault/src/cl-ini/" #p"/usr/share/common-lisp/systems/" (MERGE-PATHNAMES #p".clc/systems/" (USER-HOMEDIR-PATHNAME)) *DEFAULT-PATHNAME-DEFAULTS*) CL-USER> (push "/home/nlamirault/src/tbnl-0.2.3/" asdf:*central-registry*) ("/home/nlamirault/src/tbnl-0.2.3/" "/home/nlamirault/src/url-rewrite/" "/home/nlamirault/src/cl-ini/" #p"/usr/share/common-lisp/systems/" (MERGE-PATHNAMES #p".clc/systems/" (USER-HOMEDIR-PATHNAME)) *DEFAULT-PATHNAME-DEFAULTS*) CL-USER> (push "/home/nlamirault/src/clwl/" asdf:*central-registry*) ("/home/nlamirault/src/clwl/" "/home/nlamirault/src/tbnl-0.2.3/" "/home/nlamirault/src/url-rewrite/" "/home/nlamirault/src/cl-ini/" #p"/usr/share/common-lisp/systems/" (MERGE-PATHNAMES #p".clc/systems/" (USER-HOMEDIR-PATHNAME)) *DEFAULT-PATHNAME-DEFAULTS*) CL-USER> (asdf:operate 'asdf:load-op :clwl) [...] CL-USER> (tbnl:start-tbnl) #<KMRCL:LISTENER port 3000> i have defined this on clwl.lisp : (setq *dispatch-table* (nconc (mapcar (lambda (args) (apply #'create-prefix-dispatcher args)) '(("/tbnl/clwl" main) ("/tnbl/clwl/login.html" login) ("/tbnl/clwl/about.html" about))) (list #'default-dispatcher))) on url : http://localhost/tbnl/clwl/index.html, i obtain the tbnl's default page : > TBNL Default Page > This the TBNL default page. You're most likely seeing it because the > server administrator hasn't set up his own default page yet. > TBNL is a toolkit for building dynamic websites with Common Lisp and > Apache. More info about TBNL can be found at http://weitz.de/tbnl/. I think that it is comportement normal because : CL-USER> tbnl:*dispatch-table* (TBNL:DEFAULT-DISPATCHER) i have create an init function : > (defun clwl () > (setf *conf* (load-config "/home/nlamirault/src/clwl/clwl.conf")) > (setf *db* (get-database-connection *conf*)) > (setf *dispatch-table* > (nconc > (mapcar (lambda (args) > (apply #'create-prefix-dispatcher args)) > '(("/tbnl/clwl" main) > ("/tnbl/clwl/login.html" login) > ("/tbnl/clwl/about.html" about))) > (list #'default-dispatcher)))) CL-USER> (clwl:clwl) ; [GC threshold exceeded with 17,686,392 bytes in use. Commencing GC.] ; [GC completed with 5,849,408 bytes retained and 11,836,984 bytes freed.] ; [GC will next occur when at least 17,849,408 bytes are in use.] (#<Closure Over Function "DEFUN CREATE-PREFIX-DISPATCHER" {4809FD51}> #<Closure Over Function "DEFUN CREATE-PREFIX-DISPATCHER" {4809FD69}> #<Closure Over Function "DEFUN CREATE-PREFIX-DISPATCHER" {4809FD81}> #<Function TBNL:DEFAULT-DISPATCHER {4911B8B1}>) after this call, the URL http://localhost/tbnl/clwl show what i want it's ok the logs : [Tue Jun 15 15:08:26 2004] [warn] [TBNL] New template printer for #p"templates/blog.html" created so i would like to view the about page with this URL : http://localhost/tbnl/clwl/about.html, but i have a "loop", and after i come back to the home page :( this is what i have on the apache logs : [Tue Jun 15 15:08:43 2004] [error] [TBNL] Main [Tue Jun 15 15:08:44 2004] [error] [TBNL] Main [Tue Jun 15 15:08:45 2004] [error] [TBNL] Main [Tue Jun 15 15:08:46 2004] [error] [TBNL] Main [Tue Jun 15 15:08:46 2004] [error] [TBNL] Main [Tue Jun 15 15:08:47 2004] [error] [TBNL] Main [Tue Jun 15 15:08:47 2004] [error] [TBNL] Main [Tue Jun 15 15:08:48 2004] [error] [TBNL] Main PS : i have this on my functions : (defun main () (log-message :error "Main") ...) (defun login () (log-message :error "Login") ...) (defun about () (log-message :error"About clwl") ...) any idea about my pb ? thanks for any help -- Nicolas Lamirault

2 2

[tbnl-devel] Re: tbnl bug
by Edi Weitz 12 Jun '04

12 Jun '04

On Sat, 12 Jun 2004 15:35:12 +0900, KMP Developer <jc(a)itsec.co.kr> wrote: > I traced the problem and I found who's throwing. In (defmethod > initialize-instance :after ((request request) &rest init-args)) : > (form-url-encoded-list-to-alist > (cl-ppcre:split "&" "abc=1&def=2")) ; OK > > (form-url-encoded-list-to-alist > (cl-ppcre:split "&" "???abc")) ; Throws an exception Ah, now I see it! You didn't mention which Lisp you were using and I only tested against AllegroCL which doesn't expose this problem. I've now tested with CMUCL and see what's going wrong. I've uploaded a new version (0.2.3) which should fix this. > I found my original message is not good enough as a bug > report. Sorry about that No problem. Thanks for finding the bug! >>Please use the mailing list for bug reports, thanks. >> > I'll do that next time. You could have started with this reply... :) Thanks and have a nice weekend, Edi.

1 0

[tbnl-devel] New release 0.2.3
by Edi Weitz 12 Jun '04

12 Jun '04

Hi! A new release is available from <http://weitz.de/files/tbnl.tgz>. Here's the relevant part from the changelog: Version 0.2.3 2004-06-12 Bugfix for FORM-URL-ENCODED-LIST-TO-ALIST (bug caught by Jong-won Choi) Have fun, Edi.

1 0

[tbnl-devel] Re: tbnl bug
by Edi Weitz 11 Jun '04

11 Jun '04

Hi! On Fri, 11 Jun 2004 09:40:13 +0900, KMP Developer <jc(a)itsec.co.kr> wrote: > I'm building my web app using your tbnl and today is day 2 :) > > Yesterday I found a bug in process-apache-command > function(modlisp.lisp). > > When url of client browser is invalid(for example: > "http://localhost/abc???def") the function does nothing(e.g. doesn't > return any html). I can't reproduce that here, I get a 404 reply. Are you sure you have setup httpd.conf correctly such that all localhost URLs are served through TBNL? > Based on Apache's behaviour(I'm not a http expert, btw), it should > return '404 not found' and there should be a way user can add a > friendly 'not found' page, I think. You can create your own friendly 404 page if you put a 'catch-all' handler at the end of the dispatch table <http://weitz.de/tbnl/#*dispatch-table*> or simply change the value of *DEFAULT-HANDLER* <http://weitz.de/tbnl/#*default-handler*> > You may know this problem, and I'd like to ask its fix before I try > to write one for myself. > > Thanks for tbnl You're welcome. Please use the mailing list for bug reports, thanks. Cheers, Edi.

1 0

[tbnl-devel] New release 0.2.1
by Edi Weitz 10 Jun '04

10 Jun '04

Hi! A new release is available from <http://weitz.de/files/tbnl.tgz>. Here's the relevant part from the changelog: Version 0.2.1 2004-06-10 Only create backtrace if needed (speeds up AllegroCL considerably) Have fun, Edi.

1 1

[tbnl-devel] New release 0.2.0
by Edi Weitz 07 Jun '04

07 Jun '04

Hi! A new release is available from <http://weitz.de/files/tbnl.tgz>. Here's the relevant part from the changelog: Version 0.2.0 2004-06-07 Added SESSION-STRING and *SESSION-REMOVAL-HOOK* Added GET-BACKTRACE for AllegroCL Have fun, Edi.

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

tbnl-devel June 2004