--- deliantra/server/lib/cf.pm	2007/04/01 00:36:34	1.229
+++ 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