diff options
| author | Peter Palfrader <peter@palfrader.org> | 2003-02-21 05:58:36 +0000 |
|---|---|---|
| committer | Peter Palfrader <peter@palfrader.org> | 2003-02-21 05:58:36 +0000 |
| commit | 681ccf7171a4427a2d6e6ad954712f41a90057dd (patch) | |
| tree | f127c350704b9f79bd22a6de10bbc839e7e1c9f6 /Echolot/Pinger | |
| parent | 9bd17503f1cabd83dd100ec3fd362b68c52b8c7f (diff) | |
Reliable and CRLF - a neverending (sad) story
Diffstat (limited to 'Echolot/Pinger')
| -rw-r--r-- | Echolot/Pinger/CPunk.pm | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/Echolot/Pinger/CPunk.pm b/Echolot/Pinger/CPunk.pm index 3878cff..03fad41 100644 --- a/Echolot/Pinger/CPunk.pm +++ b/Echolot/Pinger/CPunk.pm @@ -1,7 +1,7 @@ package Echolot::Pinger::CPunk; # (c) 2002 Peter Palfrader <peter@palfrader.org> -# $Id: CPunk.pm,v 1.15 2003/02/17 14:44:15 weasel Exp $ +# $Id: CPunk.pm,v 1.16 2003/02/21 05:58:36 weasel Exp $ # =pod @@ -79,7 +79,7 @@ sub encrypt_to($$$$) { - $msg =~ s/\r?\n/\r\n/g; + #$msg =~ s/\r?\n/\r\n/g; @@ -172,6 +172,7 @@ sub encrypt_to($$$$) { return undef); $result =~ s,^Version: .*$,Version: N/A,m; + $result =~ s/\r?\n/\r\n/g; return $result; }; @@ -185,12 +186,12 @@ sub ping($$$$$) { if ($with_from) { my $address = Echolot::Config::get()->{'my_localpart'} . '@' . Echolot::Config::get()->{'my_domain'}; - $header = "##\nFrom: Echolot Pinger <$address>\n\n"; + $header = "##\r\nFrom: Echolot Pinger <$address>\r\n\r\n"; $with_from = 0; }; - $msg = "::\n". - "Anon-To: $to\n". - "\n". + $msg = "::\r\n". + "Anon-To: $to\r\n". + "\r\n". $header. $msg; @@ -199,9 +200,9 @@ sub ping($$$$$) { (defined $encrypted) or Echolot::Log::debug("Encrypted is undefined."), return undef; - $msg = "::\n". - "Encrypted: PGP\n". - "\n". + $msg = "::\r\n". + "Encrypted: PGP\r\n". + "\r\n". $encrypted; }; $to = $hop->{'address'}; |