Thanks a lot, David and Jay, for your detailed replies!
I chose David's solution for simplicity. Problem solved. :-)
Best,
Erich
On Mon, 30 Sep 2013 21:28:17 -0400
David Vanderson <david.vander...@gmail.com> wrote:
> Erich,
>
> In addition to Jay's options, I think one way to do what you want is
> to remove the "else" clause from dispatch-rules and instead pass your
> "respond-unknown" function to the serve/servlet
> #:file-not-found-responder keyword:
>
> #lang racket
> (require web-server/servlet-env
> web-server/servlet)
>
> (define (lottery-app req)
> (response/xexpr '(html
> (head (title "Lottery App"))
> (body
> (img ([src "images/Sloth.png"]))
> (h1 "Under construction")))))
>
> (define (respond-unknown req)
> (response/xexpr '(html
> (head (title "Unknown Response"))
> (body
> (img ([src "images/Sloth.png"]))
> (h1 "Unknown Response")))))
>
> (define-values (dispatch input-url)
> (dispatch-rules
> (("lottery") lottery-app)))
>
> (serve/servlet dispatch ; answers requests
> #:servlet-path "/lottery" ; is the default URL
> #:extra-files-paths (list (build-path
> (current-directory) "htdocs"))
> #:port 8080 ; is the port
> #:servlet-regexp #rx""
> #:file-not-found-responder respond-unknown)
>
>
> Does this make sense?
>
> Thanks,
> Dave
>
>
> On 09/29/2013 03:50 PM, Erich Rast wrote:
> > Thanks a lot! That's what I was suspecting already.
> >
> > But I still wonder how to do achieve what I want. how do I make
> > "http://my-server.com/lottery"; respond to my lottery servlet, but
> > every other request to respond with respond-unknown *and also* show
> > an image file within respond-unknown? Is there no way to load a
> > static file (e.g. by relative path) within such a "catch all"
> > handler?
> >
> > I'm using a dispatcher because I want to later add lots of
> > experimental servlets, all of which should have easy urls
> > (my-server/lottery, my-server/test, etc.). Everything else should
> > be handled by respond-unknown. Do I have to use a static web page
> > instead of respond-unknown?
> >
> > Best,
> >
> > Erich
> >
> > On Sat, 28 Sep 2013 21:57:21 -0600
> > Jay McCarthy <jay.mccar...@gmail.com> wrote:
> >
> >> Hi Erich,
> >>
> >> You have programmed your servlet to respond to all requests,
> >> including requests to URLs like
> >> "http://your-server.com/images/Sloth.png";. If you go to that URL,
> >> you'll see that it shows you the result of respond-unknown.
> >>
> >> On Sat, Sep 28, 2013 at 4:05 PM, Erich Rast <er...@snafu.de> wrote:
> >>> This is driving me nuts, I just cannot find the place where my
> >>> servlet gets static files from. I run the following "server.scm"
> >>> in a directory in which there is also "htdocs/images/Sloth.png"
> >>> but no matter what combination of img src file paths and
> >>> extra-file-paths I try, respond-unknown does not want to display
> >>> the Sloth.png when I click run:
> >>>
> >>> #lang racket
> >>> (require web-server/web-server
> >>> web-server/dispatch
> >>> web-server/servlet-env
> >>> web-server/servlet)
> >>> (require "lottery/darkstar-lottery.scm")
> >>>
> >>> (define (respond-unknown req)
> >>> (response/xexpr '(html
> >>> (head (title "The 3-Toed Sloth"))
> >>> (body
> >>> (img ([src "images/Sloth.png"]))
> >>> (h1 "Under construction")))))
> >>>
> >>> (define-values (dispatch input-url)
> >>> (dispatch-rules
> >>> (("lottery") lottery-app)
> >>> (else respond-unknown)))
> >> You did it right here when you said that if you go to anything
> >> other than "/lottery" then you should run 'respond-unknown'
> >>
> >> If you look at section 5.1 of the documentation (the first section
> >> on dispatch-rules) that has this paragraph:
> >>
> >> "When you use web-server/dispatch with serve/servlet, you almost
> >> always want to use the #:servlet-regexp argument with the value ""
> >> to capture all top-level requests. However, make sure you don’t
> >> include an else in your rules if you are also serving static
> >> files, or else the filesystem server will never see the requests."
> >>
> >> The problem mentioned is exactly what you did.
> >>
> >> Jay
> >>
> >>> (serve/servlet dispatch ; answers requests
> >>> #:servlet-path "" ; is the default URL
> >>> #:extra-files-paths (list (build-path
> >>> (current-directory) "htdocs"))
> >>> #:port 8080 ; is the port
> >>> #:servlet-regexp #rx"")
> >>>
> >>> How do I make the servlet serve the file "htdocs/images/Sloth.png"
> >>> relative to the servlet source directory and how do I address it
> >>> in the "img" tag? I tried absolute paths, too, but no luck.
> >>>
> >>> Best,
> >>>
> >>> Erich
> >>>
> >>> P.S. For completeness, the content of
> >>> lottery/darkstar-lottery.scm:
> >>>
> >>> #lang racket
> >>> (require web-server/servlet
> >>> web-server/servlet-env)
> >>> (provide lottery-app)
> >>>
> >>> (define (draw n total)
> >>> (sort
> >>> (take
> >>> (shuffle (for/list ((i (in-range total)))
> >>> (add1 i)))
> >>> n)
> >>> <))
> >>>
> >>> (define (stringify numbers)
> >>> (string-append
> >>> (apply string-append
> >>> (for/list ([n (in-list (reverse (cdr (reverse
> >>> numbers))))]) (format "~a, " n)))
> >>> (format "~a" (car (reverse numbers)))))
> >>>
> >>> (define (euromillions)
> >>> (define (draw-5-of-50)
> >>> (draw 5 50))
> >>> (define (draw-2-of-11)
> >>> (draw 2 11))
> >>> (format "The next lottery result is ~a with additional numbers
> >>> ~a." (stringify (draw-5-of-50))
> >>> (stringify (draw-2-of-11))))
> >>>
> >>> (define (lottery-app req)
> >>> (response/xexpr
> >>> `(html (head (title "Euromillions"))
> >>> (body (p ,(euromillions))))))
> >>>
> >>> ;(serve/servlet lottery-app
> >>> ; #:servlet-path "/lottery"
> >>> ; #:port 8080
> >>> ; #:command-line #t)
> >>> ____________________
> >>> Racket Users list:
> >>> http://lists.racket-lang.org/users
> >>
> >>
> >
> > ____________________
> > Racket Users list:
> > http://lists.racket-lang.org/users
>
____________________
Racket Users list:
http://lists.racket-lang.org/users
![http://your-server.com/images/Sloth.png"](http://your-server.com/images/Sloth.png"){kind=link}