1 Service #<B><% $svcnum %></B>
2 % #if ( $conf->exists('svc_domain-edit_domain') ) {
3 | <A HREF="<%$p%>edit/svc_domain.cgi?<%$svcnum%>">Edit this domain</A>
6 <% &ntable("#cccccc") %><TR><TD><% &ntable("#cccccc",2) %>
9 <TD ALIGN="right">Service</TD>
10 <TD BGCOLOR="#ffffff"><% $part_svc->svc %></TD>
14 <TD ALIGN="right">Domain</TD>
15 <TD BGCOLOR="#ffffff">
17 <A HREF="<% ${p} %>misc/whois.cgi?custnum=<%$custnum%>;svcnum=<%$svcnum%>;domain=<%$domain%>">(view whois information)</A>
23 <TD ALIGN="right">Registration status</TD>
24 <TD BGCOLOR="#ffffff"><B><% $status %></B>
26 % if ( $FS::CurrentUser::CurrentUser->access_right('Manage domain registration') ) {
27 % if ( defined($ops{'register'}) ) {
28 <A HREF="<% ${p} %>edit/process/domreg.cgi?op=register&svcnum=<% $svcnum %>">Register at <% $registrar->{'name'} %></A>
30 % if ( defined($ops{'transfer'}) ) {
31 <A HREF="<% ${p} %>edit/process/domreg.cgi?op=transfer&svcnum=<% $svcnum %>">Transfer to <% $registrar->{'name'} %></A>
33 % if ( defined($ops{'renew'}) ) {
34 <A HREF="<% ${p} %>edit/process/domreg.cgi?op=renew&svcnum=<% $svcnum %>&period=1">Renew at <% $registrar->{'name'} %></A>
36 % if ( defined($ops{'revoke'}) ) {
37 <A HREF="<% ${p} %>edit/process/domreg.cgi?op=revoke&svcnum=<% $svcnum %>">Revoke</A>
45 % if ( $communigate ) {
48 <TD ALIGN="right">Administrator domain</TD>
49 <TD BGCOLOR="#ffffff">
50 % if ( $svc_domain->parent_svcnum ) {
51 % #XXX agent-virt aware the link
52 <A HREF="svc_domain.cgi?<% $svc_domain->parent_svcnum %>"><% $svc_domain->parent_svc_x->domain %></A>
60 <TD ALIGN="right">Aliases</TD>
61 <TD BGCOLOR="#ffffff"><% $svc_domain->cgp_aliases %></TD>
66 % if ( $communigate && $svc_domain->max_accounts ) {
68 <TD ALIGN="right">Maximum number of Accounts</TD>
69 <TD BGCOLOR="#ffffff"><% $svc_domain->max_accounts %></TD>
74 <TD ALIGN="right">Catch all email</TD>
75 <TD BGCOLOR="#ffffff"><% $email ? "<B>$email</B>" : '<I>(none)</I>' %>
76 % if ( $FS::CurrentUser::CurrentUser->access_right('Edit domain catchall') ) {
77 <A HREF="<% ${p} %>misc/catchall.cgi?<% $svcnum %>">(change)</A>
82 % if ( $svc_domain->cgp_accessmodes ) {
84 <TD ALIGN="right">Enabled services</TD>
85 <TD BGCOLOR="#ffffff"><% $svc_domain->cgp_accessmodes %></TD>
89 % if ( $svc_domain->cgp_certificatetype ) {
91 <TD ALIGN="right">PKI services</TD>
92 <TD BGCOLOR="#ffffff"><% $svc_domain->cgp_certificatetype %></TD>
96 % if ( $svc_domain->trailer ) {
98 <TD ALIGN="right">Mail trailer</TD>
99 <TD BGCOLOR="#ffffff"><PRE><% $svc_domain->trailer |h %></PRE></TD>
103 % if ( $communigate ) {
104 % my $rule_url = $p. 'browse/cgp_rule.html?svcnum='. $svc_domain->svcnum;
106 <TD ALIGN="right">Doimain mail rules</TD>
107 <TD BGCOLOR="#ffffff"><A HREF="<% $rule_url %>">View/Edit domain mail rules</A></TD>
111 </TABLE></TD></TR></TABLE>
115 my($svc_domain, %opt) = @_;
116 my $svcnum = $svc_domain->svcnum;
117 my $domain = $svc_domain->domain;
118 my $custnum = $opt{'custnum'};
119 my $part_svc = $opt{'part_svc'};
121 my $communigate = scalar($part_svc->part_export('communigate_pro'));
122 # || scalar($part_svc->part_export('communigate_pro_singledomain'));
125 if ($svc_domain->catchall) {
126 my $svc_acct = qsearchs('svc_acct',{'svcnum'=> $svc_domain->catchall } );
127 die "Unknown svcpart" unless $svc_acct;
128 $email = $svc_acct->email;
131 # Find the first export that does domain registration
132 my @exports = grep $_->can('registrar'), $part_svc->part_export;
133 my $export = $exports[0];
134 # If we have a domain registration export, get the registrar object
136 my $status = 'Unknown';
139 $registrar = $export->registrar;
140 my $domstat = $export->get_status( $svc_domain );
141 if (defined($domstat->{'message'})) {
142 $status = $domstat->{'message'};
143 } elsif (defined($domstat->{'unregistered'})) {
144 $status = 'Not registered';
145 $ops{'register'} = "Register";
146 } elsif (defined($domstat->{'status'})) {
147 $status = $domstat->{'status'} . ' ' . $domstat->{'contact_email'} . ' ' . $domstat->{'last_update_time'};
148 } elsif (defined($domstat->{'expdate'})) {
149 $status = "Expires " . $domstat->{'expdate'};
150 $ops{'renew'} = "Renew";
151 $ops{'revoke'} = "Revoke";
153 $status = $domstat->{'reason'};
154 $ops{'transfer'} = "Transfer";