a14569bfe3
* Add a reference from the community page to the bug reports page. * Make it possible to subscribe to lists right from the community page. Improve the email input boxes with placeholder text and a short explanation on hovering.
266 lines
11 KiB
Racket
266 lines
11 KiB
Racket
#lang meta/web
|
|
|
|
(define-context "bugs")
|
|
|
|
(define planet-bugs "http://planet.racket-lang.org/trac/newticket")
|
|
|
|
;; a starred option is the default
|
|
(define platform-options
|
|
'([* "...or choose" ""]
|
|
["Windows 7/Vista, 32-bit" windows-7-32]
|
|
["Windows 7/Vista, 64-bit" windows-7-64]
|
|
["Windows Vista" windows-vista]
|
|
["Windows XP" windows-xp]
|
|
["Windows 2000" windows-2000]
|
|
["Windows NT" windows-nt]
|
|
["Windows 95/98/Me" windows-9x]
|
|
["Mac OS X PowerPC (MacOS X)" mac-ppc-osx]
|
|
["Mac OS X Intel (MacOS X)" mac-i386-osx]
|
|
["Linux, Fedora/RedHat based" linux-fedora]
|
|
["Linux, Ubuntu/Debian based" linux-ubuntu]
|
|
["Linux, other distro" linux-other]
|
|
["Sun Solaris" solaris]
|
|
;; ["Sun Solaris 8" solaris-8]
|
|
;; ["Sun Solaris, other version" solaris-other]
|
|
["Other Unix" unix-other]
|
|
;; ["Macintosh PowerPC (MacOS Classic)" mac-ppc-macos]
|
|
;; ["Macintosh 68K" mac-68k]
|
|
;; ["BeOS" beos]
|
|
;; ["MzScheme kernel" mzkernel]
|
|
))
|
|
(define severity-options
|
|
'([ "Critical" critical]
|
|
[* "Serious" serious]
|
|
[ "Non-critical" non-critical]))
|
|
(define bug-class-options
|
|
'([* "Software Bug" sw-bug]
|
|
[ "Documentation Bug" doc-bug]
|
|
[ "Change Request" change-request]
|
|
[ "Support" support]))
|
|
|
|
(require (only-in "../www/download.rkt" download))
|
|
|
|
(define (cgi-link from . to)
|
|
(apply symlink (format "/www/cgi-bin/~a" from) to))
|
|
(define bug-report-cgi (cgi-link "bug-report" "bug-report.cgi"))
|
|
(define bug-report-captcha (cgi-link "bug-report-captcha"))
|
|
|
|
(provide captcha-file+num captcha-text)
|
|
(define captcha-file+num (make-parameter #f))
|
|
(define captcha-text (make-parameter #f))
|
|
(define captcha-text-file
|
|
@plain[#:file "captcha-text" #:newline #f (or (captcha-text) "")])
|
|
|
|
(define query (cgi-link "gnatsweb" "query"))
|
|
|
|
(define (bugs-script)
|
|
@script/inline{
|
|
var bugform = null;
|
|
var browser_platform = "";
|
|
var params = new Array();
|
|
var cookies = new Array();
|
|
@||
|
|
function initBugData() {
|
|
bugform = document.getElementById("BugForm");
|
|
if (navigator.platform && navigator.platform != "")
|
|
browser_platform = navigator.platform;
|
|
if (navigator.cpuClass && navigator.cpuClass != "")
|
|
browser_platform += " / " + navigator.cpuClass;
|
|
if (navigator.userAgent && navigator.userAgent != "")
|
|
browser_platform += " / " + navigator.userAgent;
|
|
if (location.search.length > 0) {
|
|
var paramstrs = location.search.substring(1).split(@"/[;&]/");
|
|
for (var i in paramstrs) {
|
|
var param = paramstrs[i].split(/=/);
|
|
if (param.length == 2)
|
|
params[param[0]] = unescape(param[1]).replace(/\+/g," ");
|
|
}
|
|
}
|
|
if (document.cookie.length > 0) {
|
|
var cookiestrs = document.cookie.split(@"/; */");
|
|
for (var i in cookiestrs) {
|
|
var eql = cookiestrs[i].indexOf('=');
|
|
if (eql >= 0)
|
|
cookies[cookiestrs[i].substring(0,eql)] =
|
|
unescape(cookiestrs[i].substring(eql+1));
|
|
}
|
|
}
|
|
if (params["v"]) bugform.version.value = params["v"];
|
|
DoUserFields(RestoreUserField);
|
|
if (bugform.platform.value == "") {
|
|
if (bugform.platform_options.selectedIndex == 0) UpdatePlatformUser();
|
|
else UpdatePlatformOptions();
|
|
}
|
|
if (bugform.email.value == "") bugform.email.focus();
|
|
else if (bugform.name.value == "") bugform.name.focus();
|
|
else bugform.subject.focus();
|
|
}
|
|
@||
|
|
function SaveUserField(field, name) {
|
|
if (field.value != "") {
|
|
var d = new Date();
|
|
d.setTime(d.getTime()+(365*24*60*60*1000));
|
|
document.cookie = name + "=" + escape(field.value)
|
|
+ "; expires="+ d.toGMTString()
|
|
+ "; path=/";
|
|
}
|
|
}
|
|
function RestoreUserField(field, name) {
|
|
if (field.value == "" && cookies[name]) field.value = cookies[name];
|
|
}
|
|
function DoUserFields(op) {
|
|
op(bugform.email, "email");
|
|
op(bugform.name, "name");
|
|
op(bugform.version, "version");
|
|
op(bugform.platform, "platform");
|
|
op(bugform.platform_user, "platform_user");
|
|
op(bugform.platform_options, "platform_options");
|
|
}
|
|
@||
|
|
function CheckSubmit() {
|
|
DoUserFields(SaveUserField);
|
|
if (bugform.email.value == "") {
|
|
window.alert("Please enter an Email");
|
|
return false;
|
|
}
|
|
if (bugform.subject.value == "" && bugform.description.value == "") {
|
|
window.alert("Please enter a summary and/or a description"
|
|
+ " of your bug");
|
|
return false;
|
|
}
|
|
if (bugform.version.value == "") {
|
|
window.alert("Please enter your Racket version");
|
|
return false;
|
|
}
|
|
return true;
|
|
}
|
|
@||
|
|
var old_platform_user = null;
|
|
function UpdatePlatformUser() {
|
|
var newval = bugform.platform_user.value;
|
|
if (old_platform_user != newval) {
|
|
if (newval == "" && old_platform_user != browser_platform) {
|
|
newval = browser_platform;
|
|
bugform.platform_user.value = browser_platform;
|
|
bugform.platform_user.select();
|
|
}
|
|
bugform.platform.value = newval;
|
|
bugform.platform_options.selectedIndex = 0;
|
|
bugform.platform_user.focus();
|
|
old_platform_user = newval;
|
|
}
|
|
}
|
|
@||
|
|
function UpdatePlatformOptions() {
|
|
var d = new Date();
|
|
var opts = bugform.platform_options;
|
|
var newval = opts.options[opts.selectedIndex].value;
|
|
if (newval == "") {
|
|
bugform.platform.value = browser_platform;
|
|
bugform.platform_user.value = old_platform_user = browser_platform;
|
|
} else {
|
|
bugform.platform.value = newval;
|
|
bugform.platform_user.value = old_platform_user = "...or type";
|
|
}
|
|
bugform.platform_user.select();
|
|
opts.focus();
|
|
}})
|
|
|
|
(provide (rename-out [index bug-reports]))
|
|
(define index
|
|
@page[#:title "Bug Reports" #:extra-headers bugs-script
|
|
#:extra-body-attrs `(onLoad: "initBugData();")]{
|
|
@p[style: '("padding: 5px; color: #aa0000; background-color: #ffffee;"
|
|
" border: 1px solid; font-weight: bold;")]{
|
|
If you can, please use the “Submit Bug Report” item in DrRacket's Help
|
|
menu. It works better than this page, because it helps you supply
|
|
precise information about your Racket installation and working
|
|
environment.}
|
|
@p{@strong{Note:} Bug reports for PLaneT packages are submitted on the
|
|
@a[href: planet-bugs]{PLaneT server}.}
|
|
@p{Before submitting a bug report, you may wish to:
|
|
@ul{@li{Consult the @-docs,}
|
|
@li{@download a newer Racket version if there is one (Racket
|
|
displays its version number on startup),}
|
|
@li{@a[href: (list query "/")]{Query existing bug reports}.}}}
|
|
@(define (mk-options opts)
|
|
(for/list ([s (in-list opts)])
|
|
(if (eq? '* (car s))
|
|
@option[selected: 'true value: (caddr s)]{@(cadr s)}
|
|
@option[value: (cadr s)]{@(car s)})))
|
|
@(define (field name mode html-mode html-title . args)
|
|
(define title (and html-title (b html-title ":")))
|
|
(define html-input
|
|
(case mode
|
|
[(text)
|
|
(let ([args (if (memq value: args) args (list* value: "" args))])
|
|
(apply input type: 'text name: name args))]
|
|
[(textarea)
|
|
(apply textarea name: name style: "font-family: monospace;" args)]
|
|
[(options)
|
|
(if (null? args)
|
|
(error 'field "internal error (missing options)")
|
|
(apply select name: name
|
|
`(,@(cdr args) ,(mk-options (car args)))))]
|
|
[else (error 'field "internal error")]))
|
|
(case html-mode
|
|
[(line) (list (and title (list title " ")) html-input br)]
|
|
[(br) (list (and title (list title br)) html-input br br)]
|
|
[(tr) (tr (td title) (td html-input))]
|
|
[(as-is) (list (and title (list title " ")) html-input)]
|
|
[else (error 'field "internal error")]))
|
|
@form[action: bug-report-cgi method: 'post id: 'BugForm
|
|
;; enctype: "multipart/form-data"
|
|
style: '("border: 2px solid #4444ff; padding: 6px;"
|
|
" background-color: #eeeeff;")
|
|
onsubmit: "return CheckSubmit();"]{
|
|
@input[type: 'hidden name: 'cont value: thanks]
|
|
@field['name 'text 'br "Your name" size: 40]
|
|
@field['email 'text 'br "Your e-mail address" size: 40]
|
|
@field['subject 'text 'br "Summary of the problem" size: 60]
|
|
@table{
|
|
@field['version 'text 'tr "Version" size: 14]
|
|
@; Note: if this is ever used to produce something that
|
|
@; help/bug-report.rkt can parse, then the following three
|
|
@; fields are actually a single editable drop-down called
|
|
@; "platform".
|
|
@tr{@td{@b{Platform:}}
|
|
@td{@field['platform_user 'text 'as-is #f value: #f size: 30
|
|
onchange: "UpdatePlatformUser();"
|
|
onkeyup: "UpdatePlatformUser();"]@;
|
|
@|nbsp|@;
|
|
@field['platform_options 'options 'as-is #f platform-options
|
|
onchange: "UpdatePlatformOptions();"]@;
|
|
@input[type: 'hidden name: 'platform]}}
|
|
@field['severity 'options 'tr "Severity" severity-options]
|
|
@field['class 'options 'tr "Class" bug-class-options]}
|
|
@br
|
|
@field['description 'textarea 'br "Description of the problem"
|
|
rows: 12 cols: 70]
|
|
@field['how-to-repeat 'textarea 'br
|
|
'("If possible, please give a short sequence of steps to"
|
|
" reproduce the problem")
|
|
rows: 8 cols: 70]
|
|
@; An attachement requires a cgi script that can deal with input
|
|
@; that is in "multipart/form-data" format.
|
|
@; @field['file 'attachment 'line "Attachment" size: 20]
|
|
@(let* ([c (captcha-file+num)]
|
|
[n (and c (cdr c))]
|
|
[c (and c (img src: (cgi-link (car c)) align: "middle"))])
|
|
(and c @field['captcha 'text 'line
|
|
@list{Please type @c and then a “@tt{*@n}”}
|
|
size: 10]))
|
|
@input[type: 'submit value: "Submit"]}})
|
|
|
|
(define thanks
|
|
@page[#:title "Thanks!" #:extra-headers bugs-script #:referrer values]{
|
|
@p{@strong{Thanks!}}
|
|
@p{Your Racket bug report has been submitted.}
|
|
@p{You should receive an email confirming your report in a few minutes.
|
|
The confirmation will be sent to the email address you specified in
|
|
your report.}
|
|
@p{If you do not receive such confirmation, please report the problem to
|
|
@tt{@small{racket@"@"racket-lang.org}}
|
|
or to the Racket
|
|
@a[href: "http://lists.racket-lang.org/users/"]{mailing list}.}})
|