/[webpac2]/trunk/lib/WebPAC/Store.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/WebPAC/Store.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 214 by dpavlin, Mon Dec 5 17:46:57 2005 UTC revision 215 by dpavlin, Mon Dec 5 17:47:39 2005 UTC
# Line 5  use strict; Line 5  use strict;
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    
# Line 12  WebPAC::Store - Store normalized data on Line 13  WebPAC::Store - Store normalized data on
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    
# Line 88  sub path { Line 89  sub path {
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) {
Legend:
Removed from v.214  
changed lines
  Added in v.215
  ViewVC Help
Powered by ViewVC 1.1.26