git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
keyboard/altgr: label keys in each row with big class
[sheet.git]
/
tools
/
mkwordthumb
diff --git
a/tools/mkwordthumb
b/tools/mkwordthumb
index 6d1ac671c642c7e169bf02d3e92f9180a078d493..d79a0029cf7c9359ba194638611aedf33d4eff2c 100755
(executable)
--- a/
tools/mkwordthumb
+++ b/
tools/mkwordthumb
@@
-4,8
+4,9
@@
use warnings;
use lib '.';
use Shiar_Sheet::ImagePrep;
use Shiar_Sheet::DB;
use lib '.';
use Shiar_Sheet::ImagePrep;
use Shiar_Sheet::DB;
+use JSON ();
-our $VERSION = '1.0
0
';
+our $VERSION = '1.0
1
';
my $db = Shiar_Sheet::DB->connect;
my %filter = @ARGV ? (id => shift) : ();
my $db = Shiar_Sheet::DB->connect;
my %filter = @ARGV ? (id => shift) : ();
@@
-14,6
+15,8
@@
my $query = $db->select(word => '*', \%filter);
while (my $row = $query->hash) {
my $image = Shiar_Sheet::ImagePrep->new("data/word/org/$row->{id}.jpg");
eval {
while (my $row = $query->hash) {
my $image = Shiar_Sheet::ImagePrep->new("data/word/org/$row->{id}.jpg");
eval {
- $image->convert("data/word/en/$row->{id}.jpg", $row->{thumb});
+ my $meta = eval { JSON->new->decode($row->{image} // '{}') }
+ or die ["Invalid JSON metadata in image column.", $@];
+ $image->generate("data/word/32/$row->{id}.jpg", $meta->{convert});
} or warn "$row->{id}: @{$@}";
}
} or warn "$row->{id}: @{$@}";
}