33 lines
1.2 KiB
Scheme
33 lines
1.2 KiB
Scheme
(module releaseinfo mzscheme
|
|
(require "private/util.ss"
|
|
"private/headelts.ss"
|
|
(lib "servlet.ss" "web-server"))
|
|
|
|
(define (link-stuff url txt)
|
|
`(li (b (a ([href ,url]) ,txt))))
|
|
|
|
(provide interface-version timeout start)
|
|
(define interface-version 'v1)
|
|
(define timeout +inf.0)
|
|
(define (start initial-request)
|
|
(report-errors-to-browser send/finish)
|
|
`(html
|
|
(head ,hd-css ,@hd-links (title "Release Information"))
|
|
(body
|
|
(h1 "Release Information")
|
|
(p)
|
|
(i "Version: " ,(plt-version))
|
|
(p)
|
|
(ul ,(link-stuff "/servlets/release/license.ss" "License")
|
|
,(link-stuff "/servlets/release/notes.ss" "Release Notes")
|
|
,(link-stuff "/servlets/release/bugs.ss" "Known Bugs")
|
|
(li (a ([mzscheme "((dynamic-require '(lib |bug-report.ss| |help|) 'help-desk:report-bug))"])
|
|
(b "Submit a bug report")))
|
|
,(link-stuff "/servlets/release/patches.ss" "Downloadable Patches"))
|
|
(p)
|
|
"The PLT software is installed on this machine at" (br)
|
|
(pre nbsp nbsp
|
|
,(let-values ([(base file dir?)
|
|
(split-path (collection-path "mzlib"))])
|
|
(path->string base)))))))
|