| branch | hs12 |
| changeset 72 | d3d2108f07da |
| parent 71 | e25fc893e203 |
| child 75 | 4c0f518fd1be |
| 71:e25fc893e203 | 72:d3d2108f07da |
|---|---|
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 use my::Config qw(get_config); |
6 use dnstools::Config qw(get_config); |
7 |
7 |
8 my %config; |
8 my %config; |
9 |
9 |
10 if (@ARGV < 2) { |
10 if (@ARGV < 2) { |
11 print "usage: zone-mk kundennummer domain ... \n"; |
11 print "usage: zone-mk kundennummer domain ... \n"; |