diff options
Diffstat (limited to 'httemplate/view/svc_domain.cgi')
-rwxr-xr-x | httemplate/view/svc_domain.cgi | 88 |
1 files changed, 66 insertions, 22 deletions
diff --git a/httemplate/view/svc_domain.cgi b/httemplate/view/svc_domain.cgi index 61194a2..b70ac8f 100755 --- a/httemplate/view/svc_domain.cgi +++ b/httemplate/view/svc_domain.cgi @@ -30,33 +30,77 @@ if ($svc_domain->catchall) { my $domain = $svc_domain->domain; -print header('Domain View', menubar( +%> + +<%= header('Domain View', menubar( ( ( $pkgnum || $custnum ) ? ( "View this package (#$pkgnum)" => "${p}view/cust_pkg.cgi?$pkgnum", "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum", ) - : ( "Cancel this (unaudited) account" => + : ( "Cancel this (unaudited) domain" => "${p}misc/cancel-unaudited.cgi?$svcnum" ) ), "Main menu" => $p, -)), - "Service #$svcnum", - "<BR>Service: <B>", $part_svc->svc, "</B>", - "<BR>Domain name: <B>$domain</B>.", - qq!<BR>Catch all email <A HREF="${p}misc/catchall.cgi?$svcnum">(change)</A>:!, - $email ? "<B>$email</B>." : "<I>(none)<I>", - qq!<BR><BR><A HREF="http://www.geektools.com/cgi-bin/proxy.cgi?query=$domain;targetnic=auto">View whois information.</A>!, - '<BR><BR>', ntable("",2), - '<tr><th>Zone</th><th>Type</th><th>Data</th></tr>', -; - -foreach my $domain_record ( qsearch('domain_record', { svcnum => $svcnum } ) ) { - print '<tr><td>'. $domain_record->reczone. '</td>'. - '<td>'. $domain_record->recaf. ' '. $domain_record->rectype. '</td>'. - '<td>'. $domain_record->recdata. '</td></tr>'; -} -print '</table>'. - '<BR>'. joblisting({'svcnum'=>$svcnum}, 1). - '</BODY></HTML>'; +)) %> -%> +Service #<%= $svcnum %> +<BR>Service: <B><%= $part_svc->svc %></B> +<BR>Domain name: <B><%= $domain %></B> +<BR>Catch all email <A HREF="${p}misc/catchall.cgi?<%= $svcnum %>">(change)</A>: +<%= $email ? "<B>$email</B>" : "<I>(none)<I>" %> +<BR><BR><A HREF="http://www.geektools.com/cgi-bin/proxy.cgi?query=<%=$domain%>;targetnic=auto">View whois information.</A> +<BR><BR> +<SCRIPT> + function areyousure(href) { + if ( confirm("Remove this record?") == true ) + window.location.href = href; + } +</SCRIPT> + +<% my @records; if ( @records = $svc_domain->domain_record ) { %> + <%= ntable("",2) %> + <tr><th>Zone</th><th>Type</th><th>Data</th></tr> + + <% foreach my $domain_record ( @records ) { + my $type = $domain_record->rectype eq '_mstr' + ? "(slave)" + : $domain_record->recaf. ' '. $domain_record->rectype; + %> + + <tr><td><%= $domain_record->reczone %></td> + <td><%= $type %></td> + <td><%= $domain_record->recdata %> + + <% unless ( $domain_record->rectype eq 'SOA' ) { %> + (<A HREF="javascript:areyousure('<%=$p%>misc/delete-domain_record.cgi?<%=$domain_record->recnum%>')">delete</A>) + <% } %> + </td></tr> + <% } %> + </table> +<% } %> + +<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) ) { %> + <OPTION VALUE="<%=$_%>"><%=$_%></OPTION> +<% } %> + </SELECT> +<INPUT TYPE="text" NAME="recdata"> <INPUT TYPE="submit" VALUE="Add record"> +</FORM><BR><BR>or<BR><BR> +<FORM METHOD="POST" ACTION="<%=$p%>edit/process/domain_record.cgi"> +<INPUT TYPE="hidden" NAME="svcnum" VALUE="<%=$svcnum%>"> + +<% if ( @records ) { %> Delete all records and <% } %> +Slave from nameserver IP +<INPUT TYPE="hidden" NAME="svcnum" VALUE="<%=$svcnum%>"> +<INPUT TYPE="hidden" NAME="reczone" VALUE="@"> +<INPUT TYPE="hidden" NAME="recaf" VALUE="IN"> +<INPUT TYPE="hidden" NAME="rectype" VALUE="_mstr"> +<INPUT TYPE="text" NAME="recdata"> <INPUT TYPE="submit" VALUE="Slave domain"> +</FORM> +<BR><BR><%= joblisting({'svcnum'=>$svcnum}, 1) %> +</BODY></HTML> |