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/ );