/[lisppaste]/lisppaste2/redirect-handler.lisp
ViewVC logotype

Contents of /lisppaste2/redirect-handler.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (show annotations)
Sat Oct 16 21:55:12 2004 UTC (9 years, 6 months ago) by bmastenbrook
Branch: MAIN
CVS Tags: HEAD
Add this file
1 (in-package :lisppaste)
2
3 (defclass redirector-handler (araneida:handler) ())
4
5 (defmethod araneida:handle-request-response ((handler redirector-handler) method request)
6 (araneida:request-redirect request
7 (araneida:merge-url *paste-external-url*
8 (araneida:request-unhandled-part request))))
9
10 (araneida:install-handler
11 (araneida:http-listener-handler *paste-listener*)
12 (make-instance 'redirector-handler)
13 (araneida:urlstring *old-url*) nil)

  ViewVC Help
Powered by ViewVC 1.1.5