Force English lanugage for 'Good signature from user' by passing
+language=en on pgp command line, rather than setting the environment variable LANGUAGE to 'en'.
This commit is contained in:
parent
e9fe186cc8
commit
54bf1e9797
1 changed files with 7 additions and 3 deletions
10
pgpverify
10
pgpverify
|
@ -1,6 +1,11 @@
|
|||
#! /usr/bin/perl -w
|
||||
# written April 1996, tale@uunet.uu.net (David C Lawrence)
|
||||
# Version 1.4
|
||||
# Version 1.5
|
||||
#
|
||||
# Changes from 1.4 -> 1.5
|
||||
# -- force English lanugage for 'Good signature from user' by passing
|
||||
# +language=en on pgp command line, rather than setting the
|
||||
# environment variable LANGUAGE to 'en'.
|
||||
#
|
||||
# Changes from 1.3 -> 1.4
|
||||
# -- now handles wrapped headers that have been unfolded.
|
||||
|
@ -97,9 +102,8 @@ 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 |") ||
|
||||
open(PGP,"$pgp -f +language=en < $tmp 2>&1 >/dev/null |") ||
|
||||
&fail("$0: failed to execute pgp: $!\n");
|
||||
|
||||
$/ = "\n";
|
||||
|
|
Loading…
Reference in a new issue