eXept Software AG Logo

Smalltalk/X Webserver

Smalltalk Dynamic Web Pages - Source of WebDemoApp1-timeNow:

Home

everywhere
www.exept.de
for:
timeNow:aRequest
    "a very simple reply: shows the current time.

     Invoke via the browser as URL:
        host:port/<N>,timeNow:
     where <N> is the registered name of this service.
    "

    |replyPresenter|

    replyPresenter := aRequest replyPresenter.
    replyPresenter title:'Server Time Example'.
    replyPresenter parametersAt:#secondHeadLine put:'TimeNow: Server Time Example'.
    aRequest
        nextPutLine:'<h1>Server Time Example</h1>';
        nextPutLine:'The servers time is ' , Time now printString.

    self addLinksForSource:#'timeNow:' previous:#'testGoogle:' next:nil to:aRequest.

Edit
Index


ST/X 7.1.0.0; WebServer 1.653 at exept.de:8081; Fri, 15 Dec 2017 15:55:25 GMT