X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FAsyncMsg.pm;h=e6ae80c696f39c21904cdbda2fda90a8d730edd4;hb=2f9d089ec33dd606824c11a508dbc06a0cf8dfaa;hp=c2eeaadcaf453c587da1278d9165b46542f7296f;hpb=8d185cf5bc6f767c949a00c31283f4a41f078862;p=spider.git

diff --git a/perl/AsyncMsg.pm b/perl/AsyncMsg.pm
index c2eeaadc..e6ae80c6 100644
--- a/perl/AsyncMsg.pm
+++ b/perl/AsyncMsg.pm
@@ -181,20 +181,20 @@ sub _getpost
 	
 	$r = $conn->connect($host, $port);
 	if ($r) {
-		dbg("Sending '$sort $path HTTP/1.0'") if isdbg('async');
-		$conn->send_later("$sort $path HTTP/1.0\n");
+		dbg("Sending '$sort $path HTTP/1.1'") if isdbg('async');
+		$conn->send_later("$sort $path HTTP/1.1\r\n");
 
 		my $h = delete $args{Host} || $host;
 		my $u = delete $args{'User-Agent'} || "DxSpider;$main::version;$main::build;$^O;$main::mycall"; 
 		my $d = delete $args{data};
 		
-	    $conn->send_later("Host: $h\n");
-		$conn->send_later("User-Agent: $u\n");
+	    $conn->send_later("Host: $h\r\n");
+		$conn->send_later("User-Agent: $u\r\n");
 		while (my ($k,$v) = each %args) {
-			$conn->send_later("$k: $v\n");
+			$conn->send_later("$k: $v\r\n");
 		}
-		$conn->send_later("\n$d") if defined $d;
-		$conn->send_later("\n");
+		$conn->send_later("\r\n$d") if defined $d;
+		$conn->send_later("\r\n");
 	}
 	
 	return $r ? $conn : undef;