Просмотр исходного кода

A bit more debug and delay by default

Zachary Kotlarek 11 лет назад
Родитель
Сommit
a3d90be04d
1 измененных файлов с 4 добавлено и 1 удалено
  1. 4 1
      findTorrent.pl

+ 4 - 1
findTorrent.pl

@@ -28,7 +28,7 @@ my $SEED_RATIO_COUNT = 10;
 my $TRACKER_LOOKUP   = 1;
 my $TRACKER_LOOKUP   = 1;
 
 
 # App config
 # App config
-my $DELAY         = 4;
+my $DELAY         = 10;
 my $TIMEOUT       = 15;
 my $TIMEOUT       = 15;
 my $ERR_DELAY     = $TIMEOUT * 2;
 my $ERR_DELAY     = $TIMEOUT * 2;
 my $ERR_RETRIES   = 3;
 my $ERR_RETRIES   = 3;
@@ -1404,6 +1404,9 @@ sub findProxy($$) {
 			last;
 			last;
 		} elsif ($DEBUG) {
 		} elsif ($DEBUG) {
 			print STDERR 'Proxy not available: ' . $host . "\n";
 			print STDERR 'Proxy not available: ' . $host . "\n";
+			if ($DEBUG > 1) {
+				print STDERR $fetch->content() . "\n";
+			}
 		}
 		}
 	}
 	}