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

Version 1.8. Ignore final dot-CRLF if article is in NNTP format.

Browse source
This commit is contained in:
David Lawrence 1998-03-18 19:03:01 +00:00
parent feabce1cb3
commit 0732ff6e14
1 changed files with 10 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
pgpverify
View file

@ -1,6 +1,9 @@
#! /usr/bin/perl -ws #! /usr/bin/perl -ws
# written April 1996, tale@isc.org (David C Lawrence) # written April 1996, tale@isc.org (David C Lawrence)
# Version 1.7 # Version 1.8
#
# Changes from 1.7 -> 1.8
# -- ignore final dot-CRLF if article is in NNTP format
# #
# Changes from 1.6 -> 1.7 # Changes from 1.6 -> 1.7
# -- parse PGP 5.0 'good signature' lines. # -- parse PGP 5.0 'good signature' lines.
@ -10,7 +13,7 @@
# #
# Changes from 1.5 -> 1.6 # Changes from 1.5 -> 1.6
# -- handle articles encoded in NNTP format ('.' starting line is doubled, # -- handle articles encoded in NNTP format ('.' starting line is doubled,
# \r\n at line end) by string NNTP encoding. # \r\n at line end) by stripping NNTP encoding.
# -- exit 255 with pointer to $HOME or $PGPPATH if pgp can't find key ring. # -- exit 255 with pointer to $HOME or $PGPPATH if pgp can't find key ring.
# (probably doesn't match the necessary error message with ViaCrypt PGP) # (probably doesn't match the necessary error message with ViaCrypt PGP)
# -- failures also report message-id so the article can be looked up to retry. # -- failures also report message-id so the article can be looked up to retry.
@ -109,6 +112,11 @@ $message .= "\n"; # end of headers
while (<>) { # read body lines while (<>) { # read body lines
if ($nntp_format) { if ($nntp_format) {
# check for end of article; some news servers (eg, Highwind's "Breeze")
# include the dot-CRLF of the NNTP protocol in the article data passed
# to this script
last if $_ eq ".\r\n";
# remove NNTP encoding # remove NNTP encoding
s/^\.\./\./; s/^\.\./\./;
s/\r\n$/\n/; s/\r\n$/\n/;