3 %# <% include("/elements/header.html","View $svcdomain") %>
4 <% include("/elements/header.html","View domain") %>
5 <% include( '/elements/small_custview.html', $custnum, '', 1,
6 "${p}view/cust_main.cgi") %>
11 <% include("/elements/header.html",'View domain', menubar(
12 "Cancel this (unaudited) domain" =>
13 "javascript:areyousure('${p}misc/cancel-unaudited.cgi?$svcnum', 'Delete $domain and all records?')",
19 <% include('/elements/error.html') %>
21 Service #<B><% $svcnum %></B>
22 % #if ( $conf->exists('svc_domain-edit_domain') ) {
23 | <A HREF="<%$p%>edit/svc_domain.cgi?<%$svcnum%>">Edit this domain</A>
26 <% &ntable("#cccccc") %><TR><TD><% &ntable("#cccccc",2) %>
29 <TD ALIGN="right">Service</TD>
30 <TD BGCOLOR="#ffffff"><% $part_svc->svc %></TD>
34 <TD ALIGN="right">Domain</TD>
35 <TD BGCOLOR="#ffffff">
37 <A HREF="<% ${p} %>misc/whois.cgi?custnum=<%$custnum%>;svcnum=<%$svcnum%>;domain=<%$domain%>">(view whois information)</A>
43 <TD ALIGN="right">Registration status</TD>
44 <TD BGCOLOR="#ffffff"><B><% $status %></B>
46 % if ( $FS::CurrentUser::CurrentUser->access_right('Manage domain registration') ) {
47 % if ( defined($ops{'register'}) ) {
48 <A HREF="<% ${p} %>edit/process/domreg.cgi?op=register&svcnum=<% $svcnum %>">Register at <% $registrar->{'name'} %></A>
50 % if ( defined($ops{'transfer'}) ) {
51 <A HREF="<% ${p} %>edit/process/domreg.cgi?op=transfer&svcnum=<% $svcnum %>">Transfer to <% $registrar->{'name'} %></A>
53 % if ( defined($ops{'renew'}) ) {
54 <A HREF="<% ${p} %>edit/process/domreg.cgi?op=renew&svcnum=<% $svcnum %>&period=1">Renew at <% $registrar->{'name'} %></A>
56 % if ( defined($ops{'revoke'}) ) {
57 <A HREF="<% ${p} %>edit/process/domreg.cgi?op=revoke&svcnum=<% $svcnum %>">Revoke</A>
65 % if ( $svc_domain->max_accounts ) {
67 <TD ALIGN="right">Maximum number of Accounts</TD>
68 <TD BGCOLOR="#ffffff"><% $svc_domain->max_accounts %></TD>
73 <TD ALIGN="right">Catch all email</TD>
74 <TD BGCOLOR="#ffffff"><% $email ? "<B>$email</B>" : '<I>(none)</I>' %>
75 % if ( $FS::CurrentUser::CurrentUser->access_right('Edit domain catchall') ) {
76 <A HREF="<% ${p} %>misc/catchall.cgi?<% $svcnum %>">(change)</A>
81 </TABLE></TD></TR></TABLE>
85 function areyousure(href, message) {
86 if ( confirm(message) == true )
87 window.location.href = href;
89 function slave_areyousure() {
90 return confirm("Remove all records and slave from " + document.SlaveForm.recdata.value + "?");
95 % my @records; if ( @records = $svc_domain->domain_record ) {
97 <% include('/elements/table-grid.html') %>
99 % my $bgcolor1 = '#eeeeee';
100 % my $bgcolor2 = '#ffffff';
101 % my $bgcolor = $bgcolor2;
104 <th CLASS="grid" BGCOLOR="#cccccc">Zone</th>
105 <th CLASS="grid" BGCOLOR="#cccccc">Type</th>
106 <th CLASS="grid" BGCOLOR="#cccccc">Data</th>
109 % foreach my $domain_record ( @records ) {
110 % my $type = $domain_record->rectype eq '_mstr'
112 % : $domain_record->recaf. ' '. $domain_record->rectype;
116 <td CLASS="grid" BGCOLOR="<% $bgcolor %>"><% $domain_record->reczone %></td>
117 <td CLASS="grid" BGCOLOR="<% $bgcolor %>"><% $type %></td>
118 <td CLASS="grid" BGCOLOR="<% $bgcolor %>"><% $domain_record->recdata %>
120 % unless ( $domain_record->rectype eq 'SOA'
121 % || ! $FS::CurrentUser::CurrentUser->access_right('Edit domain nameservice')
123 % ( my $recdata = $domain_record->recdata ) =~ s/"/\\'\\'/g;
124 (<A HREF="javascript:areyousure('<%$p%>misc/delete-domain_record.cgi?<%$domain_record->recnum%>', 'Delete \'<% $domain_record->reczone %> <% $type %> <% $recdata %>\' ?' )">delete</A>)
130 % if ( $bgcolor eq $bgcolor1 ) {
131 % $bgcolor = $bgcolor2;
133 % $bgcolor = $bgcolor1;
141 % if ( $FS::CurrentUser::CurrentUser->access_right('Edit domain nameservice') ) {
142 <FORM METHOD="POST" ACTION="<%$p%>edit/process/domain_record.cgi">
143 <INPUT TYPE="hidden" NAME="svcnum" VALUE="<%$svcnum%>">
144 <INPUT TYPE="text" NAME="reczone">
145 <INPUT TYPE="hidden" NAME="recaf" VALUE="IN"> IN
146 <SELECT NAME="rectype">
147 % foreach (qw( A NS CNAME MX PTR TXT) ) {
148 <OPTION VALUE="<%$_%>"><%$_%></OPTION>
151 <INPUT TYPE="text" NAME="recdata">
152 <INPUT TYPE="submit" VALUE="Add record">
155 <FORM NAME="SlaveForm" METHOD="POST" ACTION="<%$p%>edit/process/domain_record.cgi">
156 <INPUT TYPE="hidden" NAME="svcnum" VALUE="<%$svcnum%>">
158 Delete all records and
160 Or slave from nameserver IP
161 <INPUT TYPE="hidden" NAME="svcnum" VALUE="<%$svcnum%>">
162 <INPUT TYPE="hidden" NAME="reczone" VALUE="@">
163 <INPUT TYPE="hidden" NAME="recaf" VALUE="IN">
164 <INPUT TYPE="hidden" NAME="rectype" VALUE="_mstr">
165 <INPUT TYPE="text" NAME="recdata">
166 <INPUT TYPE="submit" VALUE="Slave domain" onClick="return slave_areyousure()">
172 <% include('elements/svc_export_settings.html', $svc_domain) %>
174 <% joblisting({'svcnum'=>$svcnum}, 1) %>
176 <% include('/elements/footer.html') %>
180 unless $FS::CurrentUser::CurrentUser->access_right('View customer services');
182 my $conf = new FS::Conf;
184 my($query) = $cgi->keywords;
187 my $svc_domain = qsearchs({
188 'select' => 'svc_domain.*',
189 'table' => 'svc_domain',
190 'addl_from' => ' LEFT JOIN cust_svc USING ( svcnum ) '.
191 ' LEFT JOIN cust_pkg USING ( pkgnum ) '.
192 ' LEFT JOIN cust_main USING ( custnum ) ',
193 'hashref' => {'svcnum'=>$svcnum},
194 'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql(
195 'null_right' => 'View/link unlinked services'
198 die "Unknown svcnum" unless $svc_domain;
200 my $cust_svc = qsearchs('cust_svc',{'svcnum'=>$svcnum});
201 my $pkgnum = $cust_svc->getfield('pkgnum');
202 my($cust_pkg, $custnum, $display_custnum);
204 $cust_pkg = qsearchs('cust_pkg', {'pkgnum'=>$pkgnum} );
205 $custnum = $cust_pkg->custnum;
206 $display_custnum = $cust_pkg->cust_main->display_custnum;
212 my $part_svc = qsearchs('part_svc',{'svcpart'=> $cust_svc->svcpart } );
213 die "Unknown svcpart" unless $part_svc;
216 if ($svc_domain->catchall) {
217 my $svc_acct = qsearchs('svc_acct',{'svcnum'=> $svc_domain->catchall } );
218 die "Unknown svcpart" unless $svc_acct;
219 $email = $svc_acct->email;
222 my $domain = $svc_domain->domain;
224 my $status = 'Unknown';
227 my @exports = $part_svc->part_export();
232 # Find the first export that does domain registration
234 $export = $_ if $_->can('registrar');
236 # If we have a domain registration export, get the registrar object
238 $registrar = $export->registrar;
239 my $domstat = $export->get_status( $svc_domain );
240 if (defined($domstat->{'message'})) {
241 $status = $domstat->{'message'};
242 } elsif (defined($domstat->{'unregistered'})) {
243 $status = 'Not registered';
244 $ops{'register'} = "Register";
245 } elsif (defined($domstat->{'status'})) {
246 $status = $domstat->{'status'} . ' ' . $domstat->{'contact_email'} . ' ' . $domstat->{'last_update_time'};
247 } elsif (defined($domstat->{'expdate'})) {
248 $status = "Expires " . $domstat->{'expdate'};
249 $ops{'renew'} = "Renew";
250 $ops{'revoke'} = "Revoke";
252 $status = $domstat->{'reason'};
253 $ops{'transfer'} = "Transfer";