Changeset 226 for trunk/dns.cgi
- Timestamp:
- 01/27/12 16:45:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/dns.cgi
r225 r226 530 530 ##fixme: this should probably go in DNSDB::addRec(), need to ponder what to do about PTR and friends 531 531 # prevent out-of-domain records from getting added by appending the domain, or DOMAIN for default records 532 my $pname = ($webvar{defrec} eq 'y' ? 'DOMAIN' : domainName($dbh,$webvar{parentid})); 533 $webvar{name} =~ s/\.*$/\.$pname/ if $webvar{name} !~ /$pname$/; 534 535 my @recargs = ($dbh,$webvar{defrec},$webvar{parentid},$webvar{name},$webvar{type},$webvar{address},$webvar{ttl}); 532 # my $pname = ($webvar{defrec} eq 'y' ? 'DOMAIN' : domainName($dbh,$webvar{parentid})); 533 # $webvar{name} =~ s/\.*$/\.$pname/ if $webvar{name} !~ /$pname$/; 534 535 my @recargs = ($dbh,$webvar{defrec},$webvar{revrec},$webvar{parentid}, 536 $webvar{name},$webvar{type},$webvar{address},$webvar{ttl}); 536 537 if ($webvar{type} == $reverse_typemap{MX} or $webvar{type} == $reverse_typemap{SRV}) { 537 538 push @recargs, $webvar{distance};
Note:
See TracChangeset
for help on using the changeset viewer.