fix workshop job manifest parser

This commit is contained in:
Frank Harris 2026-06-09 10:13:29 -05:00
parent 126c12b04e
commit f2954f22fd

View file

@ -13,20 +13,26 @@ log() {
} }
json_value() { json_value() {
local key="$1" local key="$1"
perl -0777 -ne ' KEY="$key" MANIFEST_FILE="$MANIFEST" perl -0777 -e '
my $k = shift @ARGV; my $k = $ENV{"KEY"};
if (/"\Q$k\E"\s*:\s*"([^"]*)"/s) { my $f = $ENV{"MANIFEST_FILE"};
open my $fh, "<", $f or exit 1;
local $/;
my $json = <$fh>;
if ($json =~ /"\Q$k\E"\s*:\s*"([^"]*)"/s) {
my $v = $1; my $v = $1;
$v =~ s/\\\//\//g; $v =~ s/\\\//\//g;
print $v; print $v;
exit; exit 0;
} }
if (/"\Q$k\E"\s*:\s*([0-9]+)/s) { if ($json =~ /"\Q$k\E"\s*:\s*([0-9]+)/s) {
print $1; print $1;
exit; exit 0;
} }
' "$key" "$MANIFEST" exit 0;
'
} }
json_items() { json_items() {
perl -0777 -ne ' perl -0777 -ne '
if (/"items"\s*:\s*\[(.*?)\]/s) { if (/"items"\s*:\s*\[(.*?)\]/s) {