[JaxPM] NTLM via LWP ???

[Steve Lane]

On the jacksonville-pm-list; Jax.PM'er Steve Lane <sml at zfx.com> wrote -

this looks cool, but tell us when the server is
reachable and up :).

$ traceroute 207.203.95.95 
traceroute to 207.203.95.95 (207.203.95.95), 30 hops max, 38 byte packets
...
 3  gbr5-p50.attga.ip.att.net (12.123.197.42)  20.899 ms  21.073 ms  18.144 ms
 4  gbr3-p100.attga.ip.att.net (12.122.5.38)  18.195 ms  18.987 ms  20.870 ms
 5  ggr1-p360.attga.ip.att.net (12.123.20.249)  51.673 ms  57.072 ms  18.098 ms
 6  att-gw.atl.uu.net (192.205.32.130)  29.136 ms  182.761 ms  157.943 ms
 7  179.at-5-0-0.XR2.ATL5.ALTER.NET (152.63.82.202)  35.850 ms  113.842 ms  32.875 ms
 8  292.at-6-0-0.XR2.ATL1.ALTER.NET (152.63.80.205)  30.314 ms  22.228 ms  47.712 ms
 9  194.ATM7-0.GW5.JAX1.ALTER.NET (152.63.84.229)  29.269 ms  28.759 ms  31.485 ms
10  bellsouth-gw.customer.alter.net (65.195.232.214)  57.910 ms  33.879 ms  55.425 ms
11  205.152.187.129 (205.152.187.129)  40.719 ms  31.856 ms  30.406 ms
12  172.17.123.18 (172.17.123.18)  137.298 ms  182.199 ms  146.909 ms
13  * * *
14  * * *


Bill Jones wrote:
> PS - To make this thread more Perl-like again:
> 
> #!/usr/local/bin/perl -w
> 
> use LWP::UserAgent;
> use XML::Simple;
> 
> use strict;
> use diagnostics;
> 
> my $ua = LWP::UserAgent->new;
> my $req = HTTP::Request->new(GET =>
> 
> 'http://207.203.95.95/bill/BrokerEmployee.asmx/ClassRoster?strBrokerID=ETB251&
> strClassReferenceNumber=138887&strTerm=20021');
> 
> print "\n\n\nSuccess!\n\n";
> #print $ua->request($req)->as_string;
> 
> my $address = XMLin($ua->request($req)->as_string);
> print $address;
> 
> __END__

--
Steve Lane <sml at zfx.com>

Jax.PM Moderator's Note:
This message was posted to the Jacksonville Perl Monger's Group listserv.
The group manager can be reached at -- owner-jacksonville-pm-list at pm.org
to whom send all praises, complaints, or comments...