#!/usr/bin/perl -Tw
#
-# $Id: register.cgi,v 1.4 2000-03-03 05:32:56 ivan Exp $
+# $Id: register.cgi,v 1.5 2000-03-03 18:22:42 ivan Exp $
use strict;
use vars qw(
#$user_pw $crypt_pw
#$header $msg
use CGI;
-#use CGI::Carp qw(fatalsToBrowser);
+use CGI::Carp qw(fatalsToBrowser);
use DBI;
#use Mail::Internet;
#use Mail::Header;
<li><a href="upgrade2.html">Upgrading from 1.1.x to 1.1.4</a>
<li><a href="upgrade3.html">Upgrading from 1.1.x to 1.2.x</a>
<li><a href="upgrade4.html">Upgrading from 1.2.x to 1.2.2</a>
- <li><a href="upgrade5.html">Upgrading from 1.2.2 to 1.3.0</a>
+ <li><a href="upgrade5.html">Upgrading from 1.2.2 to 1.2.3</a>
<li><a href="config.html">Configuration files</a>
<!--
<li><a href="admin.html">Administration</a>
<HTML>
<HEAD>
<TITLE>FS - Freeside Perl modules</TITLE>
-<LINK REV="made" HREF="mailto:ivan@rootwood.sisd.com">
+<LINK REV="made" HREF="mailto:none">
</HEAD>
<BODY>
<HR>
<H1><A NAME="VERSION">VERSION</A></H1>
<P>
-$Id: FS.html,v 1.1 1999-08-04 12:13:27 ivan Exp $
+$Id: FS.html,v 1.2 2000-03-03 18:22:42 ivan Exp $
<P>
<HR>
<HTML>
<HEAD>
<TITLE>FS::Bill - Legacy stub</TITLE>
-<LINK REV="made" HREF="mailto:ivan@rootwood.sisd.com">
+<LINK REV="made" HREF="mailto:none">
</HEAD>
<BODY>
<HTML>
<HEAD>
<TITLE>FS::CGI - Subroutines for the web interface</TITLE>
-<LINK REV="made" HREF="mailto:ivan@rootwood.sisd.com">
+<LINK REV="made" HREF="mailto:none">
</HEAD>
<BODY>
<HTML>
<HEAD>
<TITLE>FS::Conf - Read access to Freeside configuration values</TITLE>
-<LINK REV="made" HREF="mailto:ivan@rootwood.sisd.com">
+<LINK REV="made" HREF="mailto:none">
</HEAD>
<BODY>
<HTML>
<HEAD>
<TITLE>FS::Invoice - Legacy stub</TITLE>
-<LINK REV="made" HREF="mailto:ivan@rootwood.sisd.com">
+<LINK REV="made" HREF="mailto:none">
</HEAD>
<BODY>
<HTML>
<HEAD>
<TITLE>FS::Record - Database record objects</TITLE>
-<LINK REV="made" HREF="mailto:ivan@rootwood.sisd.com">
+<LINK REV="made" HREF="mailto:none">
</HEAD>
<BODY>
</DL>
<H1><A NAME="VERSION">VERSION</A></H1>
<P>
-$Id: Record.html,v 1.1 1999-08-04 12:13:27 ivan Exp $
+$Id: Record.html,v 1.2 2000-03-03 18:22:42 ivan Exp $
<H1><A NAME="BUGS">BUGS</A></H1>
<P>
<HTML>
<HEAD>
<TITLE>FS::SSH - Subroutines to call ssh and scp</TITLE>
-<LINK REV="made" HREF="mailto:ivan@rootwood.sisd.com">
+<LINK REV="made" HREF="mailto:none">
</HEAD>
<BODY>
<HTML>
<HEAD>
<TITLE>FS::UI::Base - Base class for all user-interface objects</TITLE>
-<LINK REV="made" HREF="mailto:ivan@rootwood.sisd.com">
+<LINK REV="made" HREF="mailto:none">
</HEAD>
<BODY>
<HR>
<H1><A NAME="VERSION">VERSION</A></H1>
<P>
-$Id: Base.html,v 1.1 1999-08-04 12:13:27 ivan Exp $
+$Id: Base.html,v 1.2 2000-03-03 18:22:44 ivan Exp $
<P>
<HR>
<H1><A NAME="HISTORY">HISTORY</A></H1>
<P>
$Log: Base.html,v $
-Revision 1.1 1999-08-04 12:13:27 ivan
-new HTML manpages
+Revision 1.2 2000-03-03 18:22:44 ivan
+changes from 1.2.3 release, fixes from webdemo
Revision 1.1 1999/08/04 09:03:53 ivan initial checkin of
module files for proper perl installation
<HTML>
<HEAD>
<TITLE>FS::UI::CGI - Base class for CGI user-interface objects</TITLE>
-<LINK REV="made" HREF="mailto:ivan@rootwood.sisd.com">
+<LINK REV="made" HREF="mailto:none">
</HEAD>
<BODY>
<HR>
<H1><A NAME="VERSION">VERSION</A></H1>
<P>
-$Id: CGI.html,v 1.1 1999-08-04 12:13:27 ivan Exp $
+$Id: CGI.html,v 1.2 2000-03-03 18:22:44 ivan Exp $
<P>
<HR>
<H1><A NAME="HISTORY">HISTORY</A></H1>
<P>
$Log: CGI.html,v $
-Revision 1.1 1999-08-04 12:13:27 ivan
-new HTML manpages
+Revision 1.2 2000-03-03 18:22:44 ivan
+changes from 1.2.3 release, fixes from webdemo
Revision 1.1 1999/08/04 09:03:53 ivan initial checkin of
module files for proper perl installation
<HTML>
<HEAD>
<TITLE>FS::UI::Gtk - Base class for Gtk user-interface objects</TITLE>
-<LINK REV="made" HREF="mailto:ivan@rootwood.sisd.com">
+<LINK REV="made" HREF="mailto:none">
</HEAD>
<BODY>
<HR>
<H1><A NAME="VERSION">VERSION</A></H1>
<P>
-$Id: Gtk.html,v 1.1 1999-08-04 12:13:27 ivan Exp $
+$Id: Gtk.html,v 1.2 2000-03-03 18:22:44 ivan Exp $
<P>
<HR>
<H1><A NAME="HISTORY">HISTORY</A></H1>
<P>
$Log: Gtk.html,v $
-Revision 1.1 1999-08-04 12:13:27 ivan
-new HTML manpages
+Revision 1.2 2000-03-03 18:22:44 ivan
+changes from 1.2.3 release, fixes from webdemo
Revision 1.1 1999/08/04 09:03:53 ivan initial checkin of
module files for proper perl installation
<HTML>
<HEAD>
<TITLE>FS::UID - Subroutines for database login and assorted other stuff</TITLE>
-<LINK REV="made" HREF="mailto:ivan@rootwood.sisd.com">
+<LINK REV="made" HREF="mailto:none">
</HEAD>
<BODY>
<HR>
<H1><A NAME="VERSION">VERSION</A></H1>
<P>
-$Id: UID.html,v 1.1 1999-08-04 12:13:27 ivan Exp $
+$Id: UID.html,v 1.2 2000-03-03 18:22:42 ivan Exp $
<P>
<HR>
<HTML>
<HEAD>
<TITLE>FS::agent - Object methods for agent records</TITLE>
-<LINK REV="made" HREF="mailto:ivan@rootwood.sisd.com">
+<LINK REV="made" HREF="mailto:none">
</HEAD>
<BODY>
<HR>
<H1><A NAME="VERSION">VERSION</A></H1>
<P>
-$Id: agent.html,v 1.1 1999-08-04 12:13:27 ivan Exp $
+$Id: agent.html,v 1.2 2000-03-03 18:22:42 ivan Exp $
<P>
<HR>
<HTML>
<HEAD>
<TITLE>FS::agent_type - Object methods for agent_type records</TITLE>
-<LINK REV="made" HREF="mailto:ivan@rootwood.sisd.com">
+<LINK REV="made" HREF="mailto:none">
</HEAD>
<BODY>
<HR>
<H1><A NAME="VERSION">VERSION</A></H1>
<P>
-$Id: agent_type.html,v 1.1 1999-08-04 12:13:27 ivan Exp $
+$Id: agent_type.html,v 1.2 2000-03-03 18:22:42 ivan Exp $
<P>
<HR>
<HTML>
<HEAD>
<TITLE>FS::cust_bill - Object methods for cust_bill records</TITLE>
-<LINK REV="made" HREF="mailto:ivan@rootwood.sisd.com">
+<LINK REV="made" HREF="mailto:none">
</HEAD>
<BODY>
<HR>
<H1><A NAME="VERSION">VERSION</A></H1>
<P>
-$Id: cust_bill.html,v 1.1 1999-08-04 12:13:27 ivan Exp $
+$Id: cust_bill.html,v 1.2 2000-03-03 18:22:42 ivan Exp $
<P>
<HR>
<HTML>
<HEAD>
<TITLE>FS::cust_bill_pkg - Object methods for cust_bill_pkg records</TITLE>
-<LINK REV="made" HREF="mailto:ivan@rootwood.sisd.com">
+<LINK REV="made" HREF="mailto:none">
</HEAD>
<BODY>
<HR>
<H1><A NAME="VERSION">VERSION</A></H1>
<P>
-$Id: cust_bill_pkg.html,v 1.1 1999-08-04 12:13:27 ivan Exp $
+$Id: cust_bill_pkg.html,v 1.2 2000-03-03 18:22:42 ivan Exp $
<P>
<HR>
<HTML>
<HEAD>
<TITLE>FS::cust_credit - Object methods for cust_credit records</TITLE>
-<LINK REV="made" HREF="mailto:ivan@rootwood.sisd.com">
+<LINK REV="made" HREF="mailto:none">
</HEAD>
<BODY>
<HR>
<H1><A NAME="VERSION">VERSION</A></H1>
<P>
-$Id: cust_credit.html,v 1.1 1999-08-04 12:13:27 ivan Exp $
+$Id: cust_credit.html,v 1.2 2000-03-03 18:22:42 ivan Exp $
<P>
<HR>
<HTML>
<HEAD>
<TITLE>FS::cust_main - Object methods for cust_main records</TITLE>
-<LINK REV="made" HREF="mailto:ivan@rootwood.sisd.com">
+<LINK REV="made" HREF="mailto:none">
</HEAD>
<BODY>
<DT><STRONG><A NAME="item_daytime">daytime - phone (optional)</A></STRONG><DD>
<DT><STRONG><A NAME="item_night">night - phone (optional)</A></STRONG><DD>
<DT><STRONG><A NAME="item_fax">fax - phone (optional)</A></STRONG><DD>
-<DT><STRONG><A NAME="item_payby">payby - `CARD' (credit cards), `BILL' (billing), or `COMP' (free)</A></STRONG><DD>
-<DT><STRONG><A NAME="item_payinfo">payinfo - card number, P.O.#, or comp issuer (4-8 lowercase alphanumerics; think username)</A></STRONG><DD>
+<DT><STRONG><A NAME="item_payby">payby - `CARD' (credit cards), `BILL' (billing), `COMP' (free), or `PREPAY' (special billing type: applies a credit - see FS::prepay_credit and sets billing type to BILL)</A></STRONG><DD>
+<DT><STRONG><A NAME="item_payinfo">payinfo - card number, P.O., comp issuer (4-8 lowercase alphanumerics; think username) or prepayment identifier (see FS::prepay_credit)</A></STRONG><DD>
<DT><STRONG><A NAME="item_paydate">paydate - expiration date, mm/yyyy, m/yyyy, mm/yy or m/yy</A></STRONG><DD>
<DT><STRONG><A NAME="item_payname">payname - name on card or billing name</A></STRONG><DD>
<DT><STRONG><A NAME="item_tax">tax - tax exempt, empty or `Y'</A></STRONG><DD>
<HR>
<H1><A NAME="VERSION">VERSION</A></H1>
<P>
-$Id: cust_main.html,v 1.1 1999-08-04 12:13:27 ivan Exp $
+$Id: cust_main.html,v 1.2 2000-03-03 18:22:43 ivan Exp $
<P>
<HR>
<HTML>
<HEAD>
<TITLE>FS::cust_main_county - Object methods for cust_main_county objects</TITLE>
-<LINK REV="made" HREF="mailto:ivan@rootwood.sisd.com">
+<LINK REV="made" HREF="mailto:none">
</HEAD>
<BODY>
<HR>
<H1><A NAME="VERSION">VERSION</A></H1>
<P>
-$Id: cust_main_county.html,v 1.1 1999-08-04 12:13:27 ivan Exp $
+$Id: cust_main_county.html,v 1.2 2000-03-03 18:22:43 ivan Exp $
<P>
<HR>
<HTML>
<HEAD>
<TITLE>FS::cust_main_invoice - Object methods for cust_main_invoice records</TITLE>
-<LINK REV="made" HREF="mailto:ivan@rootwood.sisd.com">
+<LINK REV="made" HREF="mailto:none">
</HEAD>
<BODY>
<HR>
<H1><A NAME="VERSION">VERSION</A></H1>
<P>
-$Id: cust_main_invoice.html,v 1.1 1999-08-04 12:13:27 ivan Exp $
+$Id: cust_main_invoice.html,v 1.2 2000-03-03 18:22:43 ivan Exp $
<P>
<HR>
<HTML>
<HEAD>
<TITLE>FS::cust_pay - Object methods for cust_pay objects</TITLE>
-<LINK REV="made" HREF="mailto:ivan@rootwood.sisd.com">
+<LINK REV="made" HREF="mailto:none">
</HEAD>
<BODY>
<HR>
<H1><A NAME="VERSION">VERSION</A></H1>
<P>
-$Id: cust_pay.html,v 1.1 1999-08-04 12:13:27 ivan Exp $
+$Id: cust_pay.html,v 1.2 2000-03-03 18:22:43 ivan Exp $
<P>
<HR>
<HTML>
<HEAD>
<TITLE>FS::cust_pay_batch - Object methods for batch cards</TITLE>
-<LINK REV="made" HREF="mailto:ivan@rootwood.sisd.com">
+<LINK REV="made" HREF="mailto:none">
</HEAD>
<BODY>
<HR>
<H1><A NAME="VERSION">VERSION</A></H1>
<P>
-$Id: cust_pay_batch.html,v 1.1 1999-08-04 12:13:27 ivan Exp $
+$Id: cust_pay_batch.html,v 1.2 2000-03-03 18:22:43 ivan Exp $
<P>
<HR>
<HTML>
<HEAD>
<TITLE>FS::cust_pkg - Object methods for cust_pkg objects</TITLE>
-<LINK REV="made" HREF="mailto:ivan@rootwood.sisd.com">
+<LINK REV="made" HREF="mailto:none">
</HEAD>
<BODY>
<HR>
<H1><A NAME="VERSION">VERSION</A></H1>
<P>
-$Id: cust_pkg.html,v 1.1 1999-08-04 12:13:27 ivan Exp $
+$Id: cust_pkg.html,v 1.2 2000-03-03 18:22:43 ivan Exp $
<P>
<HR>
<HTML>
<HEAD>
<TITLE>FS::cust_refund - Object method for cust_refund objects</TITLE>
-<LINK REV="made" HREF="mailto:ivan@rootwood.sisd.com">
+<LINK REV="made" HREF="mailto:none">
</HEAD>
<BODY>
<HR>
<H1><A NAME="VERSION">VERSION</A></H1>
<P>
-$Id: cust_refund.html,v 1.1 1999-08-04 12:13:27 ivan Exp $
+$Id: cust_refund.html,v 1.2 2000-03-03 18:22:43 ivan Exp $
<P>
<HR>
<HTML>
<HEAD>
<TITLE>FS::cust_svc - Object method for cust_svc objects</TITLE>
-<LINK REV="made" HREF="mailto:ivan@rootwood.sisd.com">
+<LINK REV="made" HREF="mailto:none">
</HEAD>
<BODY>
<HR>
<H1><A NAME="VERSION">VERSION</A></H1>
<P>
-$Id: cust_svc.html,v 1.1 1999-08-04 12:13:27 ivan Exp $
+$Id: cust_svc.html,v 1.2 2000-03-03 18:22:43 ivan Exp $
<P>
<HR>
<HTML>
<HEAD>
<TITLE>FS::dbdef - Database objects</TITLE>
-<LINK REV="made" HREF="mailto:ivan@rootwood.sisd.com">
+<LINK REV="made" HREF="mailto:none">
</HEAD>
<BODY>
<HTML>
<HEAD>
<TITLE>FS::dbdef_colgroup - Column group objects</TITLE>
-<LINK REV="made" HREF="mailto:ivan@rootwood.sisd.com">
+<LINK REV="made" HREF="mailto:none">
</HEAD>
<BODY>
<HTML>
<HEAD>
<TITLE>FS::dbdef_column - Column object</TITLE>
-<LINK REV="made" HREF="mailto:ivan@rootwood.sisd.com">
+<LINK REV="made" HREF="mailto:none">
</HEAD>
<BODY>
<HR>
<H1><A NAME="VERSION">VERSION</A></H1>
<P>
-$Id: dbdef_column.html,v 1.1 1999-08-04 12:13:27 ivan Exp $
+$Id: dbdef_column.html,v 1.2 2000-03-03 18:22:43 ivan Exp $
</BODY>
<HTML>
<HEAD>
<TITLE>FS::dbdef_unique.pm - Index object</TITLE>
-<LINK REV="made" HREF="mailto:ivan@rootwood.sisd.com">
+<LINK REV="made" HREF="mailto:none">
</HEAD>
<BODY>
<HTML>
<HEAD>
<TITLE>FS::dbdef_table - Table objects</TITLE>
-<LINK REV="made" HREF="mailto:ivan@rootwood.sisd.com">
+<LINK REV="made" HREF="mailto:none">
</HEAD>
<BODY>
<HR>
<H1><A NAME="VERSION">VERSION</A></H1>
<P>
-$Id: dbdef_table.html,v 1.1 1999-08-04 12:13:27 ivan Exp $
+$Id: dbdef_table.html,v 1.2 2000-03-03 18:22:43 ivan Exp $
</BODY>
<HTML>
<HEAD>
<TITLE>FS::dbdef_unique.pm - Unique object</TITLE>
-<LINK REV="made" HREF="mailto:ivan@rootwood.sisd.com">
+<LINK REV="made" HREF="mailto:none">
</HEAD>
<BODY>
<HTML>
<HEAD>
<TITLE>FS::part_pkg - Object methods for part_pkg objects</TITLE>
-<LINK REV="made" HREF="mailto:ivan@rootwood.sisd.com">
+<LINK REV="made" HREF="mailto:none">
</HEAD>
<BODY>
<DT><STRONG><A NAME="item_pkg_svc">pkg_svc</A></STRONG><DD>
<P>
-Returns all FS::pkg_svc objects (see <A HREF="../FS/pkg_svc.html">FS::pkg_svc</A>) for this package definition.
+Returns all FS::pkg_svc objects (see <A HREF="../FS/pkg_svc.html">FS::pkg_svc</A>) for this package definition (with non-zero quantity).
<DT><STRONG><A NAME="item_svcpart">svcpart [ SVCDB ]</A></STRONG><DD>
<P>
<HR>
<H1><A NAME="VERSION">VERSION</A></H1>
<P>
-$Id: part_pkg.html,v 1.1 1999-08-04 12:13:27 ivan Exp $
+$Id: part_pkg.html,v 1.2 2000-03-03 18:22:43 ivan Exp $
<P>
<HR>
<HTML>
<HEAD>
<TITLE>FS::part_referral - Object methods for part_referral objects</TITLE>
-<LINK REV="made" HREF="mailto:ivan@rootwood.sisd.com">
+<LINK REV="made" HREF="mailto:none">
</HEAD>
<BODY>
<HR>
<H1><A NAME="VERSION">VERSION</A></H1>
<P>
-$Id: part_referral.html,v 1.1 1999-08-04 12:13:27 ivan Exp $
+$Id: part_referral.html,v 1.2 2000-03-03 18:22:43 ivan Exp $
<P>
<HR>
<HTML>
<HEAD>
<TITLE>FS::part_svc - Object methods for part_svc objects</TITLE>
-<LINK REV="made" HREF="mailto:ivan@rootwood.sisd.com">
+<LINK REV="made" HREF="mailto:none">
</HEAD>
<BODY>
<HR>
<H1><A NAME="VERSION">VERSION</A></H1>
<P>
-$Id: part_svc.html,v 1.1 1999-08-04 12:13:27 ivan Exp $
+$Id: part_svc.html,v 1.2 2000-03-03 18:22:43 ivan Exp $
<P>
<HR>
<HTML>
<HEAD>
<TITLE>FS::pkg_svc - Object methods for pkg_svc records</TITLE>
-<LINK REV="made" HREF="mailto:ivan@rootwood.sisd.com">
+<LINK REV="made" HREF="mailto:none">
</HEAD>
<BODY>
<HR>
<H1><A NAME="VERSION">VERSION</A></H1>
<P>
-$Id: pkg_svc.html,v 1.1 1999-08-04 12:13:27 ivan Exp $
+$Id: pkg_svc.html,v 1.2 2000-03-03 18:22:43 ivan Exp $
<P>
<HR>
<HTML>
<HEAD>
<TITLE>FS::svc_Common - Object method for all svc_ records</TITLE>
-<LINK REV="made" HREF="mailto:ivan@rootwood.sisd.com">
+<LINK REV="made" HREF="mailto:none">
</HEAD>
<BODY>
<HR>
<H1><A NAME="VERSION">VERSION</A></H1>
<P>
-$Id: svc_Common.html,v 1.1 1999-08-04 12:13:27 ivan Exp $
+$Id: svc_Common.html,v 1.2 2000-03-03 18:22:43 ivan Exp $
<P>
<HR>
<HTML>
<HEAD>
<TITLE>FS::svc_acct - Object methods for svc_acct records</TITLE>
-<LINK REV="made" HREF="mailto:ivan@rootwood.sisd.com">
+<LINK REV="made" HREF="mailto:none">
</HEAD>
<BODY>
<HR>
<H1><A NAME="VERSION">VERSION</A></H1>
<P>
-$Id: svc_acct.html,v 1.1 1999-08-04 12:13:27 ivan Exp $
+$Id: svc_acct.html,v 1.2 2000-03-03 18:22:43 ivan Exp $
<P>
<HR>
<HTML>
<HEAD>
<TITLE>FS::svc_acct_pop - Object methods for svc_acct_pop records</TITLE>
-<LINK REV="made" HREF="mailto:ivan@rootwood.sisd.com">
+<LINK REV="made" HREF="mailto:none">
</HEAD>
<BODY>
<DT><STRONG><A NAME="item_state">state</A></STRONG><DD>
<DT><STRONG><A NAME="item_ac">ac - area code</A></STRONG><DD>
<DT><STRONG><A NAME="item_exch">exch - exchange</A></STRONG><DD>
+<DT><STRONG><A NAME="item_loc">loc - rest of number</A></STRONG><DD>
</DL>
<P>
<HR>
<HR>
<H1><A NAME="VERSION">VERSION</A></H1>
<P>
-$Id: svc_acct_pop.html,v 1.1 1999-08-04 12:13:27 ivan Exp $
+$Id: svc_acct_pop.html,v 1.2 2000-03-03 18:22:43 ivan Exp $
<P>
<HR>
<HTML>
<HEAD>
<TITLE>FS::svc_acct_sm - Object methods for svc_acct_sm records</TITLE>
-<LINK REV="made" HREF="mailto:ivan@rootwood.sisd.com">
+<LINK REV="made" HREF="mailto:none">
</HEAD>
<BODY>
<HR>
<H1><A NAME="VERSION">VERSION</A></H1>
<P>
-$Id: svc_acct_sm.html,v 1.1 1999-08-04 12:13:27 ivan Exp $
+$Id: svc_acct_sm.html,v 1.2 2000-03-03 18:22:43 ivan Exp $
<P>
<HR>
<HTML>
<HEAD>
<TITLE>FS::svc_domain - Object methods for svc_domain records</TITLE>
-<LINK REV="made" HREF="mailto:ivan@rootwood.sisd.com">
+<LINK REV="made" HREF="mailto:none">
</HEAD>
<BODY>
Otherwise, the svc_acct records for this package (see <A HREF="../FS/cust_pkg.html">FS::cust_pkg</A>) are searched. If there is exactly one svc_acct record in the same
package, it is automatically used. Otherwise an error is returned.
+<P>
+If any <EM>soamachine</EM> configuration file exists, an SOA record is added to the domain_record
+table (see <FS::domain_record>).
+
+<P>
+If any machines are defined in the <EM>nsmachines</EM> configuration file, NS records are added to the domain_record table (see <A HREF="../FS/domain_record.html">FS::domain_record</A>).
+
+<P>
+If any machines are defined in the <EM>mxmachines</EM> configuration file, MX records are added to the domain_record table (see <A HREF="../FS/domain_record.html">FS::domain_record</A>).
+
+<P>
+Any problems adding FS::domain_record records will emit warnings, but will
+not return errors from this method. If your configuration files are correct
+you shouln't have any problems.
+
<DT><STRONG><A NAME="item_delete">delete</A></STRONG><DD>
<P>
Deletes this domain from the database. If there is an error, returns the
<DT><STRONG><A NAME="item_whois">whois</A></STRONG><DD>
<P>
-Returns the Net::Whois object corresponding to this domain, or undef if the
-domain is not found in whois.
+Returns the Net::Whois::Domain object (see <A HREF="../Net/Whois.html">Net::Whois</A>) for this domain, or undef if the domain is not found in whois.
<P>
(If $FS::svc_domain::whois_hack is true, returns that in all cases
<HR>
<H1><A NAME="VERSION">VERSION</A></H1>
<P>
-$Id: svc_domain.html,v 1.1 1999-08-04 12:13:27 ivan Exp $
+$Id: svc_domain.html,v 1.2 2000-03-03 18:22:43 ivan Exp $
<P>
<HR>
<HTML>
<HEAD>
<TITLE>FS::type_pkgs - Object methods for type_pkgs records</TITLE>
-<LINK REV="made" HREF="mailto:ivan@rootwood.sisd.com">
+<LINK REV="made" HREF="mailto:none">
</HEAD>
<BODY>
<HR>
<H1><A NAME="VERSION">VERSION</A></H1>
<P>
-$Id: type_pkgs.html,v 1.1 1999-08-04 12:13:27 ivan Exp $
+$Id: type_pkgs.html,v 1.2 2000-03-03 18:22:44 ivan Exp $
<P>
<HR>
<title>Upgrading to 1.3.0</title>
</head>
<body>
-<h1>Upgrading to 1.3.0 from 1.2.2</h1>
+<h1>Upgrading to 1.2.3 from 1.2.2</h1>
<ul>
<li>If migrating from 1.0.0, see these <a href="upgrade.html">instructions</a> first.
<li>If migrating from less than 1.1.4, see these <a href="upgrade2.html">instructions</a> first.
#!/usr/bin/perl -Tw
#
-# $Id: svc_domain.cgi,v 1.10 1999-07-17 10:38:52 ivan Exp $
+# $Id: svc_domain.cgi,v 1.11 2000-03-03 18:22:44 ivan Exp $
#
# Usage: post form to:
# http://server.name/path/svc_domain.cgi
# display total, use FS::CGI now does browsing too ivan@sisd.com 98-jul-17
#
# $Log: svc_domain.cgi,v $
-# Revision 1.10 1999-07-17 10:38:52 ivan
+# Revision 1.11 2000-03-03 18:22:44 ivan
+# changes from 1.2.3 release, fixes from webdemo
+#
+# Revision 1.10 1999/07/17 10:38:52 ivan
# scott nelson <scott@ultimanet.com> noticed this mod_perl-triggered bug and
# gave me a great bugreport at the last rhythmethod
#
$mydomain = $conf->config('domain');
($query)=$cgi->keywords;
+$query ||= ''; #to avoid use of unitialized value errors
if ( $query eq 'svcnum' ) {
$sortby=\*svcnum_sort;
@svc_domain=qsearch('svc_domain',{});