This commit was generated by cvs2svn to compensate for changes in r4407,

[freeside.git] / FS / FS / svc_domain.pm

diff --git a/FS/FS/svc_domain.pm b/FS/FS/svc_domain.pm
index b713e3e..6d54357 100644 (file)
--- a/FS/FS/svc_domain.pm
+++ b/FS/FS/svc_domain.pm
@@ -342,7 +342,8 @@ sub check {
            " (or unknown registry - try \$whois_hack)";
   }
 
-  $recref->{action} =~ /^(M|N)$/ or return "Illegal action";
+  $recref->{action} =~ /^(M|N)$/
+    or return "Illegal action: ". $recref->{action};
   $recref->{action} = $1;
 
   if ( $recref->{catchall} ne '' ) {
@@ -368,6 +369,7 @@ sub domain_record {
     MX => 3,
     CNAME => 4,
     A => 5,
+    TXT => 6,
   );
 
   sort { $order{$a->rectype} <=> $order{$b->rectype} }