in reply to WWW::Mechanize Problem

There are two potential problems. Either A) The server does not recognize the machine/browser and decided to deny you access. B) You need to set authentication credentials for your WWW::Mechanize session. You should look at LWP::UserAgent on how to set those credentials (as Mechanize inherits functionality from the UserAgent module).

Replies are listed 'Best First'.
Re^2: WWW::Mechanize Problem
by venkatesan_G02 (Sexton) on Apr 06, 2009 at 19:57 UTC
    Hi, Thanks for the reply. Actually the site does not ask for any username or password. It takes the username from my login in to my PC.So, i dont know a way to provide username and password for such a site. Could you suggest a way, please?

      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.

        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