sc: refer to ventral sacs overlord by its common name

[sheet.git] / tools / mkwordthumb

diff --git a/tools/mkwordthumb b/tools/mkwordthumb
index 8e7909f5daf0fe2be762cd82c7143603ebf3cedf..34c3b6ad8ebd99473d60e0427678297233dba027 100755 (executable)
--- a/tools/mkwordthumb
+++ b/tools/mkwordthumb
@@ -1,7 +1,7 @@
 #!/usr/bin/env perl
 use 5.014;
 use warnings;
 #!/usr/bin/env perl
 use 5.014;
 use warnings;

-use lib '.';
+use lib $0 =~ s{[^/]+$}{..}r; # project root

 use Shiar_Sheet::ImagePrep;
 use Shiar_Sheet::DB;
 use JSON ();
 use Shiar_Sheet::ImagePrep;
 use Shiar_Sheet::DB;
 use JSON ();


@@ -17,8 +17,6 @@ while (my $row = $query->hash) {
        eval {
                my $meta = eval { JSON->new->decode($row->{image} // '{}') }
                        or die ["Invalid JSON metadata in image column.", $@];
        eval {
                my $meta = eval { JSON->new->decode($row->{image} // '{}') }
                        or die ["Invalid JSON metadata in image column.", $@];

-               my $basename = "data/word/en/$row->{id}";
-               $image->convert("$basename.jpg",  $meta->{convert});
-               $image->convert("$basename.webp", $meta->{convert}, '600x400');
+               $image->generate("data/word/32/$row->{id}.jpg", $meta->{convert});

        } or warn "$row->{id}: @{$@}";
 }
        } or warn "$row->{id}: @{$@}";
 }