diff options
Diffstat (limited to 'httemplate/view/svc_domain/dns.html')
-rw-r--r-- | httemplate/view/svc_domain/dns.html | 93 |
1 files changed, 74 insertions, 19 deletions
diff --git a/httemplate/view/svc_domain/dns.html b/httemplate/view/svc_domain/dns.html index 88a9bda..184286c 100644 --- a/httemplate/view/svc_domain/dns.html +++ b/httemplate/view/svc_domain/dns.html @@ -7,22 +7,30 @@ return confirm("Remove all records and slave from " + document.SlaveForm.recdata.value + "?"); } </SCRIPT> +<% include('/elements/init_overlib.html') %> -DNS records -% my @records; if ( @records = $svc_domain->domain_record ) { +<A NAME="dns"></A> +<div class="fscontainer"> +<div class="fsbox"> +<div class="fsbox-title"> + <span class="left">DNS Records</span> +</div> - <% include('/elements/table-grid.html') %> +<% include('/elements/table-grid.html') %> % my $bgcolor1 = '#eeeeee'; -% my $bgcolor2 = '#ffffff'; -% my $bgcolor = $bgcolor2; +% my $bgcolor2 = '#ffffff'; +% my $bgcolor = $bgcolor2; <tr> <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> + <th CLASS="grid" BGCOLOR="#cccccc"></th> </tr> +% my @records = $svc_domain->domain_record; % foreach my $domain_record ( @records ) { % my $type = $domain_record->rectype eq '_mstr' % ? "(slave)" @@ -32,13 +40,27 @@ 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 $edit_link = include('/elements/popup_link.html', +% 'label' => 'edit', +% 'action' => $p.'edit/domain_record.html?recnum='. +% $domain_record->recnum, +% 'actionlabel' => 'Edit nameservice record', +% 'width' => 655, +% 'height' => 176, +% #'color' => '#ff0000', +% ); % ( my $recdata = $domain_record->recdata ) =~ s/"/\\'\\'/g; - (<A HREF="javascript:areyousure('<%$p%>misc/delete-domain_record.cgi?<%$domain_record->recnum%>', 'Delete \'<% $domain_record->reczone %> <% $type %> <% $recdata %>\' ?' )">delete</A>) +% my $delete_url= "javascript:areyousure('${p}misc/delete-domain_record.cgi?". +% $domain_record->recnum. "', 'Delete ". +% $domain_record->reczone. " $type $recdata ?' )"; + <%$edit_link%> | <A HREF="<%$delete_url%>">delete</A> % } </td> </tr> @@ -52,23 +74,51 @@ DNS records % } - </table> -% } +% if ( ! @records ) { + + <FORM METHOD="POST" NAME="DefaultForm" ACTION="<%$p%>edit/process/svc_domain-defaultrecords.cgi"> + <tr> + <td class="grid" BGCOLOR="#ffffff" COLSPAN=5> + <INPUT TYPE="hidden" NAME="svcnum" VALUE="<%$svcnum%>"> + <INPUT TYPE="submit" VALUE="Add default records"> + </td> + </tr> + </FORM> + +% } % if ( $FS::CurrentUser::CurrentUser->access_right('Edit domain nameservice') ) { <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) ) { - <OPTION VALUE="<%$_%>"><%$_%></OPTION> -% } - </SELECT> - <INPUT TYPE="text" NAME="recdata"> - <INPUT TYPE="submit" VALUE="Add record"> + <INPUT TYPE="hidden" NAME="svcnum" VALUE="<%$svcnum%>"> + <tr> + <td class="grid" bgcolor="<%$bgcolor%>"> + <INPUT TYPE="text" NAME="reczone"><BR> + <FONT SIZE="-1"><I>Zone</I></FONT> + </TD> + <TD class="grid" bgcolor="<%$bgcolor%>"> + <INPUT TYPE="hidden" NAME="recaf" VALUE="IN"> + <SELECT NAME="rectype"> +% foreach ( @{ FS::domain_record->rectypes } ) { + <OPTION VALUE="<%$_%>">IN <%$_%></OPTION> +% } + </SELECT><BR> + <FONT SIZE="-1"><I>Type</I></FONT> + </TD> + <TD class="grid" bgcolor="<%$bgcolor%>"> + <INPUT TYPE="text" NAME="recdata"><BR> + <FONT SIZE="-1"><I>Data</I></FONT> + </TD> + <TD class="grid" bgcolor="<%$bgcolor%>"> + <INPUT TYPE="text" NAME="ttl" size="6"><BR> + <FONT SIZE="-1"><I>TTL</I></FONT> + </TD> + <TD class="grid" bgcolor="<%$bgcolor%>" VALIGN="top"> + <INPUT TYPE="submit" VALUE="Add record"> + </TD> + </TR> </FORM> + <BR> <FORM NAME="SlaveForm" METHOD="POST" ACTION="<%$p%>edit/process/domain_record.cgi"> <INPUT TYPE="hidden" NAME="svcnum" VALUE="<%$svcnum%>"> Or @@ -83,9 +133,14 @@ DNS records <INPUT TYPE="text" NAME="recdata"> <INPUT TYPE="submit" VALUE="Slave domain" onClick="return slave_areyousure()"> </FORM> + <BR><BR> % } +</table> + +</div> +</div> <%init> my($svc_domain, %opt) = @_; |