dns updates from Erik L: add ttl support, add check for SRV and finish allowing addit...

[freeside.git] / httemplate / view / svc_domain / dns.html

diff --git a/httemplate/view/svc_domain/dns.html b/httemplate/view/svc_domain/dns.html
index f6f8c71..6380db7 100644 (file)
--- a/httemplate/view/svc_domain/dns.html
+++ b/httemplate/view/svc_domain/dns.html
@@ -8,7 +8,12 @@
   }
 </SCRIPT>
 
-DNS records
+<div class="fscontainer">
+<div class="fsbox">
+<div class="fsbox-title">
+  <span class="left">DNS Records</span>
+</div>
+
 % my @records; if ( @records = $svc_domain->domain_record ) { 
 
   <% include('/elements/table-grid.html') %>
@@ -21,6 +26,7 @@ DNS records
     <th CLASS="grid" BGCOLOR="#cccccc">Zone</th>
     <th CLASS="grid" BGCOLOR="#cccccc">Type</th>
     <th CLASS="grid" BGCOLOR="#cccccc">Data</th>
+    <th CLASS="grid" BGCOLOR="#cccccc">TTL</th>
   </tr>
 
 % foreach my $domain_record ( @records ) {
@@ -32,12 +38,15 @@ DNS records
     <tr>
       <td CLASS="grid" BGCOLOR="<% $bgcolor %>"><% $domain_record->reczone %></td>
       <td CLASS="grid" BGCOLOR="<% $bgcolor %>"><% $type %></td>
-      <td CLASS="grid" BGCOLOR="<% $bgcolor %>"><% $domain_record->recdata %>
+      <td CLASS="grid" BGCOLOR="<% $bgcolor %>"><% $domain_record->recdata %></td>
+      <td CLASS="grid" BGCOLOR="<% $bgcolor %>"><% $domain_record->ttl %></td>
+      <td CLASS="grid" BGCOLOR="<% $bgcolor %>">
 
 % unless ( $domain_record->rectype eq 'SOA'
 %          || ! $FS::CurrentUser::CurrentUser->access_right('Edit domain nameservice')
 %        ) { 
 %   ( my $recdata = $domain_record->recdata ) =~ s/"/\\'\\'/g;
+      (<A HREF="<%$p%>edit/domain_record.html?<%$domain_record->recnum%>">edit</A>)
       (<A HREF="javascript:areyousure('<%$p%>misc/delete-domain_record.cgi?<%$domain_record->recnum%>', 'Delete \'<% $domain_record->reczone %> <% $type %> <% $recdata %>\' ?' )">delete</A>)
 % }
       </td>
@@ -53,28 +62,39 @@ DNS records
 % } 
 
   </table>
-% } 
+% } else {
+
+  <FORM METHOD="POST" NAME="DefaultForm" ACTION="<%$p%>edit/process/svc_domain-defaultrecords.cgi">
+      <INPUT TYPE="hidden" NAME="svcnum" VALUE="<%$svcnum%>">
+      <INPUT TYPE="submit" VALUE="Add default records">
+  </FORM>
+
+% }
 
 % if ( $FS::CurrentUser::CurrentUser->access_right('Edit domain nameservice') ) {
+    <BR>
     <FORM METHOD="POST" ACTION="<%$p%>edit/process/domain_record.cgi">
       <INPUT TYPE="hidden" NAME="svcnum" VALUE="<%$svcnum%>">
       <INPUT TYPE="text" NAME="reczone"> 
       <INPUT TYPE="hidden" NAME="recaf" VALUE="IN"> IN 
       <SELECT NAME="rectype">
-%       foreach (qw( A NS CNAME MX PTR TXT) ) { 
+%       foreach ( @{ FS::domain_record->rectypes } ) { 
           <OPTION VALUE="<%$_%>"><%$_%></OPTION>
 %       } 
       </SELECT>
       <INPUT TYPE="text" NAME="recdata">
+      <INPUT TYPE="text" NAME="ttl" size="6">
       <INPUT TYPE="submit" VALUE="Add record">
     </FORM>
 
+    <BR>
     <FORM NAME="SlaveForm" METHOD="POST" ACTION="<%$p%>edit/process/domain_record.cgi">
       <INPUT TYPE="hidden" NAME="svcnum" VALUE="<%$svcnum%>">
+      Or
 %     if ( @records ) { 
-         Delete all records and 
+         delete all records and 
 %     } 
-      Or slave from nameserver IP 
+      slave from nameserver IP 
       <INPUT TYPE="hidden" NAME="svcnum" VALUE="<%$svcnum%>">
       <INPUT TYPE="hidden" NAME="reczone" VALUE="@"> 
       <INPUT TYPE="hidden" NAME="recaf" VALUE="IN">
@@ -85,6 +105,8 @@ DNS records
 
 % }
 
+</div>
+</div>
 <%init>
 
 my($svc_domain, %opt) = @_;