| 13 |
|
# expandurl(URLbase) : expand the url to include the given base |
| 14 |
|
# file() : return the filename from the end of the path |
| 15 |
|
# base() : return the basename of the path |
| 16 |
+ |
# fullfile() : return base/file |
| 17 |
|
# param(var) : return the value of a url parameter |
| 18 |
|
# |
| 19 |
|
# -- specialised use methods |
| 85 |
|
} |
| 86 |
|
} |
| 87 |
|
|
| 88 |
+ |
sub fullfile { |
| 89 |
+ |
my $self=shift; |
| 90 |
+ |
return $self->{server} |
| 91 |
+ |
} |
| 92 |
+ |
|
| 93 |
|
sub base { |
| 94 |
|
my $self=shift; |
| 95 |
|
my $base=""; |
| 96 |
|
if ( $self->{server}=~/\// ) { |
| 97 |
< |
($base=$self->{server})=~s/(.*\/).*/$1/; |
| 97 |
> |
($base=$self->{server})=~s/(.*)\/.*/$1/; |
| 98 |
|
} |
| 99 |
|
return $base; |
| 100 |
|
} |
