roughconsensusandrunningcode/pgpcontrol
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

A simple program to sign control messages with News::Article so that

Browse source 
pgpverify can be checked for compatibility.
This commit is contained in:
Russ Allbery 2003-07-07 01:52:23 +00:00
parent 5ead5bfc33
commit 82d778e02f
1 changed files with 53 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

53
tests/sign-newsart Executable file
View file

@ -0,0 +1,53 @@
#! /usr/bin/perl -w
$ID = q$ID$;
#
# sign-newsart -- Simple wrapper to sign a control message with News::Article.
#
# Written by Russ Allbery <rra@stanford.edu>
# This work is hereby placed in the public domain by its author.
#
# This program is used to test that pgpverify can correctly verify signatures
# made by News::Article. It generates two signed messages, signed.pgp and
# signed.gpg, in the current directory from the file given on the command
# line.
use strict;
use vars qw($ID);
use News::Article;
use PGP::Sign ();
# Find a program on the user's path.
sub find_program {
my ($program) = @_;
my @path = split (/:/, $ENV{PATH});
for (@path) {
return "$_/$program" if -x "$_/$program";
}
return $program;
}
my $article = News::Article->new ($ARGV[0]);
open (PASS, 'keyring/passphrase')
or die "Can't open keyring/passphrase: $!\n";
my $passphrase = <PASS>;
chomp $passphrase;
close PASS;
$PGP::Sign::PGPPATH = 'keyring';
$PGP::Sign::PGPSTYLE = 'PGP2';
$PGP::Sign::PGPS = find_program ('pgp');
$PGP::Sign::PGPV = $PGP::Sign::PGPS;
my $error = $article->sign_control ('testing', $passphrase);
die "$error\n" if $error;
open (PGP, '> signed.pgp') or die "Can't create signed.pgp: $!\n";
$article->write (\*PGP);
close PGP;
$PGP::Sign::PGPSTYLE = 'GPG';
$PGP::Sign::PGPS = find_program ('gpg');
$PGP::Sign::PGPV = find_program ('gpgv');
$error = $article->sign_control ('testing', $passphrase);
die "$error\n" if $error;
open (PGP, '> signed.gpg') or die "Can't create signed.gpg: $!\n";
$article->write (\*PGP);
close PGP;
exit 0;