Version 1.1.1. Force English for PGP messages.

This commit is contained in:
David Lawrence 1996-05-08 20:32:44 +00:00
parent 9a4e2ab2d8
commit a231eb641a

View file

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