Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
CGI-Application-Ajax-ex01.pl	930 B	-rwxr-xr-x
CGI-Application-Ajax-ex02.pl	1015 B	-rwxr-xr-x
CGI-Application-Ajax-ex03.pl	1.76 KB	-rwxr-xr-x
convert_degrees.pl	969 B	-rw-r--r--
pjx_JSON.pl	1.17 KB	-rwxr-xr-x
pjx_JSON_out.pl	286 B	-rwxr-xr-x
pjx_NO_CACHE_callee.pl	239 B	-rwxr-xr-x
pjx_NO_CACHE_caller.pl	1.15 KB	-rwxr-xr-x
pjx_callback.pl	1.35 KB	-rwxr-xr-x
pjx_chained.pl	1.11 KB	-rwxr-xr-x
pjx_change_encoding.pl	869 B	-rwxr-xr-x
pjx_change_headers.pl	778 B	-rwxr-xr-x
pjx_checkbox.pl	677 B	-rwxr-xr-x
pjx_combo.pl.gz	1.96 KB	-rw-r--r--
pjx_cr.pl	1.43 KB	-rwxr-xr-x
pjx_dynselect.pl	3.25 KB	-rwxr-xr-x
pjx_formDump.pl	1.3 KB	-rwxr-xr-x
pjx_from_span.pl	1.2 KB	-rwxr-xr-x
pjx_loading.pl	1.7 KB	-rwxr-xr-x
pjx_manyret.pl	2.06 KB	-rwxr-xr-x
pjx_nobuild.pl	727 B	-rwxr-xr-x
pjx_objects_2_url.pl	1.28 KB	-rwxr-xr-x
pjx_podex.pl	1.82 KB	-rwxr-xr-x
pjx_radio.pl	1.29 KB	-rwxr-xr-x
pjx_splitargs.pl	1.17 KB	-rwxr-xr-x
pjx_subs.pl	1.42 KB	-rwxr-xr-x
pjx_url.pl	971 B	-rwxr-xr-x

Code Editor : pjx_loading.pl

#! /usr/bin/perl -w

use strict;
use CGI::Ajax;
use CGI;

my $func = sub {
  my $input = shift;
  my $i=6000000;
  while($i--){ }
  return "got input: $input " . 'done';
};

sub Show_HTML {
my  $html = <<EOT;

<html>
<head><title>CGI::Ajax Example</title>

pjx.prototype.pjxCompleted = function(el){
  // here we use this.target:
  // since this is a prototype function, we have access to all of hte 
  // pjx obejct properties. 
  document.getElementById(this.target).style.backgroundColor = '#fff';
}

</script>
</head>
<body>
<form>
Enter Something:&nbsp;
  <input type="text" name="val1" id="val1" size="6" onkeyup="jsfunc( ['val1'], 'result' ); return true;"><br>
Enter Something:&nbsp;
  <input type="text" name="val2" id="val2" size="6" onkeyup="jsfunc( ['val2'], 'another' ); return true;"><br>
    <hr>
    <div id="result" style="border: 1px solid black;
          width: 440px; height: 80px; overflow: auto">
    </div>

EOT

}

my $cgi = new CGI();  # create a new CGI object
my $pjx = new CGI::Ajax( 'jsfunc' => $func );
print $pjx->build_html($cgi,\&Show_HTML);

${this.title}

Code Editor : pjx_loading.pl