#!/usr/bin/perl -Tw # # svc_domain.cgi: Add domain (output form) # # Usage: svc_domain.cgi pkgnum{pkgnum}-svcpart{svcpart} # http://server.name/path/svc_domain.cgi?pkgnum{pkgnum}-svcpart{svcpart} # # Note: Should be run setuid freeside as user nobody # # ivan@voicenet.com 97-jan-5 -> 97-jan-6 # # changes for domain template 3.5 # ivan@voicenet.com 97-jul-24 # # rewrite ivan@sisd.com 98-mar-14 # # no GOV in instructions ivan@sisd.com 98-jul-17 use strict; use CGI::Base qw(:DEFAULT :CGI); use FS::UID qw(cgisuidsetup getotaker); use FS::Record qw(qsearch qsearchs); use FS::svc_domain qw(fields); my($cgi) = new CGI::Base; $cgi->get; &cgisuidsetup($cgi); my($action,$svcnum,$svc_domain,$pkgnum,$svcpart,$part_svc); if ( $QUERY_STRING =~ /^(\d+)$/ ) { #editing $svcnum=$1; $svc_domain=qsearchs('svc_domain',{'svcnum'=>$svcnum}) or die "Unknown (svc_domain) svcnum!"; my($cust_svc)=qsearchs('cust_svc',{'svcnum'=>$svcnum}) or die "Unknown (cust_svc) svcnum!"; $pkgnum=$cust_svc->pkgnum; $svcpart=$cust_svc->svcpart; $part_svc=qsearchs('part_svc',{'svcpart'=>$svcpart}); die "No part_svc entry!" unless $part_svc; $action="Edit"; } else { #adding $svc_domain=create FS::svc_domain({}); foreach $_ (split(/-/,$QUERY_STRING)) { $pkgnum=$1 if /^pkgnum(\d+)$/; $svcpart=$1 if /^svcpart(\d+)$/; } $part_svc=qsearchs('part_svc',{'svcpart'=>$svcpart}); die "No part_svc entry!" unless $part_svc; $svcnum=''; #set fixed and default fields from part_svc my($field); foreach $field ( fields('svc_domain') ) { if ( $part_svc->getfield('svc_domain__'. $field. '_flag') ne '' ) { $svc_domain->setfield($field,$part_svc->getfield('svc_domain__'. $field) ); } } $action="Add"; } my($svc)=$part_svc->getfield('svc'); my($otaker)=getotaker; my($domain)=( $svc_domain->domain, ); SendHeaders(); print < $action $svc

$action $svc

END