--- deliantra/server/utils/cfutil.in 2009/11/03 23:44:21 1.77 +++ deliantra/server/utils/cfutil.in 2009/11/04 13:46:37 1.78 @@ -744,14 +744,14 @@ print "generating plurals...\n" if $VERBOSE; generate_plurals; - print "writing archetypes...\n" if $VERBOSE; + printf "writing %d archetypes...\n", scalar @ARC if $VERBOSE; open my $fh, ">:utf8", "$DATADIR/archetypes~" or die "$DATADIR/archetypes~: $!"; print $fh Deliantra::archlist_to_string [sort { $a->{_name} cmp $b->{_name} } @ARC]; } { - print "writing treasures...\n" if $VERBOSE; + printf "writing treasures (%d octets)...\n", length $TRS if $VERBOSE; open my $fh, ">:utf8", "$DATADIR/treasures~" or die "$DATADIR/treasures~: $!"; print $fh $TRS; @@ -774,7 +774,12 @@ delete $v->{arc}; } - print "writing facedata...\n" if $VERBOSE; + printf "writing facedata (%d faces, %d anims, %d resources)...\n", + scalar keys %FACEINFO, + scalar keys %ANIMINFO, + scalar keys %RESOURCE + if $VERBOSE; + open my $fh, ">:perlio", "$DATADIR/facedata~" or die "$DATADIR/facedata~: $!"; @@ -784,6 +789,7 @@ animinfo => \%ANIMINFO, resource => \%RESOURCE, }; + } print "committing files...\n" if $VERBOSE;