rlmcintyre: BoosterPack/scripts/.svn/text-base/pjx_change

initial committ. what was I thinking?

rev	line source
rlm@0	1 #!C:/strawberry/perl/bin/perl.exe
rlm@0	2
rlm@0	3 use strict;
rlm@0	4 use CGI::Ajax;
rlm@0	5 use CGI;
rlm@0	6
rlm@0	7 my $func = sub {
rlm@0	8 my $input = shift;
rlm@0	9 return "got input: $input " ;
rlm@0	10 };
rlm@0	11
rlm@0	12
rlm@0	13 sub Show_HTML {
rlm@0	14 my $html = <<EOT;
rlm@0	15
rlm@0	16 <html>
rlm@0	17 <head><title>CGI::Ajax Example</title>
rlm@0	18
rlm@0	19 </head>
rlm@0	20 <body>
rlm@0	21 <form>
rlm@0	22 Enter Something:
rlm@0	23 <input type="text" name="val1" id="val1" size="6" onkeyup="jsfunc( ['val1'], 'result' ); return true;"><br>
rlm@0	24 Enter Something:
rlm@0	25 <hr>
rlm@0	26 <div id="result" style="border: 1px solid black;
rlm@0	27 width: 440px; height: 80px; overflow: auto">
rlm@0	28 </div>
rlm@0	29
rlm@0	30 </form>
rlm@0	31 </body>
rlm@0	32 </html>
rlm@0	33
rlm@0	34 EOT
rlm@0	35
rlm@0	36 }
rlm@0	37
rlm@0	38 my $cgi = new CGI(); # create a new CGI object
rlm@0	39 my $pjx = new CGI::Ajax( 'jsfunc' => $func );
rlm@0	40 # the send in some extra headers;
rlm@0	41 print $pjx->build_html($cgi,\&Show_HTML, { '-expires' => '1d', '-charset' => 'ISO-8859-1'} );

Mercurial > rlmcintyre