httemplate/view/svc_domain.cgi

   1 <!-- mason kludge -->
   2 <%
   3
   4 my($query) = $cgi->keywords;
   5 $query =~ /^(\d+)$/;
   6 my $svcnum = $1;
   7 my $svc_domain = qsearchs('svc_domain',{'svcnum'=>$svcnum});
   8 die "Unknown svcnum" unless $svc_domain;
   9
  10 my $cust_svc = qsearchs('cust_svc',{'svcnum'=>$svcnum});
  11 my $pkgnum = $cust_svc->getfield('pkgnum');
  12 my($cust_pkg, $custnum);
  13 if ($pkgnum) {
  14   $cust_pkg=qsearchs('cust_pkg',{'pkgnum'=>$pkgnum});
  15   $custnum=$cust_pkg->getfield('custnum');
  16 } else {
  17   $cust_pkg = '';
  18   $custnum = '';
  19 }
  20
  21 my $part_svc = qsearchs('part_svc',{'svcpart'=> $cust_svc->svcpart } );
  22 die "Unknown svcpart" unless $part_svc;
  23
  24 my $email = '';
  25 if ($svc_domain->catchall) {
  26   my $svc_acct = qsearchs('svc_acct',{'svcnum'=> $svc_domain->catchall } );
  27   die "Unknown svcpart" unless $svc_acct;
  28   $email = $svc_acct->email;
  29 }
  30
  31 my $domain = $svc_domain->domain;
  32
  33 %>
  34
  35 <%= header('Domain View', menubar(
  36   ( ( $pkgnum || $custnum )
  37     ? ( "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum",
  38       )
  39     : ( "Cancel this (unaudited) domain" =>
  40           "${p}misc/cancel-unaudited.cgi?$svcnum" )
  41   ),
  42   "Main menu" => $p,
  43 )) %>
  44
  45 Service #<%= $svcnum %>
  46 <BR>Service: <B><%= $part_svc->svc %></B>
  47 <BR>Domain name: <B><%= $domain %></B>
  48 <BR>Catch all email <A HREF="<%= ${p} %>misc/catchall.cgi?<%= $svcnum %>">(change)</A>:
  49 <%= $email ? "<B>$email</B>" : "<I>(none)<I>" %>
  50 <BR><BR><A HREF="<%= ${p} %>misc/whois.cgi?custnum=<%=$custnum%>;svcnum=<%=$svcnum%>;domain=<%=$domain%>">View whois information.</A>
  51 <BR><BR>
  52 <SCRIPT>
  53   function areyousure(href) {
  54     if ( confirm("Remove this record?") == true )
  55       window.location.href = href;
  56   }
  57   function slave_areyousure() {
  58     return confirm("Remove all records and slave from " + document.SlaveForm.recdata.value + "?");
  59   }
  60 </SCRIPT>
  61
  62 <% my @records; if ( @records = $svc_domain->domain_record ) { %>
  63   <%= ntable("",2) %>
  64   <tr><th>Zone</th><th>Type</th><th>Data</th></tr>
  65
  66   <% foreach my $domain_record ( @records ) {
  67        my $type = $domain_record->rectype eq '_mstr'
  68                     ? "(slave)"
  69                     : $domain_record->recaf. ' '. $domain_record->rectype;
  70   %>
  71
  72     <tr><td><%= $domain_record->reczone %></td>
  73     <td><%= $type %></td>
  74     <td><%= $domain_record->recdata %>
  75
  76     <% unless ( $domain_record->rectype eq 'SOA' ) { %>
  77       (<A HREF="javascript:areyousure('<%=$p%>misc/delete-domain_record.cgi?<%=$domain_record->recnum%>')">delete</A>)
  78     <% } %>
  79     </td></tr>
  80   <% } %>
  81   </table>
  82 <% } %>
  83
  84 <BR>
  85 <FORM METHOD="POST" ACTION="<%=$p%>edit/process/domain_record.cgi">
  86 <INPUT TYPE="hidden" NAME="svcnum" VALUE="<%=$svcnum%>">
  87 <INPUT TYPE="text" NAME="reczone">
  88 <INPUT TYPE="hidden" NAME="recaf" VALUE="IN"> IN
  89  <SELECT NAME="rectype">
  90 <% foreach (qw( A NS CNAME MX PTR) ) { %>
  91   <OPTION VALUE="<%=$_%>"><%=$_%></OPTION>
  92 <% } %>
  93  </SELECT>
  94 <INPUT TYPE="text" NAME="recdata"> <INPUT TYPE="submit" VALUE="Add record">
  95 </FORM><BR><BR>or<BR><BR>
  96 <FORM NAME="SlaveForm" METHOD="POST" ACTION="<%=$p%>edit/process/domain_record.cgi">
  97 <INPUT TYPE="hidden" NAME="svcnum" VALUE="<%=$svcnum%>">
  98
  99 <% if ( @records ) { %> Delete all records and <% } %>
 100 Slave from nameserver IP
 101 <INPUT TYPE="hidden" NAME="svcnum" VALUE="<%=$svcnum%>">
 102 <INPUT TYPE="hidden" NAME="reczone" VALUE="@">
 103 <INPUT TYPE="hidden" NAME="recaf" VALUE="IN">
 104 <INPUT TYPE="hidden" NAME="rectype" VALUE="_mstr">
 105 <INPUT TYPE="text" NAME="recdata"> <INPUT TYPE="submit" VALUE="Slave domain" onClick="return slave_areyousure()">
 106 </FORM>
 107 <BR><BR><%= joblisting({'svcnum'=>$svcnum}, 1) %>
 108 </BODY></HTML>