Bareword "login" not allowed while "strict subs" in use at (eval 28) line 18.
Bareword "login" not allowed while "strict subs" in use at (eval 28) line 18.
####
HTTP/1.1 200 OK Connection: close Date: Fri, 14 Jun 2002 06:57:47
GMT Server: stronghold apache C2NetEU tomcat/1.0
Content-Type: text/html; charset=UTF-8
Client-Date: Fri, 14 Jun 2002 07:00:46 GMT
Client-Response-Num: 1
Client-SSL-Cert-Issuer: /C=ZA/ST=Western Cape/L=Cape Town/O=Thawte Consulting cc/OU=Certification Services Division/CN=Thawte Server CA/Email=server-certs@thawte.com
Client-SSL-Cert-Subject: /C=US/ST=California/L=Mountain View/O=Google Inc/CN=adwords.google.com
Client-SSL-Cipher: EDH-RSA-DES-CBC3-SHA
Client-SSL-Warning: Peer certificate not verified
Client-Transfer-Encoding: chunked Link: ; rel="stylesheet" Servlet-Engine: Tomcat Web Server/3.2 (final) (JSP 1.1; Servlet 2.2; Java 1.3.1_02; Linux 2.4.18-smp i386; java.vendor=Sun Microsystems Inc.)
Set-Cookie: JSESSIONID=q93xd1cc51;Path=/select
Set-Cookie2: JSESSIONID=q93xd1cc51;Version=1;Discard;Path="/select"
Title: Google Adwords
AdWords Select™ - It's All About Results™ Contact Us - Help
Sorry, we're unable to process this request. There are two possible causes 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.
##
##
#!/usr/lib/perl -w
#use strict;
use LWP::UserAgent;
use Crypt::SSLeay;
use HTTP::Request::Common;
use HTTP::Cookies;
use LWP::Simple;
my $ua = LWP::UserAgent->new;
$ua->cookie_jar(HTTP::Cookies->new(file => 'cookie_jar', autosave =>1));
push @{ $ua->requests_redirectable }, 'POST';
my $request = $ua->request(POST "https://adwords.google.com/select/main",
{
login.userid => 'test@test.com',
login.password => 'testabc',
cmd => 'LoginValidation',
login => 'Login',
});
$b = $request->as_string;
print "$b\n";