From: Daniel Kahn Gillmor <dkg@fifthhorseman.net>
Date: Tue, 9 Jun 2009 17:22:41 +0000 (-0400)
Subject: added comments to keytrans
X-Git-Tag: monkeysphere_0.25~26^2~4
X-Git-Url: https://codewiz.org/gitweb?p=monkeysphere.git;a=commitdiff_plain;h=867506b457402f2e4510ccd3ef50154b6e28b489

added comments to keytrans
---

diff --git a/src/share/keytrans b/src/share/keytrans
index 3638eae..326bfb1 100755
--- a/src/share/keytrans
+++ b/src/share/keytrans
@@ -627,6 +627,7 @@ sub openpgp2ssh {
       die "This is not an OpenPGP packet\n";
     }
     if (0x40 & $packettag) {
+      # this is a new-format packet.
       $tag = (0x3f & $packettag);
       my $nextlen = 0;
       read($instr, $nextlen, 1);
@@ -645,6 +646,7 @@ sub openpgp2ssh {
 	# packet length is undefined.
       }
     } else {
+      # this is an old-format packet.
       my $lentype;
       $lentype = 0x03 & $packettag;
       $tag = ( 0x3c & $packettag ) >> 2;
@@ -776,7 +778,6 @@ for (basename($0)) {
     # FIXME: fail if there is no given user ID; or should we default to
     # hostname_long() from Sys::Hostname::Long ?
 
-
     if (defined $ENV{PEM2OPENPGP_NEWKEY}) {
       $rsa = Crypt::OpenSSL::RSA->generate_key($ENV{PEM2OPENPGP_NEWKEY});
     } else {