The unified diff between revisions [9adf8b96..] and [5a1c6048..] 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 [5a1c604855318af35b81e455fbf0958de3720221] # # patch "orangelogin.pl" # from [2116c51f5b6801561d624151199949e68709029e] # to [d40a1d09f97fd73db324c3da05a9d53fac747027] # ============================================================ --- orangelogin.pl 2116c51f5b6801561d624151199949e68709029e +++ orangelogin.pl d40a1d09f97fd73db324c3da05a9d53fac747027 @@ -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/"); @@ -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/ );