Hi
Thanks for your message.
I really want to use perl and IO::socket, I do not have much choice.
However, I am having a hard time to make it work. The code I use does not do anything. (see my code below)
All ideas are welcome.
Cheers,
Thom
code:
use IO::Socket;
$type_connection = "close";
$requete ="GET "./context/servletname." HTTP/1.0\r\n
Host: ".servername
ort."\r\n
User-Agent: Agent Batch\r\n
Connection: ".$type_connection."\n\r\n\r";
$remote = IO::Socket::INET->new(servername
ort) || die "Connection impossible";
print $remote "$requete";
while ( <$remote> ) { print }
close $remote;
print "Requ\210te HTTP envoy\202e";