httemplate/view/svc_domain/dns.html

   1 <SCRIPT>
   2   function areyousure(href, message) {
   3     if ( confirm(message) == true )
   4       window.location.href = href;
   5   }
   6   function slave_areyousure() {
   7     return confirm("Remove all records and slave from " + document.SlaveForm.recdata.value + "?");
   8   }
   9 </SCRIPT>
  10
  11 DNS records
  12 % my @records; if ( @records = $svc_domain->domain_record ) {
  13
  14   <% include('/elements/table-grid.html') %>
  15
  16 % my $bgcolor1 = '#eeeeee';
  17 %     my $bgcolor2 = '#ffffff';
  18 %     my $bgcolor = $bgcolor2;
  19
  20   <tr>
  21     <th CLASS="grid" BGCOLOR="#cccccc">Zone</th>
  22     <th CLASS="grid" BGCOLOR="#cccccc">Type</th>
  23     <th CLASS="grid" BGCOLOR="#cccccc">Data</th>
  24   </tr>
  25
  26 % foreach my $domain_record ( @records ) {
  27 %       my $type = $domain_record->rectype eq '_mstr'
  28 %                    ? "(slave)"
  29 %                    : $domain_record->recaf. ' '. $domain_record->rectype;
  30
  31
  32     <tr>
  33       <td CLASS="grid" BGCOLOR="<% $bgcolor %>"><% $domain_record->reczone %></td>
  34       <td CLASS="grid" BGCOLOR="<% $bgcolor %>"><% $type %></td>
  35       <td CLASS="grid" BGCOLOR="<% $bgcolor %>"><% $domain_record->recdata %>
  36
  37 % unless ( $domain_record->rectype eq 'SOA'
  38 %          || ! $FS::CurrentUser::CurrentUser->access_right('Edit domain nameservice')
  39 %        ) {
  40 %   ( my $recdata = $domain_record->recdata ) =~ s/"/\\'\\'/g;
  41       (<A HREF="javascript:areyousure('<%$p%>misc/delete-domain_record.cgi?<%$domain_record->recnum%>', 'Delete \'<% $domain_record->reczone %> <% $type %> <% $recdata %>\' ?' )">delete</A>)
  42 % }
  43       </td>
  44     </tr>
  45
  46
  47 %   if ( $bgcolor eq $bgcolor1 ) {
  48 %      $bgcolor = $bgcolor2;
  49 %    } else {
  50 %      $bgcolor = $bgcolor1;
  51 %    }
  52
  53 % }
  54
  55   </table>
  56 % }
  57
  58 % if ( $FS::CurrentUser::CurrentUser->access_right('Edit domain nameservice') ) {
  59     <FORM METHOD="POST" ACTION="<%$p%>edit/process/domain_record.cgi">
  60       <INPUT TYPE="hidden" NAME="svcnum" VALUE="<%$svcnum%>">
  61       <INPUT TYPE="text" NAME="reczone">
  62       <INPUT TYPE="hidden" NAME="recaf" VALUE="IN"> IN
  63       <SELECT NAME="rectype">
  64 %       foreach (qw( A NS CNAME MX PTR TXT) ) {
  65           <OPTION VALUE="<%$_%>"><%$_%></OPTION>
  66 %       }
  67       </SELECT>
  68       <INPUT TYPE="text" NAME="recdata">
  69       <INPUT TYPE="submit" VALUE="Add record">
  70     </FORM>
  71
  72     <FORM NAME="SlaveForm" METHOD="POST" ACTION="<%$p%>edit/process/domain_record.cgi">
  73       <INPUT TYPE="hidden" NAME="svcnum" VALUE="<%$svcnum%>">
  74 %     if ( @records ) {
  75          Delete all records and
  76 %     }
  77       Or slave from nameserver IP
  78       <INPUT TYPE="hidden" NAME="svcnum" VALUE="<%$svcnum%>">
  79       <INPUT TYPE="hidden" NAME="reczone" VALUE="@">
  80       <INPUT TYPE="hidden" NAME="recaf" VALUE="IN">
  81       <INPUT TYPE="hidden" NAME="rectype" VALUE="_mstr">
  82       <INPUT TYPE="text" NAME="recdata">
  83       <INPUT TYPE="submit" VALUE="Slave domain" onClick="return slave_areyousure()">
  84     </FORM>
  85
  86 % }
  87
  88 <%init>
  89
  90 my($svc_domain, %opt) = @_;
  91 my $svcnum = $svc_domain->svcnum;
  92
  93 </%init>
  94