Why not use LWP::UserAgent?
On Tuesday, August 13, 2002, at 10:08 PM, Tim Musson wrote:
> Hey perlers,
>
> I have this bit of cgi code that is not working any more (I am sure it
> did at one time, but I must have modified it wrong) and I need to
> resurrect it.
>
> What I am trying to accomplish is to check the Wan address of a
> NetGear broadband router. The method I am trying to use is to telnet
> to port 80, then do a 'GET / HTTP/1.0'.
>
> telnet localhost 80 <-- gets a blank screen
> GET / HTTP/1.0 <-- follow this with \n\n
>
> This is what I get:
> HTTP/1.0 200 OK
> Server: TinyWeb/1.9
> Content-Length: 382
> Content-Type: text/html
>
> <html> <head> <title>Tim's ThinkPad</title> </head>
> ====8<---------------- sniped for brevity <g>
>
> Here is my perl code in it's entirity...
>
> <code>
> #!perl -w
> use strict;
> use IO::Socket;
> my (%FORM, $HeaderLine, $remote, $debug);
>
> $FORM{Method} = "GET";
> $FORM{Page} = "";
> $FORM{HTTPv} = "1.0";
>
> print "$FORM{Method} /$FORM{Page} HTTP/$FORM{HTTPv}\n";
>
> $remote = IO::Socket::INET->new(
> Proto => "tcp",
> PeerAddr => "localhost",
> PeerPort => "http(80)"
> );
>
> unless ($remote) { die "cannot connect to http daemon on
> $FORM{TelnetHost}" }
>
> $remote->autoflush(1); # I think I read today that I don't need this
> any more
>
> print $remote "$FORM{Method} /$FORM{Page} HTTP/$FORM{HTTPv}\n\n";
>
> ### The next line is where I think I am having problems...
> ### If I uncomment, I seem to recall it displaying the html code from
> ### above (HTTP/1.0 200 OK, etc...). But what happens is it just hangs.
>
> # while ( <$remote> ) { print; }
>
> print $remote;
>
> close $remote;
> </code>
>
> Any suggestions are most welcome...
> Thanks!
>
> --
> [EMAIL PROTECTED]
> Using The Bat! eMail v1.61
> Windows 2000 5.0.2195 (Service Pack 2)
> What are you doing?!? The message is over, GO AWAY!
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
>
>
// George Schlossnagle
// Principal Consultant
// OmniTI, Inc http://www.omniti.com
// (c) 240.460.5234 (e) [EMAIL PROTECTED]
// 1024D/1100A5A0 1370 F70A 9365 96C9 2F5E 56C2 B2B9 262F 1100 A5A0
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
