diff options
| author | jeff <jeff> | 2001-08-12 19:41:26 +0000 |
|---|---|---|
| committer | jeff <jeff> | 2001-08-12 19:41:26 +0000 |
| commit | 4d513ff5a17bd3b697502b54c9516577a0a8d3e4 (patch) | |
| tree | d296582946bc41064ba86bc87ae8954791d02c2d /FS/FS/svc_domain.pm | |
| parent | 67e59b7ab85227889ca127b875b4138f018c844d (diff) | |
merging vpopmail support branch
Diffstat (limited to 'FS/FS/svc_domain.pm')
| -rw-r--r-- | FS/FS/svc_domain.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/FS/FS/svc_domain.pm b/FS/FS/svc_domain.pm index 01aa21a..fcfcfa9 100644 --- a/FS/FS/svc_domain.pm +++ b/FS/FS/svc_domain.pm @@ -336,6 +336,9 @@ sub check { $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'); } @@ -478,7 +481,7 @@ sub submit_internic { =head1 VERSION -$Id: svc_domain.pm,v 1.12 2001-06-03 17:22:52 ivan Exp $ +$Id: svc_domain.pm,v 1.13 2001-08-12 19:41:24 jeff Exp $ =head1 BUGS |