--- deliantra/server/utils/cfutil.in 2007/03/12 17:33:12 1.13 +++ deliantra/server/utils/cfutil.in 2007/03/14 15:47:21 1.16 @@ -77,7 +77,7 @@ } system $RSYNC, "-av", "$path/.", "$DATADIR/maps/.", "--delete", "--exclude", "CVS", "--delete-excluded" - or die "map installation failed.\n"; + and die "map installation failed.\n"; print "maps installed successfully.\n"; } @@ -89,7 +89,6 @@ our $TRS; our $NFILE; our %ANIM; - our $SMOOTH; our (@png, @trs, @arc); # files we are interested in @@ -259,7 +258,12 @@ } if (my $smooth = delete $o->{smoothface}) { - $SMOOTH .= "$smooth\n"; + my ($face, $smooth) = split /\s+/, $smooth; + # skip empty_S.x11, it seems to server no purpose whatsoever + # but increases bandwidth demands and worse. + unless ($smooth eq "empty_S.x11") { + $FACEINFO{$face}{smooth} = $smooth; + } } } } @@ -339,12 +343,6 @@ } { - open my $fh, ">:utf8", "$DATADIR/smooth~" - or die "$DATADIR/smooth~: $!"; - print $fh $SMOOTH; - } - - { open my $fh, ">:utf8", "$DATADIR/treasures~" or die "$DATADIR/treasures~: $!"; print $fh $TRS; @@ -364,10 +362,11 @@ open my $fh, ">:perlio", "$DATADIR/faces~" or die "$DATADIR/faces~: $!"; + $FACEINFO{""} = { version => 1}; print $fh Storable::nfreeze \%FACEINFO; } - for (qw(archetypes faces animations treasures smooth)) { + for (qw(archetypes faces animations treasures)) { chmod 0644, "$DATADIR/$_~"; rename "$DATADIR/$_~", "$DATADIR/$_" or die "$DATADIR/$_: $!";