eXept Software AG Logo

Smalltalk/X Webserver

Smalltalk Dynamic Web Pages - Source of WebDemoApp1-test5:

Home

Documentation
www.exept.de
Everywhere
for:
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)
Index


ST/X 7.7.0.0; WebServer 1.702 at 20f6060372b9.unknown:8081; Mon, 14 Oct 2024 02:08:07 GMT