coolfactor/orange-scraping
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Remove commented out debug lines

Browse Source
This commit is contained in:
Gavan Fantom
2011-02-09 19:19:41 +00:00
parent e116955e5c
commit 5a3ab98469
1 changed files with 0 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
orangelogin.pl
View File

@@ -74,7 +74,6 @@ for $link (@links) {
my ($invoice) = $url =~ /leg_invoice=(\d+)/; my ($invoice) = $url =~ /leg_invoice=(\d+)/;
my $filename = $downloaddir . '/' . $invoice . ".pdf"; my $filename = $downloaddir . '/' . $invoice . ".pdf";
unless (-e $filename) { unless (-e $filename) {
# print "Downloading invoice $invoice to $filename from $url\n";
print "Downloading invoice $invoice to $filename\n"; print "Downloading invoice $invoice to $filename\n";
downloadbill($url, $filename); downloadbill($url, $filename);
#$mech->mirror($url, $filename); #$mech->mirror($url, $filename);
@@ -83,13 +82,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 { sub follow_processing {
my $url, $attempts; my $url, $attempts;
@@ -105,7 +97,6 @@ sub follow_processing {
$url =~ s/&/&/g; $url =~ s/&/&/g;
# print "Attempt $attempts. Found URL: $url\n";
print "Waiting for processing. Attempt $attempts.\n"; print "Waiting for processing. Attempt $attempts.\n";
my $newurl = $mech->uri(); my $newurl = $mech->uri();
@@ -113,8 +104,6 @@ sub follow_processing {
$newurl =~ s/\/[^\/]*$//; $newurl =~ s/\/[^\/]*$//;
$newurl = $newurl . "/" . $url; $newurl = $newurl . "/" . $url;
# print "I think I'm going to $newurl\n";
$mech->get($newurl); $mech->get($newurl);
print "Processing finished.\n"; print "Processing finished.\n";
} }