X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fview%2Fsvc_domain.cgi;h=c9592a570530e977a5152fea14ef03d33b1fe9c3;hb=4b67c9f8cfc9f944b7758e7e69ac1f9f188ffa47;hp=3f2d4736a05ff7dfe58b4249fbdb779ea4e2a6de;hpb=cc647ae934abe5c9d9a5fc12f020adfc566349d9;p=freeside.git
diff --git a/httemplate/view/svc_domain.cgi b/httemplate/view/svc_domain.cgi
index 3f2d4736a..c9592a570 100755
--- a/httemplate/view/svc_domain.cgi
+++ b/httemplate/view/svc_domain.cgi
@@ -18,179 +18,25 @@
<% include('/elements/error.html') %>
-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 ( $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)
-% }
- |
-
-
-
+<% include('svc_domain/basics.html', $svc_domain,
+ 'part_svc' => $part_svc,
+ 'custnum' => $custnum,
+ )
+%>
-
-
-DNS records
-% my @records; if ( @records = $svc_domain->domain_record ) {
-
- <% include('/elements/table-grid.html') %>
-
-% my $bgcolor1 = '#eeeeee';
-% my $bgcolor2 = '#ffffff';
-% my $bgcolor = $bgcolor2;
-
-
- Zone |
- Type |
- Data |
-
-
-% foreach my $domain_record ( @records ) {
-% my $type = $domain_record->rectype eq '_mstr'
-% ? "(slave)"
-% : $domain_record->recaf. ' '. $domain_record->rectype;
-
-
-
- <% $domain_record->reczone %> |
- <% $type %> |
- <% $domain_record->recdata %>
-
-% unless ( $domain_record->rectype eq 'SOA'
-% || ! $FS::CurrentUser::CurrentUser->access_right('Edit domain nameservice')
-% ) {
-% ( my $recdata = $domain_record->recdata ) =~ s/"/\\'\\'/g;
- (delete)
-% }
- |
-
-
-
-% if ( $bgcolor eq $bgcolor1 ) {
-% $bgcolor = $bgcolor2;
-% } else {
-% $bgcolor = $bgcolor1;
-% }
-
-% }
-
-
-% }
-
-% if ( $FS::CurrentUser::CurrentUser->access_right('Edit domain nameservice') ) {
-
-
-
-
-% }
+<% include('svc_domain/acct_defaults.html', $svc_domain,
+ 'part_svc' => $part_svc,
+ )
+%>
-% my ( $settings, $defaults ) = $svc_domain->export_getsettings;
-% if ( keys %$settings ) {
-
-%# XXX a way to label this "Communigate pro settings".. just a config maybe
- External settings
- <% ntable('#cccccc',2) %>
-
-% foreach my $key ( keys %$settings ) {
-
- <% $key |h %> |
-
- <% $defaults->{$key} ? '' : '' %>
- <% $settings->{$key} |h %>
- <% $defaults->{$key} ? '' : '' %>
- |
-
-% }
+<% include('svc_domain/dns.html', $svc_domain ) %>
+
-
-
+<% include('elements/svc_export_settings.html', $svc_domain) %>
-% }
+<& /elements/table-tickets.html, object => $cust_svc &>
<% joblisting({'svcnum'=>$svcnum}, 1) %>
@@ -233,46 +79,6 @@ if ($pkgnum) {
my $part_svc = qsearchs('part_svc',{'svcpart'=> $cust_svc->svcpart } );
die "Unknown svcpart" unless $part_svc;
-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;
-}
-
my $domain = $svc_domain->domain;
-my $status = 'Unknown';
-my %ops = ();
-
-my @exports = $part_svc->part_export();
-
-my $registrar;
-my $export;
-
-# Find the first export that does domain registration
-foreach (@exports) {
- $export = $_ if $_->can('registrar');
-}
-# If we have a domain registration export, get the registrar object
-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";
- }
-}
-
%init>