Obsolete/dnsmanagerv1
Archived
3
0
Fork 0
Code

noms relatifs et daemon qui change directement le RR de $domain

Browse Source
This commit is contained in:
karchnu 2015-12-28 16:08:52 +01:00
parent d61cacc435
commit 6e6aada17e
3 changed files with 112 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
cli/daemon/daemon.pl
View File

@ -19,7 +19,10 @@ our $login = "idtest";
our $pass = "mdptest"; our $pass = "mdptest";
# Your entry to change # 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 our $type = 'A'; # could be AAAA
# The CA certificate, to authenticate the website (should be provided) # The CA certificate, to authenticate the website (should be provided)

105
lib/rt/domain.pm
View File

@ -93,6 +93,8 @@ sub rt_dom_cli_autoupdate {
my $name = $$param{name}; my $name = $$param{name};
$name =~ s/@/$$param{domain}./;
if($name =~ /$$param{domain}$/) { if($name =~ /$$param{domain}$/) {
$name .= '.'; $name .= '.';
} }
@ -211,58 +213,78 @@ sub rt_dom_mod_entry {
return $res; 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} = $$res{deferred}{errmsg} =
"Il faut une adresse IPv4 pour un enregistrement de type A." "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} : '/'; $$res{route} = ($$request{referer}) ? $$request{referer} : '/';
return $res; return $res;
} }
if ($$param{type} eq 'AAAA' && ! is_ipv6($rdata)) { if ($$param{type} eq 'AAAA' && ! is_ipv6($newrdata)) {
$$res{deferred}{errmsg} = $$res{deferred}{errmsg} =
"Il faut une adresse IPv6 pour un enregistrement de type AAAA." "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} : '/'; $$res{route} = ($$request{referer}) ? $$request{referer} : '/';
return $res; 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 if ($$param{type} =~ /^(CNAME|MX|NS|PTR|SRV)$/i
&& ! is_domain_name ($rdata)) && ! is_domain_name ($newrdata))
{ {
$$res{deferred}{errmsg} = $$res{deferred}{errmsg} =
"Une entrée $$param{type} doit avoir un nom de domaine " "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} : '/'; $$res{route} = ($$request{referer}) ? $$request{referer} : '/';
return $res; return $res;
} }
if($$param{type} =~ /^(CNAME|MX|NS|PTR)$/ && $rdata !~ /\.$/) { my $str_old = "$oldname $$param{oldttl} $$param{type} ";
$rdata .= ".$$param{domain}."; my $str_new = "$newname $$param{newttl} $$param{type} ";
}
my $str_old = "$$param{oldname} $$param{oldttl} $$param{type} ";
my $str_new = "$$param{newname} $$param{newttl} $$param{type} ";
if($$param{type} eq "MX") { if($$param{type} eq "MX") {
$str_old .= "$$param{oldpriority} $$param{oldrdata}"; $str_old .= "$$param{oldpriority} $oldrdata";
$str_new .= "$$param{newpriority} $$param{newrdata}"; $str_new .= "$$param{newpriority} $newrdata";
} }
elsif ($$param{type} eq "SRV") { elsif ($$param{type} eq "SRV") {
$str_old .= "$$param{oldpriority} $$param{oldweight} " $str_old .= "$$param{oldpriority} $$param{oldweight} "
."$$param{oldport} $$param{oldrdata}"; ."$$param{oldport} $oldrdata";
$str_new .= "$$param{newpriority} $$param{newweight} " $str_new .= "$$param{newpriority} $$param{newweight} "
."$$param{newport} $rdata"; ."$$param{newport} $newrdata";
} }
else { else {
$str_old .= "$$param{oldrdata}"; $str_old .= "$oldrdata";
$str_new .= "$rdata"; $str_new .= "$newrdata";
} }
say "str_old : $str_old"; say "::: ___ str_old : $str_old";
say "str_new : $str_new"; say "::: ___ str_new : $str_new";
# Do the modification of the entry # Do the modification of the entry
@ -335,20 +357,40 @@ sub rt_dom_del_entry {
return $res; 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 $zone = $app->get_zone( $$param{domain} );
my $zf = $zone->get_zonefile(); 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') { if( $$param{type} eq 'SRV') {
$str_del .= $str_del .=
"$$param{priority} $$param{weight} $$param{port} $$param{rdata}"; "$$param{priority} $$param{weight} $$param{port} $rdata";
} }
elsif ($$param{type} eq 'MX') { elsif ($$param{type} eq 'MX') {
$str_del .= "$$param{priority} $$param{rdata}"; $str_del .= "$$param{priority} $rdata";
} }
else { else {
$str_del .= "$$param{rdata}"; $str_del .= "$rdata";
} }
$zf->rr_del_raw( $str_del ); $zf->rr_del_raw( $str_del );
@ -522,7 +564,7 @@ sub rt_dom_details {
$$res{params}{expert} = 1; $$res{params}{expert} = 1;
} }
else { 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}; my $name = $$param{name};
$name =~ s/@/$$param{domain}./;
if($name =~ /$$param{domain}$/) { if($name =~ /$$param{domain}$/) {
$name .= '.'; $name .= '.';
} }
@ -583,6 +627,11 @@ sub rt_dom_add_entry {
my $str_new = "$name $$param{ttl} $$param{type} "; my $str_new = "$name $$param{ttl} $$param{type} ";
my $rdata = $$param{rdata}; 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 if ($$param{type} =~ /^(CNAME|MX|NS|PTR|SRV)$/i
&& ! is_domain_name ($rdata)) && ! is_domain_name ($rdata))
{ {
@ -609,10 +658,6 @@ sub rt_dom_add_entry {
return $res; return $res;
} }
if($$param{type} =~ /^(CNAME|MX|NS|PTR|SRV)$/ && $rdata !~ /\.$/) {
$rdata .= ".$$param{domain}.";
}
if($$param{type} eq "MX") { if($$param{type} eq "MX") {
$str_new .= "$$param{priority} $rdata"; $str_new .= "$$param{priority} $rdata";
} }

36
lib/zonefile.pm
View File

@ -16,7 +16,6 @@ sub rr_array_del {
my ($zones, $rr) = @_; my ($zones, $rr) = @_;
my $todel = $rr->plain; my $todel = $rr->plain;
utf8::decode($todel); utf8::decode($todel);
[grep { my $v = $_->plain; utf8::decode($v); $v ne $rr->plain } @$zones] [grep { my $v = $_->plain; utf8::decode($v); $v ne $rr->plain } @$zones]
} }
@ -138,7 +137,6 @@ sub rr_add {
sub rr_mod { sub rr_mod {
my ($self, $rrline_old, $rrline_new) = @_; my ($self, $rrline_old, $rrline_new) = @_;
$self->rr_del_raw($rrline_old); $self->rr_del_raw($rrline_old);
$self->rr_add_raw($rrline_new); $self->rr_add_raw($rrline_new);
} }
@ -149,6 +147,39 @@ sub rr_search {
[ grep { $$_{name} eq $name && $$_{type} eq $type } @$rrlisttmp ] [ 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 { sub rr_array_to_array {
my ($self) = shift; my ($self) = shift;
my $rr_list; my $rr_list;
@ -220,7 +251,6 @@ sub rr_array_to_array {
} }
push @$rr_list, $rr; push @$rr_list, $rr;
} }
$rr_list $rr_list