5 |
|
|
6 |
use base 'WebPAC::Common'; |
use base 'WebPAC::Common'; |
7 |
use Storable; |
use Storable; |
8 |
|
use File::Path; |
9 |
|
|
10 |
=head1 NAME |
=head1 NAME |
11 |
|
|
13 |
|
|
14 |
=head1 VERSION |
=head1 VERSION |
15 |
|
|
16 |
Version 0.03 |
Version 0.04 |
17 |
|
|
18 |
=cut |
=cut |
19 |
|
|
20 |
our $VERSION = '0.03'; |
our $VERSION = '0.04'; |
21 |
|
|
22 |
=head1 SYNOPSIS |
=head1 SYNOPSIS |
23 |
|
|
89 |
if ($dir) { |
if ($dir) { |
90 |
my $msg; |
my $msg; |
91 |
if (! -e $dir) { |
if (! -e $dir) { |
92 |
$msg = "doesn't exist"; |
if ($self->{'read_only'}) { |
93 |
|
$msg = "doesn't exist"; |
94 |
|
} else { |
95 |
|
$log->info("creating $dir"); |
96 |
|
mkpath $dir; |
97 |
|
} |
98 |
} elsif (! -d $dir) { |
} elsif (! -d $dir) { |
99 |
$msg = "is not directory"; |
$msg = "is not directory"; |
100 |
} elsif (! -w $dir) { |
} elsif (! -w $dir) { |