FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-08 19:32:42 +00:00
Code Issues Releases Wiki Activity

GetHttpFile fix for foreign servers

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@1028 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2011-09-26 11:15:58 +00:00
parent b7dbdee39e
commit a49d688821
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
fhem/FHEM/99_updatefhem.pm
View File

@ -174,16 +174,16 @@ GetHttpFile($$)
{ {
my ($host, $filename) = @_; my ($host, $filename) = @_;
my $server = IO::Socket::INET->new(PeerAddr => $server); my $conn = IO::Socket::INET->new(PeerAddr => $host);
if(!$server) { if(!$conn) {
Log 1, "Can't connect to $server\n"; Log 1, "Can't connect to $host\n";
return undef; return undef;
} }
$host =~ s/:.*//; $host =~ s/:.*//;
my $req = "GET $filename HTTP/1.0\r\nHost: $host\r\n\r\n\r\n"; 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); my ($buf, $ret);
while(sysread($server, $buf, 65536) > 0) { while(sysread($conn, $buf, 65536) > 0) {
$ret .= $buf; $ret .= $buf;
} }
$ret=~ s/.*?\r\n\r\n//s; $ret=~ s/.*?\r\n\r\n//s;