… | |
… | |
2874 | copyright => $info->{copyright}, #TODO# |
2874 | copyright => $info->{copyright}, #TODO# |
2875 | }); |
2875 | }); |
2876 | |
2876 | |
2877 | my $idx = (cf::face::find $name) || cf::face::alloc $name; |
2877 | my $idx = (cf::face::find $name) || cf::face::alloc $name; |
2878 | |
2878 | |
2879 | if ($name =~ /\.jpg$/) { |
2879 | if ($name =~ /\.(?:jpg|png)$/) { |
2880 | cf::face::set_data $idx, 0, $info->{data}, $info->{chksum};#d# temp hack |
2880 | cf::face::set_data $idx, 0, $info->{data}, $info->{chksum};#d# temp hack |
2881 | cf::face::set_data $idx, 1, $info->{data}, $info->{chksum};#d# temp hack |
2881 | cf::face::set_data $idx, 1, $info->{data}, $info->{chksum};#d# temp hack |
2882 | } else { |
2882 | } else { |
2883 | my $data = pack "(w/a*)*", $meta, $info->{data}; |
2883 | my $data = pack "(w/a*)*", $meta, $info->{data}; |
2884 | my $chk = Digest::MD5::md5 "$info->{chksum},$meta"; # mangle data checksum and metadata |
2884 | my $chk = Digest::MD5::md5 "$info->{chksum},$meta"; # mangle data checksum and metadata |