#!/usr/bin/perl
use strict;
use warnings;
use HTTP::Request::Common qw(POST);
use LWP::UserAgent;
use HTTP::Cookies;
my $ua = LWP::UserAgent->new;
push @{$ua->requests_redirectable}, 'POST';
$ua->cookie_jar(HTTP::Cookies->new(file => "lwpcookies.txt", autosave
+=> 1));
my $req = POST 'http://www.mail.com/scripts/common/proxy.main', [
action => 'login',
show_frame => 'Enter',
mail_language => 'us',
login => 'your@mail.com',
password => 'password',
];
my $res = $ua->request($req)->as_string;
print $res;
It prints this:
HTTP/1.0 200 OK
Connection: close
Date: Wed, 18 Sep 2002 19:12:46 GMT
Pragma: no-cache
Server: Apache
Content-Type: text/html; charset=iso-8859-15
Client-Date: Wed, 18 Sep 2002 19:10:31 GMT
Client-Response-Num: 1
Set-Cookie: ob_cookies=; domain=mail02.mail.com; path=/
Title: iname.com
X-Cache: MISS from webserver
<!-- ws1-11.us4.outblaze.com, 0, Bad authenticator cookie!, , , --><h
+tml>
<head>
<title>iname.com</title>
<META HTTP-EQUIV="Pragma" CONTENT="no-cache">
</head>
<script language="Javascript">
function popUp(url){
window.open(url,'','width=550,height=400,resizable=yes,scrollbars=
+yes,menubar=no');
}
</script>
<link rel="stylesheet" href="http://mail02.mail.com/templates/common/u
+s/css.htm">
<body bgcolor="#FFFFFF" topmargin="0" marginheight="2">
<p><center>
</center></p>
<p><center>
<SCRIPT LANGUAGE="JavaScript1.1" SRC="http://oas-central.realmedia.com
+/RealMedia/ads/adstream_jx.ads/mail.com/bannertop/1279673@x01?">
</script>
<script LANGUAGE="JavaScript"> <!--
_version=10; //--> </script>
<script LANGUAGE="JavaScript1.1"> <!--
_version=11; // --> </script>
<script LANGUAGE="JavaScript">
<!--
if (navigator.appVersion.indexOf('MSIE 3') != -1){
document.write('<IFRAME WIDTH=468 HEIGHT=60 MARGINWIDTH=0 MARGINHEIGHT
+=0 HSPACE=0 VSPACE=0 FRAMEBORDER=0 SCROLLING=no BORDERCOLOR="#000000"
+ SRC="http://oas-central.realmedia.com/RealMedia/ads/adstream_sx.cgi/
+mail.com/bannertop/1279673@x01?"></iframe>');
} else if (_version < 11) {
document.write ('<A HREF="http://oas-central.realmedia.com/RealMedia/a
+ds/click_nx.ads/mail.com/bannertop/1279673@x01?" target="_new"><IMG S
+RC="http://oas-central.realmedia.com/RealMedia/ads/adstream_nx.ads/ma
+il.com/bannertop/1279673@x01?"></a>');
}
// -->
</SCRIPT>
</center><script language="Javascript">
top.document.location.href="http://mail02.mail.com/templates/common/us
+/expire.htm";
</script><p><center>
<!-- ----------Advertising.com Banner Code---------- -->
<SCRIPT LANGUAGE="JavaScript" SRC="http://servedby.advertising.com/sit
+e=42011/size=468060/bnum=96107808/optn=1">
</SCRIPT>
<NOSCRIPT>
<A HREF="http://servedby.advertising.com/click/site=42011/bnum=9610780
+8" TARGET="_blank"><IMG SRC="http://servedby.advertising.com/site=420
+11/size=468060/bnum=96107808/bins=1/rich=0" WIDTH="468" HEIGHT="60" B
+ORDER="0" ALT="Click to learn more..."></A>
</NOSCRIPT>
<!-- ----------Copyright 2000, Advertising.com---------- -->
</center>
<p><center>
</center></p>
<p><center><font size="-1" color="#000000">© 2002 Mail.com. All r
+ights reserved.</FONT></center>
</body>
</html>
What else should we be doing?
|