eXept Software AG Logo

Smalltalk/X Webserver

Smalltalk Dynamic Web Pages - Source of WebDemoApp1-test5:

Home

everywhere
www.exept.de
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.1.0.0; WebServer 1.653 at exept.de:8081; Fri, 15 Dec 2017 15:56:46 GMT