sushestvo
11-16-2005, 04:01 PM
my $inet_aton = inet_aton($host) or FatalError("Can't Connect: $!");
socket(SOCK, PF_INET, SOCK_STREAM, getprotobyname('tcp')) or FatalError("Can't Connect: $!");
connect(SOCK, sockaddr_in(80, $inet_aton)) or FatalError("Can't Connect: $!");
send(SOCK, $http, 0);
while (<SOCK>) {
$_ =~ s/\r//g;
$page_str .= $_;
}
close(SOCK);
actually on while (<SOCK>) { it freezes
Runs fine under Apache1
Actually under Apach2 under console it runs, but under browser it won't,
Any idea why?
socket(SOCK, PF_INET, SOCK_STREAM, getprotobyname('tcp')) or FatalError("Can't Connect: $!");
connect(SOCK, sockaddr_in(80, $inet_aton)) or FatalError("Can't Connect: $!");
send(SOCK, $http, 0);
while (<SOCK>) {
$_ =~ s/\r//g;
$page_str .= $_;
}
close(SOCK);
actually on while (<SOCK>) { it freezes
Runs fine under Apache1
Actually under Apach2 under console it runs, but under browser it won't,
Any idea why?