diff pjx_radio.pl @ 2:d7dd496a4fa6 boosterpack

[svn r4] actual functionality!
author robert
date Tue, 08 Sep 2009 02:45:26 -0400
parents
children 8c6d2ce90677
line wrap: on
line diff
     1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/pjx_radio.pl	Tue Sep 08 02:45:26 2009 -0400
     1.3 @@ -0,0 +1,49 @@
     1.4 +#!C:/strawberry/perl/bin/perl.exe
     1.5 +use strict;
     1.6 +use CGI::Ajax 0.57;
     1.7 +use CGI;
     1.8 +
     1.9 +my $q = new CGI;  # need a new CGI object
    1.10 +
    1.11 +# compose our list of functions to export to js
    1.12 +my %hash = ( 'myFunc'         => \&perl_func,);
    1.13 +
    1.14 +my $pjx = CGI::Ajax->new( %hash ); # this is our CGI::Ajax object
    1.15 +
    1.16 +$pjx->DEBUG(1);   # turn on debugging
    1.17 +$pjx->JSDEBUG(1); # turn on javascript debugging, which will place a
    1.18 +                  #  new div element at the bottom of our page showing
    1.19 +                  #  the asynchrously requested URL
    1.20 +
    1.21 +print $pjx->build_html( $q, \&Show_HTML ); # this builds our html
    1.22 +                                           #  page, inserting js
    1.23 +
    1.24 +# This subroutine is responsible for outputting the HTML of the web
    1.25 +# page. 
    1.26 +sub Show_HTML {
    1.27 +  my $html = <<EOT;
    1.28 +<HTML>
    1.29 +<HEAD><title>Radio Example</title>
    1.30 +</HEAD>
    1.31 +<BODY>
    1.32 +<form>
    1.33 +<DIV id="radiobuttons" onclick="myFunc( ['radio1'], ['result'] );"> 
    1.34 +<input TYPE="radio" ID="radio1" NAME="radio1" VALUE="red">red 
    1.35 +<input TYPE="radio" ID="radio1" NAME="radio1" VALUE="blue">blue 
    1.36 +<input TYPE="radio" ID="radio1" NAME="radio1" VALUE="yellow">yellow 
    1.37 +<input TYPE="radio" ID="radio1" NAME="radio1" VALUE="green">green 
    1.38 +</DIV> 
    1.39 +<div id='result'> </div>
    1.40 +</form>
    1.41 +</BODY>
    1.42 +</HTML>
    1.43 +EOT
    1.44 +
    1.45 +  return($html);
    1.46 +}
    1.47 +
    1.48 +# this is the exported function 
    1.49 +sub perl_func {
    1.50 +  $a = shift;
    1.51 +  return $a . " was selected"; 
    1.52 +}