13 |
index_path |
index_path |
14 |
)); |
)); |
15 |
|
|
16 |
use File::Path qw/make_path/; |
use File::Path qw/mkpath/; |
17 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
18 |
use YAML; |
use YAML; |
19 |
use JSON; |
use JSON; |
63 |
|
|
64 |
my $database = $self->database || $log->logdie("need database"); |
my $database = $self->database || $log->logdie("need database"); |
65 |
|
|
66 |
make_path $dir if ! -e $dir; |
mkpath $dir if ! -e $dir; |
67 |
|
|
68 |
my $path = "$dir/$database.conf"; |
my $path = "$dir/$database.conf"; |
69 |
|
|
181 |
print $fh "Path-Name: $uri\nContent-Length: $len\nDocument-Type: XML\n\n$xml" or |
print $fh "Path-Name: $uri\nContent-Length: $len\nDocument-Type: XML\n\n$xml" or |
182 |
die "can't add $uri: $@\n$xml"; |
die "can't add $uri: $@\n$xml"; |
183 |
|
|
184 |
warn "$xml\n"; |
# warn "$xml\n"; |
185 |
|
|
186 |
return 1; |
return 1; |
187 |
} |
} |