# vim:set sw=4 ts=4 sts=4 ft=perl expandtab:

package Lufi::DB::SQLite;

use Mojolicious;

use Mojo::File;

use FindBin qw($Bin);

BEGIN {

    my $m = Mojolicious->new;

    my $cfile = Mojo::File->new($Bin, '..' , 'lufi.conf');

    if (defined $ENV{MOJO_CONFIG}) {

        $cfile = Mojo::File->new($ENV{MOJO_CONFIG});

        unless (-e $cfile->to_abs) {

            $cfile = Mojo::File->new($Bin, '..', $ENV{MOJO_CONFIG});

        }

    }

    our $config = $m->plugin('Config' =>

        {

            file    => $cfile->to_abs->to_string,

            default => {

                db_path => 'lufi.db'

            }

        }

    );

}

# Create database

use ORLite {

      file    => $config->{db_path},

      unicode => 1,

      create  => sub {

          my $dbh = shift;

          $dbh->do(

              'CREATE TABLE files (

               short                 TEXT PRIMARY KEY,

               deleted               INTEGER,

               mediatype             TEXT,

               filename              TEXT,

               filesize              INTEGER,

               counter               INTEGER,

               delete_at_first_view  INTEGER,

               delete_at_day         INTEGER,

               created_at            INTEGER,

               created_by            TEXT,

               last_access_at        INTEGER,

               mod_token             TEXT,

               nbslices              INTEGER,

               complete              INTEGER,

               passwd                TEXT)'

          );

          $dbh->do(

              'CREATE TABLE slices (

               short                 TEXT,

               j                     INTEGER,

               path                  TEXT,

               FOREIGN KEY (short) REFERENCES files(short))'

          );

          $dbh->do(

              'CREATE INDEX slices_idx ON slices(short)'

          );

          return 1;

     }

};

1;