rlmcintyre: BoosterPack/scripts/pjx

initial committ. what was I thinking?

rev	line source
rlm@0	1 #!C:/strawberry/perl/bin/perl.exe
rlm@0	2
rlm@0	3 # this is an example script of how you would use URLs to define
rlm@0	4 # your CGI::Ajax functions.
rlm@0	5
rlm@0	6 use strict;
rlm@0	7 use CGI::Ajax;
rlm@0	8 use CGI;
rlm@0	9
rlm@0	10 my $q = new CGI;
rlm@0	11
rlm@0	12 # the format here implies that 'convert_degrees.pl' is at the same
rlm@0	13 # level in the web server's document root as this script.
rlm@0	14 my $pjx = CGI::Ajax->new( 'myfunc' => 'convert_degrees.pl');
rlm@0	15 $pjx->JSDEBUG(1);
rlm@0	16
rlm@0	17 my $Show_Form = sub {
rlm@0	18 my $html = "";
rlm@0	19 $html .= <<EOT;
rlm@0	20 <HTML>
rlm@0	21 <HEAD><title>CGI::Ajax Outside URL Example</title>
rlm@0	22 </HEAD>
rlm@0	23 <BODY>
rlm@0	24 <form>
rlm@0	25 Degrees Centigrade:
rlm@0	26 <input type="text" name="val1" id="val1" size="6"
rlm@0	27 onkeyup="myfunc( ['Centigrade__' + getVal('val1')], ['val2'] );
rlm@0	28 return true;">
rlm@0	29 <br/>
rlm@0	30
rlm@0	31 Degrees Kelvin:
rlm@0	32 <input type="text" name="val2" id="val2" size="6"
rlm@0	33 onkeyup="myfunc( ['Kelvin__' + getVal('val2')], ['val1'] );
rlm@0	34 return true;">
rlm@0	35 </form>
rlm@0	36 </BODY>
rlm@0	37 </HTML>
rlm@0	38 EOT
rlm@0	39
rlm@0	40 return $html;
rlm@0	41 };
rlm@0	42
rlm@0	43 print $pjx->build_html($q,$Show_Form); # this outputs the html for the page

Mercurial > rlmcintyre