equal
deleted
inserted
replaced
69 } |
69 } |
70 } |
70 } |
71 } |
71 } |
72 |
72 |
73 sub rm_keys { |
73 sub rm_keys { |
|
74 # loescht alle schluessel wenn -rm uebergeben wurde |
74 our @zones; |
75 our @zones; |
75 our $master_dir; |
76 our $master_dir; |
76 my $zone; |
77 my $zone; |
77 my @new_zone_content; |
78 my @new_zone_content; |
78 my @old_zone_content; |
79 my @old_zone_content; |
94 if ( -e "$zpf/dsset-$zone." ) { |
95 if ( -e "$zpf/dsset-$zone." ) { |
95 unlink "$zpf/dsset-$zone." and $ep = 1 } |
96 unlink "$zpf/dsset-$zone." and $ep = 1 } |
96 if ( -e "$zpf/keyset-$zone." ) { |
97 if ( -e "$zpf/keyset-$zone." ) { |
97 unlink "$zpf/keyset-$zone." and $ep = 1 } |
98 unlink "$zpf/keyset-$zone." and $ep = 1 } |
98 |
99 |
99 for (`ls $zpf/K$zone*`) { |
100 for (glob("$zpf/K$zone*")) { |
100 chomp($_); |
101 chomp($_); |
101 print "weg du scheissezwerg $_"; |
|
102 unlink ("$_"); |
102 unlink ("$_"); |
103 } |
103 } |
104 |
104 |
105 if ($ep == 1) { |
105 if ($ep == 1) { |
106 print " * $zone: schluesselmaterial entfernt\n"; |
106 print " * $zone: schluesselmaterial entfernt\n"; |
154 |
154 |
155 chomp($keyname); |
155 chomp($keyname); |
156 print " * $zone: neuer KSK $keyname\n"; |
156 print " * $zone: neuer KSK $keyname\n"; |
157 |
157 |
158 |
158 |
159 print "!! DER KSK muss der Chain of Trust veroeffentlicht werden !! \n"; |
159 print "!! DER KSK muss veroeffentlicht werden !! \n"; |
160 |
160 |
161 } |
161 } |
162 } |
162 } |
163 |
163 |
164 sub creat_zsk { |
164 sub creat_zsk { |
274 for ( @keylist ) { |
274 for ( @keylist ) { |
275 chomp; |
275 chomp; |
276 s#K.*\+.*\+(.*)#$1#; |
276 s#K.*\+.*\+(.*)#$1#; |
277 } |
277 } |
278 |
278 |
279 # prueft alle schluesseldateien (ksk, zsk) ob sie in der jeweiligen |
279 # prueft alle schluesseldateien (ksk, zsk), ob sie in der jeweiligen |
280 # indexdatei beschrieben sind. wenn nicht werden sie geloescht. |
280 # indexdatei beschrieben sind. wenn nicht werden sie geloescht. |
281 for (`ls $master_dir/$zone/K*[key,private]`) { |
281 for ( glob("$master_dir/$zone/K*") { |
282 chomp; |
282 chomp; |
283 my $file = $_; |
283 my $file = $_; |
284 my $rm_count = 1; |
284 my $rm_count = 1; |
285 my $keyname; |
285 my $keyname; |
286 for (@keylist) { |
286 for (@keylist) { |
345 if ($do eq "ksk") { &creat_ksk; } |
345 if ($do eq "ksk") { &creat_ksk; } |
346 |
346 |
347 &creat_zsk; |
347 &creat_zsk; |
348 &post_creat; |
348 &post_creat; |
349 |
349 |
350 |
350 __END__ |
|
351 |
|
352 =pod |
|
353 |
|
354 =head1 TITLE |
|
355 |
|
356 dnssec-keytool |
|
357 |
|
358 =head1 SYNTAX |
|
359 |
|
360 dnssec-keytool <option> zone |
|
361 |
|
362 =head1 BESCHREIBUNG |
|
363 |