add new package definitions to all agent types by default

[freeside.git] / FS / FS / CGI.pm
diff --git a/FS/FS/CGI.pm b/FS/FS/CGI.pm

index 4093214..35d2e28 100644 (file)
--- a/FS/FS/CGI.pm
+++ b/FS/FS/CGI.pm
@@ -10,11 +10,7 @@ use FS::UID;
  
  @ISA = qw(Exporter);
  @EXPORT_OK = qw(header menubar idiot eidiot popurl table itable ntable
-                small_custview);
-
-@header = ( '-Expires' => '-1',
-            '-Pragma' => 'no-cache',
-            '-Cache-Control' => 'no-cache' );
+                small_custview myexit);
  
  =head1 NAME
  
@@ -58,6 +54,9 @@ sub header {
          <TITLE>
            $title
          </TITLE>
+        <META HTTP-Equiv="Cache-Control" Content="no-cache">
+        <META HTTP-Equiv="Pragma" Content="no-cache">
+        <META HTTP-Equiv="Expires" Content="0"> 
        </HEAD>
        <BODY BGCOLOR="#e8e8e8"$etc>
            <FONT SIZE=7>
@@ -88,24 +87,27 @@ sub menubar { #$menubar=menubar('Main Menu', '../', 'Item', 'url', ... );
  
  This is depriciated.  Don't use it.
  
-Sends headers and an HTML error message.
+Sends an HTML error message.
  
  =cut
  
  sub idiot {
    #warn "idiot depriciated";
    my($error)=@_;
-  my $cgi = &FS::UID::cgi();
+#  my $cgi = &FS::UID::cgi();
  #  if ( $cgi->isa('CGI::Base') ) {
  #    no strict 'subs';
  #    &CGI::Base::SendHeaders;
  #  } else {
-    print $cgi->header( @FS::CGI::header );
+#    print $cgi->header( @FS::CGI::header );
  #  }
    print <<END;
  <HTML>
    <HEAD>
      <TITLE>Error processing your request</TITLE>
+    <META HTTP-Equiv="Cache-Control" Content="no-cache">
+    <META HTTP-Equiv="Pragma" Content="no-cache">
+    <META HTTP-Equiv="Expires" Content="0"> 
    </HEAD>
    <BODY>
      <CENTER>
@@ -123,13 +125,25 @@ END
  
  This is depriciated.  Don't use it.
  
-Sends headers and an HTML error message, then exits.
+Sends an HTML error message, then exits.
  
  =cut
  
  sub eidiot {
    warn "eidiot depriciated";
    idiot(@_);
+  &myexit();
+}
+
+=item myexit
+
+You probably shouldn't use this; but if you must:
+
+If running under mod_perl, calles Apache::exit, otherwise, calls exit.
+
+=cut
+
+sub myexit {
    if (exists $ENV{MOD_PERL}) {
      $main::Response->End()
        if defined $main::Response