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

{S,s}urflet-->SUrflet in strings

This commit is contained in:
interp 2003-01-25 16:28:16 +00:00
parent afada4efb2
commit e3f216aee7
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
scheme/httpd/surflets/surflet-handler.scm
View File

@ -160,14 +160,14 @@
(status-code bad-request) req (status-code bad-request) req
(format #f (format #f
"<br> "<br>
<p>There may be several reasons, why your request for a surflet was denied: <p>There may be several reasons, why your request for a SUrflet was denied:
<ul> <ul>
<li>The surflet does not accept any requests any more.</li> <li>The SUrflet does not accept any requests any more.</li>
<li>The surflet URL has timed out.</li> <li>The SUrflet URL has timed out.</li>
<li>You URL is illformed.</li> <li>You URL is illformed.</li>
</ul> </ul>
</p> </p>
<p>In any case, you may try to restart the surflet from the <a href=\"~a\">beginning</a>. Your browser may also have cached an old session of this surflet. In this case, try to reload the page.</p>" <p>In any case, you may try to restart the SUrflet from the <a href=\"~a\">beginning</a>. Your browser may also have cached an old session of this SUrflet. In this case, try to reload the page.</p>"
(resume-url-surflet-name path-string))))) (resume-url-surflet-name path-string)))))
(lookup-continuation-table (lookup-continuation-table
(lambda (session continuation-table continuation-id) (lambda (session continuation-table continuation-id)
@ -578,7 +578,7 @@
(define (bad-gateway-error-response req path-string condition) (define (bad-gateway-error-response req path-string condition)
(make-error-response (make-error-response
(status-code bad-gateway) req (status-code bad-gateway) req
(format #f "Error in surflet ~s." path-string) (format #f "Error in SUrflet ~s." path-string)
condition)) condition))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -673,7 +673,7 @@
;; For debug purposes ;; For debug purposes
(define (surflet-response->string surflet-response) (define (surflet-response->string surflet-response)
(format #f "#{Surflet-response Status: ~a Content-Type: ~s Headers: ~s~%~s~%" (format #f "#{SUrflet-response Status: ~a Content-Type: ~s Headers: ~s~%~s~%"
(surflet-response-status surflet-response) (surflet-response-status surflet-response)
(surflet-response-content-type surflet-response) (surflet-response-content-type surflet-response)
(surflet-response-headers surflet-response) (surflet-response-headers surflet-response)