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

[sparky]

Author: sparky
Date: Sat Jul 10 02:03:20 2010
New Revision: 11644

Modified:
   toys/rsget.pl/RSGet/Get.pm
Log:
- increase delay time each time delay is called


Modified: toys/rsget.pl/RSGet/Get.pm
==============================================================================
--- toys/rsget.pl/RSGet/Get.pm	(original)
+++ toys/rsget.pl/RSGet/Get.pm	Sat Jul 10 02:03:20 2010
@@ -269,12 +269,12 @@
 	my $self = shift;
 	my $time = shift;
 	my $msg = shift;
-	$time = abs $time;
+	$time = ( $self->{_opts}->{delay_last} || 0 ) + abs $time;
 	my $until = $time + time;
 	$msg = "Delayed until " . localtime( $until ) . ": " . $msg;
 
 	$self->print( $msg ) || $self->log( $msg );
-	RSGet::FileList::save( $self->{_uri}, options => { delay => $until, error => $msg } );
+	RSGet::FileList::save( $self->{_uri}, options => { delay => $until, error => $msg, delay_last => $time } );
 	RSGet::Dispatch::finished( $self );
 }
 
@@ -290,7 +290,7 @@
 	}
 
 	RSGet::Dispatch::mark_used( $self );
-	RSGet::FileList::save( $self->{_uri}, cmd => "DONE" );
+	RSGet::FileList::save( $self->{_uri}, cmd => "DONE", options => { delay_last => undef } );
 	RSGet::Dispatch::finished( $self );
 }
 
@@ -326,7 +326,7 @@
 	} elsif ( $self->{_cmd} eq "check" ) {
 		return $self->error( $msg . ", aborting" );
 	} else {
-		return $self->delay( 15 * 60, $msg );
+		return $self->delay( 10 * 60, $msg );
 	}
 }