rlm@0: #!C:/strawberry/perl/bin/perl.exe rlm@0: rlm@0: use strict; rlm@0: use warnings; rlm@0: rlm@0: use CGI; rlm@0: use CGI::Ajax; rlm@0: rlm@0: my $cgi= CGI->new; rlm@0: rlm@0: my $a= CGI::Ajax->new( rlm@0: 'test_elt_html' => \&test_elt_html rlm@0: ); rlm@0: rlm@0: $a->DEBUG(2); rlm@0: $a->JSDEBUG(2); rlm@0: rlm@0: print $a->build_html( $cgi, \&html_page); rlm@0: rlm@0: sub html_page rlm@0: rlm@0: { rlm@0: return < rlm@0: rlm@0: rlm@0: rlm@0: rlm@0: rlm@0: rlm@0:

test with div

rlm@0:

test with span

rlm@0:

test with p

rlm@0: rlm@0:

some stuff

rlm@0:

rlm@0: rlm@0:

rlm@0:

rlm@0: rlm@0:

rlm@0:

rlm@0: rlm@0:

rlm@0:

rlm@0: rlm@0: rlm@0: rlm@0: EOH rlm@0: ; rlm@0: rlm@0: } rlm@0: rlm@0: rlm@0: sub test_elt_html rlm@0: { my( $elt_html)= @_; rlm@0: print STDERR "IN:" . $elt_html , "\n"; rlm@0: return $elt_html; rlm@0: } rlm@0: