diff options
| author | ivan <ivan> | 2001-08-17 10:57:23 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2001-08-17 10:57:23 +0000 |
| commit | 2d9a46afc7a6f42d36d4a6b6fc63132c079ba39f (patch) | |
| tree | 19ca82cfc7e47fb00b8b825ec3a2dab0ef2c64d5 /FS/FS/svc_domain.pm | |
| parent | 7cb7cd1990ccd45f50eabce4ca8a57cf1eb69abd (diff) | |
document catchall and untaint everything
Diffstat (limited to 'FS/FS/svc_domain.pm')
| -rw-r--r-- | FS/FS/svc_domain.pm | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/FS/FS/svc_domain.pm b/FS/FS/svc_domain.pm index fcfcfa9..fce6cf2 100644 --- a/FS/FS/svc_domain.pm +++ b/FS/FS/svc_domain.pm @@ -93,6 +93,8 @@ FS::svc_Common. The following fields are currently supported: =item domain +=item catchall - optional svcnum of an svc_acct record, designating an email catchall account. + =back =head1 METHODS @@ -287,7 +289,11 @@ Sets any fixed values; see L<FS::part_svc>. 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); @@ -481,7 +487,7 @@ sub submit_internic { =head1 VERSION -$Id: svc_domain.pm,v 1.13 2001-08-12 19:41:24 jeff Exp $ +$Id: svc_domain.pm,v 1.14 2001-08-17 10:57:23 ivan Exp $ =head1 BUGS |