From 6d236f348881a1c212a5f085a615e4c5a86cd050 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Wed, 5 Sep 2012 18:21:36 +0100
Subject: [PATCH] no-cache

---
 AwayMsg.pm | 7 ++++++-
 mason/edit | 1 +
 mason/main | 1 +
 mason/save | 1 +
 4 files changed, 9 insertions(+), 1 deletion(-)

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
-- 
2.30.2