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="http://www.geektools.com/cgi-bin/proxy.cgi?query=<%=$domain%>;targetnic=auto">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 </SCRIPT>
  58
  59 <% my @records; if ( @records = $svc_domain->domain_record ) { %>
  60   <%= ntable("",2) %>
  61   <tr><th>Zone</th><th>Type</th><th>Data</th></tr>
  62
  63   <% foreach my $domain_record ( @records ) {
  64        my $type = $domain_record->rectype eq '_mstr'
  65                     ? "(slave)"
  66                     : $domain_record->recaf. ' '. $domain_record->rectype;
  67   %>
  68
  69     <tr><td><%= $domain_record->reczone %></td>
  70     <td><%= $type %></td>
  71     <td><%= $domain_record->recdata %>
  72
  73     <% unless ( $domain_record->rectype eq 'SOA' ) { %>
  74       (<A HREF="javascript:areyousure('<%=$p%>misc/delete-domain_record.cgi?<%=$domain_record->recnum%>')">delete</A>)
  75     <% } %>
  76     </td></tr>
  77   <% } %>
  78   </table>
  79 <% } %>
  80
  81 <BR>
  82 <FORM METHOD="POST" ACTION="<%=$p%>edit/process/domain_record.cgi">
  83 <INPUT TYPE="hidden" NAME="svcnum" VALUE="<%=$svcnum%>">
  84 <INPUT TYPE="text" NAME="reczone">
  85 <INPUT TYPE="hidden" NAME="recaf" VALUE="IN"> IN
  86  <SELECT NAME="rectype">
  87 <% foreach (qw( A NS CNAME MX PTR) ) { %>
  88   <OPTION VALUE="<%=$_%>"><%=$_%></OPTION>
  89 <% } %>
  90  </SELECT>
  91 <INPUT TYPE="text" NAME="recdata"> <INPUT TYPE="submit" VALUE="Add record">
  92 </FORM><BR><BR>or<BR><BR>
  93 <FORM METHOD="POST" ACTION="<%=$p%>edit/process/domain_record.cgi">
  94 <INPUT TYPE="hidden" NAME="svcnum" VALUE="<%=$svcnum%>">
  95
  96 <% if ( @records ) { %> Delete all records and <% } %>
  97 Slave from nameserver IP
  98 <INPUT TYPE="hidden" NAME="svcnum" VALUE="<%=$svcnum%>">
  99 <INPUT TYPE="hidden" NAME="reczone" VALUE="@">
 100 <INPUT TYPE="hidden" NAME="recaf" VALUE="IN">
 101 <INPUT TYPE="hidden" NAME="rectype" VALUE="_mstr">
 102 <INPUT TYPE="text" NAME="recdata"> <INPUT TYPE="submit" VALUE="Slave domain">
 103 </FORM>
 104 <BR><BR><%= joblisting({'svcnum'=>$svcnum}, 1) %>
 105 </BODY></HTML>