jorj/martnet-ddns
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

add -f force flag to rebuild all the master zones

Browse Source
This commit is contained in:
Jorj Bauer
2021-10-31 13:41:32 -04:00
parent d4190afecf
commit f342352a3a
1 changed files with 8 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
bin/sync-master-vhosts
View File

@ -4,8 +4,15 @@ use strict;
use warnings; use warnings;
use Martnet::DDNS; use Martnet::DDNS;
use File::Temp qw/tempfile/; use File::Temp qw/tempfile/;
use Getopt::Std;
# Use '-f' flag to force replacing all of the zone files (used when
# changing IPs)
my %opts;
getopts('f', \%opts);
my $ddns = Martnet::DDNS->new(); my $ddns = Martnet::DDNS->new();
my $force_replace = $opts{f} ? 1 : 0;
my @vh = $ddns->get('_vhosts'); my @vh = $ddns->get('_vhosts');
@ -13,7 +20,7 @@ my @vh = $ddns->get('_vhosts');
my $changecount = 0; my $changecount = 0;
foreach my $i (@vh) { foreach my $i (@vh) {
my $zf = "/var/lib/bind/vhost/db.$i->{zone}"; my $zf = "/var/lib/bind/vhost/db.$i->{zone}";
unless ( -f $zf ) { unless ( $force_replace || -f $zf ) {
print "Generating new zone file for $i->{zone}\n"; print "Generating new zone file for $i->{zone}\n";
open(my $fh, ">", $zf) open(my $fh, ">", $zf)
|| die "Can't create output file $zf: $!"; || die "Can't create output file $zf: $!";