![]() |
Smalltalk/X WebserverSmalltalk Dynamic Web Pages - Source of WebDemoApp1-test5: |
|
test5:aRequest "send a file - requires a test4.html file to be found under the htmldialogs directory." |message fileName replyPresenter| fileName := '/files/test4.html' asFilename. fileName exists ifTrue:[ message := fileName contents asString ] ifFalse:[ message := 'file not available' ]. replyPresenter := aRequest replyPresenter. replyPresenter title:'Embedding a File'. replyPresenter parametersAt:#secondHeadLine put:'Test5: Embedding a File'. aRequest nextPutLine:message. self addLinksForSource:#'test5:' previous:#'test4:' next:#'test6:' to:aRequest. |
|
ST/X 7.2.0.0; WebServer 1.670 at bd0aa1f87cdd.unknown:8081; Fri, 29 Sep 2023 03:35:06 GMT
|