=item domain
+=item catchall - optional svcnum of an svc_acct record, designating an email catchall account.
+
=back
=head1 METHODS
sub check {
my $self = shift;
- my $error;
+ my $error =
+ $self->ut_numbern('svcnum')
+ || $self->ut_numbern('catchall')
+ ;
+ return $error if $error;
my $x = $self->setfixed;
return $x unless ref($x);
$recref->{action} =~ /^(M|N)$/ or return "Illegal action";
$recref->{action} = $1;
+ my $svc_acct = qsearchs( 'svc_acct', { 'svcnum' => $recref->{catchall} } );
+ return "Unknown catchall" unless $svc_acct || ! $recref->{catchall};
+
$self->ut_textn('purpose');
}
=head1 VERSION
-$Id: svc_domain.pm,v 1.12 2001-06-03 17:22:52 ivan Exp $
+$Id: svc_domain.pm,v 1.14 2001-08-17 10:57:23 ivan Exp $
=head1 BUGS