The unified diff between revisions [9adf8b96..] 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 [9adf8b96ba8383cd9998674dcbb8210a6b49b9be] # new_revision [c6590ea4049a7dbadef44db501af16db26b1732c] # # patch "orangelogin.pl" # from [2116c51f5b6801561d624151199949e68709029e] # to [c842620b0b205f19dfb186cba221db0c157e6277] # ============================================================ --- orangelogin.pl 2116c51f5b6801561d624151199949e68709029e +++ orangelogin.pl c842620b0b205f19dfb186cba221db0c157e6277 @@ -28,13 +28,13 @@ $username = $options{'username'}; close CONFIG; $username = $options{'username'}; -die "username not set" unless defined($username); +error("username not set") unless defined($username); $password = $options{'password'}; -die "password not set" unless defined($password); +error("password not set") unless defined($password); $downloaddir = $options{'downloaddir'}; -die "downloaddir not set" unless defined($downloaddir); +error("downloaddir not set") unless defined($downloaddir); print "Fetching homepage\n"; $mech->get("https://www.orange.co.uk/"); @@ -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/ );