equal
deleted
inserted
replaced
37 'editor=s' => \$o{editor}, |
37 'editor=s' => \$o{editor}, |
38 ) |
38 ) |
39 && @ARGV >= 1 |
39 && @ARGV >= 1 |
40 or pod2usage(); |
40 or pod2usage(); |
41 |
41 |
42 my $zone = shift @ARGV; |
42 my %auth = get_auth_info shift @ARGV; |
|
43 my $zone = $auth{name}; |
43 |
44 |
44 $o{server} = |
45 $o{server} = |
45 $o{local} ? 'localhost' : (split ' ', `dig +short soa $zone`)[0] |
46 $o{local} ? 'localhost' : $auth{mname} |
46 if not defined $o{server}; |
47 if not defined $o{server}; |
47 |
48 |
48 my @dig = ( |
49 my @dig = ( |
49 dig => 'AXFR', |
50 dig => 'AXFR', |
50 defined $o{key} ? (-k => $o{key}) : (), |
51 defined $o{key} ? (-k => $o{key}) : (), |