From: ivan <ivan>
Date: Sun, 3 Dec 2000 10:09:35 +0000 (+0000)
Subject: bad caches!
X-Git-Tag: freeside_1_3_0~64
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=e966cec8367fbc5f21b366f9c497fc0260292407;p=freeside.git

bad caches!
---

diff --git a/FS/FS/CGIwrapper.pm b/FS/FS/CGIwrapper.pm
new file mode 100644
index 000000000..863193e94
--- /dev/null
+++ b/FS/FS/CGIwrapper.pm
@@ -0,0 +1,17 @@
+package FS::CGIwrapper;
+
+use vars qw(@ISA);
+
+use CGI;
+
+@ISA = qw( CGI );
+
+sub header {
+  my $self = shift;
+  $self->SUPER::header(
+    @_,
+    '-expires'       => 'now',
+    '-pragma'        => 'No-Cache',
+    '-cache-control' => 'No-Cache',
+  );
+}
diff --git a/FS/MANIFEST b/FS/MANIFEST
index 91d2e2fc0..a66c5ced7 100644
--- a/FS/MANIFEST
+++ b/FS/MANIFEST
@@ -53,3 +53,4 @@ bin/freeside-print-batch
 FS/domain_record.pm
 FS/prepay_credit.pm
 FS/svc_www.pm
+FS/CGIwrapper.pm