Mercurial > rlmcintyre
annotate BoosterPack/scripts/pjx_cr.pl @ 0:0d795f02a8bb tip
initial committ. what was I thinking?
| author | Robert McIntyre <rlm@mit.edu> |
|---|---|
| date | Mon, 27 Sep 2010 16:57:26 -0400 |
| parents | |
| children |
| rev | line source |
|---|---|
| rlm@0 | 1 #!C:/strawberry/perl/bin/perl.exe |
| rlm@0 | 2 |
| rlm@0 | 3 # this is an example script of how you would use coderefs to define |
| rlm@0 | 4 # your CGI::Ajax functions. |
| rlm@0 | 5 # |
| rlm@0 | 6 # NB The CGI::Ajax object must come AFTER the coderefs are declared. |
| rlm@0 | 7 |
| rlm@0 | 8 use strict; |
| rlm@0 | 9 use CGI::Ajax; |
| rlm@0 | 10 use CGI; |
| rlm@0 | 11 |
| rlm@0 | 12 my $q = new CGI; |
| rlm@0 | 13 |
| rlm@0 | 14 my $exported_fx = sub { |
| rlm@0 | 15 my $value_a = shift; |
| rlm@0 | 16 my $value_b = shift; |
| rlm@0 | 17 $value_a = "" if not defined $value_a; # make sure there's def |
| rlm@0 | 18 $value_b = "" if not defined $value_b; # make sure there's def |
| rlm@0 | 19 |
| rlm@0 | 20 if ( $value_a =~ /\D+/ or $value_a eq "" ) { |
| rlm@0 | 21 return( $value_a . " and " . $value_b ); |
| rlm@0 | 22 } elsif ( $value_b =~ /\D+/ or $value_b eq "" ) { |
| rlm@0 | 23 return( $value_a . " and " . $value_b ); |
| rlm@0 | 24 } else { |
| rlm@0 | 25 # got two numbers, so lets multiply them together |
| rlm@0 | 26 return( $value_a * $value_b ); |
| rlm@0 | 27 } |
| rlm@0 | 28 }; |
| rlm@0 | 29 |
| rlm@0 | 30 |
| rlm@0 | 31 my $Show_Form = sub { |
| rlm@0 | 32 my $html = ""; |
| rlm@0 | 33 $html .= <<EOT; |
| rlm@0 | 34 <HTML> |
| rlm@0 | 35 <HEAD><title>CGI::Ajax Example</title> |
| rlm@0 | 36 </HEAD> |
| rlm@0 | 37 <BODY> |
| rlm@0 | 38 <form> |
| rlm@0 | 39 Enter something: |
| rlm@0 | 40 <input type="text" name="val1" id="val1" size="6" onkeyup="myfunc( ['val1','val2'], ['resultdiv'] ); return true;"><br> |
| rlm@0 | 41 |
| rlm@0 | 42 Enter something else: |
| rlm@0 | 43 <input type="text" name="val2" id="val2" size="6" onkeyup="myfunc( ['val1','val2'], ['resultdiv'] ); return true;"><br> |
| rlm@0 | 44 |
| rlm@0 | 45 <hr> |
| rlm@0 | 46 <div id="resultdiv" style="border: 1px solid black; width: 440px; height: 80px; overflow: auto"> |
| rlm@0 | 47 </div> |
| rlm@0 | 48 </form> |
| rlm@0 | 49 </BODY> |
| rlm@0 | 50 </HTML> |
| rlm@0 | 51 EOT |
| rlm@0 | 52 |
| rlm@0 | 53 return $html; |
| rlm@0 | 54 }; |
| rlm@0 | 55 |
| rlm@0 | 56 my $pjx = CGI::Ajax->new( 'myfunc' => $exported_fx); |
| rlm@0 | 57 print $pjx->build_html($q,$Show_Form); # this outputs the html for the page |