dougm 01/04/17 14:57:21
Modified: . Changes
src/modules/perl Apache.xs
Log:
$r->no_cache(0) will unset cache headers
Revision Changes Path
1.585 +3 -0 modperl/Changes
Index: Changes
===================================================================
RCS file: /home/cvs/modperl/Changes,v
retrieving revision 1.584
retrieving revision 1.585
diff -u -r1.584 -r1.585
--- Changes 2001/04/17 21:48:49 1.584
+++ Changes 2001/04/17 21:57:17 1.585
@@ -10,6 +10,9 @@
=item 1.25_01-dev
+$r->no_cache(0) will unset cache headers
+[Geoffrey Young <[EMAIL PROTECTED]>]
+
export hvrv2table (needed by Apache::Request) for aix and win32
[Jens-Uwe Mager <[EMAIL PROTECTED]>, Randy Kobes <[EMAIL PROTECTED]>]
1.120 +4 -0 modperl/src/modules/perl/Apache.xs
Index: Apache.xs
===================================================================
RCS file: /home/cvs/modperl/src/modules/perl/Apache.xs,v
retrieving revision 1.119
retrieving revision 1.120
diff -u -r1.119 -r1.120
--- Apache.xs 2000/12/29 17:10:08 1.119
+++ Apache.xs 2001/04/17 21:57:20 1.120
@@ -1890,6 +1890,10 @@
ap_table_setn(r->headers_out, "Pragma", "no-cache");
ap_table_setn(r->headers_out, "Cache-control", "no-cache");
}
+ else if (items > 1) { /* $r->no_cache(0) */
+ ap_table_unset(r->headers_out, "Pragma");
+ ap_table_unset(r->headers_out, "Cache-control");
+ }
OUTPUT:
RETVAL
