Changeset 38 for keysigning

Timestamp:

Jul 9, 2007, 8:39:18 PM (17 years ago)

Author:

simon

Message:

• Cosmetic space change before the major changes go in

File:

• keysigning/gpg-challenge.pl (modified) (5 diffs)

keysigning/gpg-challenge.pl

@@ -28 +28 @@
     if ( $keyID !~ /[A-F0-9]{8}/i )
     {
-        die "\"$keyID\" doesn't look like a valid Key-ID!\n";
+        die "\"$keyID\" doesn't look like a valid Key-ID!\n";
     }
 
@@ -36 +36 @@
 
     open( GPG, "gpg --with-colon --list-sigs --fixed-list-mode $keyID 2>/dev/null|" )
-        || die "Cannot run gpg\n";
+        || die "Cannot run gpg\n";
 
     my $uid = "";
@@ -78 +78 @@
     foreach $uid ( keys %uids )
     {
-        # Get a random string:
-        my $challenge;
-        open ( RANDOM, "head -c 18 /dev/urandom | mimencode|" )
-            || die "Cannot get random string\n";
-        while ( <RANDOM> )
+        # Get a random string:
+        my $challenge;
+        open ( RANDOM, "head -c 18 /dev/urandom | mimencode|" )
+            || die "Cannot get random string\n";
+        while ( <RANDOM> )
         {
-            $challenge .= $_;
-        }
-        chomp $challenge;
-        close RANDOM;
+            $challenge .= $_;
+        }
+        chomp $challenge;
+        close RANDOM;
 
         # Create the encrypted part of the body of the message:
-        my $body = << "EOF";
+        my $body = << "EOF";
 [Weiter unten steht dasselbe auf deutsch.]
 
@@ -158 +158 @@
         unlink $tempfile;
 
-        $body = << "EOF";
+        $body = << "EOF";
 [Weiter unten steht dasselbe auf deutsch.]
 
@@ -209 +209 @@
 key certification challenge\" \"$body\" false|" ) || die "Cannot access Kmail DCOP \
 interface\n";  my $dcopRef = <DCOP>;
-        close DCOP;
-        chomp $dcopRef;
-        
-        print "$challenge: $uid ($keyID)\n";
+        close DCOP;
+        chomp $dcopRef;
+        
+        print "$challenge: $uid ($keyID)\n";
     }
 }