Use default libunbound paths instead of /etc/resolv.conf and /etc/hosts.

[itkacl] / itkacl-2.1 / sync-itkacl.pl

diff --git a/itkacl-2.1/sync-itkacl.pl b/itkacl-2.1/sync-itkacl.pl
index ccc4c56ef4e8c886c9a5569cb8b6846baf0b896c..d8e49c9318359c474d15b0431354b53479f3f9e3 100755 (executable)
--- a/itkacl-2.1/sync-itkacl.pl
+++ b/itkacl-2.1/sync-itkacl.pl
@@ -90,20 +90,20 @@ sub update_zone {
 
        for my $entry (keys %entries) {
                next if (exists($current_entries{$entry}));
 
        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}));
                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";
                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;
                return 0;
        }
        return 1;