Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
CGI-Application-Ajax-ex01.pl	930 B	-rwxr-xr-x
CGI-Application-Ajax-ex02.pl	1015 B	-rwxr-xr-x
CGI-Application-Ajax-ex03.pl	1.76 KB	-rwxr-xr-x
convert_degrees.pl	969 B	-rw-r--r--
pjx_JSON.pl	1.17 KB	-rwxr-xr-x
pjx_JSON_out.pl	286 B	-rwxr-xr-x
pjx_NO_CACHE_callee.pl	239 B	-rwxr-xr-x
pjx_NO_CACHE_caller.pl	1.15 KB	-rwxr-xr-x
pjx_callback.pl	1.35 KB	-rwxr-xr-x
pjx_chained.pl	1.11 KB	-rwxr-xr-x
pjx_change_encoding.pl	869 B	-rwxr-xr-x
pjx_change_headers.pl	778 B	-rwxr-xr-x
pjx_checkbox.pl	677 B	-rwxr-xr-x
pjx_combo.pl.gz	1.96 KB	-rw-r--r--
pjx_cr.pl	1.43 KB	-rwxr-xr-x
pjx_dynselect.pl	3.25 KB	-rwxr-xr-x
pjx_formDump.pl	1.3 KB	-rwxr-xr-x
pjx_from_span.pl	1.2 KB	-rwxr-xr-x
pjx_loading.pl	1.7 KB	-rwxr-xr-x
pjx_manyret.pl	2.06 KB	-rwxr-xr-x
pjx_nobuild.pl	727 B	-rwxr-xr-x
pjx_objects_2_url.pl	1.28 KB	-rwxr-xr-x
pjx_podex.pl	1.82 KB	-rwxr-xr-x
pjx_radio.pl	1.29 KB	-rwxr-xr-x
pjx_splitargs.pl	1.17 KB	-rwxr-xr-x
pjx_subs.pl	1.42 KB	-rwxr-xr-x
pjx_url.pl	971 B	-rwxr-xr-x

Code Editor : CGI-Application-Ajax-ex03.pl

#! /usr/bin/perl -w

use strict;

package main ;
my $tester =  new Tester ; 
$tester->run ;

package Tester ;

use base qw(CGI::Application);
use CGI::Ajax;

sub setup {
    my $self = shift;
    $self->run_modes([qw(
        start
    )]);
}

# define an anonymous perl subroutine that you want available to
# javascript on the generated web page.

# define a function to generate the web page - this can be done
# million different ways, and can also be defined as an anonymous sub.
# The only requirement is that the sub send back the html of the page.
sub Show_HTML {
  my $html = "";
  $html .= <<EOT;

<HTML>
<HEAD><title>CGI::Ajax Example</title>
</HEAD>
<BODY>
<form>
  Enter a number:&nbsp;
  <input type="text" name="val1" id="val1" size="6"
     onkeyup="evenodd( ['val1'], ['resultdiv'] ); return true;"><br>
    <hr>
    <div id="resultdiv" style="border: 1px solid black;
          width: 440px; height: 80px; overflow: auto">
    </div>
</form>
</BODY>
</HTML>
EOT

return $html;
}

sub start {
    my $self = shift;

my $evenodd_func = sub {
	my $input = shift;

my $magic = "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font size=-1>look ma, no submit!</font><br>";
	
	# see if input is defined
	if ( not defined $input ) {
	    return("input not defined or NaN" . $magic);
	}
	
	# see if value is a number (*thanks Randall!*)
	if ( $input !~ /\A\d+\z/ ) {
	    return("input is NaN" . $magic);
	}
	
	# got a number, so mod by 2
	$input % 2 == 0 ? return("$input is EVEN" . $magic) : return("$input is ODD" . $magic);

}; # don't forget the trailing ';', since this is an anon subroutine

my $pjx = new CGI::Ajax( 'evenodd' => $evenodd_func );
    $pjx->JSDEBUG(2);

my $text = $pjx->build_html($self,\&Show_HTML); # this outputs the html for the page

return $text ;
}

${this.title}

Code Editor : CGI-Application-Ajax-ex03.pl