Mercurial > boosterpack
annotate scripts/pjx_nobuild.pl @ 0:477258d09353 boosterpack
[svn r1] initial import
| author | robert |
|---|---|
| date | Sun, 30 Aug 2009 02:19:26 -0400 |
| parents | |
| children |
| rev | line source |
|---|---|
| robert@0 | 1 #!C:/strawberry/perl/bin/perl.exe |
| robert@0 | 2 |
| robert@0 | 3 use strict; |
| robert@0 | 4 use CGI::Ajax; |
| robert@0 | 5 |
| robert@0 | 6 my $my_func = sub { |
| robert@0 | 7 my $arg = shift; |
| robert@0 | 8 return ( $arg . " with some extra" ); |
| robert@0 | 9 }; |
| robert@0 | 10 |
| robert@0 | 11 my $pjx = new CGI::Ajax( 'tester' => $my_func ); |
| robert@0 | 12 $pjx->JSDEBUG(1); |
| robert@0 | 13 $pjx->DEBUG(1); |
| robert@0 | 14 |
| robert@0 | 15 use CGI; |
| robert@0 | 16 my $cgi = new CGI(); |
| robert@0 | 17 print $cgi->header(); |
| robert@0 | 18 |
| robert@0 | 19 $pjx->cgi( $cgi ); |
| robert@0 | 20 |
| robert@0 | 21 my $html = ""; |
| robert@0 | 22 $html .= "<HTML>"; |
| robert@0 | 23 $html .= "<HEAD>"; |
| robert@0 | 24 |
| robert@0 | 25 $html .= $pjx; |
| robert@0 | 26 |
| robert@0 | 27 $html .= <<EOT; |
| robert@0 | 28 </HEAD> |
| robert@0 | 29 <BODY> |
| robert@0 | 30 <FORM name="form"> |
| robert@0 | 31 <INPUT type="text" id="inarg" |
| robert@0 | 32 onkeyup="tester(['inarg'],['output_div']); return true;"> |
| robert@0 | 33 <hr> |
| robert@0 | 34 <div id="output_div"></div> |
| robert@0 | 35 </FORM> |
| robert@0 | 36 <br/><div id='pjxdebugrequest'></div><br/> |
| robert@0 | 37 </BODY> |
| robert@0 | 38 </HTML> |
| robert@0 | 39 EOT |
| robert@0 | 40 |
| robert@0 | 41 if ( not $cgi->param('fname') ) { |
| robert@0 | 42 print $html; |
| robert@0 | 43 } else { |
| robert@0 | 44 print $pjx->handle_request(); |
| robert@0 | 45 } |
| robert@0 | 46 |