… | |
… | |
176 | die "$other~ has zero size, aborting." unless -s "$other~"; |
176 | die "$other~ has zero size, aborting." unless -s "$other~"; |
177 | rename "$other~", $other; |
177 | rename "$other~", $other; |
178 | }; |
178 | }; |
179 | } |
179 | } |
180 | |
180 | |
181 | warn "scaled down $path to $other\n";#d# |
181 | #warn "scaled down $path to $other\n";#d# |
182 | |
|
|
183 | push @png, [$other, !$CACHE]; |
182 | push @png, [$other, !$CACHE]; |
184 | } |
183 | } |
185 | } |
184 | } |
186 | |
185 | |
187 | (my $face = $stem) =~ s/^.*\///; |
186 | (my $face = $stem) =~ s/^.*\///; |
… | |
… | |
406 | { |
405 | { |
407 | while (my ($k, $v) = each %FACEINFO) { |
406 | while (my ($k, $v) = each %FACEINFO) { |
408 | length $v->{data32} or warn "$k: face has no png32. this will not work (shoddy gcfclient will crash of course).\n"; |
407 | length $v->{data32} or warn "$k: face has no png32. this will not work (shoddy gcfclient will crash of course).\n"; |
409 | length $v->{data64} or warn "$k: face has no png64. this will not work very well.\n"; |
408 | length $v->{data64} or warn "$k: face has no png64. this will not work very well.\n"; |
410 | |
409 | |
|
|
410 | length $v->{data32} <= 10000 or warn "$k: face32 larger than 10000 bytes, will not work with crossfire client.\n"; |
|
|
411 | #length $v->{data64} <= 10000 or warn "$k: face64 larger than 10000 bytes.\n"; |
|
|
412 | |
411 | $v->{chksum32} = Digest::MD5::md5 $v->{data32}; |
413 | $v->{chksum32} = Digest::MD5::md5 $v->{data32}; |
412 | $v->{chksum64} = Digest::MD5::md5 $v->{data64}; |
414 | $v->{chksum64} = Digest::MD5::md5 $v->{data64}; |
413 | } |
415 | } |
414 | |
416 | |
415 | open my $fh, ">:perlio", "$DATADIR/facedata~" |
417 | open my $fh, ">:perlio", "$DATADIR/facedata~" |