httemplate/view/svc_domain/basics.html

   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>
   4 % #}
   5
   6 <% &ntable("#cccccc") %><TR><TD><% &ntable("#cccccc",2) %>
   7
   8 <TR>
   9   <TD ALIGN="right">Service</TD>
  10   <TD BGCOLOR="#ffffff"><% $part_svc->svc %></TD>
  11 </TR>
  12
  13 <TR>
  14   <TD ALIGN="right">Domain</TD>
  15   <TD BGCOLOR="#ffffff">
  16     <B><% $domain %></B>
  17     <A HREF="<% ${p} %>misc/whois.cgi?custnum=<%$custnum%>;svcnum=<%$svcnum%>;domain=<%$domain%>">(view whois information)</A>
  18   </TD>
  19 </TR>
  20
  21 % if ($export) {
  22   <TR>
  23     <TD ALIGN="right">Registration status</TD>
  24     <TD BGCOLOR="#ffffff"><B><% $status %></B>
  25
  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>&nbsp;
  29 %     }
  30 %     if ( defined($ops{'transfer'}) ) {
  31     <A HREF="<% ${p} %>edit/process/domreg.cgi?op=transfer&svcnum=<% $svcnum %>">Transfer to <% $registrar->{'name'} %></A>&nbsp;
  32 %     }
  33 %     if ( defined($ops{'renew'}) ) {
  34     <A HREF="<% ${p} %>edit/process/domreg.cgi?op=renew&svcnum=<% $svcnum %>&period=1">Renew at <% $registrar->{'name'} %></A>&nbsp;
  35 %     }
  36 %     if ( defined($ops{'revoke'}) ) {
  37     <A HREF="<% ${p} %>edit/process/domreg.cgi?op=revoke&svcnum=<% $svcnum %>">Revoke</A>
  38 %     }
  39 %   }
  40
  41     </TD>
  42   </TR>
  43 % }
  44
  45 % if ( $communigate ) {
  46
  47   <TR>
  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>
  53 %     } else {
  54         <I>(none)</I>
  55 %     }
  56     </TD>
  57   </TR>
  58
  59   <TR>
  60     <TD ALIGN="right">Aliases</TD>
  61     <TD BGCOLOR="#ffffff"><% $svc_domain->cgp_aliases %></TD>
  62   </TR>
  63
  64 % }
  65
  66 % if ( $communigate && $svc_domain->max_accounts ) {
  67   <TR>
  68     <TD ALIGN="right">Maximum number of Accounts</TD>
  69     <TD BGCOLOR="#ffffff"><% $svc_domain->max_accounts %></TD>
  70   </TR>
  71 % }
  72
  73 <TR>
  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>
  78 % }
  79   </TD>
  80 </TR>
  81
  82 % if ( $svc_domain->cgp_accessmodes ) {
  83   <TR>
  84     <TD ALIGN="right">Enabled services</TD>
  85     <TD BGCOLOR="#ffffff"><% $svc_domain->cgp_accessmodes %></TD>
  86   </TR>
  87 % }
  88
  89 % if ( $svc_domain->cgp_certificatetype ) {
  90   <TR>
  91     <TD ALIGN="right">PKI services</TD>
  92     <TD BGCOLOR="#ffffff"><% $svc_domain->cgp_certificatetype %></TD>
  93   </TR>
  94 % }
  95
  96 % if ( $svc_domain->trailer ) {
  97   <TR>
  98     <TD ALIGN="right">Mail trailer</TD>
  99     <TD BGCOLOR="#ffffff"><PRE><% $svc_domain->trailer |h %></PRE></TD>
 100   </TR>
 101 % }
 102
 103 % if ( $communigate ) {
 104 %   my $rule_url = $p. 'browse/cgp_rule.html?svcnum='. $svc_domain->svcnum;
 105     <TR>
 106       <TD ALIGN="right">Doimain mail rules</TD>
 107       <TD BGCOLOR="#ffffff"><A HREF="<% $rule_url %>">View/Edit domain mail rules</A></TD>
 108     </TR>
 109 % }
 110
 111 </TABLE></TD></TR></TABLE>
 112
 113 <%init>
 114
 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'};
 120
 121 my $communigate = scalar($part_svc->part_export('communigate_pro'));
 122                 # || scalar($part_svc->part_export('communigate_pro_singledomain'));
 123
 124 my $email = '';
 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;
 129 }
 130
 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
 135 my $registrar;
 136 my $status = 'Unknown';
 137 my %ops = ();
 138 if ($export) {
 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";
 152         } else {
 153                 $status = $domstat->{'reason'};
 154                 $ops{'transfer'} = "Transfer";
 155         }
 156 }
 157
 158 </%init>