";
}
sub display_zone_records {
my ( $nt_obj, $user, $q, $zone, $summary ) = @_;
my $group = $nt_obj->get_group(
nt_group_id => $user->{'nt_group_id'},
summary_data => 1
);
my $zonedelegate = exists $zone->{'delegated_by_id'};
# display any status messages regarding any previous actions
# New Zone Record 'host.example.com' Created
if ( $q->param('new_record') ) {
if ( $q->param('Create') ) {
my @fields
= qw(nt_group_id nt_zone_id name type address weight priority other ttl description);
my %data;
foreach my $x (@fields) {
$data{$x} = $q->param($x);
}
my $error = $nt_obj->new_zone_record(%data);
if ( $error->{'error_code'} != 200 ) {
&display_edit_record( $nt_obj, $user, $q, $error, $zone, 'new' );
}
else {
$q->param(
-name => 'new_record_id',
-value => $error->{'nt_zone_record_id'}
);
$nt_obj->display_nice_message(
"New Zone Record '$data{name}' Created",
"New Zone Record" );
# Debut jfdesir script for export
create_zone();
##Fin jfdesir
}
}
elsif ( $q->param('Cancel') ) {
# do nothing
}
else {
&display_edit_record( $nt_obj, $user, $q, "", $zone, 'new' );
}
}
# Zone Record successfully modified
if ( $q->param('edit_record') ) {
if ( $q->param('Save') ) {
my @fields
= qw(nt_group_id nt_zone_id nt_zone_record_id name type address weight priority other ttl description deleted);
my %data;
foreach my $x (@fields) {
$data{$x} = $q->param($x);
}
my $error = $nt_obj->edit_zone_record(%data);
if ( $error->{'error_code'} != 200 ) {
&display_edit_record( $nt_obj, $user, $q, $error, $zone,
'edit' );
}
else {
$nt_obj->display_nice_message(
"Zone Record successfully modified.",
"Edit Zone Record" );
#jfdesir
create_zone();
#fin jfdesir
}
}
elsif ( $q->param('Cancel') ) {
# do nothing
}
else {
&display_edit_record( $nt_obj, $user, $q, "", $zone, 'edit' );
}
}
# Zone Record successfully deleted.
if ( $q->param('delete_record') ) {
my $error = $nt_obj->delete_zone_record(
nt_group_id => $q->param('nt_group_id'),
nt_zone_record_id => $q->param('nt_zone_record_id')
);
if ( $error->{'error_code'} != 200 ) {
$nt_obj->display_nice_error( $error, "Delete Zone Record" );
}
else {
$nt_obj->display_nice_message(
"Zone Record successfully deleted.",
"Delete Zone Record" );
##jfdesir
create_zone();
#fin jfdesir
}
}
my @columns = qw(name type address ttl weight priority other description);
my %labels = (
name => 'Name',
type => 'Type',
address => 'Address',
ttl => 'TTL',
weight => 'Weight',
priority => 'Priority',
other => 'Port',
description => 'Description',
);
$nt_obj->display_sort_options( $q, \@columns, \%labels, 'zone.cgi',
[ 'nt_group_id', 'nt_zone_id' ] )
if $q->param('edit_sortorder');
$nt_obj->display_advanced_search( $q, \@columns, \%labels, 'zone.cgi',
[ 'nt_group_id', 'nt_zone_id' ] )
if $q->param('edit_search');
my %params = ( nt_zone_id => $q->param('nt_zone_id') );
my %sort_fields;
$nt_obj->prepare_search_params( $q, \%labels, \%params, \%sort_fields, 20 );
$sort_fields{'name'} = { 'order' => 1, 'mod' => 'Ascending' }
unless %sort_fields;
my $rv = $nt_obj->get_zone_records(%params);
return $nt_obj->display_nice_error( $rv, "Get Zone Records" )
if ( $rv->{'error_code'} != '200' );
my $zone_records = $rv->{'records'};
my @state_fields;
foreach ( @{ $nt_obj->paging_fields } ) {
push( @state_fields, "$_=" . $q->escape( $q->param($_) ) )
if ( $q->param($_) );
}
# Display the RR header: Resource Records New Resource Record | View Resource Record Log
my @options;
if ($nt_obj->no_gui_hints
|| !$zone->{'deleted'}
&& $user->{'zonerecord_create'}
&& ( $zonedelegate
? $zone->{'delegate_write'} && $zone->{'delegate_add_records'}
: 1 )
)
{
push( @options,
"New Resource Record" );
}
else {
push( @options,
"New Resource Record"
);
}
push( @options,
"View Resource Record Log" );
print "
";
print "
";
#show delegation information if delegated down
print "
";
print "
";
print "
";
print "
Resource Records
";
print "
", join( ' | ', @options ),
"
";
print "
";
print "
";
$nt_obj->display_search_rows( $q, $rv, \%params, 'zone.cgi',
[ 'nt_group_id', 'nt_zone_id' ] );
if (@$zone_records) {
# only show columns applicable to the records in the zone
@columns = qw(name type address ttl );
my %has_type;
foreach my $r_record (@$zone_records) {
$has_type{$r_record->{'type'}}++;
};
if ($has_type{'MX'} || $has_type{'SRV'} ) {
push @columns, 'weight';
};
if ($has_type{'SRV'}) {
push @columns, 'priority', 'other';
};
push @columns, 'description';
print "
";
}
print qq{
