From 3fc38b02aa93f276554b99bea300760660a1629f Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sun, 15 Aug 2021 04:11:28 +0200
Subject: [PATCH] word: mkwordthumb script to recreate images

---
 tools/mkwordthumb | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100755 tools/mkwordthumb

diff --git a/tools/mkwordthumb b/tools/mkwordthumb
new file mode 100755
index 0000000..6d1ac67
--- /dev/null
+++ b/tools/mkwordthumb
@@ -0,0 +1,19 @@
+#!/usr/bin/env perl
+use 5.014;
+use warnings;
+use lib '.';
+use Shiar_Sheet::ImagePrep;
+use Shiar_Sheet::DB;
+
+our $VERSION = '1.00';
+
+my $db = Shiar_Sheet::DB->connect;
+my %filter = @ARGV ? (id => shift) : ();
+my $query = $db->select(word => '*', \%filter);
+
+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});
+	} or warn "$row->{id}: @{$@}";
+}
-- 
2.30.0