noms relatifs et daemon qui change directement le RR de $domain
parent
d61cacc435
commit
6e6aada17e
|
|
@ -19,7 +19,10 @@ our $login = "idtest";
|
|||
our $pass = "mdptest";
|
||||
|
||||
# Your entry to change
|
||||
our $name = 'www'; # here, the entry is www.test.netlib.re
|
||||
#
|
||||
# here, the entry is www.test.netlib.re
|
||||
# put "@" in $name to change your $type record on $domain directly
|
||||
our $name = 'www';
|
||||
our $type = 'A'; # could be AAAA
|
||||
|
||||
# The CA certificate, to authenticate the website (should be provided)
|
||||
|
|
|
|||
105
lib/rt/domain.pm
105
lib/rt/domain.pm
|
|
@ -93,6 +93,8 @@ sub rt_dom_cli_autoupdate {
|
|||
|
||||
my $name = $$param{name};
|
||||
|
||||
$name =~ s/@/$$param{domain}./;
|
||||
|
||||
if($name =~ /$$param{domain}$/) {
|
||||
$name .= '.';
|
||||
}
|
||||
|
|
@ -211,58 +213,78 @@ sub rt_dom_mod_entry {
|
|||
return $res;
|
||||
}
|
||||
|
||||
my $rdata = $$param{newrdata};
|
||||
my $oldname = $$param{oldname};
|
||||
my $newname = $$param{newname};
|
||||
my $oldrdata = $$param{oldrdata};
|
||||
my $newrdata = $$param{newrdata};
|
||||
|
||||
if ($$param{type} eq 'A' && ! is_ipv4($rdata)) {
|
||||
$oldname =~ s/@/$$param{domain}./g;
|
||||
$newname =~ s/@/$$param{domain}./g;
|
||||
|
||||
if ($$param{type} eq 'A' && ! is_ipv4($newrdata)) {
|
||||
$$res{deferred}{errmsg} =
|
||||
"Il faut une adresse IPv4 pour un enregistrement de type A."
|
||||
. " Ceci n'est pas une adresse IPv4 : $rdata";
|
||||
. " Ceci n'est pas une adresse IPv4 : $newrdata";
|
||||
$$res{route} = ($$request{referer}) ? $$request{referer} : '/';
|
||||
return $res;
|
||||
}
|
||||
|
||||
if ($$param{type} eq 'AAAA' && ! is_ipv6($rdata)) {
|
||||
if ($$param{type} eq 'AAAA' && ! is_ipv6($newrdata)) {
|
||||
$$res{deferred}{errmsg} =
|
||||
"Il faut une adresse IPv6 pour un enregistrement de type AAAA."
|
||||
. " Ceci n'est pas une adresse IPv6 : $rdata";
|
||||
. " Ceci n'est pas une adresse IPv6 : $newrdata";
|
||||
$$res{route} = ($$request{referer}) ? $$request{referer} : '/';
|
||||
return $res;
|
||||
}
|
||||
|
||||
# si le type est A, AAAA, SRV, TXT, CNAME, MX, NS
|
||||
# le name doit être un domaine
|
||||
# si ce domaine n'est pas absolu, rajouter ".domain."
|
||||
if($$param{type} =~ /^(A|AAAA|SRV|TXT|CNAME|MX|NS)$/) {
|
||||
$newname .= ".$$param{domain}." if($newname !~ /\.$/);
|
||||
$oldname .= ".$$param{domain}." if($oldname !~ /\.$/);
|
||||
}
|
||||
|
||||
# si le type est CNAME, MX, NS ou PTR
|
||||
# le rdata doit être un domaine
|
||||
# si ce domaine n'est pas absolu, rajouter ".domain."
|
||||
if($$param{type} =~ /^(CNAME|MX|NS|PTR)$/) {
|
||||
$oldrdata =~ s/@/$$param{domain}./;
|
||||
$newrdata =~ s/@/$$param{domain}./;
|
||||
$oldrdata .= ".$$param{domain}." if($oldrdata !~ /\.$/);
|
||||
$newrdata .= ".$$param{domain}." if($newrdata !~ /\.$/);
|
||||
}
|
||||
|
||||
if ($$param{type} =~ /^(CNAME|MX|NS|PTR|SRV)$/i
|
||||
&& ! is_domain_name ($rdata))
|
||||
&& ! is_domain_name ($newrdata))
|
||||
{
|
||||
$$res{deferred}{errmsg} =
|
||||
"Une entrée $$param{type} doit avoir un nom de domaine "
|
||||
. "(pas une URL, pas de http://) : '$rdata' n'est pas correct.";
|
||||
. "(pas une URL, pas de http://) : '$newrdata' n'est pas correct.";
|
||||
$$res{route} = ($$request{referer}) ? $$request{referer} : '/';
|
||||
return $res;
|
||||
}
|
||||
|
||||
if($$param{type} =~ /^(CNAME|MX|NS|PTR)$/ && $rdata !~ /\.$/) {
|
||||
$rdata .= ".$$param{domain}.";
|
||||
}
|
||||
|
||||
my $str_old = "$$param{oldname} $$param{oldttl} $$param{type} ";
|
||||
my $str_new = "$$param{newname} $$param{newttl} $$param{type} ";
|
||||
my $str_old = "$oldname $$param{oldttl} $$param{type} ";
|
||||
my $str_new = "$newname $$param{newttl} $$param{type} ";
|
||||
|
||||
if($$param{type} eq "MX") {
|
||||
$str_old .= "$$param{oldpriority} $$param{oldrdata}";
|
||||
$str_new .= "$$param{newpriority} $$param{newrdata}";
|
||||
$str_old .= "$$param{oldpriority} $oldrdata";
|
||||
$str_new .= "$$param{newpriority} $newrdata";
|
||||
}
|
||||
elsif ($$param{type} eq "SRV") {
|
||||
$str_old .= "$$param{oldpriority} $$param{oldweight} "
|
||||
."$$param{oldport} $$param{oldrdata}";
|
||||
."$$param{oldport} $oldrdata";
|
||||
$str_new .= "$$param{newpriority} $$param{newweight} "
|
||||
."$$param{newport} $rdata";
|
||||
."$$param{newport} $newrdata";
|
||||
}
|
||||
else {
|
||||
$str_old .= "$$param{oldrdata}";
|
||||
$str_new .= "$rdata";
|
||||
$str_old .= "$oldrdata";
|
||||
$str_new .= "$newrdata";
|
||||
}
|
||||
|
||||
say "str_old : $str_old";
|
||||
say "str_new : $str_new";
|
||||
say "::: ___ str_old : $str_old";
|
||||
say "::: ___ str_new : $str_new";
|
||||
|
||||
# Do the modification of the entry
|
||||
|
||||
|
|
@ -335,20 +357,40 @@ sub rt_dom_del_entry {
|
|||
return $res;
|
||||
}
|
||||
|
||||
my $rdata = $$param{rdata};
|
||||
my $name = $$param{name};
|
||||
|
||||
$name =~ s/@/$$param{domain}./;
|
||||
|
||||
# si le type est A, AAAA, SRV, TXT, CNAME, MX, NS
|
||||
# le name doit être un domaine
|
||||
# si ce domaine n'est pas absolu, rajouter ".domain."
|
||||
if($$param{type} =~ /^(A|AAAA|SRV|TXT|CNAME|MX|NS)$/ && $name !~ /\.$/){
|
||||
$name .= ".$$param{domain}.";
|
||||
}
|
||||
|
||||
# si le type est CNAME, MX, NS ou PTR
|
||||
# le rdata doit être un domaine
|
||||
# si ce domaine n'est pas absolu, rajouter ".domain."
|
||||
if($$param{type} =~ /^(CNAME|MX|NS|PTR)$/) {
|
||||
$rdata =~ s/@/$$param{domain}./;
|
||||
$rdata .= ".$$param{domain}." if $rdata !~ /\.$/;
|
||||
}
|
||||
|
||||
my $zone = $app->get_zone( $$param{domain} );
|
||||
my $zf = $zone->get_zonefile();
|
||||
|
||||
my $str_del = "$$param{name} $$param{ttl} $$param{type} ";
|
||||
my $str_del = "$name $$param{ttl} $$param{type} ";
|
||||
|
||||
if( $$param{type} eq 'SRV') {
|
||||
$str_del .=
|
||||
"$$param{priority} $$param{weight} $$param{port} $$param{rdata}";
|
||||
"$$param{priority} $$param{weight} $$param{port} $rdata";
|
||||
}
|
||||
elsif ($$param{type} eq 'MX') {
|
||||
$str_del .= "$$param{priority} $$param{rdata}";
|
||||
$str_del .= "$$param{priority} $rdata";
|
||||
}
|
||||
else {
|
||||
$str_del .= "$$param{rdata}";
|
||||
$str_del .= "$rdata";
|
||||
}
|
||||
|
||||
$zf->rr_del_raw( $str_del );
|
||||
|
|
@ -522,7 +564,7 @@ sub rt_dom_details {
|
|||
$$res{params}{expert} = 1;
|
||||
}
|
||||
else {
|
||||
$$res{params}{zone} = $zf->rr_array_to_array();
|
||||
$$res{params}{zone} = $zf->rr_array_to_array_stripped();
|
||||
}
|
||||
};
|
||||
|
||||
|
|
@ -572,6 +614,8 @@ sub rt_dom_add_entry {
|
|||
|
||||
my $name = $$param{name};
|
||||
|
||||
$name =~ s/@/$$param{domain}./;
|
||||
|
||||
if($name =~ /$$param{domain}$/) {
|
||||
$name .= '.';
|
||||
}
|
||||
|
|
@ -583,6 +627,11 @@ sub rt_dom_add_entry {
|
|||
my $str_new = "$name $$param{ttl} $$param{type} ";
|
||||
my $rdata = $$param{rdata};
|
||||
|
||||
if($$param{type} =~ /^(CNAME|MX|NS|PTR|SRV)$/) {
|
||||
$rdata =~ s/@/$$param{domain}./;
|
||||
$rdata .= ".$$param{domain}." if( $rdata !~ /\.$/);
|
||||
}
|
||||
|
||||
if ($$param{type} =~ /^(CNAME|MX|NS|PTR|SRV)$/i
|
||||
&& ! is_domain_name ($rdata))
|
||||
{
|
||||
|
|
@ -609,10 +658,6 @@ sub rt_dom_add_entry {
|
|||
return $res;
|
||||
}
|
||||
|
||||
if($$param{type} =~ /^(CNAME|MX|NS|PTR|SRV)$/ && $rdata !~ /\.$/) {
|
||||
$rdata .= ".$$param{domain}.";
|
||||
}
|
||||
|
||||
if($$param{type} eq "MX") {
|
||||
$str_new .= "$$param{priority} $rdata";
|
||||
}
|
||||
|
|
|
|||
|
|
@ -16,7 +16,6 @@ sub rr_array_del {
|
|||
my ($zones, $rr) = @_;
|
||||
my $todel = $rr->plain;
|
||||
utf8::decode($todel);
|
||||
|
||||
[grep { my $v = $_->plain; utf8::decode($v); $v ne $rr->plain } @$zones]
|
||||
}
|
||||
|
||||
|
|
@ -138,7 +137,6 @@ sub rr_add {
|
|||
|
||||
sub rr_mod {
|
||||
my ($self, $rrline_old, $rrline_new) = @_;
|
||||
|
||||
$self->rr_del_raw($rrline_old);
|
||||
$self->rr_add_raw($rrline_new);
|
||||
}
|
||||
|
|
@ -149,6 +147,39 @@ sub rr_search {
|
|||
[ grep { $$_{name} eq $name && $$_{type} eq $type } @$rrlisttmp ]
|
||||
}
|
||||
|
||||
sub search_domain {
|
||||
my ($self) = @_;
|
||||
my $rr_list = $self->rr_array_to_array();
|
||||
|
||||
my $soa = [ grep { $$_{type} eq "SOA" } @$rr_list ];
|
||||
|
||||
for(@$soa) {
|
||||
return $$_{name};
|
||||
}
|
||||
|
||||
die "No SOA in this domain.";
|
||||
}
|
||||
|
||||
# to get all the records in relative
|
||||
sub rr_array_to_array_stripped {
|
||||
my $self = shift;
|
||||
my $rr_list = $self->rr_array_to_array();
|
||||
|
||||
my $domain = $self->search_domain();
|
||||
|
||||
for (@$rr_list) {
|
||||
$$_{name} =~ s/\.?$domain$//;
|
||||
$$_{name} = "@" if($$_{name} =~ /^$/);
|
||||
|
||||
if($$_{type} =~ /^(CNAME|SRV|MX)$/) {
|
||||
$$_{rdata} =~ s/\.?$domain$//;
|
||||
$$_{rdata} = "@" if($$_{rdata} =~ /^$/);
|
||||
}
|
||||
}
|
||||
|
||||
$rr_list;
|
||||
}
|
||||
|
||||
sub rr_array_to_array {
|
||||
my ($self) = shift;
|
||||
my $rr_list;
|
||||
|
|
@ -220,7 +251,6 @@ sub rr_array_to_array {
|
|||
}
|
||||
|
||||
push @$rr_list, $rr;
|
||||
|
||||
}
|
||||
|
||||
$rr_list
|
||||
|
|
|
|||
Loading…
Reference in New Issue