--- deliantra/server/plugins/cfperl/cfperl.xs	2006/03/06 23:31:54	1.29
+++ deliantra/server/plugins/cfperl/cfperl.xs	2006/03/07 13:59:57	1.32
@@ -451,6 +451,7 @@
   registerGlobalEvent (NULL, EVENT_MAPLOAD, PLUGIN_NAME, globalEventListener);
   registerGlobalEvent (NULL, EVENT_MAPOUT, PLUGIN_NAME, globalEventListener);
   registerGlobalEvent (NULL, EVENT_MAPIN, PLUGIN_NAME, globalEventListener);
+  registerGlobalEvent (NULL, EVENT_MAPCLEAN, PLUGIN_NAME, globalEventListener);
   registerGlobalEvent (NULL, EVENT_REMOVE, PLUGIN_NAME, globalEventListener);
   registerGlobalEvent (NULL, EVENT_SHOUT, PLUGIN_NAME, globalEventListener);
   registerGlobalEvent (NULL, EVENT_TELL, PLUGIN_NAME, globalEventListener);
@@ -515,6 +516,7 @@
       case EVENT_MAPLOAD:
       case EVENT_MAPOUT:
       case EVENT_MAPIN:
+      case EVENT_MAPCLEAN:
         context.map = va_arg (args, mapstruct *);
         break;
 
@@ -985,6 +987,9 @@
     const_iv (WILL_APPLY_EARTHWALL)
     const_iv (WILL_APPLY_DOOR)
     const_iv (WILL_APPLY_FOOD)
+
+    const_iv (SAVE_MODE)
+    const_iv (SAVE_DIR_MODE)
   };
 
   for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
@@ -1023,6 +1028,7 @@
     const_event (MAPLOAD)
     const_event (MAPOUT)
     const_event (MAPIN)
+    const_event (MAPCLEAN)
     const_event (REMOVE)
     const_event (SHOUT)
     const_event (TELL)