tbnl-devel

tbnl-devel@common-lisp.net

865 discussions

[hunchentoot-devel] Refactoring work plan
by Hans Hübner 10 Apr '08

10 Apr '08

I spent much of today looking at Hunchentoot and here is my plan for refactoring: Immediate high level goals: - Make threading optional on threaded platforms - Prepare for SERVE-EVENT based buffering - Clean up and refactor for better hackability In the longer term, I would like to make more of Hunchentoots data structures into classes that can be subclassed by applications. Requests, sessions and handlers come to mind, all of which currently exist, but they can't easily be extended in an object oriented fashion. Maybe it is good like that and an object oriented framework should be made optional. Also, there should be a logging API. Short term hacking plan: - Use USOCKET instead of private compatibility library. Currently, threading and socket I/O is intermixed because COMM:START-UP-SERVER from Lispworks is emulated by all platforms. Also, timeouts will be provided through USOCKET. - Use BORDEAUX-THREADS for threading. Currently, threads are assumed to be processes as in Lispworks. I particularily dislike the use of PROCESS-KILL to shutdown the server. - Clean up and refactor to reduce the number of special variables - Move platform specific code into subdirectory - Once we have decided whether we want to keep mod_lisp: Refactor so that mod_lisp specific code is isolated or remove it altogether. If you think anything of this is terrible and/or a bad idea, speak up. -Hans

4 4

[hunchentoot-devel] Hunchentoot with ECL
by css 10 Apr '08

10 Apr '08

As I noticed, Hunchentoot is not yet ported to ECL, even though the ECL-documentation says that it has Gray-Streams-, Thread- and Socket-Support as far as I read. Was there simply no interest to port it to ECL so far, or is there any reason why it is not possible or very hard to port it to ECL, or why one should not use ECL? Another thing I am interested in is, why doesnt Hunchentoot use "external" Libraries, or store the whole Stuff in the port-*-Files in seperate "Libraries" - the functions defined there may be useful to other Projects, too, and they would also benefit from bugfixes and extensions (and would maybe add such, too).

6 13

[hunchentoot-devel] problem setting up hunchentoot
by Kim Stebel 10 Apr '08

10 Apr '08

Hello group, I'm new to LISP and i'm trying to set up a basic "Hello World"-website with Hunchentoot. I'm using SBCL 1.0.6 on linux(ubuntu gutsy) and installed hunchentoot via asdf-install. Then i registered a file handler and startet the server: (require :hunchentoot) (setq hunchentoot:*dispatch-table* (list (hunchentoot:create-static-file-dispatcher-and-handler "/ htt" "/home/kim/httest.html"))) (defvar *ht-server* (hunchentoot:start-server :port 3456)) The problem: No page is displayed when I tell my browser to go to "localhost:3456/htt". Telneting to port 3456 always results in the connection being closed immediately without an error message. I googled quite a lot and tried the following to get more information: (setq hunchentoot:*SHOW-LISP-ERRORS-P* t) (setq hunchentoot:*SHOW-LISP-BACKTRACES-P* t) (setq hunchentoot:*catch-errors-p* nil) Now each time I try to connect to hunchentoot, I get the following error message in the REPL: debugger invoked on a UNDEFINED-FUNCTION in thread #<THREAD "hunchentoot-worker-4" {B2271F9}>: The function (SETF HUNCHENTOOT::FLEXI-STREAM-BOUND) is undefined. I already sent this to comp.lang.lisp (http://groups.google.com/group/comp.lang.lisp/browse_thread/thread/383c828c…) and the nice people there helped me to ensure that all the required components are installed and loaded. I also tried the example from http://weitz.de/hunchentoot/#example and got the same error message. I'm pretty lost here, so I'd really appreciate any help. Thanks in advance Kim

5 9

[hunchentoot-devel] New release 0.15.6
by Edi Weitz 09 Apr '08

09 Apr '08

Version 0.15.6 2008-04-09 Fixed embarrassingly mis-placed parentheses (thanks to Hans Hübner)

1 0

[hunchentoot-devel] New release 0.15.5
by Edi Weitz 08 Apr '08

08 Apr '08

Version 0.15.5 2008-04-08 Removed FORCE-OUTPUT* and thus the ACL-COMPAT dependency (thanks to Hans Hübner) Support for MP-less CMUCL (thanks to Hans Hübner)

1 0

[hunchentoot-devel] using SESSION-VALUE without START-SESSION will never call HT::COUNT-SESSION-USAGE
by Lars Rune Nøstdal 07 Apr '08

07 Apr '08

hi, seems using HT:SESSION-VALUE without ever calling HT:START-SESSION never calls HT::COUNT-SESSION-USAGE CL-USER> (sb-introspect:who-calls 'ht::count-session-usage) ((HUNCHENTOOT:START-SESSION . #S(SB-INTROSPECT:DEFINITION-SOURCE :PATHNAME #P"/home/lars/programming/lisp/hunchentoot/session.lisp" :FORM-PATH (12 4) :CHARACTER-OFFSET 7759 :FILE-WRITE-DATE 3415636264 :PLIST NIL :DESCRIPTION NIL))) CL-USER> (sb-introspect:who-calls 'ht:start-session) NIL so the only thing that calls HT::COUNT-SESSION-USAGE is HT:SESSION-START, and nothing calls HT:SESSION-START .. (hope i got this right; i'm tired) from the documentation (which is great btw.) I assumed "(counting only requests which use sessions)" included cases where I used SESSION-VALUE since, well, i "use" sessions then ... :) http://www.weitz.de/hunchentoot/#*session-gc-frequency* -- Lars Rune Nøstdal http://nostdal.org/

2 3

[hunchentoot-devel] Problems with SBCL on MacOS
by Jens Teich 24 Mar '08

24 Mar '08

MacOS X 10.5.2 Aquamacs (latest) with GNU Emacs 22.1.91.2 SBCL 1.0.12 When loading :hunchentoot-test, the following happens. I'm puzzled because ASDF says compile failed, but a fasl file is written. When I start the webserver with this fasl-file, strange things happen. The test-site works after (start.server :port 4242), but the REPL prompt doesn't appear again. Looks like an infinite loop. Jens CL-USER> (asdf :hunchentoot-test) ; compiling file "/Users/jensteich/Lisp/hunchentoot-0.15.3/port- sbcl.lisp" (written 13 FEB 2008 05:02:18 PM): ; compiling (IN-PACKAGE :HUNCHENTOOT) ; compiling (WARN "Without thread support, this library is only useful for development.") ; ; caught WARNING: ; Without thread support, this library is only useful for development. ; compiling (DEFMACRO DEFCONSTANT ...) ; compiling (DEFUN MAKE-LOCK ...) ; compiling (DEFMACRO WITH-LOCK ...) ; compiling (DEFVAR *INCF-MUTEX* ...) ; compiling (DEFMACRO ATOMIC-INCF ...) ; compiling (DEFUN ENSURED-SLEEP-MILLIS ...) ; ; caught STYLE-WARNING: ; redefining ENSURED-SLEEP-MILLIS in DEFUN ; compiling (COMMON-LISP:HANDLER-CASE (SB-EXT:WITH-TIMEOUT 1.e-7 ...) ...); in: LAMBDA NIL ; (SB-KERNEL:FLOAT-WAIT) ; ; note: deleting unreachable code ; (HUNCHENTOOT::ENSURED-SLEEP-MILLIS 5) ; ; note: deleting unreachable code ; file: /Users/jensteich/Lisp/hunchentoot-0.15.3/port-sbcl.lisp ; in: EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) ; (HUNCHENTOOT::ENSURED-SLEEP-MILLIS 5) ; ; note: deleting unreachable code ; compiling (DEFMACRO WITH-TIMEOUT ...) ; compiling (DEFUN PROCESS-RUN-FUNCTION ...) ; compiling (DEFUN PROCESS-KILL ...) ; compiling (DEFINE-SYMBOL-MACRO *CURRENT-PROCESS* ...) ; compiling (DEFUN PROCESS-ALLOW-SCHEDULING ...) ; compiling (DEFUN RESOLVE-HOSTNAME ...) ; compiling (DEFUN START-UP-SERVER ...) ; compiling (DEFUN FORMAT-ADDRESS ...) ; compiling (DEFUN MAKE-SOCKET-STREAM ...) ; compiling (WHEN (FIND-SYMBOL "*DEBUG-PRINT-VARIABLE-ALIST*" ...) ...) ; compiling (DEFUN GET-BACKTRACE ...) ; /Users/jensteich/Lisp/hunchentoot-0.15.3/port-sbcl.fasl written ; compilation finished in 0:00:00 WARNING: COMPILE-FILE warned while performing #<COMPILE-OP NIL {13F28EE1}> on #<CL-SOURCE-FILE "port-sbcl" {12106F59}>. erred while invoking #<COMPILE-OP NIL {13F28EE1}> on #<CL-SOURCE-FILE "port-sbcl" {12106F59}> [Condition of type ASDF:COMPILE-FAILED] Restarts: 0: [RETRY] Retry performing #<ASDF:COMPILE-OP NIL {13F28EE1}> on #<ASDF:CL-SOURCE-FILE "port-sbcl" {12106F59}>. 1: [ACCEPT] Continue, treating #<ASDF:COMPILE-OP NIL {13F28EE1}> on #<ASDF:CL-SOURCE-FILE "port-sbcl" {12106F59}> as having been successful. 2: [ABORT-REQUEST] Abort handling SLIME request. 3: [ABORT] Exit debugger, returning to top level. Backtrace: 0: ((SB-PCL::FAST-METHOD ASDF:PERFORM (ASDF:COMPILE-OP ASDF:CL- SOURCE-FILE)) #<unavailable argument> #<unavailable argument> #<ASDF:COMPILE-OP NIL {13F28EE1}> #<ASDF:CL-SOURCE-FILE "port- sbcl" {12106F59}>) Locals: SB-DEBUG::ARG-0 = :<NOT-AVAILABLE> SB-DEBUG::ARG-1 = :<NOT-AVAILABLE> SB-DEBUG::ARG-2 = #<ASDF:COMPILE-OP NIL {13F28EE1}> SB-DEBUG::ARG-3 = #<ASDF:CL-SOURCE-FILE "port-sbcl" {12106F59}> 1: ((LAMBDA (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0. SB-PCL::.ARG1.)) #<unavailable argument> #<unavailable argument> #<ASDF:COMPILE-OP NIL {13F28EE1}> #<ASDF:CL-SOURCE-FILE "port- sbcl" {12106F59}>) Locals: SB-DEBUG::ARG-0 = :<NOT-AVAILABLE> SB-DEBUG::ARG-1 = :<NOT-AVAILABLE> SB-DEBUG::ARG-2 = #<ASDF:COMPILE-OP NIL {13F28EE1}> SB-DEBUG::ARG-3 = #<ASDF:CL-SOURCE-FILE "port-sbcl" {12106F59}> 2: ((LAMBDA NIL)) Locals: 3: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK)) Locals: 4: (SB-C::%WITH-COMPILATION-UNIT #<CLOSURE (LAMBDA NIL) {1175099D}>) Locals: SB-DEBUG::ARG-0 = 1 SB-DEBUG::ARG-1 = #<CLOSURE (LAMBDA NIL) {1175099D}> 5: (ASDF:OPERATE ASDF:LOAD-OP :HUNCHENTOOT-TEST) Locals: SB-DEBUG::ARG-0 = 2 SB-DEBUG::ARG-1 = ASDF:LOAD-OP SB-DEBUG::ARG-2 = :HUNCHENTOOT-TEST 6: (SB-INT:SIMPLE-EVAL-IN-LEXENV (ASDF :HUNCHENTOOT-TEST) #<NULL- LEXENV>) Locals: SB-DEBUG::ARG-0 = (ASDF :HUNCHENTOOT-TEST) SB-DEBUG::ARG-1 = #<NULL-LEXENV> 7: (SWANK::EVAL-REGION "(asdf :hunchentoot-test) " T) Locals: SWANK::PACKAGE-UPDATE-P = T STRING = "(asdf :hunchentoot-test) " 8: ((LAMBDA NIL)) Locals: 9: ((SB-PCL::FAST-METHOD SWANK-BACKEND:CALL-WITH-SYNTAX-HOOKS (T)) #<unused argument> #<unused argument> #<CLOSURE (LAMBDA NIL) {13F10B5D}>) Locals: SWANK-BACKEND::FN = #<CLOSURE (LAMBDA NIL) {13F10B5D}> 10: (SWANK::CALL-WITH-BUFFER-SYNTAX #<CLOSURE (LAMBDA NIL) {13F10B5D}>) Locals: SB-DEBUG::ARG-0 = #<CLOSURE (LAMBDA NIL) {13F10B5D}> 11: (SB-INT:SIMPLE-EVAL-IN-LEXENV (SWANK:LISTENER-EVAL "(asdf :hunchentoot-test) ") #<NULL-LEXENV>) Locals: SB-DEBUG::ARG-0 = (SWANK:LISTENER-EVAL "(asdf :hunchentoot- test) ") SB-DEBUG::ARG-1 = #<NULL-LEXENV> 12: ((LAMBDA NIL)) Locals: 13: ((SB-PCL::FAST-METHOD SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK (T T)) #<unused argument> #<unused argument> #<FUNCTION SWANK:SWANK- DEBUGGER-HOOK> #<CLOSURE (LAMBDA NIL) {13F1004D}>) Locals: SWANK-BACKEND::FUN = #<CLOSURE (LAMBDA NIL) {13F1004D}> SWANK-BACKEND::HOOK = #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> 14: ((LAMBDA NIL)) Locals: 15: ((SB-PCL::FAST-METHOD SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK (T T)) #<unused argument> #<unused argument> #<FUNCTION SWANK:SWANK- DEBUGGER-HOOK> #<FUNCTION (LAMBDA NIL) {11A2F69D}>) Locals: SWANK-BACKEND::FUN = #<FUNCTION (LAMBDA NIL) {11A2F69D}> SWANK-BACKEND::HOOK = #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> 16: (SWANK::CALL-WITH-REDIRECTED-IO #<SWANK::CONNECTION {11EDB211}> #<CLOSURE (LAMBDA NIL) {13F0DC7D}>) Locals: SB-DEBUG::ARG-0 = #<SWANK::CONNECTION {11EDB211}> SB-DEBUG::ARG-1 = #<CLOSURE (LAMBDA NIL) {13F0DC7D}> 17: (SWANK::CALL-WITH-CONNECTION #<SWANK::CONNECTION {11EDB211}> #<FUNCTION (LAMBDA NIL) {11A2F69D}>) Locals: SB-DEBUG::ARG-0 = #<SWANK::CONNECTION {11EDB211}> SB-DEBUG::ARG-1 = #<FUNCTION (LAMBDA NIL) {11A2F69D}> 18: (SWANK::HANDLE-REQUEST #<SWANK::CONNECTION {11EDB211}>) Locals: SB-DEBUG::ARG-0 = #<SWANK::CONNECTION {11EDB211}> 19: (SWANK::PROCESS-AVAILABLE-INPUT #<SB-SYS:FD-STREAM for "a socket" {11ED0B81}> #<CLOSURE (LAMBDA NIL) {13F0DC3D}>) Locals: SB-DEBUG::ARG-0 = #<SB-SYS:FD-STREAM for "a socket" {11ED0B81}> SB-DEBUG::ARG-1 = #<CLOSURE (LAMBDA NIL) {13F0DC3D}> 20: ((FLET SWANK::HANDLER)) Locals: 21: ((LAMBDA (SWANK-BACKEND::_)) #<unused argument>) Locals: SWANK-BACKEND::FN = #<CLOSURE (FLET SWANK::HANDLER) {1205871D}> 22: (SB-IMPL::SUB-SERVE-EVENT NIL NIL NIL) Locals: SB-DEBUG::ARG-0 = NIL SB-DEBUG::ARG-1 = NIL SB-DEBUG::ARG-2 = NIL 23: (SB-SYS:WAIT-UNTIL-FD-USABLE 0 :INPUT NIL) Locals: SB-IMPL::DIRECTION = :INPUT SB-IMPL::FD = 0 TIMEOUT = NIL 24: (SB-IMPL::REFILL-INPUT-BUFFER #<SB-SYS:FD-STREAM for "standard input" {122792D1}>) Locals: SB-DEBUG::ARG-0 = #<SB-SYS:FD-STREAM for "standard input" {122792D1}> 25: (SB-IMPL::INPUT-CHAR/UTF-8 #<SB-SYS:FD-STREAM for "standard input" {122792D1}> NIL #:EOF-OBJECT) Locals: SB-DEBUG::ARG-0 = #<SB-SYS:FD-STREAM for "standard input" {122792D1}> SB-DEBUG::ARG-1 = NIL SB-DEBUG::ARG-2 = #:EOF-OBJECT Catch-tags: SB-IMPL::EOF-INPUT-CATCHER 26: (READ-CHAR #<SB-SYS:FD-STREAM for "standard input" {122792D1}> NIL #:EOF-OBJECT #<unused argument>) Locals: SB-IMPL::EOF-ERROR-P = NIL SB-IMPL::EOF-VALUE = #:EOF-OBJECT STREAM = #<SB-SYS:FD-STREAM for "standard input" {122792D1}> 27: (READ-CHAR #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDIN* {100BCC61}> NIL #:EOF-OBJECT #<unused argument>) Locals: SB-IMPL::EOF-ERROR-P = NIL SB-IMPL::EOF-VALUE = #:EOF-OBJECT STREAM = #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDIN* {100BCC61}> 28: (READ-CHAR #<SYNONYM-STREAM :SYMBOL SWANK::*CURRENT-STANDARD- INPUT* {11A5D7E1}> NIL #:EOF-OBJECT #<unused argument>) Locals: SB-IMPL::EOF-ERROR-P = NIL SB-IMPL::EOF-VALUE = #:EOF-OBJECT STREAM = #<SYNONYM-STREAM :SYMBOL SWANK::*CURRENT-STANDARD- INPUT* {11A5D7E1}> 29: (READ-PRESERVING-WHITESPACE #<SYNONYM-STREAM :SYMBOL SWANK::*CURRENT-STANDARD-INPUT* {11A5D7E1}> NIL (NIL) T) Locals: SB-IMPL::EOF-ERROR-P = NIL SB-IMPL::EOF-VALUE = (NIL) SB-IMPL::RECURSIVEP = T STREAM = #<SYNONYM-STREAM :SYMBOL SWANK::*CURRENT-STANDARD- INPUT* {11A5D7E1}> 30: (READ-PRESERVING-WHITESPACE #<SYNONYM-STREAM :SYMBOL SWANK::*CURRENT-STANDARD-INPUT* {11A5D7E1}> NIL (NIL) NIL) Locals: SB-IMPL::EOF-ERROR-P = NIL SB-IMPL::EOF-VALUE = (NIL) SB-IMPL::RECURSIVEP = NIL STREAM = #<SYNONYM-STREAM :SYMBOL SWANK::*CURRENT-STANDARD- INPUT* {11A5D7E1}> 31: (READ #<SYNONYM-STREAM :SYMBOL SWANK::*CURRENT-STANDARD-INPUT* {11A5D7E1}> NIL (NIL) NIL) Locals: SB-IMPL::EOF-ERROR-P = NIL SB-IMPL::EOF-VALUE = (NIL) SB-IMPL::RECURSIVEP = NIL STREAM = #<SYNONYM-STREAM :SYMBOL SWANK::*CURRENT-STANDARD- INPUT* {11A5D7E1}> 32: (SB-IMPL::REPL-READ-FORM-FUN #<SYNONYM-STREAM :SYMBOL SWANK::*CURRENT-STANDARD-INPUT* {11A5D7E1}> #<unavailable argument>) Locals: SB-DEBUG::ARG-0 = #<SYNONYM-STREAM :SYMBOL SWANK::*CURRENT- STANDARD-INPUT* {11A5D7E1}> SB-DEBUG::ARG-1 = :<NOT-AVAILABLE> 33: (SB-IMPL::REPL-FUN NIL) Locals: SB-DEBUG::ARG-0 = NIL 34: (SB-IMPL::REPL-FUN NIL) Locals: SB-DEBUG::ARG-0 = 1 SB-DEBUG::ARG-1 = NIL 35: ((LAMBDA NIL)) Locals: Catch-tags: SB-INT:TOPLEVEL-CATCHER 36: ((LAMBDA NIL)) Locals: SB-DEBUG::ARG-0 = 0 37: (SB-IMPL::%WITH-REBOUND-IO-SYNTAX #<CLOSURE (LAMBDA NIL) {11BF7F0D}>) Locals: SB-DEBUG::ARG-0 = #<CLOSURE (LAMBDA NIL) {11BF7F0D}> 38: (SB-IMPL::TOPLEVEL-REPL NIL) Locals: SB-DEBUG::ARG-0 = NIL 39: (SB-IMPL::TOPLEVEL-INIT) Locals: 40: ((LABELS SB-IMPL::RESTART-LISP)) Locals: Catch-tags: SB-IMPL::%END-OF-THE-WORLD

2 2

[hunchentoot-devel] unix setuid
by Dr. Helmut G. Enders 18 Mar '08

18 Mar '08

I'm using ht with debian sbcl / clc. Currently the s-bit is set to start sbcl as root, for using port 80. But when i set uid back to <user> I got problems with clc as the fasl files had a different (root) owner. Even a brute force chmod 0777 of the fasls has no success. The clc stops with "security... more than one user has write access". Now I start hunchentoot with 8080 and use iptables to map port 80 to 8080. How do you solve this problem. A nice thing would be to setuid to root, access the port 80 and setuid back, but here I failed :-(. Helmut PS: <off topic but perhaps useful> Currently sbcl is broken unter debian sid amd64, you have to downgrade the libc6 (libc6-i368 libc6-dev libc6-dev-i386) back to version 2.7-8 (snapshot.debian.org)

3 4

Re: [hunchentoot-devel] Yahoo using Hunchentoot?
by Jeffrey Cunningham 18 Mar '08

18 Mar '08

Rafał Strzaliński wrote: > On Mon, Mar 17, 2008 at 3:34 AM, Jeff Cunningham <jeffrey(a)cunningham.net> wrote: >> For a second there it had me wondering: >> >> http://jandmworks.com/download/screenshot.png >> >> I'll leave it to someone else to explain how the fact that I have a >> hunchentoot server running on my desktop on port 4000 can interact with >> my normal browsing activities. ;-) > > 127.0.0.1 ad.yahoo.com > > in your /etc/hosts ? > > Exactly. An amusing side effect.

1 0

[hunchentoot-devel] Yahoo using Hunchentoot?
by Jeff Cunningham 18 Mar '08

18 Mar '08

For a second there it had me wondering: http://jandmworks.com/download/screenshot.png I'll leave it to someone else to explain how the fact that I have a hunchentoot server running on my desktop on port 4000 can interact with my normal browsing activities. ;-) --Jeff

2 1

← Newer
1
...
39
40
41
42
43
44
45
...
87
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

tbnl-devel