;; -*- scheme -*-
;; website entry point

#lang scheme/base

;; reusable code is stored here
(require "../lib/sweb.ss"
         "../lib/facade.ss"
         (lib "match.ss")
         ;; (lib "pregexp.ss")
         )

;; plt servlet interface
(provide interface-version timeout start)
(define interface-version 'v1)
(define timeout +inf.0)

(define *db* #f)
(set! *db*
      '(("brood.pdf" . "http://zwizwa.be/darcs/brood/tex/brood.tex")))

(define (db filename)
  (let ((rec (assoc filename *db*)))
    (if rec
        (redirect-to (cdr rec))
        (not-found))))


(define (start req)
  (match (req->strings req)
         (("servlets" "last" file)
          (db file))
         (else
          (not-found))))