equal
deleted
inserted
replaced
13 sub ck_zone(@); |
13 sub ck_zone(@); |
14 sub creat_ksk(@); |
14 sub creat_ksk(@); |
15 sub creat_zsk(@); |
15 sub creat_zsk(@); |
16 sub post_creat(@); |
16 sub post_creat(@); |
17 |
17 |
18 |
|
19 MAIN: { |
18 MAIN: { |
20 my @zone; |
19 my @zone; |
21 my $do; |
20 my $do; |
22 |
21 |
23 my %conf = read_conf(); |
22 my %conf = read_conf(); |
34 post_creat($conf{master_dir}, @zone); |
33 post_creat($conf{master_dir}, @zone); |
35 } |
34 } |
36 |
35 |
37 sub read_argv ($) { |
36 sub read_argv ($) { |
38 my $master_dir = $_[0]; |
37 my $master_dir = $_[0]; |
39 my $zone; |
38 my $zone; |
40 my $do; # return |
39 my $do; # return |
41 my @zone; # return |
40 my @zone; # return |
42 |
41 |
43 GetOptions( |
42 GetOptions( |
44 "z" => sub { $do = "zsk" }, |
43 "z" => sub { $do = "zsk" }, |
45 "k" => sub { $do = "ksk" }, |
44 "k" => sub { $do = "ksk" }, |
46 "h" => sub {pod2usage}, |
45 "h" => sub { pod2usage }, |
47 "r" => sub { $do = "rm" }, |
46 "r" => sub { $do = "rm" }, |
48 "c" => sub { $do = "ck" }, |
47 "c" => sub { $do = "ck" }, |
49 ) or pod2usage; |
48 ) or pod2usage; |
50 |
49 |
51 # checks the zones in argv if there are managed zones |
50 # checks the zones in argv if there are managed zones |
52 for (@ARGV) { |
51 for (@ARGV) { |
53 chomp($zone = `idn --quiet "$_"`); |
52 chomp($zone = `idn --quiet "$_"`); |
54 if (-e "$master_dir/$zone/$zone") { |
53 if (-e "$master_dir/$zone/$zone") { |
80 $return{$cname} = $ccont; |
79 $return{$cname} = $ccont; |
81 } |
80 } |
82 close(CONFIG); |
81 close(CONFIG); |
83 return %return; |
82 return %return; |
84 } |
83 } |
85 |
|
86 |
84 |
87 sub rm_keys (@) { |
85 sub rm_keys (@) { |
88 |
86 |
89 # deletes all the keys were handed over -rm in argv |
87 # deletes all the keys were handed over -rm in argv |
90 my ($master_dir, @zone) = @_; |
88 my ($master_dir, @zone) = @_; |