rlmcintyre: BoosterPack/scripts/pjx_NO_CACHE

initial committ. what was I thinking?

rev	line source
rlm@0	1 #!C:/strawberry/perl/bin/perl.exe
rlm@0	2
rlm@0	3 # this is an script calls an external script and avoids caching:
rlm@0	4 # NB The CGI::Ajax object must come AFTER the coderefs are declared.
rlm@0	5
rlm@0	6 use strict;
rlm@0	7 use CGI::Ajax;
rlm@0	8 use CGI;
rlm@0	9
rlm@0	10 my $q = new CGI;
rlm@0	11
rlm@0	12 my $Show_Form = sub {
rlm@0	13 my $html = "";
rlm@0	14 $html .= <<EOT;
rlm@0	15 <HTML><title>CGI::Ajax No_Cache Example</title>
rlm@0	16 <HEAD>
rlm@0	17 </HEAD>
rlm@0	18 <BODY>
rlm@0	19 <i>
rlm@0	20 If the same URL is requested, A browser may cache the result
rlm@0	21 and return it without querying the requested URL. To avoid that, use
rlm@0	22 the 'NO_CACHE' keyword as a parameter in your javascript function.
rlm@0	23 </i><br/>
rlm@0	24 <form>
rlm@0	25 Click the button and a perl script 'pjx_NO_CACHE_callee.pl should
rlm@0	26 return the current time:<br/><br/>
rlm@0	27
rlm@0	28 <input type="button" id="b1" size="6" value='This will cache (in IE)' onclick="perl_script([], ['out1']);return false"><br/>
rlm@0	29
rlm@0	30 <input type="button" id="b2" size="6" value='This will NOT cache' onclick="perl_script(['NO_CACHE'], ['out1']);"><br/>
rlm@0	31
rlm@0	32 New Time:<input type=text id="out1">
rlm@0	33
rlm@0	34
rlm@0	35 </form>
rlm@0	36 </BODY>
rlm@0	37 </HTML>
rlm@0	38 EOT
rlm@0	39
rlm@0	40 return $html;
rlm@0	41 };
rlm@0	42
rlm@0	43 my $pjx = CGI::Ajax->new( 'perl_script' => 'pjx_NO_CACHE_callee.pl');
rlm@0	44 $pjx->JSDEBUG(1);
rlm@0	45 $pjx->DEBUG(1);
rlm@0	46 print $pjx->build_html($q,$Show_Form); # this outputs the html for the page

Mercurial > rlmcintyre