Author: sparky
Date: Fri Oct 9 19:02:36 2009
New Revision: 10742
Modified:
toys/rsget.pl/RSGet/Dispatch.pm
Log:
- no need to treat link services in any special way
Modified: toys/rsget.pl/RSGet/Dispatch.pm
==============================================================================
--- toys/rsget.pl/RSGet/Dispatch.pm (original)
+++ toys/rsget.pl/RSGet/Dispatch.pm Fri Oct 9 19:02:36 2009
@@ -11,12 +11,10 @@
our %downloading;
our %checking;
-our %resolving;
my %working = (
get => \%downloading,
check => \%checking,
- link => \%resolving,
);
my @interfaces;
@@ -114,9 +112,7 @@
my $cmd = shift;
my $suggested = shift;
return setting( "max_slots" ) if $cmd eq "check";
- unless ( defined $suggested ) {
- return $cmd eq "get" ? 1 : 5;
- }
+ return 1 unless defined $suggested;
return 0 + $suggested if $suggested =~ /^\d+$/;
return setting( "max_slots" ) if lc $suggested eq "max";
warn "Invalid slots declaration: $suggested\n" if verbose( 1 );
@@ -127,7 +123,6 @@
{
my ( $cmd, $uri, $getter, $options ) = @_;
my $class = $getter->{class};
- $cmd = "link" if $class eq "Link";
return if $options->{error};
@@ -152,13 +147,9 @@
my $options = shift;
return $options if $options->{error};
- if ( $getter->{class} eq "Link" ) {
- return $options if $options->{link1};
- } else {
- return $options if $options->{size} or $options->{asize};
- return $options if $options->{quality};
- return $options if $options->{link1};
- }
+ return $options if $options->{size} or $options->{asize};
+ return $options if $options->{quality};
+ return $options if $options->{link1};
run( "check", $uri, $getter, $options );
return undef;
@@ -206,7 +197,6 @@
RSGet::Line::status(
'to download' => $to_dl,
'downloading' => scalar keys %downloading,
- 'resolving links' => scalar keys %resolving,
'checking URIs' => scalar keys %checking,
);
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
