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