";
if( $summary->{'error_code'} == 600 ) {
print "* $summary->{'error_msg'} ";
print "* $summary->{'error_msg'}";
} else {
print "* Total number of zone resource records as of ", scalar(localtime($summary->{'range_end'})), " ";
}
print "
";
print $q->end_form;
}
sub add_zone_records {
my ($nt, $recs, $debug) = @_;
if ($recs && scalar(@{$recs}) > 0 ) {
for ( my $i = 0; $i < scalar(@{$recs}); $i++ ) {
my %zone_record = (
nt_zone_id => $recs->[$i]->{'nt_zone_id'},
name => $recs->[$i]->{'name'},
ttl => "86400",
description => "batch added",
type => $recs->[$i]->{'type'},
address => $recs->[$i]->{'address'},
weight => $recs->[$i]->{'weight'},
priority => $recs->[$i]->{'priority'},
other => $recs->[$i]->{'other'},
);
if ($debug) {
#print "add_zone_records: $recs->[$i]->{'nt_zone_id'}, $recs->[$i]->{'name'}, ";
#print "$recs->[$i]->{'type'}, $recs->[$i]->{'address'}, $recs->[$i]->{'weight'}\n";
# print Data::Dumper::Dumper(%zone_record);
};
my $r = $nt->new_zone_record(%zone_record);
if ( $r->{'error_code'} ne "200" ) {
print "ZONE RECORD FAILED: $r->{'error_msg'}, $r->{'error_code'}\n";
print Data::Dumper::Dumper($r);
};
};
} else {
# don't output anything here, we haven't returned the HTML header yet!
# print "We didn't get any records back from the zone template!\n";
};
}
#################################################################
#jfdesir
use File::Copy;
$date=`date +%Y%m%d%s`;
chomp $date;
sub create_zone
{
my $uth = $dbh->prepare("SELECT * FROM nt_zone WHERE nt_zone_id = '$zoneid'");
$uth->execute;
while(my @row = $uth->fetchrow_array()) {
$domain=$row[2];
$mail=$row[3];
$serial=$row[5];
$refresh=$row[6];
$retry=$row[7];
$expire=$row[8];
$mini=$row[9];
$ttl=$row[10];
# $ns0id=$row[11];
# $ns1id=$row[12];
# $ns2id=$row[13];
# $ns3id=$row[14];
}
$uth->finish();
# # NS0
# my $uth_ns0 = $dbh->prepare("SELECT name FROM nt_nameserver WHERE nt_nameserver_id = '$ns0id'");
# $uth_ns0->execute;
# while(my @row0 = $uth_ns0->fetchrow_array()) {
# $ns0=$row0[0];
# }
# $uth_ns0->finish();
#
# ##NS1
# my $uth_ns1 = $dbh->prepare("SELECT name FROM nt_nameserver WHERE nt_nameserver_id = '$ns1id'");
# $uth_ns1->execute;
# while(my @row1 = $uth_ns1->fetchrow_array()) {
# $ns1=$row1[0];
# }
# $uth_ns1->finish();
#
#
###NS2
#my $uth_ns2 = $dbh->prepare("SELECT name FROM nt_nameserver WHERE nt_nameserver_id = '$ns2id'");
#$uth_ns2->execute;
#while(my @row2 = $uth_ns2->fetchrow_array()) {
# $ns2=$row2[0];
#}
#$uth_ns2->finish();
#
###NS3
#my $uth_ns3 = $dbh->prepare("SELECT name FROM nt_nameserver WHERE nt_nameserver_id = '$ns3id'");
#$uth_ns3->execute;
#while(my @row3 = $uth_ns3->fetchrow_array()) {
# $ns3=$row3[0];
#}
#$uth_ns3->finish();
#
#
##########################################################
$server="PRIMARYIPSERVER";
$chemin = "PATH";
$ns0="PRIMAYFQDNSERVER.";
$ns1="SECONDARYFQDNSERVER.";
$ns2="THIRFQDNSERVER.";
$soa = $ns0;
&dom_stamp();
if (-e "$work_dir/$chemin/zones/masters/$domain"){
copy("$work_dir/$chemin/zones/masters/$domain","$work_dir/$chemin/zones/archives/$domain\.$date");
}
open (FILE, ">$work_dir/$chemin/zones/masters/$domain");
print FILE <prepare("SELECT name,ttl,type,address,weight FROM nt_zone_record WHERE nt_zone_id = '$zoneid' AND deleted = '0'");
$uth_rec->execute;
while(my @row_rec = $uth_rec->fetchrow_array()) {
open (FILE, ">>$work_dir/$chemin/zones/masters/$domain");
if ( "$row_rec[2]" eq "MX"){
print FILE "$row_rec[0]\t$row_rec[1]\tIN\t$row_rec[2]\t$row_rec[4] $row_rec[3]\n";
$row_rec[3]=~ s/\\072/:/g;
}else{
$row_rec[3]=~ s/\\072/:/;
print FILE "$row_rec[0]\t$row_rec[1]\tIN\t$row_rec[2]\t$row_rec[3]\n";
}
}
close (FILE);
$uth_rec->finish();
}
############################################################
sub newzone
{
copy("$work_dir/$chemin/etc/masters.inc","$work_dir/$chemin/etc/archives/masters.inc.$date");
my $conf="$work_dir/$chemin/etc/masters.inc";
my @TABCONF = ();
my $newdom = "zone \"$domain\" \{ type master\; allow-query \{ can_query\; \}\; allow-transfer \{ can_axfr\; \}\; file \"masters\/$domain\"\; \}\;\n";
# Find if zone is already in conf
open (CONF, "$conf") or die "Can't open this file";
foreach (){
push (@TABCONF,$_);
}
close (CONF);
#if (grep (/$newdom/, @TABCONF)){
if (grep (/\"$domain\"/, @TABCONF)){
print "domaine OK\n";
}
else {
open (CONF, ">$conf");
push (@TABCONF,$newdom);
print CONF @TABCONF;
close (CONF);
}
}
############################################################
sub newzone_slave
{
copy("$work_dir/$chemin/etc/slaves.inc","$work_dir/$chemin/etc/archives/slaves.inc.$date");
my $conf="$work_dir/$chemin/etc/slaves.inc";
my @TABSLAVE = ();
my $newslave = "zone \"$domain\" \{ type slave\; allow-query \{ can_query\; \}\; allow-transfer \{ can_axfr\; \}\; file \"slaves\/$domain\"\; masters \{ $server\;\}\; \}\;\n";
# recheche de la présence de ce domaine dans le fichier de conf
open (SLAVE, "$conf") or die "Can't open this file";
foreach (){
push (@TABSLAVE,$_);
}
close (SLAVE);
#if (grep (/$newslave/, @TABSLAVE)){
if (grep (/\"$domain\"/, @TABSLAVE)){
print "Fichier de configuration (named.conf) OK\n";
}else {
open (SLAVE, ">$conf");
push (@TABSLAVE,$newslave);
print SLAVE @TABSLAVE;
close (SLAVE);
}
}
############################################################
sub majnamed
{
# use CGI();
# $q = new CGI();
my $uth = $dbh->prepare("SELECT * FROM nt_zone WHERE nt_zone_id = '@domid'");
$uth->execute;
while(my @row = $uth->fetchrow_array()) {
$domain=$row[2];
# $ns0id=$row[11];
}
$uth->finish();
# NS0
# my $uth_ns0 = $dbh->prepare("SELECT name FROM nt_nameserver WHERE nt_nameserver_id = '$ns0id'");
# $uth_ns0->execute;
# while(my @row0 = $uth_ns0->fetchrow_array()) {
# $ns0=$row0[0];
# }
# $uth_ns0->finish();
# $q->br();
$ns0="ns1-gp.$chemin.net";
#exit;
@TABCONF = ();
# Find if zone is already in conf
########################
#Traitement du fichier masters.inc de ns1.$chemin.net
########################
my $conf="$work_dir/$chemin/etc/masters.inc";
my $slaveconf="$work_dir/$chemin/etc/slaves.inc";
my $ns3_$chemin_slave="$work_dir/$chemin/etc/ns3_slaves.inc";
open (CONF, "$conf") or die "Can't open $conf\n";
foreach (){
push (@TABCONF,$_);
}
close (CONF);
my $i=-1;
foreach $line (@TABCONF){
$i++;
if (grep (/\"$domain\"/, $line)){
#$q->br();
#print "domaine: $domain present dans le fichier $conf donc suppression en cours\n ";
#$q->br();
$TABCONF[$i] = "";
}else {
if ($i >= $#TABCONF){
# $q->br();
# print "Le domaine $domain n'est plus présent dans le fichier $conf\n";
# print $q->br;
}
}
copy("$work_dir/$chemin/etc/masters.inc","$work_dir/$chemin/etc/archives/masters.inc.$date");
open (CONF, ">$conf") or die "Can't open $conf\n";
print CONF @TABCONF;
close (CONF);
}
########################
#Traitement du fichier slaves.inc de ns2.$chemin.net
########################
open (SLAVE, "$slaveconf") or die "Can't open $slaveconf\n";
foreach () {
push (@TABSLAVE, $_);
}
close (SLAVE);
my $j=-1;
foreach $slave_line (@TABSLAVE){
$j++;
if (grep (/\"$domain\"/, $slave_line)){
#$q->br();
# print "domaine: $domaine present dans le fichier $slaveconf donc suppression en cours\n ";
#$q->br();
$TABSLAVE[$j] = "";
}else{
if ($j >= $#TABSLAVE){
# print "Le domaine $domain n'est plus présent dans le fichier $slaveconf\n";
#print $q->br;
}
}
copy("$work_dir/$chemin/etc/slaves.inc","$work_dir/$chemin/etc/archives/slaves.inc.$date");
open (SLAVE, ">$slaveconf") or die "Can't open $slaveconf\n";
print SLAVE @TABSLAVE;
close (SLAVE);
}
}
##
##########################################################
# fichier stamp pour l'export crontab des zones
sub dom_stamp
{
$stamp="$work_dir/$chemin/zones/stamp/$domain\.stamp";
if (!-e $stamp){
open (STAMP, ">$stamp") or die "Can't open $stamp";
close (STAMP);
sleep (1);
}
}
##########################################################
#Find jfdesir
