![]() |
Smalltalk/X WebserverSmalltalk Dynamic Web Pages - Source of WebDemoApp1-timeNow: |
|
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. |
|
ST/X 7.2.0.0; WebServer 1.670 at bd0aa1f87cdd.unknown:8081; Fri, 29 Sep 2023 04:12:18 GMT
|