bad caches!

diff --git a/FS/FS/CGIwrapper.pm b/FS/FS/CGIwrapper.pm
new file mode 100644 (file)
index 0000000..863193e
--- /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 91d2e2f..a66c5ce 100644 (file)
--- 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