Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search

[REBOL] =?iso-8859-2?Q?M=24XMLHTTP=20=3C=2D=3E=20Rebol?=

From: rebol-list2::seznam::cz at: 16-Jul-2001 13:22

Hi, maybe someone may find it useful (you can get data from Rebol without refreshing the page in IE): browser part: <script type="" language="JavaScript"> function HTTPPost(data) { var xmlhttp = new ActiveXObject("Microsoft.XMLHTTP"); xmlhttp.Open("POST","http://your_server/cgi-bin/xml-echo.r", false); xmlhttp.Send(data); return xmlhttp.responseXML; } alert(HTTPPost("test=aha").xml); </script> and the Rebol part (%xml-echo.r): #!c:/bin/rebol -cs REBOL[ title: "XML-echo" author: "Oldes" e-mail: [oldes--bigfoot--com] ] either empty? system/options/cgi/query-string [ tmp: load any [system/options/cgi/content-length "0"] data: make string! (tmp + 10) while [tmp > 0][tmp: tmp - read-io system/ports/input data tmp] ][ data: system/options/cgi/query-string] cgi: make object! decode-cgi data print "Content-Type: text/xml^/" print rejoin [{ <response> <cgi> } mold cgi { </cgi> <query-string> } data { </query-string> </response>} ] cheers Oldes ______________________________________________________________________ Vse pod jednou strechou - squash, Ricochet, aerobik, solaria, sauna, posilovna, sport shop, sport bar, masaze -