equal
deleted
inserted
replaced
1 #! /usr/bin/perl |
1 #! /usr/bin/perl |
2 |
2 |
3 use warnings; |
3 use warnings; |
4 use strict; |
4 use strict; |
5 use FindBin; |
5 use FindBin; |
6 |
|
7 sub del_double { |
|
8 my %all; |
|
9 grep { $all{$_} = 0 } @_; |
|
10 return (keys %all); |
|
11 } |
|
12 |
6 |
13 sub read_conf { |
7 sub read_conf { |
14 |
8 |
15 # liest die Konfiguration ein |
9 # liest die Konfiguration ein |
16 my @configs = ("$FindBin::Bin/dnstools.conf", "/etc/dnstools.conf"); |
10 my @configs = ("$FindBin::Bin/dnstools.conf", "/etc/dnstools.conf"); |