1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
|
<!-- mason kludge -->
%
%
%my($query) = $cgi->keywords;
%$query =~ /^(\d+)$/;
%my $svcnum = $1;
%my $svc_domain = qsearchs('svc_domain',{'svcnum'=>$svcnum});
%die "Unknown svcnum" unless $svc_domain;
%
%my $cust_svc = qsearchs('cust_svc',{'svcnum'=>$svcnum});
%my $pkgnum = $cust_svc->getfield('pkgnum');
%my($cust_pkg, $custnum);
%if ($pkgnum) {
% $cust_pkg=qsearchs('cust_pkg',{'pkgnum'=>$pkgnum});
% $custnum=$cust_pkg->getfield('custnum');
%} else {
% $cust_pkg = '';
% $custnum = '';
%}
%
%my $part_svc = qsearchs('part_svc',{'svcpart'=> $cust_svc->svcpart } );
%die "Unknown svcpart" unless $part_svc;
%
%my $email = '';
%if ($svc_domain->catchall) {
% my $svc_acct = qsearchs('svc_acct',{'svcnum'=> $svc_domain->catchall } );
% die "Unknown svcpart" unless $svc_acct;
% $email = $svc_acct->email;
%}
%
%my $domain = $svc_domain->domain;
%
%
<% include("/elements/header.html",'Domain View', menubar(
( ( $pkgnum || $custnum )
? ( "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum",
)
: ( "Delete this (unaudited) domain" =>
"javascript:areyousure('${p}misc/cancel-unaudited.cgi?$svcnum', 'Delete $domain and all records?' )" )
),
"Main menu" => $p,
)) %>
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="<% ${p} %>misc/whois.cgi?custnum=<%$custnum%>;svcnum=<%$svcnum%>;domain=<%$domain%>">View whois information.</A>
<BR><BR>
<SCRIPT>
function areyousure(href, message) {
if ( confirm(message) == true )
window.location.href = href;
}
function slave_areyousure() {
return confirm("Remove all records and slave from " + document.SlaveForm.recdata.value + "?");
}
</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 \'<% $domain_record->reczone %> <% $type %> <% $domain_record->recdata %>\' ?' )">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 PTR TXT) ) {
<OPTION VALUE="<%$_%>"><%$_%></OPTION>
% }
</SELECT>
<INPUT TYPE="text" NAME="recdata"> <INPUT TYPE="submit" VALUE="Add record">
</FORM><BR><BR>or<BR><BR>
<FORM NAME="SlaveForm" 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" onClick="return slave_areyousure()">
</FORM>
<BR><BR><% joblisting({'svcnum'=>$svcnum}, 1) %>
</BODY></HTML>
|
