The unified diff between revisions [9adf8b96..] and [ecd4e292..] 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 [ecd4e29264735a669eb7c177cde4a4afeb3f21dd] # # patch "orangelogin.pl" # from [2116c51f5b6801561d624151199949e68709029e] # to [a1669077494ebc019fea4aa7508d11ee917d3d0b] # ============================================================ --- orangelogin.pl 2116c51f5b6801561d624151199949e68709029e +++ orangelogin.pl a1669077494ebc019fea4aa7508d11ee917d3d0b @@ -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,6 +62,8 @@ $mech->submit_form( } ); +follow_processing(); + print "Following view your bills link\n"; $mech->follow_link( text_regex => qr/view your bills/ );