… | |
… | |
536 | if (my $filter = $meta->{cfutil_filter}) { |
536 | if (my $filter = $meta->{cfutil_filter}) { |
537 | if ($filter eq "yaml2json") { |
537 | if ($filter eq "yaml2json") { |
538 | $data = JSON::XS::encode_json YAML::Syck::Load $data; |
538 | $data = JSON::XS::encode_json YAML::Syck::Load $data; |
539 | } elsif ($filter eq "json2json") { |
539 | } elsif ($filter eq "json2json") { |
540 | $data = JSON::XS::encode_json JSON::XS->relaxed->utf8->decode ($data); |
540 | $data = JSON::XS::encode_json JSON::XS->relaxed->utf8->decode ($data); |
|
|
541 | } elsif ($filter eq "perl2json") { |
|
|
542 | $data = eval $data; die if $@; |
|
|
543 | $data = JSON::XS::encode_json $data; |
541 | } else { |
544 | } else { |
542 | warn "$dir/$file: unknown filter $filter, skipping\n"; |
545 | warn "$dir/$file: unknown filter $filter, skipping\n"; |
543 | } |
546 | } |
544 | } |
547 | } |
545 | |
548 | |
… | |
… | |
576 | |
579 | |
577 | } elsif ($dir =~ /^res(?:\/|$)/) { |
580 | } elsif ($dir =~ /^res(?:\/|$)/) { |
578 | if ($file =~ /\.(jpg|png)$/) { |
581 | if ($file =~ /\.(jpg|png)$/) { |
579 | $c_res->put ([$path, $file, 0]) # FT_FACE |
582 | $c_res->put ([$path, $file, 0]) # FT_FACE |
580 | } elsif ($file =~ /\.(res)$/) { |
583 | } elsif ($file =~ /\.(res)$/) { |
581 | $c_res->put ([$path, $file, 7]) # FT_RSRC |
584 | $c_res->put ([$path, $file, 6]) # FT_RSRC |
582 | } else { |
585 | } else { |
583 | $c_res->put ([$path, $file, undef]); |
586 | $c_res->put ([$path, $file, undef]); |
584 | } |
587 | } |
585 | |
588 | |
586 | } elsif ($file =~ /\.png$/) { |
589 | } elsif ($file =~ /\.png$/) { |