From 18d1ec2cf6a7a2b610d7c9b88b24ecd3839c7981 Mon Sep 17 00:00:00 2001 From: Peter Palfrader Date: Wed, 4 Sep 2002 01:47:01 +0000 Subject: Write total number of unique remailers to echolot.html Work around broken remailers that insert newlines. --- Echolot/Pinger.pm | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) (limited to 'Echolot/Pinger.pm') diff --git a/Echolot/Pinger.pm b/Echolot/Pinger.pm index 07ee0f8..b31e339 100644 --- a/Echolot/Pinger.pm +++ b/Echolot/Pinger.pm @@ -1,7 +1,7 @@ package Echolot::Pinger; # (c) 2002 Peter Palfrader -# $Id: Pinger.pm,v 1.19 2002/09/03 17:14:26 weasel Exp $ +# $Id: Pinger.pm,v 1.20 2002/09/04 01:47:01 weasel Exp $ # =pod @@ -119,7 +119,14 @@ sub receive($$$) { my $now = time(); my $body; - $body = Echolot::Tools::crypt_symmetrically($msg, 'decrypt') if $msg =~ /^-----BEGIN PGP MESSAGE-----/m; + if ($msg =~ /^-----BEGIN PGP MESSAGE-----/m) { + # work around borken middleman remailers that have a problem with some + # sort of end of line characters and randhopping them through reliable + # remailers.. + # they add an empty line between each usefull line + $msg =~ s/(\r?\n)\r?\n/$1/g if ($msg =~ /^-----BEGIN PGP MESSAGE-----\r?\n\r?\n/m); + $body = Echolot::Tools::crypt_symmetrically($msg, 'decrypt'); + }; $body = $msg unless defined $body; my ($addr) = $body =~ /^remailer: (.*)$/m; -- cgit v1.2.3