The unified diff between revisions [9eeb88a3..] and [c6590ea4..] is displayed below. It can also be downloaded as a raw diff.
This diff has been restricted to the following files: 'orangelogin.pl'
# # old_revision [9eeb88a332c3478da83dc4c56e77bff12f9d4e74] # new_revision [c6590ea4049a7dbadef44db501af16db26b1732c] # # patch "orangelogin.pl" # from [f8a25254f258fcb8a3de0948fe3815aa6bb4200d] # to [c842620b0b205f19dfb186cba221db0c157e6277] # ============================================================ --- orangelogin.pl f8a25254f258fcb8a3de0948fe3815aa6bb4200d +++ orangelogin.pl c842620b0b205f19dfb186cba221db0c157e6277 @@ -46,8 +46,8 @@ $mech->submit_form( $mech->submit_form( form_number => 1, fields => { - txtMSISDN => $username, - txtPassword => $password, + LOGIN => $username, + PASSWORD => $password, } ); @@ -62,10 +62,12 @@ $mech->submit_form( } ); -print "Following view your bills link\n"; +follow_processing(); -$mech->follow_link( text_regex => qr/view your bills/ ); +print "Following see your recent bills link\n"; +$mech->follow_link( text_regex => qr/see your recent bills/ ); + follow_processing(); my @links = $mech->find_all_links( text_regex => qr/download PDF/ );