More work on Def-settings.

[egate.git] / kernel / main.c

diff --git a/kernel/main.c b/kernel/main.c
index daa054a..8f72b91 100644 (file)
--- a/kernel/main.c
+++ b/kernel/main.c
@@ -2,7 +2,10 @@
  * Europagate, 1995
  *
  * $Log: main.c,v $
- * Revision 1.23  1995/05/03 16:34:18  adam
+ * Revision 1.24  1995/05/04 10:40:07  adam
+ * More work on Def-settings.
+ *
+ * Revision 1.23  1995/05/03  16:34:18  adam
  * CCL def command, i.e. user definitions - saved as resource files.
  *
  * Revision 1.22  1995/05/03  07:37:39  adam
@@ -168,8 +171,14 @@ static void kernel_events (struct str_queue *queue)
                 if (persist_flag && !continuation)
                    load_p_state (info.userid); 
                r = urp_command (queue);
-               if (persist_flag && r == 1)
-                   del_p_state (info.userid);
+               if (r == 1)                         /* stop? */
+                {
+                    info.zass = NULL;               /* delete association */
+                    *info.target = 0;               /* indicate no target */
+                    read_kernel_res();              /* reread resources */
+                    if (persist_flag)
+                        del_p_state (info.userid);  /* remove persist file */
+                }
                urp_end ();
                 while (str_queue_deq (queue, 0, 0))
                     ;
@@ -498,6 +507,8 @@ void read_kernel_res (void)
         if (v)
         {
             sprintf (fname, "%s/%s", path_prefix, v);
+            gw_log (GW_LOG_DEBUG, KERNEL_LOG, "Reading language resources %s",
+                    fname);
             gw_res_merge (info.kernel_res, fname);
         }
     }