git.shiar.nl
/
sheet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
6db907e
)
dieren: indicate format generation progress in mkimgthumb runs
author
Mischa POSLAWSKY
<perl@shiar.org>
Wed, 3 Jan 2024 21:30:14 +0000
(22:30 +0100)
committer
Mischa POSLAWSKY
<perl@shiar.org>
Wed, 3 Jan 2024 22:50:49 +0000
(23:50 +0100)
tools/mkimgthumb
patch
|
blob
|
history
diff --git
a/tools/mkimgthumb
b/tools/mkimgthumb
index 32ae1a3f2b6317511547ac728f5d6fa041f87263..c672d3fdb6761fadc4768e42f0e7f1f904534dfa 100755
(executable)
--- a/
tools/mkimgthumb
+++ b/
tools/mkimgthumb
@@
-35,12
+35,13
@@
my $failcount = 0;
for my $src (@ARGV) {
my ($name, @cmds) = split /:(?<!\\:)/, $src =~ s/\.(\w+)\z//r;
my $ext = $1 // '*';
for my $src (@ARGV) {
my ($name, @cmds) = split /:(?<!\\:)/, $src =~ s/\.(\w+)\z//r;
my $ext = $1 // '*';
+ print $name;
next if $name =~ m/\./;
unless (-e $src) {
($src) = grep {-e} glob qq<"$name"{,:*}.$ext> or next;
}
s/\\(.)/$1/g for @cmds;
next if $name =~ m/\./;
unless (-e $src) {
($src) = grep {-e} glob qq<"$name"{,:*}.$ext> or next;
}
s/\\(.)/$1/g for @cmds;
-
say $name
;
+
print ':'
;
if (@cmds and $cmds[0] =~ /^\d/) {
# crop shorthand from initial dimension argument
if (@cmds and $cmds[0] =~ /^\d/) {
# crop shorthand from initial dimension argument
@@
-54,14
+55,18
@@
for my $src (@ARGV) {
my $image = Shiar_Sheet::ImagePrep->new($src);
for (@ffs) {
my ($ff, @ffcmds) = @{$_};
my $image = Shiar_Sheet::ImagePrep->new($src);
for (@ffs) {
my ($ff, @ffcmds) = @{$_};
+ print " $ff";
$image->convert("../$name.$ff", [@cmds, @ffcmds]);
}
1;
} or do {
$image->convert("../$name.$ff", [@cmds, @ffcmds]);
}
1;
} or do {
-
warn "error creating image:\n"
;
+
say ' FAILED'
;
warn ref $@ eq 'ARRAY' ? $@->[1] : $@ if $@;
$failcount++;
};
}
warn ref $@ eq 'ARRAY' ? $@->[1] : $@ if $@;
$failcount++;
};
}
+continue {
+ say '';
+}
exit $failcount;
exit $failcount;