119 |
|
return ($fullurl,$filename); |
120 |
|
} |
121 |
|
|
122 |
+ |
sub setbaseurl() |
123 |
+ |
{ |
124 |
+ |
my $self=shift; |
125 |
+ |
my ($partialurl)=@_; |
126 |
+ |
return $self->urlhandler_()->setbase($partialurl); |
127 |
+ |
} |
128 |
+ |
|
129 |
+ |
sub unsetbaseurl() |
130 |
+ |
{ |
131 |
+ |
my $self=shift; |
132 |
+ |
my ($type)=@_; |
133 |
+ |
$self->urlhandler_()->unsetbase($type); |
134 |
+ |
} |
135 |
+ |
|
136 |
|
sub urlhandler_() |
137 |
|
{ |
138 |
|
my $self=shift; |
140 |
|
: $self->{urlhandler}; |
141 |
|
} |
142 |
|
|
143 |
+ |
sub parseerror() |
144 |
+ |
{ |
145 |
+ |
my $self=shift; |
146 |
+ |
my ($string)=@_; |
147 |
+ |
die "Error in download: ",$string,"\n"; |
148 |
+ |
} |
149 |
+ |
|
150 |
|
1; |
151 |
|
|
152 |
|
=back |