From e966cec8367fbc5f21b366f9c497fc0260292407 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sun, 3 Dec 2000 10:09:35 +0000
Subject: [PATCH] bad caches!

---
 FS/FS/CGIwrapper.pm | 17 +++++++++++++++++
 FS/MANIFEST         |  1 +
 2 files changed, 18 insertions(+)
 create mode 100644 FS/FS/CGIwrapper.pm

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