annotate BoosterPack/scripts/.svn/text-base/pjx_NO_CACHE_caller.pl.svn-base @ 0:0d795f02a8bb
tip
initial committ. what was I thinking?
author |
Robert McIntyre <rlm@mit.edu> |
date |
Mon, 27 Sep 2010 16:57:26 -0400 (2010-09-27) |
parents |
|
children |
|
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
|