--- deliantra/server/utils/cfutil.in	2007/03/12 17:33:12	1.13
+++ deliantra/server/utils/cfutil.in	2007/03/14 16:23:26	1.17
@@ -22,6 +22,7 @@
 use Coro::AIO;
 use POSIX ();
 use Digest::MD5;
+use Storable; $Storable::canonical = 1;
 
 sub usage {
    warn <<EOF;
@@ -77,7 +78,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 +90,6 @@
    our $TRS;
    our $NFILE;
    our %ANIM;
-   our $SMOOTH;
 
    our (@png, @trs, @arc); # files we are interested in
 
@@ -259,7 +259,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 +344,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 +363,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/$_: $!";