| … | |
… | |
| 406 | { |
406 | { |
| 407 | while (my ($k, $v) = each %FACEINFO) { |
407 | 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"; |
408 | 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"; |
409 | length $v->{data64} or warn "$k: face has no png64. this will not work very well.\n"; |
| 410 | |
410 | |
|
|
411 | length $v->{data32} <= 10000 or warn "$k: face32 larger than 10000 bytes, will not work with crossfire client.\n"; |
|
|
412 | #length $v->{data64} <= 10000 or warn "$k: face64 larger than 10000 bytes.\n"; |
|
|
413 | |
| 411 | $v->{chksum32} = Digest::MD5::md5 $v->{data32}; |
414 | $v->{chksum32} = Digest::MD5::md5 $v->{data32}; |
| 412 | $v->{chksum64} = Digest::MD5::md5 $v->{data64}; |
415 | $v->{chksum64} = Digest::MD5::md5 $v->{data64}; |
| 413 | } |
416 | } |
| 414 | |
417 | |
| 415 | open my $fh, ">:perlio", "$DATADIR/facedata~" |
418 | open my $fh, ">:perlio", "$DATADIR/facedata~" |
