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

reduced version requirements for some modules; made sync-slave a little more robust?

Browse Source
This commit is contained in:
Jorj Bauer
2016-02-22 17:06:55 -05:00
parent 47ed438e31
commit 67df525d94
2 changed files with 12 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Makefile.PL
View File

@ -3,8 +3,8 @@ use ExtUtils::MakeMaker;
WriteMakefile( WriteMakefile(
'NAME' => 'Martnet::DDNS', 'NAME' => 'Martnet::DDNS',
'VERSION_FROM' => 'DDNS.pm', 'VERSION_FROM' => 'DDNS.pm',
'PREREQ_PM' => { Net::DNS => 0.8, 'PREREQ_PM' => { Net::DNS => 0.66,
File::Temp => 0.2304, File::Temp => 0.22,
Regexp::Common => 2013031301, Regexp::Common => 2013031301,
}, },
'EXE_FILES' => [ 'bin/add-vhost', 'EXE_FILES' => [ 'bin/add-vhost',

13
bin/sync-slave
View File

@ -5,6 +5,8 @@ use warnings;
use Martnet::DDNS; use Martnet::DDNS;
use File::Temp qw/tempfile/; use File::Temp qw/tempfile/;
my $force = shift; # a "force" flag, if the update is big
my $ddns = Martnet::DDNS->new(); my $ddns = Martnet::DDNS->new();
my @vh = $ddns->get(); my @vh = $ddns->get();
@ -15,12 +17,17 @@ my @all = parse_slavefile("/etc/bind/martnet.slave.zones.9");
my $changecount = 0; my $changecount = 0;
foreach my $i (@vh) { foreach my $i (@vh) {
unless (contains_zone($i, @all)) { unless (contains_zone($i, @all)) {
# If we find any differences, we rewrite the file $changecount++;
do_rewrite(@vh);
last;
} }
} }
die "Cowardly refusing to make a big update automatically"
if ($changecount > 10 && !$force);
if ($changecount) {
do_rewrite(@vh);
}
exit 0; exit 0;
sub parse_slavefile { sub parse_slavefile {