no-cache

diff --git a/AwayMsg.pm b/AwayMsg.pm
index 1fa389908d2e7322f0ddceb70835c5869b452c1b..da9eaee94acc6b259f42856388366aac5ac2bd4e 100644 (file)
--- 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);
     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();
                       $dbh);
     %EXPORT_TAGS = ( );
     @EXPORT_OK   = qw();


@@ -20,6 +20,11 @@ BEGIN {
 
 our ($dbh);
 
 
 our ($dbh);
 

+sub www_begin ($$) {
+    my ($r,$m) = @_;
+    $r->header_out("Cache-Control: no-cache");
+}
+

 sub db_connect () {
     my $dbf;
     foreach my $d (@INC) {
 sub db_connect () {
     my $dbf;
     foreach my $d (@INC) {

diff --git a/mason/edit b/mason/edit
index e887bdb739a78f84caf2bf5cf60f28400c46795f..6f256ef4f71927ec6c30cc5e02236fe2cde85630 100755 (executable)
--- a/mason/edit
+++ b/mason/edit
@@ -1,6 +1,7 @@
 <%init>
 use AwayMsg;
 db_connect();
 <%init>
 use AwayMsg;
 db_connect();

+www_begin($r,$m);

 </%init>
 
 <%args>
 </%init>
 
 <%args>

diff --git a/mason/main b/mason/main
index e0d35c9a46f859d62305fa91662c7ce2a3d41a3d..55528eebe15265ce24fba3395cc5878aff27d5a4 100755 (executable)
--- a/mason/main
+++ b/mason/main
@@ -1,6 +1,7 @@
 <%init>
 use AwayMsg;
 db_connect();
 <%init>
 use AwayMsg;
 db_connect();

+www_begin($r,$m);

 my ($sth,$row,$sthi,$rowi);
 </%init>
 <&htmlhead, subpage => 'Overview' &>
 my ($sth,$row,$sthi,$rowi);
 </%init>
 <&htmlhead, subpage => 'Overview' &>

diff --git a/mason/save b/mason/save
index 28c4f616a4eb110e8d9407084fc250cb38fc89c7..2b9622485c8feca71afdfd4f82a1beedd99398d1 100755 (executable)
--- a/mason/save
+++ b/mason/save
@@ -1,6 +1,7 @@
 <%init>
 use AwayMsg;
 db_connect();
 <%init>
 use AwayMsg;
 db_connect();

+www_begin($r,$m);

 </%init><%args>
 $save => 0
 $cancel => 0
 </%init><%args>
 $save => 0
 $cancel => 0