diff options
-rw-r--r-- | oyster | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -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, }, ); |