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

Version 1.7. Parse PGP 5.0 'good signature' lines. Allow -test switch;

Browse source 
prints pgp input and output.  Look for pgp in INN's innshellvars.pl.
Changed regexp delimiters for stripping $0 to be compatible with old perl.
This commit is contained in:
David Lawrence 1998-03-02 22:17:59 +00:00
parent b88cc96c42
commit feabce1cb3
1 changed files with 43 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

60
pgpverify
View file

@ -1,6 +1,12 @@
#! /usr/bin/perl -w #! /usr/bin/perl -ws
# written April 1996, tale@isc.org (David C Lawrence) # written April 1996, tale@isc.org (David C Lawrence)
# Version 1.6 # Version 1.7
#
# Changes from 1.6 -> 1.7
# -- parse PGP 5.0 'good signature' lines.
# -- allow -test swtich; prints pgp input and output
# -- look for pgp in INN's innshellvars.pl
# -- changed regexp delimiters for stripping $0 to be compatible with old perl
# #
# Changes from 1.5 -> 1.6 # Changes from 1.5 -> 1.6
# -- handle articles encoded in NNTP format ('.' starting line is doubled, # -- handle articles encoded in NNTP format ('.' starting line is doubled,
@ -20,7 +26,9 @@
# -- checks to ensure that the temporary file is really a file, and # -- checks to ensure that the temporary file is really a file, and
# not a link or some other weirdness # not a link or some other weirdness
# Path to pgp binary; for PGP 5.0, set the path to the pgpv binary.
$pgp = '/usr/local/bin/pgp'; $pgp = '/usr/local/bin/pgp';
# if you keep your keyring somewhere that is not the default used by pgp, # if you keep your keyring somewhere that is not the default used by pgp,
# uncomment the next line and set appropriately. # uncomment the next line and set appropriately.
# $ENV{'PGPPATH'} = '/path/to/your/pgp/config'; # $ENV{'PGPPATH'} = '/path/to/your/pgp/config';
@ -36,7 +44,14 @@ $tmp = "/tmp/pgp$$";
die "Usage: $0 < message\n" if @ARGV != 0; die "Usage: $0 < message\n" if @ARGV != 0;
$0 =~ s(^.*/)(); # trim /path/to/prog to prog $0 =~ s%^.*/%%; # trim /path/to/prog to prog
do "_INNSHELLVARS_.pl";
$pgp = $inn'pgp if $inn'pgp && $inn'pgp ne "no-pgp-found-during-configure";
if (! -x $pgp) {
die "$0: $pgp: ", (-e _ ? "cannot execute" : "no such file"), "\n";
}
# this is, by design, case-sensitive with regards to the headers it checks. # this is, by design, case-sensitive with regards to the headers it checks.
# it's also insistent about the colon-space rule. # it's also insistent about the colon-space rule.
@ -120,25 +135,36 @@ close(TMP) || warn "$0: close > $tmp: $!\n";
&fail("$0: write error for message to check\n") &fail("$0: write error for message to check\n")
if -s $tmp != length($message); if -s $tmp != length($message);
print $message if $test;
$ok = 2; # unknown signature result is default $ok = 2; # unknown signature result is default
open(PGP,"$pgp -f +language=en < $tmp 2>&1 >/dev/null |") || open(PGP,"$pgp -f +language=en < $tmp 2>&1 >/dev/null |") ||
&fail("$0: failed to execute pgp: $!\n"); &fail("$0: failed to execute pgp: $!\n");
$/ = "\n"; undef $/;
while (<PGP>) { $_ = <PGP>;
# MIT PGP 2.6.2:
# Good signature from user "Robert Braver <rbraver@ohww.norman.ok.us>". print if $test;
# ViaCrypt PGP 4.0:
# Good signature from user: Robert Braver <rbraver@ohww.norman.ok.us> # MIT PGP 2.6.2:
if (/^Good signature from user(: (.*)| "(.*)"\.)$/) { # Good signature from user "Robert Braver <rbraver@ohww.norman.ok.us>".
$ok = 0; # ViaCrypt PGP 4.0:
$signer = $+; # Good signature from user: Robert Braver <rbraver@ohww.norman.ok.us>
} elsif (/^Bad signature /) { # PGP 5.0i:
$ok = 3; # Good signature made 1997-07-09 21:57 GMT by key:
} elsif (/Keyring file '(.*)' does not exist/) { # 1024 bits, Key ID B88DA9C1, Created 1996-04-10
&fail("$0: couldn't access $1. Bad \$HOME or \$PGPPATH?\n"); # "news.announce.newgroups"
}
if (/Good signature from user(: (.*)| "(.*)"\.)/ ||
/Good signature made .* by key:\n.+\n +"(.*)"/) {
$ok = 0;
$signer = $+;
} elsif (/^Bad signature /) {
$ok = 3;
} elsif (/Keyring file '(.*)' does not exist/) {
&fail("$0: couldn't access $1. Bad \$HOME or \$PGPPATH?\n");
} }
close(PGP) || warn "$0: closing pgp pipe returned status $?\n"; close(PGP) || warn "$0: closing pgp pipe returned status $?\n";
unlink("$tmp") || warn "$0: unlink $tmp: $!\n"; unlink("$tmp") || warn "$0: unlink $tmp: $!\n";