… | |
… | |
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~" |