Changeset 45 for keysigning

Timestamp:

Jul 10, 2007, 12:43:16 AM (17 years ago)

Author:

simon

Message:

• Write challenges to a file. Patch submitted by Roger Light.

File:

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

keysigning/gpg-challenge.pl

@@ -82 +82 @@
 }
 
+open( CHALLENGE, ">>gpg.challenges" )
+        || die "Cannot append to gpg.challenges file\n";
+
 foreach my $keyID (@ARGV) {
     if ( $keyID !~ /[A-F0-9]{8}/i )
@@ -139 +142 @@
         close $tmp_fh;
         system ( "mutt -e \"set pgp_autosign=yes;set pgp_autoencrypt=yes\" -i \"$tmp_fname\" -s \"OpenPGP UID verification\" -- \"$uid\"" );
-        print "$challenge: $uid ($keyID)\n";
+        print CHALLENGE "$challenge: $uid ($keyID)\n";
     }
 }
+
+close CHALLENGE;