develooper Front page | perl.libwww | Postings from March 2001

Need help with my code?

Thread Next
From:
Cormac Garvey
Date:
March 15, 2001 14:45
Subject:
Need help with my code?
Message ID:
200103152208.QAA11712@syseng.hstc.necsyl.com

Hi,
  I am new to libwww. I want to use libwww to acess my bank A/C's and 
  Stocks via a client program.
  
  initially I tryed to access my Fidelity A/C.

Here is my code.


#!/usr/bin/perl
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
#
my $req = HTTP::Request->new(POST => 
'https://webxpress100.fidelity.com/ftgw/webxpress/Login');
$req->content_type('application/x-www-form-urlencoded');
$req->content('SSN=&PIN=');
#
# send request
#
my $res = $ua->request($req);
#
# check the outcome
#
   print $ua->request($req)->as_string;
   
   
   The following information is returned.
   
   
HTTP/1.1 302 (Found) Moved Temporarily
Date: Thu, 15 Mar 2001 21:53:36 GMT
Location: /ftgw/webxpress/MainMenu
Server: Netscape-Enterprise/3.6
Content-Length: 314
Content-Type: text/html
Client-Date: Thu, 15 Mar 2001 21:52:15 GMT
Client-Peer: 192.223.196.135:443
Client-SSL-Cert-Issuer: /C=US/O=RSA Data Security, Inc./OU=Secure Server 
Certification Authority
Client-SSL-Cert-Subject: /C=US/ST=Massachusetts/L=Boston/O=Fidelity 
Investments/OU=FREC/CN=webxpress100.fidelity.com
Client-SSL-Cipher: RC4-MD5
Client-SSL-Warning: Peer certificate not verified
Set-Cookie: 
TPVTicket@6791a9e0-901a-11d0-a1c8-9b012c88aa77=1054505640A3A2FADD725A0CD675938A2
911F64C0EA4C83EB6DF9E1AF1CCD5DF1CD05F94E60A088DC54A3AD8EB8A93F8DA5748CFDBCEE7BAC
EFA155C1E0D1ACE90F05827721E60CAA087F0AEA349DC094FC265A3CD1AC22294EDDF1E0CD067B43
1306C9F1DA513E050697ECE4865A8F69BD858F4F8B08ECB2BFB703D5508678297B2ED0F58180BB29
36204B2; domain=.fidelity.com; path=/;
Set-Cookie: 02109R24=none; domain=.fidelity.com; path=/; secure
Set-Cookie: RedirectLocation=none;expires=Monday, 13-Jun-1988 03:04:55 GMT; 
domain=.fidelity.com; path=/;
Set-Cookie: ypi=,; domain=.fidelity.com; path=/m/;
Set-Cookie: 02109POS=<fidlib1210215111710572675,>; domain=.fidelity.com; path=/; 
expires=Thu, 14-Jun-2001 00:00:00 GMT;
Set-Cookie: PRODUCTINFO=webxpress; domain=.fidelity.com; path=/ftgw;
Set-Cookie: 
02109POS=<fidlib1210215111710572675,5c43003e-d360-11d3-812c-ac1a078daa77>;expire
s=Wednesday, 13-Jun-2001 00:00:00 GMT; domain=.fidelity.com; path=/;
Set-Cookie: 
02109WTC=02580000112F4AF2654A835717A2BF1A23A1D9A4763CEE157052F02C2CD8C39A1F86AD9
9D36EE02ADA0E5D46C32D16557D59FD6EDF9354BDC26DED4FDD7BECB0A08376571209A3F3B329390
69D14829C28F7336D2719B65422AAF47CD5B2CDB67C7D353F4880; domain=.fidelity.com; 
path=/; secure
Set-Cookie: 02109TS=MS4wAJWI8FFUg2cpofbPipuFemM6sTngOrE54A; 
domain=.fidelity.com; path=/;
Title: Login redirection

<html>
<!-- $HTMLid: /templates/login_redirect.html /main/7 20-Sep-1999 10:48:53 $ -->
<head>
<title>Login redirection</title>
</head>

<body bgcolor="#FFFFFF" text="#000000" link="#000080" vlink="#000080" 
alink="#0000FF">

<font face=arial,helvetica size=2>
Processing..
<P>
Please wait.
</font>
</body> </html>


But unfortunately, I do not see my account information.

Any ideas on how I can fix this.

Thanks,
Cormac.


Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About