From 7a08dbc23f114bf6b6eae275e21e63b6667a1b37 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 25 Nov 1999 02:21:17 +0000
Subject: no_comment

---
 perl-install/http.pm | 13 +++++++++++++
 1 file changed, 13 insertions(+)

(limited to 'perl-install/http.pm')

diff --git a/perl-install/http.pm b/perl-install/http.pm
index fbf6c001c..9da302513 100644
--- a/perl-install/http.pm
+++ b/perl-install/http.pm
@@ -3,6 +3,7 @@ package http;
 use IO::Socket;
 
 use install_any;
+use network;
 
 
 my $sock;
@@ -11,6 +12,7 @@ sub getFile($) {
     local($^W) = 0;
 
     my ($host, $port, $path) = $ENV{URLPREFIX} =~ m,^http://([^/:]+)(?::(\d+))?(/\S*)?$,;
+    $host = network::resolv($host);
     $path .= "/" . install_any::relGetFile($_[0]);
 
     $sock->close if $sock;
@@ -24,6 +26,17 @@ sub getFile($) {
 		     "Host: $host" . ($port && ":$port"),
 		     "User-Agent: DrakX/vivelinuxabaszindozs",
 		     "", "");
+
+    #- skip until empty line
+    local $_;
+    my ($now, $last) = 0;
+    do {
+	$last = $now;
+	sysread($sock, $_, 1) || die;
+	sysread($sock, $_, 1) || die if /\015/;
+	$now = /\012/;
+    } until ($now && $last);
+
     $sock;
 }
 
-- 
cgit v1.2.1