Return to cgi.sm1 CVS log

Up to [local] / OpenXM / src / kan96xx / Doc

Annotation of OpenXM/src/kan96xx/Doc/cgi.sm1, Revision 1.1

1.1     ! takayama    1: % $OpenXM$
        !             2:
        !             3: % (OpenXM) queryGoogle  --> it does not work well.
        !             4: /queryGoogle {
        !             5:    /key set
        !             6:    [[(URL),(/search)],
        !             7:     [(hl),(ja)],
        !             8:     [(ie),(UTF-8)],
        !             9:     [(q),key]] /kv set
        !            10:    [(cgiKeyValuePairToUrlEncodingString) kv] extension /sss set
        !            11:    [(GET ) , sss , ( HTTP/0.9) , nl , nl ] cat /sss2 set
        !            12:
        !            13:    [(sm1.socket) (connect) [80 (www.google.co.jp)]] extension 0 get /goo set
        !            14:    [(sm1.socket) (write) [goo sss2]]  extension
        !            15:    [(sm1.socket) (select) [goo -1]] extension
        !            16:    [(sm1.socket) (read) [goo]] extension /pp set  % use httpRead instead?
        !            17:    pp message
        !            18:    [(sm1.socket) (close) [goo]] extension
        !            19:    [(cgiHttpToKeyValuePair) pp] extension /pp2 set
        !            20: } def
        !            21:
        !            22: % (www.math.kobe-u.ac.jp) getIndex
        !            23: /getIndex {
        !            24:    /url set
        !            25:    [[(URL),(/index.html)],
        !            26:    ] /kv set
        !            27:    [(cgiKeyValuePairToUrlEncodingString) kv] extension /sss set
        !            28:    [(GET ) , sss , ( HTTP/0.9) , nl , nl ] cat /sss2 set
        !            29:
        !            30:    sss2 message
        !            31:    [(sm1.socket) (connect) [80 url]] extension 0 get /goo set
        !            32:    [(sm1.socket) (write) [goo sss2]]  extension
        !            33:    [(sm1.socket) (select) [goo -1]] extension
        !            34:    [(sm1.socket) (read) [goo]] extension /pp set
        !            35:    pp message
        !            36:    [(sm1.socket) (close) [goo]] extension
        !            37:    [(cgiHttpToKeyValuePair) pp] extension /pp2 set
        !            38: } def