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 );
}
}
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
