SVN: toys/rsget.pl/RSGet/Get.pm

[sparky]

Author: sparky
Date: Sat Jul 10 00:25:21 2010
New Revision: 11641

Modified:
   toys/rsget.pl/RSGet/Get.pm
Log:
- if problem appears too many times delay the uri for 15min instead of
  returning an error


Modified: toys/rsget.pl/RSGet/Get.pm
==============================================================================
--- toys/rsget.pl/RSGet/Get.pm	(original)
+++ toys/rsget.pl/RSGet/Get.pm	Sat Jul 10 00:25:21 2010
@@ -319,12 +319,14 @@
 	my $self = shift;
 	my $line = shift;
 	my $msg = $line ? "problem at line: $line" : "unknown problem";
-	my $retry = 8;
+	my $retry = 6;
 	$retry = 3 if $self->{_cmd} eq "check";
 	if ( ++$self->{_try} < $retry ) {
 		return $self->wait( \&start, -2 ** $self->{_try}, $msg, "problem" );
-	} else {
+	} elsif ( $self->{_cmd} eq "check" ) {
 		return $self->error( $msg . ", aborting" );
+	} else {
+		return $self->delay( 15 * 60, $msg );
 	}
 }