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

[sparky]

Author: sparky
Date: Sat Jun 19 18:23:41 2010
New Revision: 11567

Modified:
   toys/rsget.pl/RSGet/FileList.pm
Log:
- more list processors


Modified: toys/rsget.pl/RSGet/FileList.pm
==============================================================================
--- toys/rsget.pl/RSGet/FileList.pm	(original)
+++ toys/rsget.pl/RSGet/FileList.pm	Sat Jun 19 18:23:41 2010
@@ -130,9 +130,26 @@
 		$_[0] = "STOP" if $_[0] eq "GET";
 	},
 	"Stop inactive GET" => \&proc_stop_inactive_get,
-	"Remove all error" => sub {
+	"Restart errors" => sub {
+		my $cleared = 0;
 		foreach my $data ( values %{$_[2]} ) {
-			delete $data->[1]->{error};
+			if ( $data->[1]->{error} and $data->[1]->{error} ne "disabled" ) {
+				delete $data->[1]->{error};
+				$cleared = 1;
+			}
+		}
+		$_[0] = "GET" if $cleared and $_[0] eq "STOP";
+	},
+	"Clear errors" => sub {
+		foreach my $data ( values %{$_[2]} ) {
+			delete $data->[1]->{error}
+				if ( $data->[1]->{error} || "" ) ne "disabled"
+		}
+	},
+	"Clear disabled" => sub {
+		foreach my $data ( values %{$_[2]} ) {
+			delete $data->[1]->{error}
+				if ( $data->[1]->{error} || "" ) eq "disabled"
 		}
 	},
 );