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:
David Lawrence 1997-12-30 01:25:45 +00:00
parent e9fe186cc8
commit 54bf1e9797

View file

@ -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";