chiark / gitweb /
no-cache
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Wed, 5 Sep 2012 17:21:36 +0000 (18:21 +0100)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Wed, 5 Sep 2012 17:21:36 +0000 (18:21 +0100)
AwayMsg.pm
mason/edit
mason/main
mason/save

index 1fa3899..da9eaee 100644 (file)
@@ -12,7 +12,7 @@ BEGIN {
     our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
     $VERSION     = 1.00;
     @ISA         = qw(Exporter);
-    @EXPORT      = qw(db_connect db_commit
+    @EXPORT      = qw(db_connect db_commit www_begin
                       $dbh);
     %EXPORT_TAGS = ( );
     @EXPORT_OK   = qw();
@@ -20,6 +20,11 @@ BEGIN {
 
 our ($dbh);
 
+sub www_begin ($$) {
+    my ($r,$m) = @_;
+    $r->header_out("Cache-Control: no-cache");
+}
+
 sub db_connect () {
     my $dbf;
     foreach my $d (@INC) {
index e887bdb..6f256ef 100755 (executable)
@@ -1,6 +1,7 @@
 <%init>
 use AwayMsg;
 db_connect();
+www_begin($r,$m);
 </%init>
 
 <%args>
index e0d35c9..55528ee 100755 (executable)
@@ -1,6 +1,7 @@
 <%init>
 use AwayMsg;
 db_connect();
+www_begin($r,$m);
 my ($sth,$row,$sthi,$rowi);
 </%init>
 <&htmlhead, subpage => 'Overview' &>
index 28c4f61..2b96224 100755 (executable)
@@ -1,6 +1,7 @@
 <%init>
 use AwayMsg;
 db_connect();
+www_begin($r,$m);
 </%init><%args>
 $save => 0
 $cancel => 0