|
Lines 211-220
sub delete {
Link Here
|
| 211 |
return @res; |
211 |
return @res; |
| 212 |
} |
212 |
} |
| 213 |
|
213 |
|
| 214 |
sub DESTROY { |
214 |
=head1 CLASS METHODS |
| 215 |
} |
|
|
| 216 |
|
| 217 |
# ************** HELPER ROUTINES / CLASS METHODS ****************************** |
| 218 |
|
215 |
|
| 219 |
=head2 getCategories |
216 |
=head2 getCategories |
| 220 |
|
217 |
|
|
Lines 243-249
sub httpheaders {
Link Here
|
| 243 |
); |
240 |
); |
| 244 |
} |
241 |
} |
| 245 |
|
242 |
|
| 246 |
# ************** INTERNAL ROUTINES ******************************************** |
243 |
=head1 INTERNAL ROUTINES |
|
|
244 |
|
| 245 |
=cut |
| 247 |
|
246 |
|
| 248 |
sub _init { |
247 |
sub _init { |
| 249 |
my ( $self, $params ) = @_; |
248 |
my ( $self, $params ) = @_; |
|
Lines 310-318
sub _full_fname {
Link Here
|
| 310 |
my ( $self, $rec ) = @_; |
309 |
my ( $self, $rec ) = @_; |
| 311 |
my $p; |
310 |
my $p; |
| 312 |
if( ref $rec ) { |
311 |
if( ref $rec ) { |
| 313 |
$p= $rec->{permanent}? $self->{rootdir}: $self->{tmpdir}; |
312 |
$p = File::Spec->catfile( |
| 314 |
$p.= '/'; |
313 |
$rec->{permanent}? $self->{rootdir}: $self->{tmpdir}, |
| 315 |
$p.= $rec->{dir}. '/'. $rec->{hashvalue}. '_'. $rec->{filename}; |
314 |
$rec->{dir}, |
|
|
315 |
$rec->{hashvalue}. '_'. $rec->{filename} |
| 316 |
); |
| 316 |
} |
317 |
} |
| 317 |
return $p; |
318 |
return $p; |
| 318 |
} |
319 |
} |