5 include( '/elements/xmlhttp.html',
7 'url' => $p.'misc/something.html',
8 'subs' => [ 'subroutine' ],
11 'method' => 'GET', # defaults to GET, could specify POST
12 'key' => 'unique', # unique key
13 'skip_empty' => '1', # When the given key value is null or = 0,
14 # skip making a useless http request
20 my %initialized = ();#won't work if component is "preloaded"... so don't do that
22 <& /elements/rs_init_object.html &>
23 <& /elements/init_overlib.html &>
24 <SCRIPT TYPE="text/javascript">
26 % foreach my $func ( @{$opt{'subs'}} ) {
28 % next if $initialized{$key.$func}++;
31 % $furl =~ s/\"/\\\\\"/; #javascript escape (fix gvim syntax: ")
33 function <%$key%><%$func%>() {
34 // count args; build URL
35 var url = "<%$furl%>";
36 var a = <%$key%><%$func%>.arguments;
40 var content = 'sub=<% uri_escape($func) %>';
41 if ( a && typeof a == 'object' && a[0].constructor == Array ) {
46 len = args.length - 1;
48 % if ( $opt{skip_empty} ) {
49 if ( args[0] == 0 || !args[0] ) {
53 for (var i = 0; i < len; i++)
54 content = content + "&arg=" + encodeURIComponent(args[i]);
55 content = content.replace( /[+]/g, '%2B'); // fix unescaped plus signs
57 if ( '<%$method%>' == 'GET' ) {
61 //alert('<%$method%> ' + url);
63 var xmlhttp = rs_init_object();
64 xmlhttp.open("<%$method%>", url, true);
66 xmlhttp.onreadystatechange = function() {
67 if (xmlhttp.readyState != 4)
70 if (xmlhttp.status != 200) {
71 if ( xmlhttp.status != 0 ) {
72 //not warning on the 0 errors, they pop up when navagating away
74 alert(xmlhttp.status + " status connecting to " + url);
77 var data = xmlhttp.responseText;
78 //alert('received response: ' + data);
79 if ( data.indexOf("<b>System error</b>") > -1 ) {
81 var end = data.indexOf('<a href="#raw">') - 1;
82 data = data.substring(0, end);
85 WIDTH, 480, MIDX, 0, MIDY, 0,
86 CAPTION, 'Error', STICKY, AUTOSTATUSCAP, DRAGGABLE,
87 CLOSECLICK, BGCOLOR, '#f00', CGCOLOR, '#f00'
90 //if ( w = window.open("about:blank") ) {
91 // w.document.write(data);
93 // // popup blocking? should use an overlib popup instead
94 // alert("Error popup disabled; try disabling popup blocking to see");
97 // invoke the callback
103 if ( '<%$method%>' == 'POST' ) {
105 xmlhttp.setRequestHeader('Content-Type', 'application/x-www-form-urlencoded');
106 xmlhttp.send(content);
110 xmlhttp.setRequestHeader("If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT");
115 //rs_debug("x_$func_name url = " + url);
116 //rs_debug("x_$func_name waiting..");
125 my $url = $opt{'url'};
126 my $method = exists($opt{'method'}) ? $opt{'method'} : 'GET';
127 #my @subs = @{ $opt{'subs'};
128 my $key = exists($opt{'key'}) ? $opt{'key'} : '';
130 $url .= ( ($url =~ /\?/) ? '&' : '?' )