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.
Edit (disabled)
| |
ST/X 7.7.0.0; WebServer 1.702 at 20f6060372b9.unknown:8081; Mon, 14 Oct 2024 02:08:07 GMT |