view scripts/pjx_change_encoding.pl @ 2:d7dd496a4fa6 boosterpack

[svn r4] actual functionality!
author robert
date Tue, 08 Sep 2009 02:45:26 -0400
parents 477258d09353
children
line wrap: on
line source
1 #!C:/strawberry/perl/bin/perl.exe
3 use strict;
4 use CGI::Ajax;
5 use CGI;
7 my $func = sub {
8 my $input = shift;
9 return "got input: $input " ;
10 };
13 sub Show_HTML {
14 my $html = <<EOT;
16 <html>
17 <head><title>CGI::Ajax Example</title>
19 </head>
20 <body>
21 <form>
22 Enter Something:&nbsp;
23 <input type="text" name="val1" id="val1" size="6" onkeyup="jsfunc( ['val1'], 'result' ); return true;"><br>
24 Enter Something:&nbsp;
25 <hr>
26 <div id="result" style="border: 1px solid black;
27 width: 440px; height: 80px; overflow: auto">
28 </div>
30 </form>
31 </body>
32 </html>
34 EOT
36 }
38 my $cgi = new CGI(); # create a new CGI object
39 my $pjx = new CGI::Ajax( 'jsfunc' => $func );
40 # the default encoding for CGI::Ajax is encodeURIComponent;
41 # if this causes problems, you can use escape or your own javascript
42 # function;
43 $pjx->js_encode_function('escape');
44 print $pjx->build_html($cgi,\&Show_HTML);