From b6869885e52ea0e18009350bf59d4eca8aafb0eb Mon Sep 17 00:00:00 2001 From: ivan Date: Thu, 17 Dec 1998 06:17:12 +0000 Subject: fix double // in relative URLs, s/CGI::Base/CGI/; --- htdocs/edit/svc_acct.cgi | 37 ++++++++++++++++++------------------- 1 file changed, 18 insertions(+), 19 deletions(-) (limited to 'htdocs/edit/svc_acct.cgi') diff --git a/htdocs/edit/svc_acct.cgi b/htdocs/edit/svc_acct.cgi index 93af2eb73..dc9f6e91a 100755 --- a/htdocs/edit/svc_acct.cgi +++ b/htdocs/edit/svc_acct.cgi @@ -1,6 +1,6 @@ #!/usr/bin/perl -Tw # -# $Id: svc_acct.cgi,v 1.2 1998-12-16 05:17:28 ivan Exp $ +# $Id: svc_acct.cgi,v 1.3 1998-12-17 06:17:08 ivan Exp $ # # Usage: svc_acct.cgi {svcnum} | pkgnum{pkgnum}-svcpart{svcpart} # http://server.name/path/svc_acct.cgi? {svcnum} | pkgnum{pkgnum}-svcpart{svcpart} @@ -16,25 +16,32 @@ # bmccane@maxbaud.net 98-apr-3 # # use conf/shells and dbdef username length ivan@sisd.com 98-jul-13 +# +# $Log: svc_acct.cgi,v $ +# Revision 1.3 1998-12-17 06:17:08 ivan +# fix double // in relative URLs, s/CGI::Base/CGI/; +# use strict; use vars qw($conf); -use CGI::Base qw(:DEFAULT :CGI); +use CGI; +use CGI::Carp qw(fatalsToBrowser); use FS::UID qw(cgisuidsetup getotaker); +use FS::CGI qw(header popurl); use FS::Record qw(qsearch qsearchs); use FS::svc_acct qw(fields); use FS::Conf; +my($cgi) = new CGI; +&cgisuidsetup($cgi); + $conf = new FS::Conf; my @shells = $conf->config('shells'); -my($cgi) = new CGI::Base; -$cgi->get; -&cgisuidsetup($cgi); - my($action,$svcnum,$svc_acct,$pkgnum,$svcpart,$part_svc); -if ( $QUERY_STRING =~ /^(\d+)$/ ) { #editing +my($query) = $cgi->keywords; +if ( $query =~ /^(\d+)$/ ) { #editing $svcnum=$1; $svc_acct=qsearchs('svc_acct',{'svcnum'=>$svcnum}) @@ -55,7 +62,7 @@ if ( $QUERY_STRING =~ /^(\d+)$/ ) { #editing $svc_acct=create FS::svc_acct({}); - foreach $_ (split(/-/,$QUERY_STRING)) { + foreach $_ (split(/-/,$query)) { $pkgnum=$1 if /^pkgnum(\d+)$/; $svcpart=$1 if /^svcpart(\d+)$/; } @@ -97,17 +104,9 @@ my($username,$password)=( my($ulen)=$svc_acct->dbdef_table->column('username')->length; my($ulen2)=$ulen+2; -SendHeaders(); -print < - - $action $svc account - - - -