suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

remove quoted-printable experiment in bug-report submission

Browse Source 
svn: r6677
This commit is contained in:
Matthew Flatt 2007-06-16 22:07:56 +00:00
parent 70b48d535f
commit ff1b9feb86
1 changed files with 10 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
collects/help/bug-report.ss
View File

@ -11,7 +11,6 @@
(lib "uri-codec.ss" "net") (lib "uri-codec.ss" "net")
(lib "htmltext.ss" "browser") (lib "htmltext.ss" "browser")
(lib "dirs.ss" "setup") (lib "dirs.ss" "setup")
(lib "qp.ss" "net")
"private/buginfo.ss" "private/buginfo.ss"
"private/manuals.ss") "private/manuals.ss")
@ -341,19 +340,17 @@
(define (get-query) (define (get-query)
(list (cons 'help-desk "true") (list (cons 'help-desk "true")
(cons 'replyto (preferences:get 'drscheme:email)) (cons 'replyto (preferences:get 'drscheme:email))
(cons 'originator (qp-encode-string (preferences:get 'drscheme:full-name))) (cons 'originator (preferences:get 'drscheme:full-name))
(cons 'subject (qp-encode-string (send summary get-value))) (cons 'subject (send summary get-value))
(cons 'severity (qp-encode-string (send severity get-string-selection))) (cons 'severity (send severity get-string-selection))
(cons 'class (translate-class (send bug-class get-string-selection))) (cons 'class (translate-class (send bug-class get-string-selection)))
(cons 'release (qp-encode-string (send version get-value))) (cons 'release (send version get-value))
(cons 'description (qp-encode-string (cons 'description (apply string-append (map (lambda (x) (string-append x "\n"))
(apply string-append (map (lambda (x) (string-append x "\n")) (get-strings description))))
(get-strings description))))) (cons 'how-to-repeat (apply string-append
(cons 'how-to-repeat (qp-encode-string (map (lambda (x) (string-append x "\n"))
(apply string-append (get-strings reproduce))))
(map (lambda (x) (string-append x "\n")) (cons 'platform (get-environment))))
(get-strings reproduce)))))
(cons 'platform (qp-encode-string (get-environment)))))
(define (get-environment) (define (get-environment)
(string-append (send environment get-value) (string-append (send environment get-value)
@ -425,13 +422,6 @@
(send response-abort enable #t) (send response-abort enable #t)
(switch-to-response-view))) (switch-to-response-view)))
;; qp-encode : string -> string
;; 'pre' escapes bytes that would be turned into non 7-bit values by utf8 encoding
;; so that later utf-8 encoding will just leave them alone .... (ugh)
(define (qp-encode-string str)
(bytes->string/utf-8 (qp-encode (string->bytes/utf-8 str))))
(define (get-strings canvas) (define (get-strings canvas)
(let ([t (send canvas get-editor)]) (let ([t (send canvas get-editor)])
(let loop ([n 0]) (let loop ([n 0])