| 70 |
|
my $type=$url->type(); |
| 71 |
|
$urltypehandler=$self->_typehandler($type); |
| 72 |
|
$url->merge($self->currentbase($type)); |
| 73 |
– |
#print "Attempting download of ".$url->url()."\n"; |
| 73 |
|
|
| 74 |
|
# Generate a location name if not provided |
| 75 |
|
my $nocache=1; |
| 89 |
|
# now register it in the cache if successful |
| 90 |
|
if ( $file ne "" ) { |
| 91 |
|
if ( $file && $nocache) { |
| 93 |
– |
#$self->{cache}->store($url->url(), $location); |
| 92 |
|
$self->{cache}->store($url->url(), $file); |
| 93 |
|
} |
| 94 |
|
} |
| 167 |
|
|
| 168 |
|
$self->checktype($type); |
| 169 |
|
|
| 170 |
< |
# instantiate only if it dosnt already exist; |
| 170 |
> |
# instantiate only if it doesnt already exist; |
| 171 |
|
if ( exists $self->{'urlobjs'}{$type} ) { |
| 172 |
|
$self->{'urlobjs'}{$type}; |
| 173 |
|
} |
