NAME

dbedia::blob - interface to (not only) b.dbedia.com blob storage

SYNOPSIS

    use dbedia::blob;

    my $blob = dbedia::blob->new(file => $file);
    say $blob->file_path;
    say $blob->file_url;
    say $blob->file_meta->{mime_type};
    say $blob->file_meta_yaml;

    $blob->upload;

DESCRIPTION

Module to upload files to blob server with their sha256 checksum as a part of their name. So for example swagger-ui.js becomes https://b.dbedia.com/e3d4e875f9d0b751bc7276e6472e96a5262cabc64b060540da190bfdc0e36dec/swagger-ui.js and will be stored under e3/d4/e8/75f9d0b751bc7276e6472e96a5262cabc64b060540da190bfdc0e36dec on a target server.

METHODS

new(file => ..., base_uri => ...)

Object constructor

file

Object accessor with file location on local filesystem.

base_uri

Object accessor with base location on blob server. Default to https://b.dbedia.com/ but can be anything like http://you-server/blob-path/.

file_chksum

file sha256 hex checksum.

file_url

Web url for a file based on the checksum and base_uri.

file_path

File path on a blob server.

file_meta

Return file meta has with original filename, mime_type and size. For example:

    {   filename  => 'swagger-ui.js',
        mime_type => 'application/javascript',
        size      => 355197,
    }

file_meta_yaml

Returns "file_meta" yaml.

file_meta_path

File meta data (yaml) path on a blob server.

upload($hostname)

Using Net::SCP will upload "file" to $hostname server. Default is dbedia-blob which can be configured in ~/.ssh/config to point to any hostname/username/auth configuration of your liking.

In case file is already present will print warning about skipping.

default_base_uri

Returns https://b.dbedia.com/ uri.

EXAMPLE NGINX CONFIG

configuration to serve blobs via nginx:

    server {
        server_name  b.dbedia.com;

        access_log /var/log/nginx/b.dbedia-access.log;

        root   /srv/www/b.dbedia.com;
        index  index.html index.htm;

        location / {
            expires 5m;
        }
        location ~ "^(/..)(..)(..)(.{58})(.*)$" {
            alias /srv/www/b.dbedia.com/$1/$2/$3/$4;
            expires 24h;
        }
    }

CONTRIBUTORS

The following people have contributed to the Sys::Path by committing their code, sending patches, reporting bugs, asking questions, suggesting useful advice, nitpicking, chatting on IRC or commenting on my blog (in no particular order):

    you?

AUTHOR

Jozef Kutej

LICENSE AND COPYRIGHT

This program is free software; you can redistribute it and/or modify it under the terms of either: the GNU General Public License as published by the Free Software Foundation; or the Artistic License.

See http://dev.perl.org/licenses/ for more information.