File: //usr/share/doc/libcgi-ajax-perl/examples/pjx_url.pl
#! /usr/bin/perl -w
# this is an example script of how you would use URLs to define
# your CGI::Ajax functions.
use strict;
use CGI::Ajax;
use CGI;
my $q = new CGI;
# the format here implies that 'convert_degrees.pl' is at the same
# level in the web server's document root as this script.
my $pjx = CGI::Ajax->new( 'myfunc' => 'convert_degrees.pl');
$pjx->JSDEBUG(1);
my $Show_Form = sub {
my $html = "";
$html .= <<EOT;
<HTML>
<HEAD><title>CGI::Ajax Outside URL Example</title>
</HEAD>
<BODY>
<form>
Degrees Centigrade:
<input type="text" name="val1" id="val1" size="6"
onkeyup="myfunc( ['Centigrade__' + getVal('val1')], ['val2'] );
return true;">
<br/>
Degrees Kelvin:
<input type="text" name="val2" id="val2" size="6"
onkeyup="myfunc( ['Kelvin__' + getVal('val2')], ['val1'] );
return true;">
</form>
</BODY>
</HTML>
EOT
return $html;
};
print $pjx->build_html($q,$Show_Form); # this outputs the html for the page