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
Index


ST/X 7.2.0.0; WebServer 1.670 at bd0aa1f87cdd.unknown:8081; Sun, 15 Sep 2019 18:04:59 GMT