robert@0: #!C:/strawberry/perl/bin/perl.exe robert@0: robert@0: use strict; robert@0: use CGI::Ajax; robert@0: robert@0: my $my_func = sub { robert@0: my $arg = shift; robert@0: return ( $arg . " with some extra" ); robert@0: }; robert@0: robert@0: my $pjx = new CGI::Ajax( 'tester' => $my_func ); robert@0: $pjx->JSDEBUG(1); robert@0: $pjx->DEBUG(1); robert@0: robert@0: use CGI; robert@0: my $cgi = new CGI(); robert@0: print $cgi->header(); robert@0: robert@0: $pjx->cgi( $cgi ); robert@0: robert@0: my $html = ""; robert@0: $html .= ""; robert@0: $html .= ""; robert@0: robert@0: $html .= $pjx; robert@0: robert@0: $html .= < robert@0: robert@0: robert@0:

robert@0: robert@0: robert@0: EOT robert@0: robert@0: if ( not $cgi->param('fname') ) { robert@0: print $html; robert@0: } else { robert@0: print $pjx->handle_request(); robert@0: } robert@0: