#!/usr/bin/perl

use strict;
use LWP;
use LWP::UserAgent;

my $URI = 'https://www.domain.com/protected_realm';
my $user = 'foo';
my $pass = 'bar';

# define user agent
my $ua = LWP::UserAgent->new();
$ua->agent("USER/AGENT/IDENTIFICATION");

# make request
my $request = HTTP::Request->new(GET => $URI);

# authenticate
$request->authorization_basic($user, $pass);

# except response
my $response = $ua->request($request);

# get content of response
my $content = $response->content();

# do whatever you need to do with the content here
print $content;

exit;
[download]

$h->header('WWW-Authenticate' => 'foo');
[download]

I am thrilled by such a quick response from you two. Both solutions are running fine. However, they did not solve the problem, i.e still could not return the link of ASP page. Any other suggestions?

Thanks in advance!

Puma_perl

You could put up a http proxy server using HTTP::Proxy. This would allow you to see all http headers (and the message if you wish) before they are sent.
In IE6 change you LAN Settings to use the proxy. Add the host name and port you are using. If you use the example below you would use port 8080.

use warnings;
use strict;
use Data::Dumper;
use HTTP::Proxy;
use HTTP::Proxy::HeaderFilter::simple;
use IO::File;

my $proxy = HTTP::Proxy->new(port => 8080);
$proxy->host(undef);
my $filter = HTTP::Proxy::HeaderFilter::simple->new(\&myfilter);
$proxy->push_filter(request => $filter);
$proxy->start();

sub myfilter {
   my ($this, $headers, $message) = @_;
   print '=' x 70, "\n";
   print $headers->as_string();
   STDOUT->flush();
}
[download]

Using this proxy you can compare the http headers being send when you submit you page via a browser versus lwp useragent.

Just use a packet sniffer.
1. Download and install packet sniffer.
2. Turn it on.
3. Check the page successfully with Internet Explorer.
4. Check the page unsuccessfully with the script.
5. Turn off packet sniffer and inspect the two requests.

The differences in the headers of the two HTTP request-responses will tell you what is going wrong.

The one I use on a Windows client machine is called Smart Sniff.

-Andrew.

---

Andrew Tomazos  |  andrew@tomazos.com  |  www.tomazos.com

Thanks for your tips Andrew! Where can I get Smart Sniff?

Puma_perl

use strict;<br>
use WWW::Mechanize;<br>
my $username = "USER"; # Login<br>
my $password = "PASSWORD"; # Password<br>
my $url = "http://www.myurl.com"; # Your URL Name<br>
my $mech = WWW::Mechanize->new();<br>
$mech->get($url);<br>
## Browse the HTML source of the ASP page to get these parameters <br>
$mech->form("form_Name"); # The Login Form Name<br>
$mech->field("txt_id", $username); # Username Texbox name<br>
$mech->field("txt_pwd", $password); # Password Textbox name<br>
$mech->click("cmd_ok"); # Button name<br>

my $current_site = $mech->{uri};
#The $current_site would give you the address of next page...
[download]

Dear Ranjan:

I did download and run Charles to monitor my internet traffic. However, Charles only records internet activities through proxy server. When I start to run Charles, it automatically set my IE to use proxy server. The url that I have problem with are only accessible through "Automatically detect settings" with LAN settings for IE. Therefore, with Charles is running, I got the same error message from IE browser as I got from my perl script.

So, my guess is that the web server for my problematic url doesn't recognize connection of client through proxy. Am I right? If so, what's the solution for this?

Thanks again!

Puma_perl

Hmmm,
It is going to be difficult then. I can think of two things (I may be wrong totally):

1) See if adding cookies to the user agent solves it. You can use HTTP::Cookies
2)Try to make your useragent appear as IE or Firefox. I am not sure if it legal. Sincere apologies if it is illegal. Don't try until you figure that out. Regarding how to do it it should be something like,
$ua->agent("Mozilla/4.76 [en] (Windows NT 5.0; U)");

That is all that comes to my mind. Monks can any one help us on this.

Ranjan

--Let Logic Rule--