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

remove debug output

This commit is contained in:
interp 2003-02-19 18:34:48 +00:00
parent bf070b1036
commit bd26da7497
1 changed files with 2 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -112,14 +112,14 @@
(return-to-main-page req)) (return-to-main-page req))
((returned-via? reset-return-address bindings) ((returned-via? reset-return-address bindings)
(reset-and-return-to-main-page req)) (reset-and-return-to-main-page req))
((input-field-binding gnuplot-change-button bindings) ((returned-via? gnuplot-change-button bindings)
(let ((new-gnuplot-location (input-field-value gnuplot-input-field bindings))) (let ((new-gnuplot-location (input-field-value gnuplot-input-field bindings)))
(if (executable? new-gnuplot-location) (if (executable? new-gnuplot-location)
(begin (begin
(set! gnuplot new-gnuplot-location) (set! gnuplot new-gnuplot-location)
(profile req (format #f "Gnuplot is now searched at ~a." gnuplot))) (profile req (format #f "Gnuplot is now searched at ~a." gnuplot)))
(profile req "Please enter a file name of an existing executable.")))) (profile req "Please enter a file name of an existing executable."))))
((input-field-binding convert-change-button bindings) ((returned-via? convert-change-button bindings)
(let ((new-use-convert? (input-field-value convert-check-box bindings)) (let ((new-use-convert? (input-field-value convert-check-box bindings))
(new-convert-location (input-field-value convert-input-field bindings))) (new-convert-location (input-field-value convert-input-field bindings)))
(if (equal? use-convert? new-use-convert?) (if (equal? use-convert? new-use-convert?)
@ -189,14 +189,6 @@ plot '~a' title 'SUrflet Profiling ~a' with lines"
(zero? gnuplot-status) (zero? gnuplot-status)
(run (,convert ,gnuplot-picture-name (run (,convert ,gnuplot-picture-name
,convert-picture-name))))) ,convert-picture-name)))))
(format #t "use-convert? ~a gnuplot-status ~a convert-status ~a
gnuplot-picture-name ~a
convert-picture-name ~a~%"
use-convert?
gnuplot-status
convert-status
gnuplot-picture-name
convert-picture-name)
(delete-file gnuplot-data-file-name) (delete-file gnuplot-data-file-name)
(add-file-name-to-delete! gnuplot-picture-name) (add-file-name-to-delete! gnuplot-picture-name)
(if (and use-convert? (if (and use-convert?