--- deliantra/server/lib/cf.pm	2007/03/26 16:53:33	1.228
+++ deliantra/server/lib/cf.pm	2007/04/02 18:04:46	1.230
@@ -375,6 +375,17 @@
    1
 }
 
+=item cf::datalog type => key => value, ...
+
+Log a datalog packet of the given type with the given key-value pairs.
+
+=cut
+
+sub datalog($@) {
+  my ($type, %kv) = @_;
+  warn "DATALOG ", JSON::XS->new->ascii->encode ({ %kv, type => $type });
+}
+
 =back
 
 =cut
@@ -2260,10 +2271,10 @@
 #############################################################################
 # the server's init and main functions
 
-sub load_faces {
-   my $path = sprintf "%s/faces", cf::datadir;
+sub load_facedata {
+   my $path = sprintf "%s/facedata", cf::datadir;
 
-   warn "loading faces from $path\n";
+   warn "loading facedata from $path\n";
 
    my $faces;
    0 < aio_load $path, $faces
@@ -2281,6 +2292,7 @@
       my $idx = (cf::face::find $face) || cf::face::alloc $face;
       cf::face::set $idx, $info->{visibility}, $info->{magicmap};
       cf::face::set_data $idx, 0, $info->{data32}, $info->{chksum32};
+      cf::face::set_data $idx, 1, $info->{data64}, $info->{chksum64};
       Coro::cede;
    }
 
@@ -2302,8 +2314,8 @@
 sub reload_resources {
    load_resource_file sprintf "%s/%s/regions", cf::datadir, cf::mapdir
       or die "unable to load regions file\n";#d#
-   load_faces
-      or die "unable to load faces\n";#d#
+   load_facedata
+      or die "unable to load facedata\n";#d#
 }
 
 sub init {