Smalltalk/X WebserverSmalltalk Dynamic Web Pages - Source of WebDemoApp1-testGoogle: | |
testGoogle:aRequest "a dynamic html page, showing a factorial table. Invoke via browser as URL: host:port/<N>,testGoogle: where <N> is the registered name of this service. " |replyPresenter| replyPresenter := aRequest replyPresenter. replyPresenter title:'Google Search Example'. replyPresenter parametersAt:#secondHeadLine put:'TestGoogle: Google Search Example'. aRequest nextPutLine:'<form method="GET" action="http://www.google.com/custom">'; nextPutLine:'<a HREF="http://www.google.com/search">'; nextPutLine:'<IMG SRC="http://www.google.com/logos/Logo_40wht.gif" border="0" ALT="Google" align="middle">'; nextPutLine:'</a><br>'; nextPutLine:'<INPUT TYPE="text" name="q" size="15" maxlength="255" value="">'; nextPutLine:'<INPUT type="submit" name="sa" VALUE="Google Search">'; nextPutLine:'<input type="hidden" name="domains" value="www.exept.de;"><br>'; nextPutLine:'<input type="radio" name="sitesearch" value=""> WWW'; nextPutLine:'<input type="radio" name="sitesearch" value="www.exept.de" checked>eXept'; nextPutLine:'</form>'. self addLinksForSource:#'testGoogle:' previous:#'test7:' next:#'timeNow:' to:aRequest.
Edit (disabled)
| |
ST/X 7.7.0.0; WebServer 1.702 at 20f6060372b9.unknown:8081; Sat, 02 Nov 2024 22:05:19 GMT |