Changeset 38 for keysigning


Ignore:
Timestamp:
Jul 9, 2007, 8:39:18 PM (17 years ago)
Author:
simon
Message:
  • Cosmetic space change before the major changes go in
File:
1 edited

Legend:

Unmodified
Added
Removed
  • keysigning/gpg-challenge.pl

    r37 r38  
    2828    if ( $keyID !~ /[A-F0-9]{8}/i )
    2929    {
    30         die "\"$keyID\" doesn't look like a valid Key-ID!\n";
     30        die "\"$keyID\" doesn't look like a valid Key-ID!\n";
    3131    }
    3232
     
    3636
    3737    open( GPG, "gpg --with-colon --list-sigs --fixed-list-mode $keyID 2>/dev/null|" )
    38         || die "Cannot run gpg\n";
     38        || die "Cannot run gpg\n";
    3939
    4040    my $uid = "";
     
    7878    foreach $uid ( keys %uids )
    7979    {
    80         # Get a random string:
    81         my $challenge;
    82         open ( RANDOM, "head -c 18 /dev/urandom | mimencode|" )
    83             || die "Cannot get random string\n";
    84         while ( <RANDOM> )
     80        # Get a random string:
     81        my $challenge;
     82        open ( RANDOM, "head -c 18 /dev/urandom | mimencode|" )
     83            || die "Cannot get random string\n";
     84        while ( <RANDOM> )
    8585        {
    86             $challenge .= $_;
    87         }
    88         chomp $challenge;
    89         close RANDOM;
     86            $challenge .= $_;
     87        }
     88        chomp $challenge;
     89        close RANDOM;
    9090
    9191        # Create the encrypted part of the body of the message:
    92         my $body = << "EOF";
     92        my $body = << "EOF";
    9393[Weiter unten steht dasselbe auf deutsch.]
    9494
     
    158158        unlink $tempfile;
    159159
    160         $body = << "EOF";
     160        $body = << "EOF";
    161161[Weiter unten steht dasselbe auf deutsch.]
    162162
     
    209209key certification challenge\" \"$body\" false|" ) || die "Cannot access Kmail DCOP \
    210210interface\n";  my $dcopRef = <DCOP>;
    211         close DCOP;
    212         chomp $dcopRef;
    213        
    214         print "$challenge: $uid ($keyID)\n";
     211        close DCOP;
     212        chomp $dcopRef;
     213       
     214        print "$challenge: $uid ($keyID)\n";
    215215    }
    216216}
Note: See TracChangeset for help on using the changeset viewer.