breezewiki/src/page-it-works.rkt

16 lines
367 B
Racket
Raw Normal View History

#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)))