r11528@llin: dpavlin | 2005-12-05 02:30:12 +0100

 create database path if not called with read_only parametar (instead of
 disabling cache) [0.04]

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@215 07558da8-63fa-0310-ba24-9fe276d99e06

diff --git a/Makefile.PL b/Makefile.PL
index 83f1476..fca110f 100644 (file)
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -25,6 +25,7 @@ WriteMakefile(
        'List::Util' => 0,
        'URI::Escape' => 0,
        'LWP' => 0,
+       'File::Path' => 0,
     },
     dist                => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
     clean               => { FILES => 'WebPAC-* pod2html Makefile tags' },

diff --git a/lib/WebPAC/Store.pm b/lib/WebPAC/Store.pm
index 9ac11a3..b78a05b 100644 (file)
--- a/lib/WebPAC/Store.pm
+++ b/lib/WebPAC/Store.pm
@@ -5,6 +5,7 @@ use strict;
 
 use base 'WebPAC::Common';
 use Storable;
+use File::Path;
 
 =head1 NAME
 
@@ -12,11 +13,11 @@ WebPAC::Store - Store normalized data on disk
 
 =head1 VERSION
 
-Version 0.03
+Version 0.04
 
 =cut
 
-our $VERSION = '0.03';
+our $VERSION = '0.04';
 
 =head1 SYNOPSIS
 
@@ -88,7 +89,12 @@ sub path {
        if ($dir) {
                my $msg;
                if (! -e $dir) {
-                       $msg = "doesn't exist";
+                       if ($self->{'read_only'}) {
+                               $msg = "doesn't exist";
+                       } else {
+                               $log->info("creating $dir");
+                               mkpath $dir;
+                       }
                } elsif (! -d $dir) {
                        $msg = "is not directory";
                } elsif (! -w $dir) {