--- deliantra/server/server/cfperl.xs	2007/07/23 16:53:15	1.236
+++ deliantra/server/server/cfperl.xs	2007/07/23 23:46:03	1.237
@@ -2623,6 +2623,15 @@
         THIS->send_packet (buf, len);
 }
 
+faceidx
+client::find_face (utf8_string name, faceidx defidx = 0)
+	CODE:
+        RETVAL = face_find (name, defidx);
+        THIS->send_face (RETVAL);
+        THIS->flush_fx ();
+	OUTPUT:
+        RETVAL
+
 MODULE = cf        PACKAGE = cf::face	PREFIX = face_
 
 #INCLUDE: $PERL $srcdir/genacc faceset ../include/face.h |