FS/FS/CGIwrapper.pm

   1 package FS::CGIwrapper;
   2
   3 use vars qw(@ISA);
   4
   5 use CGI;
   6
   7 @ISA = qw( CGI );
   8
   9 sub header {
  10   my $self = shift;
  11   $self->SUPER::header(
  12     @_,
  13     '-expires'       => 'now',
  14     '-pragma'        => 'No-Cache',
  15     '-cache-control' => 'No-Cache',
  16   );
  17 }