LibreCat::FileStore::FedoraCommons - A FedoraCommons 3.X implementation of a file storage
use LibreCat::FileStore::FedoraCommons;
my %options = (
url => '...',
user => '...',
password => '...' ,
namespace => 'demo' ,
dsnamespace => 'DS' ,
md5enabled => 1 ,
versionable => 0 ,
purge => 1 ,
);
my $filestore =>LibreCat::FileStore::FedoraCommons->new(%options);
my $generator = $filestore->list;
while (my $key = $generator->()) {
my $container = $filestore->get($key);
for my $file ($container->list) {
my $filename = $file->key;
my $size = $file->size;
my $checksum = $file->md5;
my $created = $file->created;
my $modified = $file->modified;
my $io = $file->data;
}
}
my $container = $filestore->get('1234');
if ($filestore->exists('1234')) {
...
}
my $container = $filestore->add('1235');
$filestore->delete('1234');