eXept Software AG Logo

Smalltalk/X Webserver

Smalltalk Dynamic Web Pages - Source of WebDemoApp1-testGoogle:

Home

everywhere
www.exept.de
for:
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
Index


ST/X 7.1.0.0; WebServer 1.653 at exept.de:8081; Mon, 23 Oct 2017 00:46:10 GMT