aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGianni Ceccarelli <gianni.ceccarelli@net-a-porter.com>2013-11-21 09:50:41 +0000
committerGianni Ceccarelli <gianni.ceccarelli@net-a-porter.com>2013-11-21 09:50:41 +0000
commit19c7543ef4bdcc4f19e4cf10d55ffe86344f91c3 (patch)
tree36ede2d9ad770fca6d457fd68fa790b6c36f0abb
parentnew URL after login (diff)
downloadoyster-19c7543ef4bdcc4f19e4cf10d55ffe86344f91c3.tar.gz
oyster-19c7543ef4bdcc4f19e4cf10d55ffe86344f91c3.tar.bz2
oyster-19c7543ef4bdcc4f19e4cf10d55ffe86344f91c3.zip
fixes for newer website layout
-rw-r--r--oyster8
1 files changed, 4 insertions, 4 deletions
diff --git a/oyster b/oyster
index a4d3ec0..b3ccb23 100644
--- a/oyster
+++ b/oyster
@@ -82,7 +82,7 @@ if ($opt->username or $opt->password) {
$username,$password);
}
-my $mech = WWW::Mechanize->new;
+my $mech = WWW::Mechanize->new(ssl_opts=>{verify_hostname=>0});
WWW::Mechanize::TreeBuilder->meta->apply(
$mech,
tree_class => 'HTML::TreeBuilder::XPath',
@@ -90,12 +90,12 @@ WWW::Mechanize::TreeBuilder->meta->apply(
$mech->agent_alias('Linux Mozilla');
progress('logging in');
-$mech->get('https://oyster.tfl.gov.uk/oyster/entry.do');
+$mech->get('https://account.tfl.gov.uk/oyster/login');
$mech->submit_form(
form_name => 'sign-in',
fields => {
- j_username => $username,
- j_password => $password,
+ UserName => $username,
+ Password => $password,
},
);