diff --git a/cli/daemon/daemon.pl b/cli/daemon/daemon.pl
index b85d191..9e040cd 100755
--- a/cli/daemon/daemon.pl
+++ b/cli/daemon/daemon.pl
@@ -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)
diff --git a/lib/rt/domain.pm b/lib/rt/domain.pm
index 17adc71..baf51fd 100644
--- a/lib/rt/domain.pm
+++ b/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";
         }
diff --git a/lib/zonefile.pm b/lib/zonefile.pm
index 31f2085..d4c95cd 100644
--- a/lib/zonefile.pm
+++ b/lib/zonefile.pm
@@ -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