use Mail::Internet;
use Mail::Header;
use Date::Format;
+use Net::Whois; #0.24;
use FS::Record qw(fields qsearch qsearchs);
-use FS::cust_svc;
use FS::Conf;
+use FS::svc_Common;
+use FS::cust_svc;
+use FS::svc_acct;
+use FS::cust_pkg;
+use FS::cust_main;
-@ISA = qw(FS::Record Exporter);
+@ISA = qw( FS::svc_Common );
#ask FS::UID to run this stuff for us later
$FS::UID::callback{'FS::domain'} = sub {
=head1 DESCRIPTION
An FS::svc_domain object represents a domain. FS::svc_domain inherits from
-FS::Record. The following fields are currently supported:
+FS::svc_Common. The following fields are currently supported:
=over 4
local $SIG{QUIT} = 'IGNORE';
local $SIG{TERM} = 'IGNORE';
local $SIG{TSTP} = 'IGNORE';
+ local $SIG{PIPE} = 'IGNORE';
$error = $self->check;
return $error if $error;
return "Domain in use (here)"
if qsearchs( 'svc_domain', { 'domain' => $self->domain } );
- my $whois = ($self->_whois)[0];
+ my $whois = $self->whois;
return "Domain in use (see whois)"
- if ( $self->action eq "N" && $whois !~ /^No match for/ );
+ if ( $self->action eq "N" && $whois );
return "Domain not found (see whois)"
- if ( $self->action eq "M" && $whois =~ /^No match for/ );
-
- my $svcnum = $self->svcnum;
- my $cust_svc;
- unless ( $svcnum ) {
- $cust_svc = new FS::cust_svc ( {
- 'svcnum' => $svcnum,
- 'pkgnum' => $self->pkgnum,
- 'svcpart' => $self->svcpart,
- } );
- my $error = $cust_svc->insert;
- return $error if $error;
- $svcnum = $self->setfield( 'svcnum', $cust_svc->svcnum );
- }
+ if ( $self->action eq "M" && ! $whois );
$error = $self->SUPER::insert;
- if ( $error ) {
- $cust_svc->delete if $cust_svc;
- return $error;
- }
+ return $error if $error;
$self->submit_internic unless $whois_hack;
The corresponding FS::cust_svc record will be deleted as well.
-=cut
-
-sub delete {
- my $self = shift;
- my $error;
-
- my $svcnum = $self->svcnum;
-
- $error = $self->delete;
- return $error if $error;
-
- my $cust_svc = qsearchs( 'cust_svc', { 'svcnum' => $svcnum } );
- $error = $cust_svc->delete;
- return $error if $error;
-
- '';
-}
-
=item replace OLD_RECORD
Replaces OLD_RECORD with this one in the database. If there is an error,
Called by the suspend method of FS::cust_pkg (see L<FS::cust_pkg>).
-=cut
-
-sub suspend {
- ''; #no error (stub)
-}
-
=item unsuspend
Just returns false (no error) for now.
Called by the unsuspend method of FS::cust_pkg (see L<FS::cust_pkg>).
-=cut
-
-sub unsuspend {
- ''; #no error (stub)
-}
-
=item cancel
Just returns false (no error) for now.
Called by the cancel method of FS::cust_pkg (see L<FS::cust_pkg>).
-=cut
-
-sub cancel {
- ''; #no error (stub)
-}
-
=item check
Checks all fields to make sure this is a valid domain. If there is an error,
sub check {
my $self = shift;
-
- my($recref) = $self->hashref;
-
my $error;
- $error =
- $self->ut_numbern('svcnum')
- ;
- return $error if $error;
+ my $x = $self->setfixed;
+ return $x unless ref($x);
+ my $part_svc = $x;
- #get part_svc (and pkgnum)
- my($svcpart,$pkgnum);
- my($svcnum)=$self->getfield('svcnum');
- if ($svcnum) {
- my($cust_svc)=qsearchs('cust_svc',{'svcnum'=>$svcnum});
- return "Unknown svcnum" unless $cust_svc;
- $svcpart=$cust_svc->svcpart;
- $pkgnum=$cust_svc->pkgnum;
+ #hmm
+ my $pkgnum;
+ if ( $self->svcnum ) {
+ my $cust_svc = qsearchs( 'cust_svc', { 'svcnum' => $self->svcnum } );
+ $pkgnum = $cust_svc->pkgnum;
} else {
- $svcpart=$self->svcpart;
- $pkgnum=$self->pkgnum;
- }
- my($part_svc)=qsearchs('part_svc',{'svcpart'=>$svcpart});
- return "Unkonwn svcpart" unless $part_svc;
-
- #set fixed fields from part_svc
- my($field);
- foreach $field ( fields('svc_acct') ) {
- if ( $part_svc->getfield('svc_domain__'. $field. '_flag') eq 'F' ) {
- $self->setfield($field,$part_svc->getfield('svc_domain__'. $field) );
- }
+ $pkgnum = $self->pkgnum;
}
+ my($recref) = $self->hashref;
+
unless ( $whois_hack ) {
unless ( $self->email ) { #find out an email address
- my(@svc_acct);
- foreach ( qsearch('cust_svc',{'pkgnum'=>$pkgnum}) ) {
- my($svc_acct)=qsearchs('svc_acct',{'svcnum'=>$_->svcnum});
+ my @svc_acct;
+ foreach ( qsearch( 'cust_svc', { 'pkgnum' => $pkgnum } ) ) {
+ my $svc_acct = qsearchs( 'svc_acct', { 'svcnum' => $_->svcnum } );
push @svc_acct, $svc_acct if $svc_acct;
}
}
-=item _whois
+=item whois
+
+Returns the Net::Whois object corresponding to this domain, or undef if
+the domain is not found in whois.
+
+(If $FS::svc_domain::whois_hack is true, returns that in all cases instead.)
-Executes the command:
+=cut
- whois do $domain
+sub whois {
+ $whois_hack or new Net::Whois::Domain $_[0]->domain;
+}
-and returns the output.
+=item _whois
-(Always returns I<No match for domian "$domain".> if
-$FS::svc_domain::whois_hack is set true.)
+Depriciated.
=cut
sub _whois {
- my $self = shift;
- my $domain = $self->domain;
- return ( "No match for domain \"$domain\"." ) if $whois_hack;
- open(WHOIS, "whois do $domain |");
- return <WHOIS>;
+ die "_whois depriciated";
}
=item submit_internic
my $cust_pkg = qsearchs( 'cust_pkg', { 'pkgnum' => $self->pkgnum } );
return unless $cust_pkg;
- my cust_main) = qsearchs( 'cust_main', { 'custnum' => $cust_pkg->custnum } );
+ my $cust_main = qsearchs( 'cust_main', { 'custnum' => $cust_pkg->custnum } );
return unless $cust_main;
my %subs = (
=head1 VERSION
-$Id: svc_domain.pm,v 1.4 1998-12-29 11:59:55 ivan Exp $
+$Id: svc_domain.pm,v 1.8 1999-08-03 07:43:33 ivan Exp $
=head1 BUGS
Should change action to a real field.
+The $recref stuff in sub check should be cleaned up.
+
=head1 SEE ALSO
-L<FS::Record>, L<FS::Conf>, L<FS::cust_svc>, L<FS::part_svc>, L<FS::cust_pkg>,
-L<FS::SSH>, L<ssh>, L<dot-qmail>, schema.html from the base documentation,
-config.html from the base documentation.
+L<FS::svc_Common>, L<FS::Record>, L<FS::Conf>, L<FS::cust_svc>,
+L<FS::part_svc>, L<FS::cust_pkg>, L<FS::SSH>, L<Net::Whois>, L<ssh>,
+L<dot-qmail>, schema.html from the base documentation, config.html from the
+base documentation.
=head1 HISTORY
pod, some FS::Conf (not complete) ivan@sisd.com 98-sep-23
$Log: svc_domain.pm,v $
-Revision 1.4 1998-12-29 11:59:55 ivan
-mostly properly OO, some work still to be done with svc_ stuff
+Revision 1.8 1999-08-03 07:43:33 ivan
+use Net::Whois;
+
+Revision 1.7 1999/04/07 14:40:15 ivan
+use all stuff that's qsearch'ed to avoid warnings
+
+Revision 1.6 1999/01/25 12:26:17 ivan
+yet more mod_perl stuff
+
+Revision 1.5 1998/12/30 00:30:47 ivan
+svc_ stuff is more properly OO - has a common superclass FS::svc_Common
Revision 1.3 1998/11/13 09:56:57 ivan
change configuration file layout to support multiple distinct databases (with
projects / freeside.git / blobdiff