scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

+ 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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
scheme/httpd/surflets/web-server/root/surflets/admin-profiling.scm
View File

@ -113,7 +113,9 @@
(define (result req) (define (result req)
(let ((results (profile-results (state-file-name))) (let ((results (profile-results (state-file-name)))
(gnuplot-data-file-name (create-temp-file "servlet-profiling.data")) (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) (get-total-bytes (lambda (space-info)
(total-bytes (space-info-total space-info)))) (total-bytes (space-info-total space-info))))
(return-address (make-address)) (return-address (make-address))
@ -125,6 +127,7 @@
(run (,gnuplot -) (run (,gnuplot -)
(<< ,(format #f "set terminal pbm color (<< ,(format #f "set terminal pbm color
set output '~a' set output '~a'
set size 0.7,0.7
plot '~a' title 'Servlet Profiling ~a' with lines" plot '~a' title 'Servlet Profiling ~a' with lines"
picture-file picture-file
gnuplot-data-file-name gnuplot-data-file-name
@ -171,7 +174,7 @@ plot '~a' title 'Servlet Profiling ~a' with lines"
(hr) (hr)
(p (URL ,(return-address new-url) "Return to previous page") (br) (p (URL ,(return-address new-url) "Return to previous page") (br)
(URL ,(reset-return-address new-url) (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) (define (reset req)
(reset-profiling-state!) (reset-profiling-state!)