+ PMB is an uncompressed format---use smaller size.
+ Put the image in the image directory (we know, where we are...). Unfortunately, the server does not report the image type well, so the picture is usually not displayed by the browser (or the format is not understood). Anyway, it may be downloaded.
This commit is contained in:
parent
03da4f6e05
commit
588dc93ddf
|
@ -113,7 +113,9 @@
|
|||
(define (result req)
|
||||
(let ((results (profile-results (state-file-name)))
|
||||
(gnuplot-data-file-name (create-temp-file "servlet-profiling.data"))
|
||||
(picture-file (create-temp-file "servlet-profiling.picture"))
|
||||
(picture-file (string-append (create-temp-file
|
||||
"../img/servlet-profiling.picture")
|
||||
".pbm"))
|
||||
(get-total-bytes (lambda (space-info)
|
||||
(total-bytes (space-info-total space-info))))
|
||||
(return-address (make-address))
|
||||
|
@ -125,6 +127,7 @@
|
|||
(run (,gnuplot -)
|
||||
(<< ,(format #f "set terminal pbm color
|
||||
set output '~a'
|
||||
set size 0.7,0.7
|
||||
plot '~a' title 'Servlet Profiling ~a' with lines"
|
||||
picture-file
|
||||
gnuplot-data-file-name
|
||||
|
@ -171,7 +174,7 @@ plot '~a' title 'Servlet Profiling ~a' with lines"
|
|||
(hr)
|
||||
(p (URL ,(return-address new-url) "Return to previous page") (br)
|
||||
(URL ,(reset-return-address new-url)
|
||||
"Delete files, reset state and return to main page.")))))))
|
||||
"Delete files, reset state and return to main menu.")))))))
|
||||
|
||||
(define (reset req)
|
||||
(reset-profiling-state!)
|
||||
|
|
Loading…
Reference in New Issue