From 5a3ab98469ff63bc9c6e151e6d917c54766c43c6 Mon Sep 17 00:00:00 2001
From: Gavan Fantom <gavan@coolfactor.org>
Date: Wed, 9 Feb 2011 19:19:41 +0000
Subject: [PATCH] Remove commented out debug lines

---
 orangelogin.pl | 11 -----------
 1 file changed, 11 deletions(-)

diff --git a/orangelogin.pl b/orangelogin.pl
index dd5d901..be180d2 100755
--- a/orangelogin.pl
+++ b/orangelogin.pl
@@ -74,7 +74,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 +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 {
     my $url, $attempts;
 
@@ -105,7 +97,6 @@ sub follow_processing {
 
         $url =~ s/&amp;/&/g;
 
-#        print "Attempt $attempts. Found URL: $url\n";
 	print "Waiting for processing. Attempt $attempts.\n";
 
         my $newurl = $mech->uri();
@@ -113,8 +104,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";
     }