I am pasting my result as well for your reference#!C:/perl/bin/perl.exe use LWP::UserAgent; use HTTP::Request::Common; my $url= 'http://goweb.corp.global.level3.com/sites/ti_nm/tni/default. +aspx'; my $ua = new LWP::UserAgent(keep_alive => 1); $ua->credentials('goweb.corp.global.level3.com/sites/ti_nm/tni/default +.aspx:80','',"LEVEL3\\username",'password'); $request = GET $url; print "--Performing request now...------------------\n"; $response = $ua->request($request); print "--Done with request---------------------------\n"; if ($response -> is_success) { print "It worked!->". $response->code. "\n"; } else { print "It didn't work!->". $response->code. "\n"; } $contents = $response -> content(); #print "$contents\n"; open(FH,">C:/eonet.html"); print FH $contents; close FH; print $response->status_line(), "\n"; print $response->headers()->as_string();
Please review this and provide your comments!!! Thanks in advance--Performing request now...------------------ --Done with request--------------------------- It didn't work!->401 401 Unauthorized Date: Wed, 08 Apr 2009 18:02:59 GMT Server: Microsoft-IIS/6.0 WWW-Authenticate: NTLM Content-Length: 1656 Content-Type: text/html Content-Type: text/html; charset=Windows-1252 Client-Date: Wed, 08 Apr 2009 18:02:59 GMT Client-Peer: 10.1.158.205:80 Client-Response-Num: 1 MicrosoftSharePointTeamServices: 6.0.2.5530 Title: You are not authorized to view this page X-Powered-By: ASP.NET
In reply to Re^8: WWW::Mechanize Problem
by Anonymous Monk
in thread WWW::Mechanize Problem
by venkatesan_G02
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |