in reply to Re^2: WWW::Mechanize Problem
in thread WWW::Mechanize Problem

He just did. Though it sounds like you have a more complicated environment setup than adding in basic auth credentials is going to address. You might need some proxy magic if your authentication is really automatic outside of Mech. The problem isn't well enough defined to know what's going on though.

Replies are listed 'Best First'.
Re^4: WWW::Mechanize Problem
by venkatesan_G02 (Sexton) on Apr 06, 2009 at 21:35 UTC
    The Problem is:

    I can access a web page "http://eonet.level3.com" using IE, but when i try to access the same page using WWW::Mechanzie or LWP::UserAgent i am getting "401 Unauthorized" error.

    I have given below the code is used and the output i got

    The Code:

    #!C:/Perl/bin/perl.exe
    use LWP::Simple;
    use LWP::UserAgent;
    use HTTP::Request;
    use HTTP::Response;
    use HTML::LinkExtor;
    my $URL= "http://eonet.level3.com/";
    $browser = LWP::UserAgent->new();
    $browser->timeout(10);
    my $request = HTTP::Request->new(GET => $URL);
    my $response = $browser->request($request);
    if ($response->is_error()) {printf "%s\n", $response->status_line;}
    $contents = $response->content();
    #print $contents;
    print $response->status_line(), "\n";
    print $response->headers()->as_string();


    Output when i run the program:

    C:\Documents and Settings\g.venkatesan\Desktop>perl lwp_test.pl

    401 Unauthorized
    401 Unauthorized
    Date: Mon, 06 Apr 2009 21:24:30 GMT
    Server: Microsoft-IIS/6.0
    WWW-Authenticate: Negotiate
    WWW-Authenticate: NTLM
    WWW-Authenticate: Basic realm="corp.global.level3.com"
    Content-Length: 1656
    Content-Type: text/html
    Content-Type: text/html; charset=Windows-1252
    Client-Date: Mon, 06 Apr 2009 21:24:31 GMT
    Client-Peer: 10.1.131.202:80
    Client-Response-Num: 1
    Client-Warning: Unsupported authentication scheme 'ntlm'
    Title: You are not authorized to view this page
    X-Powered-By: ASP.NET


    Thanks
[reply]

In Section Seekers of Perl Wisdom