2 my ( $url, @subs ) = @_;
4 $url .= ( ($url =~ /\?/) ? '&' : '?' ).
9 <SCRIPT TYPE="text/javascript">
11 function rs_init_object() {
14 A=new ActiveXObject("Msxml2.XMLHTTP");
17 A=new ActiveXObject("Microsoft.XMLHTTP");
22 if(!A && typeof XMLHttpRequest != "undefined")
23 A = new XMLHttpRequest();
25 alert("Can't create XMLHttpRequest object");
30 <% foreach my $func (@subs) {
32 my $furl = $url . uri_escape($func);
33 $furl =~ s/\"/\\\\\"/; #javascript escape
37 function <%=$func%>() {
38 // count args; build URL
39 var url = "<%=$furl%>";
40 var a = <%=$func%>.arguments;
41 for (var i = 0; i < a.length-1; i++)
42 url = url + "&arg=" + escape(a[i]);
43 url = url.replace( /[+]/g, '%2B'); // fix the unescaped plus signs
44 var xmlhttp = rs_init_object();
45 xmlhttp.open("GET", url, true);
46 xmlhttp.onreadystatechange = function() {
47 if (xmlhttp.readyState != 4)
49 //rs_debug("received " + x.responseText);
51 if (xmlhttp.status != 200) {
52 alert(xmlhttp.status + " status connecting to " + url);
54 var data = xmlhttp.responseText;
59 //rs_debug("x_$func_name url = " + url);
60 //rs_debug("x_$func_name waiting..");