From f0a04c17c324219c6edb893821b4bd7f3dcbfd77 Mon Sep 17 00:00:00 2001 From: ivan Date: Sat, 18 Jul 1998 07:24:10 +0000 Subject: [PATCH] Initial revision --- htdocs/edit/svc_domain.cgi | 120 +++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 120 insertions(+) create mode 100755 htdocs/edit/svc_domain.cgi diff --git a/htdocs/edit/svc_domain.cgi b/htdocs/edit/svc_domain.cgi new file mode 100755 index 000000000..0717a2c09 --- /dev/null +++ b/htdocs/edit/svc_domain.cgi @@ -0,0 +1,120 @@ +#!/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

+
+
+ + + + New +
Transfer + +

Customer agrees to be bound by NSI's + +Domain Name Registration Agreement + +

Domain +
Purpose/Description: +

+
    +
  • COM is for commercial, for-profit organziations +
  • ORG is for miscellaneous, usually, non-profit organizations +
  • NET is for network infrastructure machines and organizations +
  • EDU is for 4-year, degree granting institutions + +
+US state and local government agencies, schools, libraries, museums, and individuals should register under the US domain. See RFC 1480 for a complete description of the US domain +and registration procedures. +

GOV registrations are limited to top-level US Federal Government agencies (see RFC 1816). +

+ + +END + -- 2.11.0