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

Version 1.1.1. Force English for PGP messages.

Browse source
This commit is contained in:
David Lawrence 1996-05-08 20:32:44 +00:00
parent 9a4e2ab2d8
commit a231eb641a
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
pgpverify
View file

@ -1,6 +1,6 @@
#! /usr/bin/perl -w #! /usr/bin/perl -w
# written April 1996, tale@uunet.uu.net (David C Lawrence) # written April 1996, tale@uunet.uu.net (David C Lawrence)
# Version 1.1 # Version 1.1.1
$pgp = '/usr/local/bin/pgp'; $pgp = '/usr/local/bin/pgp';
$tmp = "/tmp/pgp$$"; $tmp = "/tmp/pgp$$";
@ -72,6 +72,7 @@ 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);
$ENV{'LANGUAGE'} = 'en'; # force English for pgp messages
$ok = 2; # unknown signature result is default $ok = 2; # unknown signature result is default
open(PGP,"$pgp -f < $tmp 2>&1 >/dev/null |") || open(PGP,"$pgp -f < $tmp 2>&1 >/dev/null |") ||
&fail("$0: failed to execute pgp: $!\n"); &fail("$0: failed to execute pgp: $!\n");