aboutsummaryrefslogtreecommitdiffstats
path: root/phpBB/phpbb/install/module/install_filesystem/module.php
diff options
context:
space:
mode:
authorMarc Alexander <admin@m-a-styles.de>2016-09-25 18:00:49 +0200
committerMarc Alexander <admin@m-a-styles.de>2016-10-03 22:09:16 +0200
commitd15269950d8f577a69f3359614d48087c84d4cec (patch)
treeb10906f57a9a6b47afd433bb53622e3be8b29e52 /phpBB/phpbb/install/module/install_filesystem/module.php
parent297376ee949f3afe6ad2bd6849be8b8115a1adbb (diff)
downloadforums-d15269950d8f577a69f3359614d48087c84d4cec.tar
forums-d15269950d8f577a69f3359614d48087c84d4cec.tar.gz
forums-d15269950d8f577a69f3359614d48087c84d4cec.tar.bz2
forums-d15269950d8f577a69f3359614d48087c84d4cec.tar.xz
forums-d15269950d8f577a69f3359614d48087c84d4cec.zip
[ticket/14733] Use new interface to preserve backwards compatibility
PHPBB3-14733
Diffstat (limited to 'phpBB/phpbb/install/module/install_filesystem/module.php')
0 files changed, 0 insertions, 0 deletions
t">::Socket; use install_any; use network; my $sock; sub getFile { local($^W) = 0; my ($host, $port, $path) = $ENV{URLPREFIX} =~ m,^http://([^/:]+)(?::(\d+))?(/\S*)?$,; $host = network::resolv($host); $path .= "/$_[0]"; $sock->close if $sock; $sock = IO::Socket::INET->new(PeerAddr => $host, PeerPort => $port || 80, Proto => 'tcp', Timeout => 60) or die "can't connect "; $sock->autoflush; print $sock join("\015\012" => "GET $path HTTP/1.0", "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; } 1;