forked from cadence/breezewiki
16 lines
367 B
Racket
16 lines
367 B
Racket
|
#lang racket/base
|
||
|
|
(require racket/dict
|
||
|
|
net/url
|
||
|
|
web-server/http
|
||
|
|
web-server/dispatchers/dispatch
|
||
|
|
"application-globals.rkt")
|
||
|
|
|
||
|
|
(provide
|
||
|
|
page-it-works)
|
||
|
|
|
||
|
|
(define (page-it-works req)
|
||
|
|
(define b? (dict-ref (url-query (request-uri req)) 'b #f))
|
||
|
|
(if b?
|
||
|
|
(generate-redirect "/stampylongnose/wiki/It_Works")
|
||
|
|
(next-dispatcher)))
|