diff --git a/fotostore.pl b/fotostore.pl index 77df8b2..dec749b 100644 --- a/fotostore.pl +++ b/fotostore.pl @@ -10,13 +10,17 @@ use File::Spec 'catfile'; use Cwd; use Imager; +use DBI; +use Digest::SHA; my $config = plugin 'Config'=> {file => 'application.conf'};; my $predefined_user = 'alpha6'; my $predefined_password = $config->{'password'}; -die "No user password defined!" unless($predefined_password); +die 'No user password defined!' unless($predefined_password); + +my $dbh = DBI->connect(sprintf('dbi:SQLite:dbname=%s', $config->{'db_file'}),"",""); # Image base URL my $IMAGE_BASE = 'images'; @@ -219,124 +223,4 @@ sub create_filename { return $name; } -app->start; - -__DATA__ - -@@ error.html.ep - - - - Error - - - <%= $message %> - - - -@@ no_logged.html.ep - - - - Rough, Slow, Stupid, Contrary Photohosting - - -

Rough, Slow, Stupid, Contrary Photohosting

-
-
- - - -
-
- - - -@@ index.html.ep - - - - Rough, Slow, Stupid, Contrary Photohosting - - - - - - - - - - - - - - - - -

Rough, Slow, Stupid, Contrary Photohosting

- <% if (is_user_authenticated()) { %> -
Logout
-
- - - - - - -
-
-
-
- -
-<% foreach my $image (@$images) { %> -
-
-
- Image original - <% for my $scale (@$scales) { %> - <%= $scale %> - <% } %> -
-
- "> -
-
-<% } %> -
- <% } else { %> -
-
- - - -
-
- <% } %> - - - +app->start; \ No newline at end of file diff --git a/sql/deploy/images.sql b/sql/deploy/images.sql new file mode 100644 index 0000000..00b577a --- /dev/null +++ b/sql/deploy/images.sql @@ -0,0 +1,17 @@ +-- Deploy fotostore:images to sqlite + +BEGIN; + +CREATE TABLE images ( + file_id INTEGER PRIMARY KEY AUTOINCREMENT, + owner_id INTEGER NOT NULL, + file_name TEXT NOT NULL, + created_time DATETIME NOT NULL + DEFAULT CURRENT_TIMESTAMP, + FOREIGN KEY ( + owner_id + ) + REFERENCES users (user_id) ON DELETE CASCADE +); + +COMMIT; diff --git a/deploy/users.sql b/sql/deploy/users.sql similarity index 100% rename from deploy/users.sql rename to sql/deploy/users.sql diff --git a/sql/revert/images.sql b/sql/revert/images.sql new file mode 100644 index 0000000..f4eeb8a --- /dev/null +++ b/sql/revert/images.sql @@ -0,0 +1,7 @@ +-- Revert fotostore:images from sqlite + +BEGIN; + +DROP TABLE images; + +COMMIT; diff --git a/revert/users.sql b/sql/revert/users.sql similarity index 100% rename from revert/users.sql rename to sql/revert/users.sql diff --git a/sqitch.conf b/sql/sqitch.conf similarity index 100% rename from sqitch.conf rename to sql/sqitch.conf diff --git a/sqitch.plan b/sql/sqitch.plan similarity index 60% rename from sqitch.plan rename to sql/sqitch.plan index a1fe3fb..686b260 100644 --- a/sqitch.plan +++ b/sql/sqitch.plan @@ -3,3 +3,4 @@ %uri=https://rsscp.ru/ users 2017-07-22T06:53:03Z Denis Fedoseev # Creates table to track our users. +images 2017-07-22T07:17:52Z Denis Fedoseev # Creates table to track users images. diff --git a/sql/verify/images.sql b/sql/verify/images.sql new file mode 100644 index 0000000..0ea514f --- /dev/null +++ b/sql/verify/images.sql @@ -0,0 +1,7 @@ +-- Verify fotostore:images on sqlite + +BEGIN; + +select file_id, owner_id, file_name, created_time from images where 0; + +ROLLBACK; diff --git a/verify/users.sql b/sql/verify/users.sql similarity index 100% rename from verify/users.sql rename to sql/verify/users.sql