From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Wed, 5 Sep 2012 17:21:36 +0000 (+0100)
Subject: no-cache
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=nj-awaymsg.git;a=commitdiff_plain;h=6d236f348881a1c212a5f085a615e4c5a86cd050;hp=bf9eedd3878e49ca2c27d8393dad92d3de29e454

no-cache
---

diff --git a/AwayMsg.pm b/AwayMsg.pm
index 1fa3899..da9eaee 100644
--- a/AwayMsg.pm
+++ b/AwayMsg.pm
@@ -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) {
diff --git a/mason/edit b/mason/edit
index e887bdb..6f256ef 100755
--- a/mason/edit
+++ b/mason/edit
@@ -1,6 +1,7 @@
 <%init>
 use AwayMsg;
 db_connect();
+www_begin($r,$m);
 </%init>
 
 <%args>
diff --git a/mason/main b/mason/main
index e0d35c9..55528ee 100755
--- a/mason/main
+++ b/mason/main
@@ -1,6 +1,7 @@
 <%init>
 use AwayMsg;
 db_connect();
+www_begin($r,$m);
 my ($sth,$row,$sthi,$rowi);
 </%init>
 <&htmlhead, subpage => 'Overview' &>
diff --git a/mason/save b/mason/save
index 28c4f61..2b96224 100755
--- a/mason/save
+++ b/mason/save
@@ -1,6 +1,7 @@
 <%init>
 use AwayMsg;
 db_connect();
+www_begin($r,$m);
 </%init><%args>
 $save => 0
 $cancel => 0