diff options
| author | ivan <ivan> | 2010-09-11 17:02:59 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2010-09-11 17:02:59 +0000 |
| commit | d583a5d3c0647488bac7b7a33d319fd1a85c05b3 (patch) | |
| tree | 01e1cf840e570ce9e3ee57fe439d8890e407d5f0 /FS/FS/svc_domain.pm | |
| parent | 0afabbd646c01ed4c88826edc9d290698b220418 (diff) | |
dns updates from Erik L: add ttl support, add check for SRV and finish allowing additional rectypes, allow forward slashes for RFC2317 classless in-arpa delegation, RT#8933
Diffstat (limited to 'FS/FS/svc_domain.pm')
| -rw-r--r-- | FS/FS/svc_domain.pm | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/FS/FS/svc_domain.pm b/FS/FS/svc_domain.pm index 7d527e5..dde6d3c 100644 --- a/FS/FS/svc_domain.pm +++ b/FS/FS/svc_domain.pm @@ -303,9 +303,6 @@ defined. An FS::cust_svc record will be created and inserted. The additional field I<action> should be set to I<N> for new domains, I<M> for transfers, or I<I> for no action (registered elsewhere). -A registration or transfer email will be submitted unless -$FS::svc_domain::whois_hack is true. - The additional field I<email> can be used to manually set the admin contact email address on this email. Otherwise, the svc_acct records for this package (see L<FS::cust_pkg>) are searched. If there is exactly one svc_acct record @@ -565,7 +562,7 @@ sub check { $recref->{domain} = "$1.$2"; $recref->{suffix} ||= $2; # hmmmmmmmm. - } elsif ( $whois_hack && $recref->{domain} =~ /^([\w\-\.]+)\.(\w+)$/ ) { + } elsif ( $whois_hack && $recref->{domain} =~ /^([\w\-\.\/]+)\.(\w+)$/ ) { $recref->{domain} = "$1.$2"; # need to match a list of suffixes - no guarantee they're top-level.. # http://wiki.mozilla.org/TLD_List @@ -623,6 +620,7 @@ sub domain_record { 'A' => 5, 'TXT' => 6, 'PTR' => 7, + 'SRV' => 8, ); my %sort = ( |