80 |
|
$self->{cache}=shift; |
81 |
|
$self->urlhandler_(URL::URLhandler->new($self->{cache})); |
82 |
|
} |
83 |
< |
|
83 |
> |
|
84 |
|
return $self->{cache}; |
85 |
|
} |
86 |
|
|
87 |
|
sub expandurl |
88 |
|
{ |
89 |
|
my $self=shift; |
90 |
< |
my $urlstring=shift; |
90 |
> |
my $urlstring=shift; |
91 |
|
return $self->urlhandler_()->expandurl($urlstring); |
92 |
|
} |
93 |
|
|
95 |
|
{ |
96 |
|
my $self=shift; |
97 |
|
my $urlstring=shift; |
98 |
– |
|
98 |
|
my ($fullurl,$filename)=$self->urlhandler_()->download($urlstring, @_); |
99 |
|
|
100 |
|
if ( ( ! defined $filename ) || ( $filename eq "" ) ) |
109 |
|
{ |
110 |
|
my $self=shift; |
111 |
|
my $urlstring=shift; |
113 |
– |
|
112 |
|
my ($fullurl,$filename)=$self->urlhandler_()->get($urlstring, @_); |
113 |
|
|
114 |
|
if ( ( ! defined $filename ) || ( $filename eq "" ) ) |