Okay, now I am using res instead of req (I should have seen that). Now I get this message again (old node):

Sorry, we're unable to process this request. There are two possible ca
+uses for this error: 

You accessed this page via a bookmark instead of entering through the 
+AdWords Select homepage 
You have disabled cookies in your browser.
[download]

My LWP::Debug gives me this about the cookies, if that helps:

LWP::Protocol::collect: read 1019 bytes
LWP::Protocol::collect: read 429 bytes
LWP::Protocol::collect: read 1019 bytes
LWP::Protocol::collect: read 255 bytes
HTTP::Cookies::extract_cookies: Set cookie JSESSIONID => 49d3aidt74
LWP::UserAgent::request: Simple response: OK
LWP::UserAgent::request: ()
HTTP::Cookies::add_cookie_header: Checking adwords.google.com for cook
+ies
HTTP::Cookies::add_cookie_header: - checking cookie path=/select
HTTP::Cookies::add_cookie_header:  - checking cookie JSESSIONID=49d3ai
+dt74
HTTP::Cookies::add_cookie_header:    it's a match
HTTP::Cookies::add_cookie_header: Checking .google.com for cookies
HTTP::Cookies::add_cookie_header: Checking google.com for cookies
HTTP::Cookies::add_cookie_header: Checking .com for cookies
LWP::UserAgent::send_request: GET https://adwords.google.com/select/ma
+in?cmd=CampaignManagement&campaignid=0&timeperiod=simple&timeperiod.s
+impletimeperiod=today
LWP::UserAgent::_need_proxy: Not proxied
LWP::Protocol::http::request: ()
LWP::Protocol::collect: read 1019 bytes
LWP::Protocol::collect: read 1648 bytes
HTTP::Cookies::extract_cookies: Set cookie JSESSIONID => 4iwdeedt77
LWP::UserAgent::request: Simple response: OK
[download]

The only thing I can see "unusual" is two different "JSESSIONID" id's, one being set and read, and the other one being set again.
This is my latest code:

#!/usr/lib/perl -w

use strict;

use LWP::UserAgent;
use Crypt::SSLeay;
use HTTP::Request::Common;
use HTTP::Cookies;
use LWP::Simple;
use LWP::Debug qw(+);

my $ua = LWP::UserAgent->new;

$ua->cookie_jar(HTTP::Cookies->new(file => "cookie_jar", autosave => 1
+));
$ua->timeout(500);
   
my $req = POST 'https://adwords.google.com/select/main',
             ['login.userid'       => 'test@test.com', 
              'login.password'     => 'testabc',
              'cmd'             => 'LoginValidation',
              'login'            => 'Login'
             ];

    my $res = $ua->request($req);
 
    unless ($res->is_success) {
        print "Login Failed: : ". $res->status_line .  "\n";
        return 0;
    }

my $b = $res->as_string;

print "\n\n\nThe 1st result is:\n$b\n";

my $req = HTTP::Request->new(GET=>'https://adwords.google.com/select/m
+ain?cmd=CampaignManagement&campaignid=0&timeperiod=simple&timeperiod.
+simpletimeperiod=today');
my $res = $ua->request($req);

my $c = $res->content;

print "\n\n\nThe 2nd result is:\n$c\n";
[download]

Michael Jensen
michael at inshift.com
http://www.inshift.com

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.