X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=htdocs%2Fview%2Fsvc_domain.cgi;fp=htdocs%2Fview%2Fsvc_domain.cgi;h=fa35a8cd510324b894f0417c0552b5090e7863e8;hb=0bf5ad9ff0a65195db88ed0bac3aa11c33ec1ad3;hp=78ff6ac0bb35c0b47da4e3987ce7eb450c715496;hpb=f6ef3dec7840be2e7ac7c39bed32a7ea68425b2d;p=freeside.git diff --git a/htdocs/view/svc_domain.cgi b/htdocs/view/svc_domain.cgi index 78ff6ac0b..fa35a8cd5 100755 --- a/htdocs/view/svc_domain.cgi +++ b/htdocs/view/svc_domain.cgi @@ -13,18 +13,23 @@ # # Changes to allow page to work at a relative position in server # bmccane@maxbaud.net 98-apr-3 +# +# $Log: svc_domain.cgi,v $ +# Revision 1.2 1998-11-13 09:56:50 ivan +# change configuration file layout to support multiple distinct databases (with +# own set of config files, export, etc.) +# use strict; -use CGI::Base qw(:DEFAULT :CGI); +use CGI; use FS::UID qw(cgisuidsetup); use FS::Record qw(qsearchs); -my($cgi) = new CGI::Base; -$cgi->get; +my($cgi) = new CGI; cgisuidsetup($cgi); #untaint svcnum -$QUERY_STRING =~ /^(\d+)$/; +$cgi->query_string =~ /^(\d+)$/; my($svcnum)=$1; my($svc_domain)=qsearchs('svc_domain',{'svcnum'=>$svcnum}); die "Unknown svcnum" unless $svc_domain; @@ -41,8 +46,7 @@ if ($pkgnum) { my($part_svc)=qsearchs('part_svc',{'svcpart'=> $cust_svc->svcpart } ); die "Unkonwn svcpart" unless $part_svc; -SendHeaders(); # one guess. -print <header, < Domain View