Version 1.1.1. Force English for PGP messages.
This commit is contained in:
parent
9a4e2ab2d8
commit
a231eb641a
1 changed files with 2 additions and 1 deletions
|
@ -1,6 +1,6 @@
|
|||
#! /usr/bin/perl -w
|
||||
# written April 1996, tale@uunet.uu.net (David C Lawrence)
|
||||
# Version 1.1
|
||||
# Version 1.1.1
|
||||
|
||||
$pgp = '/usr/local/bin/pgp';
|
||||
$tmp = "/tmp/pgp$$";
|
||||
|
@ -72,6 +72,7 @@ close(TMP) || warn "$0: close > $tmp: $!\n";
|
|||
&fail("$0: write error for message to check\n")
|
||||
if -s $tmp != length($message);
|
||||
|
||||
$ENV{'LANGUAGE'} = 'en'; # force English for pgp messages
|
||||
$ok = 2; # unknown signature result is default
|
||||
open(PGP,"$pgp -f < $tmp 2>&1 >/dev/null |") ||
|
||||
&fail("$0: failed to execute pgp: $!\n");
|
||||
|
|
Loading…
Reference in a new issue