Use default libunbound paths instead of /etc/resolv.conf and /etc/hosts.
[itkacl] / itkacl-2.1 / sync-itkacl.pl
index ccc4c56ef4e8c886c9a5569cb8b6846baf0b896c..d8e49c9318359c474d15b0431354b53479f3f9e3 100755 (executable)
@@ -90,20 +90,20 @@ sub update_zone {
 
        for my $entry (keys %entries) {
                next if (exists($current_entries{$entry}));
-               last if (++$num_lines == 1000);
+               last if (++$num_lines >= $itkaclsyncconfig::max_updates_per_transaction);
                print NSUPDATE "update add $entry 10 A 127.0.0.1\n";
        }
        for my $entry (keys %current_entries) {
                next if (exists($entries{$entry}));
-               last if (++$num_lines == 1000);
+               last if (++$num_lines >= $itkaclsyncconfig::max_updates_per_transaction);
                print NSUPDATE "update delete $entry\n";
        }
        print NSUPDATE "send\n";
        close NSUPDATE;
 
        print "Made $num_lines updates.\n";
-       if ($num_lines >= 1000) {
-               print "Note: Hit limit of 1000 updates, will continue in a separate transaction.\n";
+       if ($num_lines >= $itkaclsyncconfig::max_updates_per_transaction) {
+               print "Note: Hit limit of $itkaclsyncconfig::max_updates_per_transaction updates, will continue in a separate transaction.\n";
                return 0;
        }
        return 1;