From a49d6888212af3ff677a85e4bde8c7298032b61b Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Mon, 26 Sep 2011 11:15:58 +0000
Subject: [PATCH] GetHttpFile fix for foreign servers

git-svn-id: https://svn.fhem.de/fhem/trunk@1028 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/99_updatefhem.pm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/fhem/FHEM/99_updatefhem.pm b/fhem/FHEM/99_updatefhem.pm
index 2cc37d98f..c0c741101 100644
--- a/fhem/FHEM/99_updatefhem.pm
+++ b/fhem/FHEM/99_updatefhem.pm
@@ -174,16 +174,16 @@ GetHttpFile($$)
 {
   my ($host, $filename) = @_;
 
-  my $server = IO::Socket::INET->new(PeerAddr => $server);
-  if(!$server) {
-    Log 1, "Can't connect to $server\n";
+  my $conn = IO::Socket::INET->new(PeerAddr => $host);
+  if(!$conn) {
+    Log 1, "Can't connect to $host\n";
     return undef;
   }
   $host =~ s/:.*//;
   my $req = "GET $filename HTTP/1.0\r\nHost: $host\r\n\r\n\r\n";
-  syswrite $server, $req;
+  syswrite $conn, $req;
   my ($buf, $ret);
-  while(sysread($server, $buf, 65536) > 0) {
+  while(sysread($conn, $buf, 65536) > 0) {
     $ret .= $buf;
   }
   $ret=~ s/.*?\r\n\r\n//s;