httemplate/view/svc_domain.cgi

   1 % if ( $custnum ) {
   2
   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") %>
   7   <BR>
   8
   9 % } else {
  10
  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?')",
  14      ))
  15   %>
  16
  17 % }
  18
  19 <% include('/elements/error.html') %>
  20
  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>
  24 % #}
  25
  26 <% &ntable("#cccccc") %><TR><TD><% &ntable("#cccccc",2) %>
  27
  28 <TR>
  29   <TD ALIGN="right">Service</TD>
  30   <TD BGCOLOR="#ffffff"><% $part_svc->svc %></TD>
  31 </TR>
  32
  33 <TR>
  34   <TD ALIGN="right">Domain</TD>
  35   <TD BGCOLOR="#ffffff">
  36     <B><% $domain %></B>
  37     <A HREF="<% ${p} %>misc/whois.cgi?custnum=<%$custnum%>;svcnum=<%$svcnum%>;domain=<%$domain%>">(view whois information)</A>
  38   </TD>
  39 </TR>
  40
  41 % if ($export) {
  42   <TR>
  43     <TD ALIGN="right">Registration status</TD>
  44     <TD BGCOLOR="#ffffff"><B><% $status %></B>
  45
  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>&nbsp;
  49 %     }
  50 %     if ( defined($ops{'transfer'}) ) {
  51     <A HREF="<% ${p} %>edit/process/domreg.cgi?op=transfer&svcnum=<% $svcnum %>">Transfer to <% $registrar->{'name'} %></A>&nbsp;
  52 %     }
  53 %     if ( defined($ops{'renew'}) ) {
  54     <A HREF="<% ${p} %>edit/process/domreg.cgi?op=renew&svcnum=<% $svcnum %>&period=1">Renew at <% $registrar->{'name'} %></A>&nbsp;
  55 %     }
  56 %     if ( defined($ops{'revoke'}) ) {
  57     <A HREF="<% ${p} %>edit/process/domreg.cgi?op=revoke&svcnum=<% $svcnum %>">Revoke</A>
  58 %     }
  59 %   }
  60
  61     </TD>
  62   </TR>
  63 % }
  64
  65 % if ( $communigate ) {
  66   <TR>
  67     <TD ALIGN="right">Aliases</TD>
  68     <TD BGCOLOR="#ffffff"><% $svc_domain->cgp_aliases %></TD>
  69   </TR>
  70 % }
  71
  72 % if ( $communigate && $svc_domain->max_accounts ) {
  73   <TR>
  74     <TD ALIGN="right">Maximum number of Accounts</TD>
  75     <TD BGCOLOR="#ffffff"><% $svc_domain->max_accounts %></TD>
  76   </TR>
  77 % }
  78
  79 <TR>
  80   <TD ALIGN="right">Catch all email</TD>
  81   <TD BGCOLOR="#ffffff"><% $email ? "<B>$email</B>" : '<I>(none)</I>' %>
  82 % if ( $FS::CurrentUser::CurrentUser->access_right('Edit domain catchall') ) {
  83      <A HREF="<% ${p} %>misc/catchall.cgi?<% $svcnum %>">(change)</A>
  84 % }
  85   </TD>
  86 </TR>
  87
  88 <TR>
  89   <TD ALIGN="right">Enabled services</TD>
  90   <TD BGCOLOR="#ffffff"><% $svc_domain->cgp_accessmodes %></TD>
  91 </TR>
  92
  93 </TABLE></TD></TR></TABLE>
  94 <BR>
  95
  96 <SCRIPT>
  97   function areyousure(href, message) {
  98     if ( confirm(message) == true )
  99       window.location.href = href;
 100   }
 101   function slave_areyousure() {
 102     return confirm("Remove all records and slave from " + document.SlaveForm.recdata.value + "?");
 103   }
 104 </SCRIPT>
 105
 106 DNS records
 107 % my @records; if ( @records = $svc_domain->domain_record ) {
 108
 109   <% include('/elements/table-grid.html') %>
 110
 111 % my $bgcolor1 = '#eeeeee';
 112 %     my $bgcolor2 = '#ffffff';
 113 %     my $bgcolor = $bgcolor2;
 114
 115   <tr>
 116     <th CLASS="grid" BGCOLOR="#cccccc">Zone</th>
 117     <th CLASS="grid" BGCOLOR="#cccccc">Type</th>
 118     <th CLASS="grid" BGCOLOR="#cccccc">Data</th>
 119   </tr>
 120
 121 % foreach my $domain_record ( @records ) {
 122 %       my $type = $domain_record->rectype eq '_mstr'
 123 %                    ? "(slave)"
 124 %                    : $domain_record->recaf. ' '. $domain_record->rectype;
 125
 126
 127     <tr>
 128       <td CLASS="grid" BGCOLOR="<% $bgcolor %>"><% $domain_record->reczone %></td>
 129       <td CLASS="grid" BGCOLOR="<% $bgcolor %>"><% $type %></td>
 130       <td CLASS="grid" BGCOLOR="<% $bgcolor %>"><% $domain_record->recdata %>
 131
 132 % unless ( $domain_record->rectype eq 'SOA'
 133 %          || ! $FS::CurrentUser::CurrentUser->access_right('Edit domain nameservice')
 134 %        ) {
 135 %   ( my $recdata = $domain_record->recdata ) =~ s/"/\\'\\'/g;
 136       (<A HREF="javascript:areyousure('<%$p%>misc/delete-domain_record.cgi?<%$domain_record->recnum%>', 'Delete \'<% $domain_record->reczone %> <% $type %> <% $recdata %>\' ?' )">delete</A>)
 137 % }
 138       </td>
 139     </tr>
 140
 141
 142 %   if ( $bgcolor eq $bgcolor1 ) {
 143 %      $bgcolor = $bgcolor2;
 144 %    } else {
 145 %      $bgcolor = $bgcolor1;
 146 %    }
 147
 148 % }
 149
 150   </table>
 151 % }
 152
 153 % if ( $FS::CurrentUser::CurrentUser->access_right('Edit domain nameservice') ) {
 154     <FORM METHOD="POST" ACTION="<%$p%>edit/process/domain_record.cgi">
 155       <INPUT TYPE="hidden" NAME="svcnum" VALUE="<%$svcnum%>">
 156       <INPUT TYPE="text" NAME="reczone">
 157       <INPUT TYPE="hidden" NAME="recaf" VALUE="IN"> IN
 158       <SELECT NAME="rectype">
 159 %       foreach (qw( A NS CNAME MX PTR TXT) ) {
 160           <OPTION VALUE="<%$_%>"><%$_%></OPTION>
 161 %       }
 162       </SELECT>
 163       <INPUT TYPE="text" NAME="recdata">
 164       <INPUT TYPE="submit" VALUE="Add record">
 165     </FORM>
 166
 167     <FORM NAME="SlaveForm" METHOD="POST" ACTION="<%$p%>edit/process/domain_record.cgi">
 168       <INPUT TYPE="hidden" NAME="svcnum" VALUE="<%$svcnum%>">
 169 %     if ( @records ) {
 170          Delete all records and
 171 %     }
 172       Or slave from nameserver IP
 173       <INPUT TYPE="hidden" NAME="svcnum" VALUE="<%$svcnum%>">
 174       <INPUT TYPE="hidden" NAME="reczone" VALUE="@">
 175       <INPUT TYPE="hidden" NAME="recaf" VALUE="IN">
 176       <INPUT TYPE="hidden" NAME="rectype" VALUE="_mstr">
 177       <INPUT TYPE="text" NAME="recdata">
 178       <INPUT TYPE="submit" VALUE="Slave domain" onClick="return slave_areyousure()">
 179     </FORM>
 180
 181 % }
 182 <BR>
 183
 184 <% include('elements/svc_export_settings.html', $svc_domain) %>
 185
 186 <% joblisting({'svcnum'=>$svcnum}, 1) %>
 187
 188 <% include('/elements/footer.html') %>
 189 <%init>
 190
 191 die "access denied"
 192   unless $FS::CurrentUser::CurrentUser->access_right('View customer services');
 193
 194 my $conf = new FS::Conf;
 195
 196 my($query) = $cgi->keywords;
 197 $query =~ /^(\d+)$/;
 198 my $svcnum = $1;
 199 my $svc_domain = qsearchs({
 200   'select'    => 'svc_domain.*',
 201   'table'     => 'svc_domain',
 202   'addl_from' => ' LEFT JOIN cust_svc  USING ( svcnum  ) '.
 203                  ' LEFT JOIN cust_pkg  USING ( pkgnum  ) '.
 204                  ' LEFT JOIN cust_main USING ( custnum ) ',
 205   'hashref'   => {'svcnum'=>$svcnum},
 206   'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql(
 207                             'null_right' => 'View/link unlinked services'
 208                           ),
 209 });
 210 die "Unknown svcnum" unless $svc_domain;
 211
 212 my $cust_svc = qsearchs('cust_svc',{'svcnum'=>$svcnum});
 213 my $pkgnum = $cust_svc->getfield('pkgnum');
 214 my($cust_pkg, $custnum, $display_custnum);
 215 if ($pkgnum) {
 216   $cust_pkg = qsearchs('cust_pkg', {'pkgnum'=>$pkgnum} );
 217   $custnum = $cust_pkg->custnum;
 218   $display_custnum = $cust_pkg->cust_main->display_custnum;
 219 } else {
 220   $cust_pkg = '';
 221   $custnum = '';
 222 }
 223
 224 my $part_svc = qsearchs('part_svc',{'svcpart'=> $cust_svc->svcpart } );
 225 die "Unknown svcpart" unless $part_svc;
 226
 227 my $email = '';
 228 if ($svc_domain->catchall) {
 229   my $svc_acct = qsearchs('svc_acct',{'svcnum'=> $svc_domain->catchall } );
 230   die "Unknown svcpart" unless $svc_acct;
 231   $email = $svc_acct->email;
 232 }
 233
 234 my $domain = $svc_domain->domain;
 235
 236 my $communigate = scalar($part_svc->part_export('communigate_pro'));
 237                 # || scalar($part_svc->part_export('communigate_pro_singledomain'));
 238
 239 # Find the first export that does domain registration
 240 my @exports = grep $_->can('registrar'), $part_svc->part_export;
 241 my $export = $exports[0];
 242 # If we have a domain registration export, get the registrar object
 243 my $registrar;
 244 my $status = 'Unknown';
 245 my %ops = ();
 246 if ($export) {
 247         $registrar = $export->registrar;
 248         my $domstat = $export->get_status( $svc_domain );
 249         if (defined($domstat->{'message'})) {
 250                 $status = $domstat->{'message'};
 251         } elsif (defined($domstat->{'unregistered'})) {
 252                 $status = 'Not registered';
 253                 $ops{'register'} = "Register";
 254         } elsif (defined($domstat->{'status'})) {
 255                 $status = $domstat->{'status'} . ' ' . $domstat->{'contact_email'} . ' ' . $domstat->{'last_update_time'};
 256         } elsif (defined($domstat->{'expdate'})) {
 257                 $status = "Expires " . $domstat->{'expdate'};
 258                 $ops{'renew'} = "Renew";
 259                 $ops{'revoke'} = "Revoke";
 260         } else {
 261                 $status = $domstat->{'reason'};
 262                 $ops{'transfer'} = "Transfer";
 263         }
 264 }
 265
 266 </%init>