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