| 153 |
|
use File::Copy; |
| 154 |
|
my $urlfile=shift; |
| 155 |
|
my $filename=shift; |
| 156 |
+ |
|
| 157 |
+ |
if ( $self->{filebase} ne "" ) { # add a base if it exists |
| 158 |
+ |
$urlfile=$self->{filebase}."/".$urlfile; |
| 159 |
+ |
} |
| 160 |
|
if ( -e "$urlfile" ) { |
| 161 |
< |
if ( $filename=~/.*/ ) { |
| 161 |
> |
if ( $filename ne "" ) { |
| 162 |
|
copy ( $urlfile, $filename ) || return $urlfile; |
| 163 |
|
return $filename; |
| 164 |
|
} |
| 170 |
|
} |
| 171 |
|
} |
| 172 |
|
|
| 173 |
+ |
# |
| 174 |
+ |
# |
| 175 |
+ |
# |
| 176 |
|
sub file_setbase { |
| 177 |
|
my $self=shift; |
| 178 |
+ |
my $filebase=shift; |
| 179 |
+ |
|
| 180 |
+ |
if ( -d $filebase ) { |
| 181 |
+ |
$self->{filebase}=$filebase; |
| 182 |
+ |
push @{$self->{filebasestack}}, $self->{filebase}; |
| 183 |
+ |
} |
| 184 |
+ |
else { |
| 185 |
+ |
die "Directory Does Not Exist \n"; |
| 186 |
+ |
} |
| 187 |
|
} |
| 188 |
|
|
| 189 |
|
sub file_unsetbase { |
| 190 |
|
my $self=shift; |
| 191 |
+ |
pop @{$self->{filebasestack}}; |
| 192 |
+ |
$self->{filebase}=@{$self->{filebasestack}} |
| 193 |
+ |
[$#{$self->{filebasestack}}]; |
| 194 |
|
} |
| 195 |
|
|
| 196 |
|
# |
