The unified diff between revisions [de4db4df..] 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 [de4db4dfdb5b06db3036c818377dc60413897099] # new_revision [5a1c604855318af35b81e455fbf0958de3720221] # # patch "orangelogin.pl" # from [5c2b702d6898933698a423b082a2864756f9737e] # to [d40a1d09f97fd73db324c3da05a9d53fac747027] # ============================================================ --- orangelogin.pl 5c2b702d6898933698a423b082a2864756f9737e +++ 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/ ); @@ -74,7 +76,6 @@ for $link (@links) { my ($invoice) = $url =~ /leg_invoice=(\d+)/; my $filename = $downloaddir . '/' . $invoice . ".pdf"; unless (-e $filename) { -# print "Downloading invoice $invoice to $filename from $url\n"; print "Downloading invoice $invoice to $filename\n"; downloadbill($url, $filename); #$mech->mirror($url, $filename); @@ -83,13 +84,6 @@ for $link (@links) { } } -#$mech->follow_link( text_regex => qr/log out/ ); - -#print $mech->content(); - -#$mech->dump_forms( undef, $absolute ); -#$mech->dump_links( undef, $absolute ); - sub follow_processing { my $url, $attempts; @@ -105,7 +99,6 @@ sub follow_processing { $url =~ s/&/&/g; -# print "Attempt $attempts. Found URL: $url\n"; print "Waiting for processing. Attempt $attempts.\n"; my $newurl = $mech->uri(); @@ -113,8 +106,6 @@ sub follow_processing { $newurl =~ s/\/[^\/]*$//; $newurl = $newurl . "/" . $url; -# print "I think I'm going to $newurl\n"; - $mech->get($newurl); print "Processing finished.\n"; }