Revision 011e7aeb
Von Bernd Bleßmann vor etwa 3 Jahren hinzugefügt
| SL/File/Backend/Webdav.pm | ||
|---|---|---|
| 5 | 5 |
use parent qw(SL::File::Backend); |
| 6 | 6 |
use SL::DB::File; |
| 7 | 7 |
|
| 8 |
#use SL::Webdav; |
|
| 8 |
use SL::System::Process; |
|
| 9 |
use SL::Webdav; |
|
| 9 | 10 |
use File::Copy; |
| 10 | 11 |
use File::Slurp; |
| 11 | 12 |
use File::Basename; |
| ... | ... | |
| 205 | 206 |
return (File::Spec->catfile($path, $fname), $path, $fname); |
| 206 | 207 |
} |
| 207 | 208 |
|
| 208 |
sub get_rootdir {
|
|
| 209 |
my ($self) = @_; |
|
| 210 |
|
|
| 211 |
#TODO immer noch das alte Problem: |
|
| 212 |
#je nachdem von woher der Aufruf kommt ist man in ./users oder . |
|
| 213 |
my $rootdir = POSIX::getcwd(); |
|
| 214 |
my $basename = basename($rootdir); |
|
| 215 |
my $dirname = dirname($rootdir); |
|
| 216 |
$rootdir = $dirname if $basename eq 'users'; |
|
| 217 |
return $rootdir; |
|
| 218 |
} |
|
| 209 |
sub get_rootdir { SL::System::Process::exe_dir() }
|
|
| 219 | 210 |
|
| 220 | 211 |
sub _get_number_from_model {
|
| 221 | 212 |
my ($self, $dbfile) = @_; |
| ... | ... | |
| 345 | 336 |
Martin Helmling E<lt>martin.helmling@opendynamic.deE<gt> |
| 346 | 337 |
|
| 347 | 338 |
=cut |
| 348 |
|
|
| 349 |
|
|
Auch abrufbar als: Unified diff
DMS: Webdav-Backend: Root-Pfad nicht erraten, sondern holen