Mercurial > boosterpack

     1 #!C:/strawberry/perl/bin/perl.exe

     2 use strict;

     3 use CGI::Ajax;

     4 use CGI;

     5 

     6 my $q = new CGI;

     7 

     8 my $concatter = sub {

     9   my $str = "All Values Are <br/>\n";

    10   map { $str .= ' and ' . $_ } @_;

    11   print STDERR $str;

    12   return $str;

    13 };

    14 

    15 my $Show_Form = sub {

    16   my $html = "";

    17   $html = <<EOT

    18 <HTML>

    19 <HEAD><title>CGI::Ajax Multiple Return Value Example</title>

    20 </HEAD>

    21 <BODY>

    22 <form>

    23 <input type="text" id="val1" size="6" value=2 ><br/>

    24 <input type="text" id="val2" size="6" value=hello ><br/>

    25 <input type='text' id='val3' size=6 value=34><br/>

    26 <input type='text' id='val4' size=8 value='something'><br/>

    27 <input type='text' id='val5' size=6 value='\$123.39'><br/>

    28 <input type='text' id='val6' size=6 value='address'><br/>

    29 <input type='text' id='val7' size=9 value='123 fake st'><br/>

    30 <input type='text' id='val8' size=9 value='some input'><br/>

    31 <input type='text' id='val9' size=9 value=another><br/>

    32 <select id='fred'>

    33 <option value='1234'>1234

    34 <option value='abcd' SELECTED >abcd

    35 <option value='zxyw'>zxyw

    36 </select>

    37 <br/>

    38 <button onclick='jsFunc(formDump(),["out"]);return false' > Send In All Form Elements </button>

    39 <div id="out">

    40 </div>

    41 

    42 

    43 </form>

    44 </BODY>

    45 </HTML>

    46 EOT

    47 ;

    48 

    49   return $html;

    50 };

    51 

    52 

    53 my $pjx = CGI::Ajax->new( 'jsFunc' => $concatter);

    54 $pjx->JSDEBUG(2);

    55 $pjx->DEBUG(1);

    56 print $pjx->build_html($q,$Show_Form); # this outputs the html for the page
author	robert
date	Sun, 30 Aug 2009 02:19:26 -0400
parents
children