eXept Software AG Logo

Smalltalk/X Webserver

Smalltalk Dynamic Web Pages - Source of WebDemoApp1-test6:

Home

everywhere
www.exept.de
for:
test6:aRequest
    "send a file
     - requires a test6.html file 
       to be found under the htmldialogs directory."

    "/aRequest nextPutLine:('htmldialogs/test6.html' asFilename contents asString)

    |replyPresenter|

    replyPresenter := aRequest replyPresenter.
    replyPresenter title:'Test6'.
    replyPresenter parametersAt:#secondHeadLine put:'Test6'.
    aRequest
        nextPutLine:'<h1>This test is not available</h1>'.

    self addLinksForSource:#'test6:' previous:#'test5:' next:#'test7:' to:aRequest.

Edit
Index


ST/X 7.1.0.0; WebServer 1.653 at exept.de:8081; Sun, 20 Aug 2017 02:06:24 GMT