Service #<% $svcnum %> % #if ( $conf->exists('svc_domain-edit_domain') ) { | Edit this domain % #} <% &ntable("#cccccc") %><% &ntable("#cccccc",2) %> Service <% $part_svc->svc %> Domain <% $domain %> (view whois information) % if ($export) { Registration status <% $status %> % if ( $FS::CurrentUser::CurrentUser->access_right('Manage domain registration') ) { % if ( defined($ops{'register'}) ) { Register at <% $registrar->{'name'} %>  % } % if ( defined($ops{'transfer'}) ) { Transfer to <% $registrar->{'name'} %>  % } % if ( defined($ops{'renew'}) ) { Renew at <% $registrar->{'name'} %>  % } % if ( defined($ops{'revoke'}) ) { Revoke % } % } % } % if ( $communigate ) { Administrator domain % if ( $svc_domain->parent_svcnum ) { % #XXX agent-virt aware the link <% $svc_domain->parent_svc_x->domain %> % } else { (none) % } Aliases <% $svc_domain->cgp_aliases %> % } % if ( $communigate && $svc_domain->max_accounts ) { Maximum number of Accounts <% $svc_domain->max_accounts %> % } Catch all email <% $email ? "$email" : '(none)' %> % if ( $FS::CurrentUser::CurrentUser->access_right('Edit domain catchall') ) { (change) % } % if ( $svc_domain->cgp_accessmodes ) { Enabled services <% $svc_domain->cgp_accessmodes %> % } % if ( $svc_domain->trailer ) { Mail trailer
<% $svc_domain->trailer |h %>
% } % if ( $communigate ) { % my $rule_url = $p. 'browse/cgp_rule.html?svcnum='. $svc_domain->svcnum; Doimain mail rules View/Edit domain mail rules % } <%init> my($svc_domain, %opt) = @_; my $svcnum = $svc_domain->svcnum; my $domain = $svc_domain->domain; my $custnum = $opt{'custnum'}; my $part_svc = $opt{'part_svc'}; my $communigate = scalar($part_svc->part_export('communigate_pro')); # || scalar($part_svc->part_export('communigate_pro_singledomain')); 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; } # Find the first export that does domain registration my @exports = grep $_->can('registrar'), $part_svc->part_export; my $export = $exports[0]; # If we have a domain registration export, get the registrar object my $registrar; my $status = 'Unknown'; my %ops = (); if ($export) { $registrar = $export->registrar; my $domstat = $export->get_status( $svc_domain ); if (defined($domstat->{'message'})) { $status = $domstat->{'message'}; } elsif (defined($domstat->{'unregistered'})) { $status = 'Not registered'; $ops{'register'} = "Register"; } elsif (defined($domstat->{'status'})) { $status = $domstat->{'status'} . ' ' . $domstat->{'contact_email'} . ' ' . $domstat->{'last_update_time'}; } elsif (defined($domstat->{'expdate'})) { $status = "Expires " . $domstat->{'expdate'}; $ops{'renew'} = "Renew"; $ops{'revoke'} = "Revoke"; } else { $status = $domstat->{'reason'}; $ops{'transfer'} = "Transfer"; } }