![]() |
Smalltalk/X WebserverSmalltalk Dynamic Web Pages - Source of WebDemoApp1-test6: |
|
test6:aRequest "send a file - requires a test6.html file to be found under the htmldialogs directory." "/aRequest nextPutLine:('htmldialogs/test6.html' asFilename contents asString) |replyPresenter| replyPresenter := aRequest replyPresenter. replyPresenter title:'Test6'. replyPresenter parametersAt:#secondHeadLine put:'Test6'. aRequest nextPutLine:'<h1>This test is not available</h1>'. self addLinksForSource:#'test6:' previous:#'test5:' next:#'test7:' to:aRequest. |
|
ST/X 7.2.0.0; WebServer 1.670 at bd0aa1f87cdd.unknown:8081; Fri, 29 Sep 2023 03:26:25 GMT
|