blob: 4f4c5f53b975da548b874bb581d2b7c918e3d184 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
|
<%
my ( %opt ) = @_;
my $url = $opt{'url'};
my $method = exists($opt{'method'}) ? $opt{'method'} : 'GET';
#my @subs = @{ $opt{'subs'};
$url .= ( ($url =~ /\?/) ? '&' : '?' )
if $method eq 'GET';
%>
<SCRIPT TYPE="text/javascript">
function rs_init_object() {
var A;
try {
A=new ActiveXObject("Msxml2.XMLHTTP");
} catch (e) {
try {
A=new ActiveXObject("Microsoft.XMLHTTP");
} catch (oc) {
A=null;
}
}
if(!A && typeof XMLHttpRequest != "undefined")
A = new XMLHttpRequest();
if (!A)
alert("Can't create XMLHttpRequest object");
return A;
}
<% foreach my $func ( @{$opt{'subs'}} ) {
my $furl = $url;
$furl =~ s/\"/\\\\\"/; #javascript escape
%>
function <%=$func%>() {
// count args; build URL
var url = "<%=$furl%>";
var a = <%=$func%>.arguments;
var args;
var len;
var content = 'sub=<%= uri_escape($func) %>';
if ( a && typeof a == 'object' && a[0].constructor == Array ) {
args = a[0];
len = args.length
} else {
args = a;
len = args.length - 1;
}
for (var i = 0; i < len; i++)
content = content + "&arg=" + escape(args[i]);
content = content.replace( /[+]/g, '%2B'); // fix unescaped plus signs
if ( '<%=$method%>' == 'GET' ) {
url = url + content;
}
//alert('<%=$method%> ' + url);
var xmlhttp = rs_init_object();
xmlhttp.open("<%=$method%>", url, true);
xmlhttp.onreadystatechange = function() {
if (xmlhttp.readyState != 4)
return;
if (xmlhttp.status != 200) {
alert(xmlhttp.status + " status connecting to " + url);
} else {
var data = xmlhttp.responseText;
//alert('received response: ' + data);
a[a.length-1](data);
if ( data.indexOf("<b>System error</b>") > -1 ) {
var w;
if ( w = window.open("about:blank") _ }
w.document.write(data);
} else {
// popup blocking? should use an overlib popup instead
alert("Error popup disabled; try disabling popup blocking to see");
}
}
}
}
if ( '<%=$method%>' == 'POST' ) {
xmlhttp.setRequestHeader('Content-Type', 'application/x-www-form-urlencoded');
xmlhttp.send(content);
} else {
xmlhttp.setRequestHeader("If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT");
xmlhttp.send(null);
}
//rs_debug("x_$func_name url = " + url);
//rs_debug("x_$func_name waiting..");
}
<% } %>
</SCRIPT>
|
