Changeset 45 for keysigning


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • keysigning/gpg-challenge.pl

    r44 r45  
    8282}
    8383
     84open( CHALLENGE, ">>gpg.challenges" )
     85        || die "Cannot append to gpg.challenges file\n";
     86
    8487foreach my $keyID (@ARGV) {
    8588    if ( $keyID !~ /[A-F0-9]{8}/i )
     
    139142        close $tmp_fh;
    140143        system ( "mutt -e \"set pgp_autosign=yes;set pgp_autoencrypt=yes\" -i \"$tmp_fname\" -s \"OpenPGP UID verification\" -- \"$uid\"" );
    141         print "$challenge: $uid ($keyID)\n";
     144        print CHALLENGE "$challenge: $uid ($keyID)\n";
    142145    }
    143146}
     147
     148close CHALLENGE;
Note: See TracChangeset for help on using the changeset viewer.