diff options
| author | ivan <ivan> | 2002-04-20 10:09:42 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2002-04-20 10:09:42 +0000 |
| commit | 0da1c2b1d5dbe10b304d131f6807b18a237b5d45 (patch) | |
| tree | e75c1dd61ee3355fb7f28c71fc8f79889b7ffd6c /FS/FS/domain_record.pm | |
| parent | 812b5eb3a85fcf221174838a549db5b7e82f145c (diff) | |
allow uppercase zones...
Diffstat (limited to 'FS/FS/domain_record.pm')
| -rw-r--r-- | FS/FS/domain_record.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/FS/FS/domain_record.pm b/FS/FS/domain_record.pm index 0f634bf..9f00356 100644 --- a/FS/FS/domain_record.pm +++ b/FS/FS/domain_record.pm @@ -107,7 +107,7 @@ sub check { return "Unknown svcnum (in svc_domain)" unless qsearchs('svc_domain', { 'svcnum' => $self->svcnum } ); - $self->reczone =~ /^(@|[a-z0-9\.\-]+)$/ + $self->reczone =~ /^(@|[a-zA-Z0-9\.\-]+)$/ or return "Illegal reczone: ". $self->reczone; $self->reczone($1); @@ -156,7 +156,7 @@ sub check { =head1 VERSION -$Id: domain_record.pm,v 1.3 2001-08-21 02:44:47 ivan Exp $ +$Id: domain_record.pm,v 1.4 2002-04-20 10:09:42 ivan Exp $ =head1 BUGS |