package FS::CGI;
use strict;
-use vars qw(@EXPORT_OK @ISA);
+use vars qw(@EXPORT_OK @ISA @header);
use Exporter;
use CGI;
use URI::URL;
@ISA = qw(Exporter);
@EXPORT_OK = qw(header menubar idiot eidiot popurl table itable ntable);
+@header = ( '-Expires' => '-1',
+ '-Pragma' => 'no-cache',
+ '-Cache-Control' => 'no-cache' );
+
=head1 NAME
FS::CGI - Subroutines for the web interface
#warn "idiot depriciated";
my($error)=@_;
my $cgi = &FS::UID::cgi();
- if ( $cgi->isa('CGI::Base') ) {
- no strict 'subs';
- &CGI::Base::SendHeaders;
- } else {
- print $cgi->header( '-expires' => 'now' );
- }
+# if ( $cgi->isa('CGI::Base') ) {
+# no strict 'subs';
+# &CGI::Base::SendHeaders;
+# } else {
+ print $cgi->header( @FS::CGI::header );
+# }
print <<END;
<HTML>
<HEAD>
sub Script_OnFlush {
my $ref = $Response->{BinaryRef};
- $$ref = $cgi->header( '-expires' => 'now' ) . $$ref;
+ $$ref = $cgi->header( @FS::CGI::header ) . $$ref;
if ( dbh->can('sprintProfile') ) {
$$ref =~ s/<\/BODY>[\s\n]*<\/HTML>[\s\n]*$//i
}
$r->content_type('text/html');
#eorar
+
+ # @FS::CGI::@headers or some other way to set no-cache headers!!!
my $status = $ah->handle_request($r);
<%
-#<!-- $Id: agent.cgi,v 1.4 2001-09-04 14:44:06 ivan Exp $ -->
+#<!-- $Id: agent.cgi,v 1.5 2001-10-26 10:24:56 ivan Exp $ -->
use strict;
use vars qw( $ui $cgi $p $agent );
$p = popurl(2);
-print $cgi->header( '-expires' => 'now' ), header('Agent Listing', menubar(
+print $cgi->header( @FS::CGI::header ), header('Agent Listing', menubar(
'Main Menu' => $p,
'Agent Types' => $p. 'browse/agent_type.cgi',
# 'Add new agent' => '../edit/agent.cgi'
<%
-#<!-- $Id: agent_type.cgi,v 1.4 2001-09-04 14:44:06 ivan Exp $ -->
+#<!-- $Id: agent_type.cgi,v 1.5 2001-10-26 10:24:56 ivan Exp $ -->
use strict;
use vars qw( $cgi $p $agent_type );
&cgisuidsetup($cgi);
$p = popurl(2);
-print $cgi->header( '-expires' => 'now' ), header("Agent Type Listing", menubar(
+print $cgi->header( @FS::CGI::header ), header("Agent Type Listing", menubar(
'Main Menu' => $p,
)), "Agent types define groups of packages that you can then assign to".
" particular agents.<BR><BR>", &table(), <<END;
<%
-#<!-- $Id: cust_main_county.cgi,v 1.3 2001-08-21 09:34:13 ivan Exp $ -->
+#<!-- $Id: cust_main_county.cgi,v 1.4 2001-10-26 10:24:56 ivan Exp $ -->
use strict;
use vars qw( $cgi $p $cust_main_county );
$p = popurl(2);
-print $cgi->header( '-expires' => 'now' ), header("Tax Rate Listing", menubar(
+print $cgi->header( @FS::CGI::header ), header("Tax Rate Listing", menubar(
'Main Menu' => $p,
'Edit tax rates' => $p. "edit/cust_main_county.cgi",
)),<<END;
$p=popurl(2);
-print $cgi->header( '-expires' => 'now' ), header('NAS ports', menubar(
+print $cgi->header( @FS::CGI::header ), header('NAS ports', menubar(
'Main Menu' => $p,
));
<%
-#<!-- $Id: part_pkg.cgi,v 1.6 2001-10-20 12:17:59 ivan Exp $ -->
+#<!-- $Id: part_pkg.cgi,v 1.7 2001-10-26 10:24:56 ivan Exp $ -->
use strict;
use vars qw( $cgi $p $part_pkg );
$p = popurl(2);
-print $cgi->header( '-expires' => 'now' ), header("Package Definition Listing",menubar(
+print $cgi->header( @FS::CGI::header ), header("Package Definition Listing",menubar(
'Main Menu' => $p,
)), "One or more services are grouped together into a package and given",
" pricing information. Customers purchase packages",
<%
-#<!-- $Id: part_referral.cgi,v 1.4 2001-09-04 14:44:06 ivan Exp $ -->
+#<!-- $Id: part_referral.cgi,v 1.5 2001-10-26 10:24:56 ivan Exp $ -->
use strict;
use vars qw( $cgi $p $part_referral );
$p = popurl(2);
-print $cgi->header( '-expires' => 'now' ), header("Referral Listing", menubar(
+print $cgi->header( @FS::CGI::header ), header("Referral Listing", menubar(
'Main Menu' => $p,
# 'Add new referral' => "../edit/part_referral.cgi",
)), "Where a customer heard about your service. Tracked for informational purposes.<BR><BR>", &table(), <<END;
<%
-#<!-- $Id: queue.cgi,v 1.3 2001-10-24 00:59:56 ivan Exp $ -->
+#<!-- $Id: queue.cgi,v 1.4 2001-10-26 10:24:56 ivan Exp $ -->
use strict;
use vars qw( $cgi $p ); # $part_referral );
$p = popurl(2);
-print $cgi->header( '-expires' => 'now' ), header("Job Queue", menubar(
+print $cgi->header( @FS::CGI::header ), header("Job Queue", menubar(
'Main Menu' => $p,
# 'Add new referral' => "../edit/part_referral.cgi",
)), &table(), <<END;
<%
-#<!-- $Id: svc_acct_pop.cgi,v 1.4 2001-08-31 08:43:41 ivan Exp $ -->
+#<!-- $Id: svc_acct_pop.cgi,v 1.5 2001-10-26 10:24:56 ivan Exp $ -->
use strict;
use vars qw( $cgi $p $svc_acct_pop );
$p = popurl(2);
-print $cgi->header( '-expires' => 'now' ), header('POP Listing', menubar(
+print $cgi->header( @FS::CGI::header ), header('POP Listing', menubar(
'Main Menu' => $p,
)), "Points of Presence<BR><BR>", &table(), <<END;
<TR>
<%
-#<!-- $Id: agent.cgi,v 1.3 2001-08-29 09:11:30 ivan Exp $ -->
+#<!-- $Id: agent.cgi,v 1.4 2001-10-26 10:24:56 ivan Exp $ -->
use strict;
use vars qw ( $cgi $agent $action $hashref $p $agent_type );
$p = popurl(2);
-print $cgi->header( '-expires' => 'now' ), header("$action Agent", menubar(
+print $cgi->header( @FS::CGI::header ), header("$action Agent", menubar(
'Main Menu' => $p,
'View all agents' => $p. 'browse/agent.cgi',
));
<%
-#<!-- $Id: agent_type.cgi,v 1.3 2001-09-04 15:06:03 ivan Exp $ -->
+#<!-- $Id: agent_type.cgi,v 1.4 2001-10-26 10:24:56 ivan Exp $ -->
use strict;
use vars qw( $cgi $agent_type $action $hashref $p $part_pkg );
$hashref = $agent_type->hashref;
$p = popurl(2);
-print $cgi->header( '-expires' => 'now' ), header("$action Agent Type", menubar(
+print $cgi->header( @FS::CGI::header ), header("$action Agent Type", menubar(
'Main Menu' => "$p",
'View all agent types' => "${p}browse/agent_type.cgi",
));
<%
-#<!-- $Id: cust_credit.cgi,v 1.3 2001-09-03 22:07:39 ivan Exp $ -->
+#<!-- $Id: cust_credit.cgi,v 1.4 2001-10-26 10:24:56 ivan Exp $ -->
use strict;
use vars qw( $cgi $query $custnum $otaker $p1 $crednum $_date $amount $reason );
$p1 = popurl(1);
-print $cgi->header( '-expires' => 'now' ), header("Post Credit", '');
+print $cgi->header( @FS::CGI::header ), header("Post Credit", '');
print qq!<FONT SIZE="+1" COLOR="#ff0000">Error: !, $cgi->param('error'),
"</FONT>"
if $cgi->param('error');
<%
-#<!-- $Id: cust_credit_bill.cgi,v 1.3 2001-09-03 22:07:39 ivan Exp $ -->
+#<!-- $Id: cust_credit_bill.cgi,v 1.4 2001-10-26 10:24:56 ivan Exp $ -->
use strict;
use vars qw( $cgi $query $custnum $invnum $otaker $p1 $crednum $amount $reason $cust_credit );
$p1 = popurl(1);
-print $cgi->header( '-expires' => 'now' ), header("Apply Credit", '');
+print $cgi->header( @FS::CGI::header ), header("Apply Credit", '');
print qq!<FONT SIZE="+1" COLOR="#ff0000">Error: !, $cgi->param('error'),
"</FONT><BR><BR>"
if $cgi->param('error');
<%
-#<!-- $Id: cust_main.cgi,v 1.7 2001-10-15 11:35:28 ivan Exp $ -->
+#<!-- $Id: cust_main.cgi,v 1.8 2001-10-26 10:24:56 ivan Exp $ -->
use vars qw( $cgi $custnum $action $cust_main $p1 @agents $agentnum
$last $first $ss $company $address1 $address2 $city $zip
# top
$p1 = popurl(1);
-print $cgi->header( '-expires' => 'now' ), header("Customer $action", '');
+print $cgi->header( @FS::CGI::header ), header("Customer $action", '');
print qq!<FONT SIZE="+1" COLOR="#ff0000">Error: !, $error, "</FONT>"
if $error;
<%
-#<!-- $Id: cust_main_county-expand.cgi,v 1.3 2001-08-31 07:28:00 ivan Exp $ -->
+#<!-- $Id: cust_main_county-expand.cgi,v 1.4 2001-10-26 10:24:56 ivan Exp $ -->
use strict;
use vars qw( $cgi $taxnum $cust_main_county $p1 $delim $expansion );
die "Can't expand entry!" if $cust_main_county->getfield('county');
$p1 = popurl(1);
-print $cgi->header( '-expires' => 'now' ), header("Tax Rate (expand)", menubar(
+print $cgi->header( @FS::CGI::header ), header("Tax Rate (expand)", menubar(
'Main Menu' => popurl(2),
));
<%
-#<!-- $Id: cust_main_county.cgi,v 1.3 2001-08-21 02:31:56 ivan Exp $ -->
+#<!-- $Id: cust_main_county.cgi,v 1.4 2001-10-26 10:24:56 ivan Exp $ -->
use strict;
use vars qw( $cgi $cust_main_county );
&cgisuidsetup($cgi);
-print $cgi->header( '-expires' => 'now' ), header("Edit tax rates", menubar(
+print $cgi->header( @FS::CGI::header ), header("Edit tax rates", menubar(
'Main Menu' => popurl(2),
));
<%
-#<!-- $Id: cust_pay.cgi,v 1.3 2001-09-03 22:07:39 ivan Exp $ -->
+#<!-- $Id: cust_pay.cgi,v 1.4 2001-10-26 10:24:56 ivan Exp $ -->
use strict;
use vars qw( $cgi $link $linknum $p1 $_date $payby $payinfo $paid );
$_date = time;
$p1 = popurl(1);
-print $cgi->header( '-expires' => 'now' ), header("Enter payment", '');
+print $cgi->header( @FS::CGI::header ), header("Enter payment", '');
print qq!<FONT SIZE="+1" COLOR="#ff0000">Error: !, $cgi->param('error'),
"</FONT>"
<%
-#<!-- $Id: cust_pkg.cgi,v 1.2 2001-08-21 02:31:56 ivan Exp $ -->
+#<!-- $Id: cust_pkg.cgi,v 1.3 2001-10-26 10:24:56 ivan Exp $ -->
use strict;
use vars qw( $cgi %pkg %comment $custnum $p1 @cust_pkg
}
$p1 = popurl(1);
-print $cgi->header( '-expires' => 'now' ), header("Add/Edit Packages", '');
+print $cgi->header( @FS::CGI::header ), header("Add/Edit Packages", '');
print qq!<FONT SIZE="+1" COLOR="#ff0000">Error: !, $cgi->param('error'),
"</FONT>"
<%
-#<!-- $Id: part_referral.cgi,v 1.2 2001-08-21 02:31:56 ivan Exp $ -->
+#<!-- $Id: part_referral.cgi,v 1.3 2001-10-26 10:24:56 ivan Exp $ -->
use strict;
use vars qw( $cgi $part_referral $action $hashref $p1 $query );
$hashref = $part_referral->hashref;
$p1 = popurl(1);
-print $cgi->header( '-expires' => 'now' ), header("$action Referral", menubar(
+print $cgi->header( @FS::CGI::header ), header("$action Referral", menubar(
'Main Menu' => popurl(2),
'View all referrals' => popurl(2). "browse/part_referral.cgi",
));
<%
-#<!-- $Id: svc_acct.cgi,v 1.10 2001-10-20 12:18:00 ivan Exp $ -->
+#<!-- $Id: svc_acct.cgi,v 1.11 2001-10-26 10:24:56 ivan Exp $ -->
use strict;
use vars qw( $conf $cgi @shells $action $svcnum $svc_acct $pkgnum $svcpart
$ulen2 = $ulen+2;
$p1 = popurl(1);
-print $cgi->header( '-expires' => 'now' ), header("$action $svc account");
+print $cgi->header( @FS::CGI::header ), header("$action $svc account");
print qq!<FONT SIZE="+1" COLOR="#ff0000">Error: !, $cgi->param('error'),
"</FONT><BR><BR>"
<%
-#<!-- $Id: svc_acct_pop.cgi,v 1.2 2001-08-21 02:31:56 ivan Exp $ -->
+#<!-- $Id: svc_acct_pop.cgi,v 1.3 2001-10-26 10:24:56 ivan Exp $ -->
use strict;
use vars qw( $cgi $svc_acct_pop $action $query $hashref $p1 );
$hashref = $svc_acct_pop->hashref;
$p1 = popurl(1);
-print $cgi->header( '-expires' => 'now' ), header("$action POP", menubar(
+print $cgi->header( @FS::CGI::header ), header("$action POP", menubar(
'Main Menu' => popurl(2),
'View all POPs' => popurl(2). "browse/svc_acct_pop.cgi",
));
<%
-#<!-- $Id: svc_acct_sm.cgi,v 1.4 2001-09-11 23:44:01 ivan Exp $ -->
+#<!-- $Id: svc_acct_sm.cgi,v 1.5 2001-10-26 10:24:56 ivan Exp $ -->
use strict;
use vars qw( $conf $cgi $mydomain $action $svcnum $svc_acct_sm $pkgnum $svcpart
}
$p1 = popurl(1);
-print $cgi->header( '-expires' => 'now' ), header("Mail Alias $action", '');
+print $cgi->header( @FS::CGI::header ), header("Mail Alias $action", '');
print qq!<FONT SIZE="+1" COLOR="#ff0000">Error: !, $cgi->param('error'),
"</FONT>"
<%
-#<!-- $Id: svc_domain.cgi,v 1.4 2001-10-25 21:24:12 ivan Exp $ -->
+#<!-- $Id: svc_domain.cgi,v 1.5 2001-10-26 10:24:56 ivan Exp $ -->
use strict;
use vars qw( $cgi $action $svcnum $svc_domain $pkgnum $svcpart $part_svc
$domain = $svc_domain->domain;
$p1 = popurl(1);
-print $cgi->header( '-expires' => 'now' ), header("$action $svc", '');
+print $cgi->header( @FS::CGI::header ), header("$action $svc", '');
print qq!<FONT SIZE="+1" COLOR="#ff0000">Error: !, $cgi->param('error'),
"</FONT>"
<%
-# <!-- $Id: svc_forward.cgi,v 1.4 2001-09-11 23:44:01 ivan Exp $ -->
+# <!-- $Id: svc_forward.cgi,v 1.5 2001-10-26 10:24:56 ivan Exp $ -->
use strict;
use vars qw( $conf $cgi $mydomain $action $svcnum $svc_forward $pkgnum $svcpart
#display
$p1 = popurl(1);
-print $cgi->header( '-expires' => 'now' ), header("Mail Forward $action", '',
+print $cgi->header( @FS::CGI::header ), header("Mail Forward $action", '',
" onLoad=\"visualize()\"");
%>
<%
-#<!-- $Id: catchall.cgi,v 1.2 2001-08-21 02:31:56 ivan Exp $ -->
+#<!-- $Id: catchall.cgi,v 1.3 2001-10-26 10:24:56 ivan Exp $ -->
use strict;
use vars qw( $conf $cgi $action $svcnum $svc_domain $pkgnum $svcpart
$email{0} = "(none)";
$p1 = popurl(1);
-print $cgi->header( '-expires' => 'now' ), header("Domain Catchall Edit", '');
+print $cgi->header( @FS::CGI::header ), header("Domain Catchall Edit", '');
print qq!<FONT SIZE="+1" COLOR="#ff0000">Error: !, $cgi->param('error'),
"</FONT>"
<%
-#<!-- $Id: delete-customer.cgi,v 1.3 2001-08-21 02:31:56 ivan Exp $ -->
+#<!-- $Id: delete-customer.cgi,v 1.4 2001-10-26 10:24:56 ivan Exp $ -->
use strict;
use vars qw( $cgi $conf $query $custnum $new_custnum $cust_main );
$cust_main = qsearchs( 'cust_main', { 'custnum' => $custnum } )
or die "Customer not found: $custnum";
-print $cgi->header ( '-expires' => 'now' ), header('Delete customer');
+print $cgi->header ( @FS::CGI::header ), header('Delete customer');
print qq!<FONT SIZE="+1" COLOR="#ff0000">Error: !, $cgi->param('error'),
"</FONT>"
<%
-#<!-- $Id: link.cgi,v 1.2 2001-08-21 02:31:56 ivan Exp $ -->
+#<!-- $Id: link.cgi,v 1.3 2001-10-26 10:24:56 ivan Exp $ -->
use strict;
use vars qw ( %link_field $cgi $pkgnum $svcpart $query $part_svc $svc $svcdb
$svcdb = $part_svc->getfield('svcdb');
$link_field = $link_field{$svcdb};
-print $cgi->header( '-expires' => 'now' ), header("Link to existing $svc"),
+print $cgi->header( @FS::CGI::header ), header("Link to existing $svc"),
qq!<FORM ACTION="!, popurl(1), qq!process/link.cgi" METHOD=POST>!;
if ( $link_field ) {
<%
-#<!-- $Id: cust_bill.cgi,v 1.3 2001-09-01 12:35:39 ivan Exp $ -->
+#<!-- $Id: cust_bill.cgi,v 1.4 2001-10-26 10:24:56 ivan Exp $ -->
use strict;
use vars qw ( $cgi $invnum $query $sortby @cust_bill );
eidiot("Invoice not found.");
} else {
my $total = scalar(@cust_bill);
- print $cgi->header( '-expires' => 'now' ),
+ print $cgi->header( @FS::CGI::header ),
&header("Invoice Search Results", menubar(
'Main Menu', popurl(2)
)), "$total matching invoices found<BR>", &table(), <<END;
<%
-#<!-- $Id: cust_main.cgi,v 1.10 2001-10-10 06:22:22 thalakan Exp $ -->
+#<!-- $Id: cust_main.cgi,v 1.11 2001-10-26 10:24:56 ivan Exp $ -->
use strict;
#use vars qw( $conf %ncancelled_pkgs %all_pkgs $cgi @cust_main $sortby );
} else {
my($total)=scalar(@cust_main);
- print $cgi->header( '-expires' => 'now' ), header("Customer Search Results",menubar(
+ print $cgi->header( @FS::CGI::header ), header("Customer Search Results",menubar(
'Main Menu', popurl(2)
)), "$total matching customers found ";
if ( $cgi->param('showcancelledcustomers') eq '0' #see if it was set by me
<%
-# <!-- $Id: cust_pkg.cgi,v 1.4 2001-08-21 02:03:32 ivan Exp $ -->
+# <!-- $Id: cust_pkg.cgi,v 1.5 2001-10-26 10:24:56 ivan Exp $ -->
use strict;
use vars qw ( $cgi @cust_pkg $sortby $query %part_pkg );
eidiot("No packages found");
} else {
my($total)=scalar(@cust_pkg);
- print $cgi->header( '-expires' => 'now' ),
+ print $cgi->header( @FS::CGI::header ),
header('Package Search Results',''),
"$total matching packages found<BR>", &table(), <<END;
<TR>
<%
-# <!-- $Id: svc_acct.cgi,v 1.6 2001-10-24 15:29:31 ivan Exp $ -->
+# <!-- $Id: svc_acct.cgi,v 1.7 2001-10-26 10:24:56 ivan Exp $ -->
use strict;
use vars qw( $cgi @svc_acct $sortby $query $mydomain );
idiot("Account not found");
} else {
my($total)=scalar(@svc_acct);
- print $cgi->header( '-expires' => 'now' ),
+ print $cgi->header( @FS::CGI::header ),
header("Account Search Results",''),
"$total matching accounts found",
&table(), <<END;
<%
-#<!-- $Id: svc_acct_sm.cgi,v 1.2 2001-08-21 02:31:57 ivan Exp $ -->
+#<!-- $Id: svc_acct_sm.cgi,v 1.3 2001-10-26 10:24:56 ivan Exp $ -->
use strict;
use vars qw( $conf $cgi $mydomain $domuser $svc_domain $domsvc @svc_acct_sm );
my($svcnum)=$svc_acct_sm[0]->svcnum;
print $cgi->redirect(popurl(2). "view/svc_acct_sm.cgi?$svcnum");
} elsif ( scalar(@svc_acct_sm) > 1 ) {
- print $cgi->header( '-expires' => 'now' ),
+ print $cgi->header( @FS::CGI::header ),
header('Mail Alias Search Results'),
&table(), <<END;
<TR>
<%
-# <!-- $Id: svc_domain.cgi,v 1.3 2001-08-21 02:31:57 ivan Exp $ -->
+# <!-- $Id: svc_domain.cgi,v 1.4 2001-10-26 10:24:56 ivan Exp $ -->
use strict;
use vars qw ( $cgi @svc_domain $sortby $query $conf $mydomain );
} else {
my($total)=scalar(@svc_domain);
- print $cgi->header( '-expires' => 'now' ),
+ print $cgi->header( @FS::CGI::header ),
header("Domain Search Results",''), <<END;
$total matching domains found
<%
-# <!-- $Id: cust_bill.cgi,v 1.3 2001-09-03 22:07:39 ivan Exp $ -->
+# <!-- $Id: cust_bill.cgi,v 1.4 2001-10-26 10:24:56 ivan Exp $ -->
use strict;
use vars qw ( $cgi $query $invnum $cust_bill $custnum $printed $p );
$printed = $cust_bill->printed;
$p = popurl(2);
-print $cgi->header( '-expires' => 'now' ), header('Invoice View', menubar(
+print $cgi->header( @FS::CGI::header ), header('Invoice View', menubar(
"Main Menu" => $p,
"View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum",
));
<%
-#<!-- $Id: cust_main.cgi,v 1.12 2001-09-21 03:47:26 ivan Exp $ -->
+#<!-- $Id: cust_main.cgi,v 1.13 2001-10-26 10:24:56 ivan Exp $ -->
use strict;
use vars qw ( $cgi $query $custnum $cust_main $hashref $agent $referral
$conf = new FS::Conf;
-print $cgi->header( '-expires' => 'now' ), header("Customer View", menubar(
+print $cgi->header( @FS::CGI::header ), header("Customer View", menubar(
'Main Menu' => popurl(2)
));
<%
-# <!-- $Id: cust_pkg.cgi,v 1.3 2001-10-15 14:58:03 ivan Exp $ -->
+# <!-- $Id: cust_pkg.cgi,v 1.4 2001-10-26 10:24:56 ivan Exp $ -->
use strict;
use vars qw ( $cgi %uiview %uiadd $part_svc $query $pkgnum $cust_pkg $part_pkg
$part_pkg = qsearchs('part_pkg',{'pkgpart'=>$cust_pkg->getfield('pkgpart')});
$custnum = $cust_pkg->getfield('custnum');
-print $cgi->header( '-expires' => 'now' ), header('Package View', menubar(
+print $cgi->header( @FS::CGI::header ), header('Package View', menubar(
"View this customer (#$custnum)" => popurl(2). "view/cust_main.cgi?$custnum",
'Main Menu' => popurl(2)
));
<%
-# <!-- $Id: svc_acct.cgi,v 1.6 2001-09-27 20:41:37 ivan Exp $ -->
+# <!-- $Id: svc_acct.cgi,v 1.7 2001-10-26 10:24:56 ivan Exp $ -->
use strict;
use vars qw( $conf $cgi $domain $query $svcnum $svc_acct $cust_svc $pkgnum
}
$p = popurl(2);
-print $cgi->header( '-expires' => 'now' ), header('Account View', menubar(
+print $cgi->header( @FS::CGI::header ), header('Account View', menubar(
( ( $pkgnum || $custnum )
? ( "View this package (#$pkgnum)" => "${p}view/cust_pkg.cgi?$pkgnum",
"View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum",
<%
-#<!-- $Id: svc_acct_sm.cgi,v 1.2 2001-08-21 02:31:57 ivan Exp $ -->
+#<!-- $Id: svc_acct_sm.cgi,v 1.3 2001-10-26 10:24:56 ivan Exp $ -->
use strict;
use vars qw($conf $cgi $mydomain $query $svcnum $svc_acct_sm $cust_svc
or die "Unkonwn svcpart";
$p = popurl(2);
-print $cgi->header( '-expires' => 'now' ), header('Mail Alias View', menubar(
+print $cgi->header( @FS::CGI::header ), header('Mail Alias View', menubar(
( ( $pkgnum || $custnum )
? ( "View this package (#$pkgnum)" => "${p}view/cust_pkg.cgi?$pkgnum",
"View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum",
<%
-# <!-- $Id: svc_domain.cgi,v 1.3 2001-08-21 02:31:57 ivan Exp $ -->
+# <!-- $Id: svc_domain.cgi,v 1.4 2001-10-26 10:24:56 ivan Exp $ -->
use strict;
use vars qw( $cgi $query $svcnum $svc_domain $domain $cust_svc $pkgnum
$domain = $svc_domain->domain;
$p = popurl(2);
-print $cgi->header( '-expires' => 'now' ), header('Domain View', menubar(
+print $cgi->header( @FS::CGI::header ), header('Domain View', menubar(
( ( $pkgnum || $custnum )
? ( "View this package (#$pkgnum)" => "${p}view/cust_pkg.cgi?$pkgnum",
"View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum",
<%
-# <!-- $Id: svc_forward.cgi,v 1.2 2001-08-21 02:31:57 ivan Exp $ -->
+# <!-- $Id: svc_forward.cgi,v 1.3 2001-10-26 10:24:56 ivan Exp $ -->
use strict;
use vars qw($conf $cgi $query $svcnum $svc_forward $cust_svc
or die "Unkonwn svcpart";
$p = popurl(2);
-print $cgi->header( '-expires' => 'now' ), header('Mail Forward View', menubar(
+print $cgi->header( @FS::CGI::header ), header('Mail Forward View', menubar(
( ( $pkgnum || $custnum )
? ( "View this package (#$pkgnum)" => "${p}view/cust_pkg.cgi?$pkgnum",
"View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum",