# HG changeset patch
# User asuess@dns.net.schlittermann.de
# Date 1292946028 -3600
# Node ID d4e31a2d4b5cd7bc06ac9f51579a1559394bb97a
# Parent  31f29baca131ad0a5f5002d847617d86e91b3cc9
translate dns-keytool.pl

diff -r 31f29baca131 -r d4e31a2d4b5c dnssec-keytool.pl
--- a/dnssec-keytool.pl	Tue Dec 21 15:59:35 2010 +0100
+++ b/dnssec-keytool.pl	Tue Dec 21 16:40:28 2010 +0100
@@ -12,7 +12,7 @@
 
 sub read_conf {
 
-    # liest die Konfiguration ein
+    # read configuration
     my @configs = ("$FindBin::Bin/dnstools.conf", "/etc/dnstools.conf");
     our %config;
 
@@ -36,8 +36,7 @@
 }
 
 sub read_argv {
-
-    # wertet argv aus oder gibt die hilfe aus
+    # evaluate argv or print the help
     my $arg = shift @ARGV;
     my $zone;
     our $do;
@@ -46,11 +45,11 @@
 
     if (!defined $arg) {
         print " usage: dnssec-keytool <option> zone\n";
-        print "   -z  erstellt einen neuen ZSK\n";
-        print "   -k  erstellt je einen neuen ZSK und KSK\n";
-        print "   -rm loescht das Schluesselmaterial einer Zone\n";
-        print "   -c  erstellt bei existierenden ksk konfigurationsdateien\n";
-        print "       fuer die dnstools, sowie einen neuen zsk\n";
+        print "   -z  created a new ZSK\n";
+        print "   -k  created a new ZSK and KSK\n";
+        print "   -rm deletes the key-set of a zone\n";
+        print "   -c  created configuration files for the dnstools\n";
+        print "       and a new ZSK for an existing KSK\n";
         print "\n";
 
         exit;
@@ -60,11 +59,11 @@
     elsif ($arg eq "-c")  { $do = "ck"; }
     elsif ($arg eq "-z")  { $do = "zsk"; }
     else {
-        print "keine gueltige Option.\n";
+        print "not a valid option.\n";
         exit;
     }
 
-    # prueft die zonen in argv ob es verwaltete zonen sind
+    # checks the zones in argv if there are managed zones
     for (@ARGV) {
         chomp($zone = `idn --quiet "$_"`);
         if (-e "$master_dir/$zone/$zone") {
@@ -74,7 +73,7 @@
 }
 
 sub rm_keys {
-    # loescht alle schluessel wenn -rm uebergeben wurde
+    # deletes all the keys were handed over -rm in argv
     our @zones;
     our $master_dir;
     my $zone;
@@ -112,7 +111,7 @@
         }
 
         if ($ep == 1) {
-            print " * $zone: schluesselmaterial entfernt\n";
+            print " * $zone: removed key-set\n";
         }
 
         open(ZONE, "$zpf/$zone")
@@ -162,9 +161,9 @@
         close(INDEX);
 
         chomp($keyname);
-        print " * $zone: neuer KSK $keyname\n";
+        print " * $zone: new KSK $keyname\n";
 
-        print "!! DER KSK muss veroeffentlicht werden !! \n";
+        print "!! THE KSK must be published !! \n";
 
     }
 }
@@ -199,7 +198,7 @@
         close(INDEX);
 
         chomp($keyname);
-        print " * $zone: neuer ZSK $keyname\n";
+        print " * $zone: new ZSK $keyname\n";
 
         open(KC, ">.keycounter") or die "$zpf/keycounter: $!\n";
         print KC "0";
@@ -241,7 +240,7 @@
         }
         close(INDEX);
 
-        print " * $zone: neue .index.ksk erzeugt\n";
+        print " * $zone: new .index.ksk created\n";
 
         if (-f "$zpf/.index.zsk") {
             unlink("$zpf/.index.zsk") or die "$zpf/.index.zsk: $!\n";
@@ -265,8 +264,8 @@
 
 sub kill_useless_keys {
 
-    # die funktion loescht alle schluessel die nicht in der index.zsk
-    # der uebergebenen zone stehen
+    # the function deletes all keys that are not available in the zone
+    # of index.zsk
     our $master_dir;
     my $zone    = $_[0];
     my @keylist = ();
@@ -278,15 +277,15 @@
     open(INDEX, "<$zpf/.index.ksk") or die "$zpf/.index.ksk: $!\n";
     push @keylist, <INDEX>;
 
-    # kuerzt die schluessel-bezeichnung aus der indexdatei auf die id um sie
-    # besser vergleichen zu koennen.
+    # shortened the key name from the index file on the id in order to
+    # be able to compare
     for (@keylist) {
         chomp;
         s#K.*\+.*\+(.*)#$1#;
     }
 
-    # prueft alle schluesseldateien (ksk, zsk), ob sie in der jeweiligen
-    # indexdatei beschrieben sind. wenn nicht werden sie geloescht.
+    # reviewed every key file (KSK, ZSK), whether they are described in
+    # the respective index file. if not they will be deleted.
     for ( glob("$master_dir/$zone/K*") {
         chomp;
         my $file     = $_;
@@ -306,7 +305,7 @@
 
 sub key_to_zonefile {
 
-    # die funktion fugt alle schluessel in eine zonedatei
+    # the function added all keys to the indexfile
     our $master_dir;
     my $zone = $_[0];
     my $zpf  = "$master_dir/$zone";
@@ -334,8 +333,8 @@
 &read_conf;
 
 our %config;
-our $do;       # arbeitsschritte aus argv
-our @zones;    # liste der zonen in argv
+our $do;       # statements from argv
+our @zones;    # list of zones from argv
 our $master_dir      = $config{master_dir};
 our $bind_dir        = $config{bind_dir};
 our $conf_dir        = $config{zone_conf_dir};
@@ -346,8 +345,8 @@
 
 &read_argv;
 
-unless (@zones) { exit; }    # beendet das programm, wurden keine
-                             # gueltigen zonen uebergeben
+# completed the program, if not a valid zones was handed over
+unless (@zones) { exit; }
 
 if ($do eq "rm") { &rm_keys; exit; }
 if ($do eq "ck") { &ck_zone; }
@@ -360,12 +359,12 @@
 
 =pod
 
-=head1 TITLE
+=head1 NAME
 
 dnssec-keytool
 
-=head1 SYNTAX
+=head1 SYNOPSIS
 
 dnssec-keytool <option> zone
 
-=head1 BESCHREIBUNG
+=head1 DESCRIPTION