summaryrefslogtreecommitdiff
path: root/Echolot/Pinger
diff options
context:
space:
mode:
authorPeter Palfrader <peter@palfrader.org>2003-02-21 05:58:36 +0000
committerPeter Palfrader <peter@palfrader.org>2003-02-21 05:58:36 +0000
commit681ccf7171a4427a2d6e6ad954712f41a90057dd (patch)
treef127c350704b9f79bd22a6de10bbc839e7e1c9f6 /Echolot/Pinger
parent9bd17503f1cabd83dd100ec3fd362b68c52b8c7f (diff)
Reliable and CRLF - a neverending (sad) story
Diffstat (limited to 'Echolot/Pinger')
-rw-r--r--Echolot/Pinger/CPunk.pm19
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'};