medvedych/fotostore
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

saving exif metadata

Browse source
This commit is contained in:
Denis Fedoseev 2018-09-09 16:56:33 +03:00
parent 3d3e83d1d8
commit 8ff6d351c4
9 changed files with 168 additions and 91 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

62
fotostore.pl
View file

@ -166,15 +166,15 @@ get '/get_images' => ( authenticated => 1 ) => sub {
File::Spec->catfile( $IMAGE_DIR, $current_user->{'user_id'},
$thumbs_size );
my @images = map { $_->{'file_name'} } @$files_list;
my @images = map { $_->file_name } @$files_list;
my $images = [];
for my $img_item (@$files_list) {
my $file = $img_item->{'file_name'};
my $file = $img_item->file_name;
my $img_hash = {};
$img_hash->{'id'} = $img_item->{'file_id'};
$img_hash->{'filename'} = $img_item->{'original_filename'};
$img_hash->{'id'} = $img_item->file_id;
$img_hash->{'filename'} = $img_item->original_filename;
$img_hash->{'original_url'} =
File::Spec->catfile( '/', $IMAGE_BASE, $current_user->{'user_id'},
$ORIG_DIR, $file );
@ -196,7 +196,6 @@ get '/get_images' => ( authenticated => 1 ) => sub {
}
);
}
}
$img_hash->{'scales'} = \@scaled;
@ -257,11 +256,17 @@ post '/upload' => ( authenticated => 1 ) => sub {
# Save to file
$image->move_to($image_file);
my $imager = Imager->new();
$imager->read( file => $image_file ) or die $imager->errstr;
my $promise = store_image($image_file, $image->filename, $user_id);
my $promise = store_image($imager , $filename, $image->filename, $user_id);
#TODO: add errors handling
Mojo::Promise->all($promise)->then(sub {
$log->debug(Dumper(\@_));
my $res = shift;
save_tags($imager, $res->[1]);
$self->render(
json => {
files => [
@ -278,6 +283,21 @@ post '/upload' => ( authenticated => 1 ) => sub {
} => 'upload';
post '/album' => ( authenticated => 1 ) => sub {
my $self = shift;
my $user_id = $self->current_user()->{'user_id'};
my $album_name = $self->req->param('album_name');
my $album_desc = $self->req->param('album_desc') || '';
my $album = $db->add_album($user_id, $album_name, $album_desc);
$self->render(
json => { album_id => $album->album_id,
album_name => $album->album_name
}
)
};
sub create_hash {
my $data_to_hash = shift;
@ -295,7 +315,8 @@ sub get_path {
}
sub store_image {
my $image_file = shift;
my $imager = shift;
my $filename = shift;
my $original_filename = shift;
my $user_id = shift;
@ -303,12 +324,6 @@ sub store_image {
# Process and store uploaded file in a separate process
Mojo::IOLoop->subprocess(
sub {
my $subprocess = shift;
my $filename = fileparse($image_file);
my $imager = Imager->new();
$imager->read( file => $image_file ) or die $imager->errstr;
#http://sylvana.net/jpegcrop/exif_orientation.html
#http://myjaphoo.de/docs/exifidentifiers.html
my $rotation_angle = $imager->tags( name => "exif_orientation" ) || 1;
@ -338,13 +353,14 @@ sub store_image {
or die $scaled->errstr;
}
if ( !$db->add_file( $user_id, $filename, $original_filename ) ) {
my $file_info = $db->add_file( $user_id, $filename, $original_filename );
if ( !defined $file_info ) {
$log->error(sprintf('Can\'t save file %s', $filename));
die sprintf('Can\'t save file %s', $filename);
}
return $filename;
return $file_info->file_id;
},
sub {
my ($subprocess, $err, @results) = @_;
@ -357,5 +373,19 @@ sub store_image {
return $promise;
}
sub save_tags {
my $image = shift;
my $db_file_id = shift;
# $log->debug(Dumper($image->tags()));
my @tags = $image->tags();
# $log->debug(Dumper(\@tags));
for my $tag (@tags) {
$log->debug(sprintf("tag: [%s] [%s]", $tag->[0], $tag->[1]));
my $row = $db->save_tag($db_file_id, $tag->[0], $tag->[1]);
# $log->debug(Dumper($row));
}
}
Mojo::IOLoop->start;
app->start;

74
lib/FotoStore/DB.pm
View file

@ -4,24 +4,30 @@ use v5.20;
use strict;
use warnings;
use feature qw(signatures);
use feature qw(signatures say);
no warnings qw(experimental::signatures);
use Data::Dumper;
use DBIx::Struct;
sub new {
my $class = shift;
my $db_file = shift;
my $dbh = DBI->connect(sprintf('dbi:SQLite:dbname=%s', $db_file),"","");
my $dbix = DBIx::Struct::connect(sprintf('dbi:SQLite:dbname=%s', $db_file),"","");
my $self = {
dbh => $dbh,
dbix_connector => $dbix,
};
bless $self, $class;
return $self;
}
sub check_user ($self, $nickname, $password) {
my ($user_id) = $self->{'dbh'}->selectrow_array(q~select user_id from users where nickname=? and password=?~, undef, ($nickname, $password));
return $user_id;
my $row = one_row('users', { nickname => $nickname, password => $password });
return $row->user_id;
}
sub get_user ($self, $user_id) {
@ -33,31 +39,31 @@ sub get_user ($self, $user_id) {
}
sub _get_user_by_user_id ($self, $user_id) {
my $user_data = $self->{'dbh'}->selectrow_hashref(q~select user_id, nickname, fullname, timestamp from users where user_id=?~, {}, ($user_id));
return $user_data;
my $row = one_row('users', {user_id => $user_id}) || return {};
return {user_id => $row->user_id, nickname => $row->nickname, fullname => $row->fullname, timestamp => $row->timestamp};
}
sub _get_user_by_username($self, $username) {
my $user_data = $self->{'dbh'}->selectrow_hashref(q~select user_id, nickname, fullname, timestamp from users where nickname=?~, {}, ($username));
return $user_data;
my $row = one_row('users', {nickname => $username}) || return {};
return {user_id => $row->user_id, nickname => $row->nickname, fullname => $row->fullname, timestamp => $row->timestamp};
}
sub add_user($self, $username, $password, $fullname) {
my $rows = $self->{'dbh'}->do(q~insert into users (nickname, password, fullname) values (?, ?, ?)~, undef, ($username, $password, $fullname));
if ($self->{'dbh'}->errstr) {
die $self->{'dbh'}->errstr;
}
return $rows;
my $row = new_row('users', nickname => $username, password => $password, fullname => $fullname);
return $row;
}
sub add_file($self, $user_id, $filename, $original_filename) {
my $rows = $self->{'dbh'}->do(q~insert into images (owner_id, file_name, original_filename) values (?, ?, ?)~, undef, ($user_id, $filename, $original_filename));
if ($self->{'dbh'}->errstr) {
die $self->{'dbh'}->errstr;
}
return $rows;
my $row = new_row('images',
owner_id => $user_id,
file_name => $filename,
original_filename => $original_filename
);
return $row;
}
sub get_files($self, $user_id, $items_count=20, $page=1) {
@ -67,10 +73,36 @@ sub get_files($self, $user_id, $items_count=20, $page=1) {
$page = 1 if ($page < 1);
my $start_at = --$page * $items_count;
my ($rows_count) = $self->{'dbh'}->selectrow_array(q~select count(*) from images where owner_id=? ~, undef , $user_id);
my $images_list = $self->{'dbh'}->selectall_arrayref(q~select * from images where owner_id=? order by created_time desc LIMIT ? OFFSET ? ~, { Slice => {} }, $user_id, $items_count, $start_at );
# my ($rows_count) = $self->{'dbh'}->selectrow_array(q~select count(*) from images where owner_id=? ~, undef , $user_id);
my $rows_count = one_row(['images' => -count => 'file_id', -where => { 'owner_id' => $user_id}] );
# my $images_list = $self->{'dbh'}->selectall_arrayref(q~select * from images where owner_id=? order by created_time desc LIMIT ? OFFSET ? ~, { Slice => {} }, $user_id, $items_count, $start_at );
my $images_list = all_rows([
'images' =>
-where => { 'owner_id' => $user_id },
-limit => $items_count,
-offset => $start_at
]);
return { total_rows => $rows_count, images_list => $images_list };
}
sub add_album($self, $user_id, $album_name, $album_desc) {
my $row = new_row('albums', name => $album_name, description => $album_desc, owner_id => $user_id);
return $row;
}
sub save_tag($self, $db_file_id, $tag_name, $tag_value) {
say STDERR ("[$db_file_id][$tag_name][$tag_value]");
eval {
my $row = new_row('exif_data', 'exif_tag' => $tag_name, 'tag_data' => $tag_value,'image_id' => $db_file_id, deleted => 0) || die "error!";
say STDERR (Dumper($row));
return $row;
};
if ($@) {
say STDERR ("Error! $@");
}
}
1;

4
sql/deploy/albums.sql
View file

@ -2,7 +2,7 @@
BEGIN;
CREATE TABLE "albums" (
CREATE TABLE `albums` (
`album_id` INTEGER PRIMARY KEY AUTOINCREMENT,
`name` STRING NOT NULL,
`description` TEXT,
@ -10,6 +10,6 @@ CREATE TABLE "albums" (
`modified` DATETIME DEFAULT (CURRENT_TIMESTAMP),
`deleted` BOOLEAN,
`owner_id` INTEGER NOT NULL
)
);
COMMIT;

6
sql/deploy/exif_data.sql
View file

@ -3,11 +3,11 @@
BEGIN;
CREATE TABLE `exif_data` (
`record_id` INTEGER NOT NULL PRIMARY KEY AUTOINCREMENT,
`record_id` INTEGER PRIMARY KEY AUTOINCREMENT,
`exif_tag` TEXT NOT NULL,
`tag_data` TEXT NOT NULL,
`image_id` INTEGER,
`deleted` BOOLEAN
`image_id` INTEGER NOT NULL,
`deleted` BOOLEAN DEFAULT 0
);
COMMIT;

5
sql/revert/images@v1.0.0.sql Normal file
View file

@ -0,0 +1,5 @@
BEGIN;
DROP TABLE images;
COMMIT;

2
sql/sqitch.plan
View file

@ -11,3 +11,5 @@ user_albums [users albums] 2017-07-22T09:47:48Z Denis Fedoseev <denis.fedoseev@g
@v1.0.0 2017-08-02T03:46:51Z Denis Fedoseev <denis.fedoseev@gmail.com> # Tag v1.0.0.
images [images@v1.0.0] 2017-08-02T03:55:08Z Denis Fedoseev <denis.fedoseev@gmail.com> # Adds images.original_filename.
@v1.1.0 2017-08-02T04:46:42Z Denis Fedoseev <denis.fedoseev@gmail.com> # Tag v1.1.0.
exif_data 2018-08-19T08:04:49Z Denis Fedoseev <denis.fedoseev@gmail.com> # exif data table

7
sql/verify/images@v1.0.0.sql Normal file
View file

@ -0,0 +1,7 @@
-- Verify fotostore:images on sqlite
BEGIN;
select file_id, owner_id, file_name, created_time from images where 0;
ROLLBACK;

43
templates/includes/images_list.html.ep
View file

@ -5,26 +5,7 @@
<script src="/file_uploader/js/vendor/jquery.ui.widget.js"></script>
<script src="/file_uploader/js/jquery.iframe-transport.js"></script>
<script src="/file_uploader/js/jquery.fileupload.js"></script>
<script>
$(function () {
$('#fileupload').fileupload({
dataType: 'json',
done: function (e, data) {
$.each(data.result.files, function (index, file) {
$('<p/>').text(file.name).appendTo('#lastUploadLog');
});
},
sequentialUploads: true,
progressall: function (e, data) {
var progress = parseInt(data.loaded / data.total * 100, 10);
$('#progress .progress-bar').css(
'width',
progress + '%'
);
}
});
});
</script>
<div id="progress" class="container">
<div class="progress-bar" style="width: 0%;"></div>
@ -109,7 +90,6 @@
xhr.onload = function () {
var result = JSON.parse(xhr.responseText);
self.imagesList = result.images_list;
console.dir(self.imagesList);
self.pagesCount = result.pages_count;
}
xhr.send()
@ -126,3 +106,24 @@
});
</script>
<script>
$(function () {
$('#fileupload').fileupload({
dataType: 'json',
done: function (e, data) {
$.each(data.result.files, function (index, file) {
$('<p/>').text(file.name).appendTo('#lastUploadLog');
$('#progress .progress-bar').css('width','0%');
});
},
sequentialUploads: true,
progressall: function (e, data) {
var progress = parseInt(data.loaded / data.total * 100, 10);
$('#progress .progress-bar').css(
'width',
progress + '%'
);
}
});
});
</script>

4
templates/layouts/base.html.ep
View file

@ -1,7 +1,7 @@
<html>
<head>
<meta http-equiv="Content-Type" content="text/html;charset=UTF-8" >
<title>Rough, Slow, Stupid, Contrary Photohosting</title>
<title>Simple image hosting</title>
<meta name="viewport" content="width=device-width, initial-scale=1.0">
<!-- Bootstrap styles -->
<link rel="stylesheet" href="//netdna.bootstrapcdn.com/bootstrap/3.2.0/css/bootstrap.min.css">
@ -14,7 +14,7 @@
<link rel="stylesheet" href="/file_uploader/css/jquery.fileupload-ui.css">
<link rel="stylesheet" href="/css/main.css">
<script src="https://vuejs.org/js/vue.min.js"></script>
<script src="/vendor/js/vue.min.js"></script>
</head>
<body>
<div class="navbar navbar-inverse navbar-fixed-top" role="navigation">