+ 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:
interp 2002-10-22 16:05:18 +00:00
parent 03da4f6e05
commit 588dc93ddf
1 changed files with 5 additions and 2 deletions

View File

@ -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!)