dnssec-sign
changeset 31 1cea07056124
parent 27 d5337081ed02
child 32 d1addc2ec712
--- a/dnssec-sign	Wed Aug 11 14:08:33 2010 +0200
+++ b/dnssec-sign	Thu Aug 12 10:18:58 2010 +0200
@@ -4,6 +4,12 @@
 use warnings;
 use FindBin;
 
+sub del_double {
+    my %all;
+    grep { $all{$_} = 0 } @_;
+    return ( keys %all );
+}
+
 # liest die Konfiguration ein
 my @configs = ( "$FindBin::Bin/dnstools.conf", "/etc/dnstools.conf" );
 my %config;
@@ -95,7 +101,7 @@
 
 # signiert alle zonen in @auto und @manu und erhoeht den wert in
 # der keycounter-datei
-for ( @auto, @manu ) {
+for ( &del_double( @auto, @manu ) ) {
     $zone = $_;
 
     chdir "$master_dir/$zone";