Re: fetch an HTML page from a secure site that requires authorization

Maybe this will help. It's a sub from a Perl script I wrote
that logs in
to a classic ASP web app. It snatches the cookie token to
pass back with
subsequent requests after login.

#############################
#
#   subroutine: login
#               logs into XXXX and retrieves the login
cookie.
#
#        takes: global data structure
#      returns: xml_writer obj
#
sub login {

	my $html_info = shift;
	addVerbose( "Logging into ecfmg website.n" );

	my $success = 0;
	my $output = "";

	my $ua = LWP::UserAgent->new();
	$ua->agent('Mozilla/5.0');

	my $cookie_jar = HTTP::Cookies->new;

	# these settings are v. specific. Changes to the remote
system
architecture must be
	#     reflected here.
	my $action = $html_info->{ 'login_action' };
	my $data = [
				'txtUserName' => $html_info->{
'login_id' },
				'txtPassword' => $html_info->{
'login_pwd' },
				'txtMenu' => 'login.asp',
				'txtPage' => 'login.asp'
				];

	my $res = $ua->request( POST( $action, Content =>
$data ) );

	# Check the outcome of the response
	if ( $res->is_error ) {
	  my $msg = "Unable to login to remote system
$html_info-> using uid
$html_info-> and password
$html_info->.nn" .
$res->status_line;
	  addVerbose( $msg );
	  send_error( $msg );
	}

	#	print $res->content;
	$cookie_jar->extract_cookies( $res );
	$cookie_jar->save( $html_info->{ 'cookie_fn' } );
	$html_info->{ 'cookie' } = $cookie_jar;

	return( $success );
}

----------------------------------------------
David R. Miller
Team Lead, Software Development
Medical Council of Canada
dmillermcc.ca
(613) 521-6012 x 2265
(613) 521-9722 (fax)
----------------------------------------------
This email may contain privileged and/or confidential 
information, and the Medical Council of Canada does 
not waive any related rights. Any distribution, use, 
copying or disclosure of this email or the information 
it contains by other than the intended recipient is 
strictly prohibited. If you received this email in error 
please delete it immediately from your system and notify 
the sender promptly by email that you have done so. The 
integrity and security of this message cannot be 
guaranteed on the Internet.  

Le présent courriel peut contenir de l'information 
privilégiée ou confidentielle. Le Conseil médical du 
Canada ne renonce pas aux droits qui s'y rapportent. 
Toute diffusion, utilisation ou copie de ce courriel 
ou des renseignements qu'il contient par une personne 
autre que le ou les destinataires désignés est interdite. 
Si vous recevez ce courriel par erreur, veuillez le 
supprimer immédiatement et envoyer sans délai à 
l'expéditeur un message électronique pour l'aviser que 
vous avez éliminé de votre ordinateur toute copie du 
courriel reçu. L'intégrité et la sécurité de ce message 
ne peuvent pas être garanties sur l'Internet



_______________________________________________
Perl-Win32-Web mailing list
Perl-Win32-Weblistserv.ActiveState.com
To unsubscribe: http:/
/listserv.ActiveState.com/mailman/mysubs