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

[sparky]

Author: sparky
Date: Mon Oct 26 01:41:18 2009
New Revision: 10857

Modified:
   toys/rsget.pl/RSGet/Dispatch.pm
Log:
- allow to force number of slots when checking uris


Modified: toys/rsget.pl/RSGet/Dispatch.pm
==============================================================================
--- toys/rsget.pl/RSGet/Dispatch.pm	(original)
+++ toys/rsget.pl/RSGet/Dispatch.pm	Mon Oct 26 01:41:18 2009
@@ -117,9 +117,12 @@
 	my $cmd = shift;
 	my $suggested = shift;
 	my $max = setting( "max_slots" );
-	return $max if $cmd eq "check";
+	if ( $cmd eq "check" ) {
+		return 0 | $1 if defined $suggested and $suggested =~ /^!(\d+)/;
+		return $max;
+	}
 	return 1 unless defined $suggested;
-	if ( $suggested =~ /^\d+$/ ) {
+	if ( $suggested =~ /^!?\d+$/ ) {
 		return $max if $max < $suggested;
 		return 0 | $suggested;
 	}