1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
#! /usr/bin/perl -w
use strict;
use CGI::Ajax;
my $my_func = sub {
my $arg = shift;
return ( $arg . " with some extra" );
};
my $pjx = new CGI::Ajax( 'tester' => $my_func );
$pjx->JSDEBUG(1);
$pjx->DEBUG(1);
use CGI;
my $cgi = new CGI();
print $cgi->header();
$pjx->cgi( $cgi );
my $html = "";
$html .= "<HTML>";
$html .= "<HEAD>";
$html .= $pjx;
$html .= <<EOT;
</HEAD>
<BODY>
<FORM name="form">
<INPUT type="text" id="inarg"
onkeyup="tester(['inarg'],['output_div']); return true;">
<hr>
<div id="output_div"></div>
</FORM>
<br/><div id='pjxdebugrequest'></div><br/>
</BODY>
</HTML>
EOT
if ( not $cgi->param('fname') ) {
print $html;
} else {
print $pjx->handle_request();
}
|
