diff options
| -rw-r--r-- | FS/FS/CGIwrapper.pm | 17 | ||||
| -rw-r--r-- | FS/MANIFEST | 1 |
2 files changed, 18 insertions, 0 deletions
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 |