(module badpage mzscheme

  (provide (all-defined))

  (require (file "html.ss"))

  (define mk-bad-page
    (lambda (title msg)
      (apply-html-template
       `((TITLE ,title)
	 (META ((http-equiv "Content-Type")
		(content "text/html; charset=iso-8859-1")))
	 (META ((NAME "description")
		(CONTENT "WishForge: The Software Completion Bond Market"))))
       `((DIV
	  (P)
	  (H3 ,msg)
	  (P)
	  (H3 "Back to Wishforge " (A ((HREF "http:/wishforge.html")) "login page")))))))

  (define bad-session-page 
    (mk-bad-page "Expired Wishforge session" "Wishforge session timed out or forged credentials"))

  (define bad-login-page 
    (mk-bad-page "Bad Wishforge session" "No login for Wishforge session"))
)