DNS Records
<% include('/elements/table-grid.html') %>
% my $bgcolor1 = '#eeeeee';
% my $bgcolor2 = '#ffffff';
% my $bgcolor = $bgcolor2;
| Zone |
Type |
Data |
TTL |
|
% my @records = $svc_domain->domain_record;
% 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 %> |
<% $domain_record->ttl %> |
% unless ( $domain_record->rectype eq 'SOA'
% || ! $FS::CurrentUser::CurrentUser->access_right('Edit domain nameservice')
% ) {
% my $edit_link = include('/elements/popup_link.html',
% 'label' => 'edit',
% 'action' => $p.'edit/domain_record.html?recnum='.
% $domain_record->recnum,
% 'actionlabel' => 'Edit nameservice record',
% 'width' => 655,
% 'height' => 176,
% #'color' => '#ff0000',
% );
% ( my $recdata = $domain_record->recdata ) =~ s/"/\\'\\'/g;
% my $delete_url= "javascript:areyousure('${p}misc/delete-domain_record.cgi?".
% $domain_record->recnum. "', 'Delete ".
% $domain_record->reczone. " $type $recdata ?' )";
<%$edit_link%> | delete
% }
|
% if ( $bgcolor eq $bgcolor1 ) {
% $bgcolor = $bgcolor2;
% } else {
% $bgcolor = $bgcolor1;
% }
% }
% if ( ! @records ) {
% }
% if ( $FS::CurrentUser::CurrentUser->access_right('Edit domain nameservice') ) {
% }