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