--- freem/src/fmadm.c	2025/04/02 04:50:49	1.25
+++ freem/src/fmadm.c	2025/04/03 01:41:02	1.29
@@ -1,5 +1,5 @@
 /*
- *   $Id: fmadm.c,v 1.25 2025/04/02 04:50:49 snw Exp $
+ *   $Id: fmadm.c,v 1.29 2025/04/03 01:41:02 snw Exp $
  *    FreeM Administration Tool
  *
  *  
@@ -24,6 +24,18 @@
  *   along with FreeM.  If not, see <https://www.gnu.org/licenses/>.
  *
  *   $Log: fmadm.c,v $
+ *   Revision 1.29  2025/04/03 01:41:02  snw
+ *   New features frozen; prepare 0.63.0-rc1
+ *
+ *   Revision 1.28  2025/04/02 19:59:38  snw
+ *   Automatically modify env.conf from fmadm reconfigure
+ *
+ *   Revision 1.27  2025/04/02 15:36:25  snw
+ *   Do extensive result checking for environment stop/start/restart in fmadm
+ *
+ *   Revision 1.26  2025/04/02 14:37:57  snw
+ *   Improve environment control parts of fmadm
+ *
  *   Revision 1.25  2025/04/02 04:50:49  snw
  *   Allow vendor routines to be upgraded
  *
@@ -165,6 +177,7 @@ extern char config_file[4096];
 extern char env_config_file[4096];
 extern char env_user[255];
 extern char env_group[255];
+extern char env_enabled[10];
 
 int fm_shell(void);
 void fm_checkperms(void);
@@ -174,6 +187,7 @@ int fm_daemonctl (short action, short ob
 void fm_write (FILE *file, char *buf);
 int fma_jobs_remove (int optc, char **opts);
 void set_permissions(char *path, char *user, char *grp, int mode);
+int fm_environment_running (char *env);
 extern int read_profile_string(char *file, char *section, char *key, char *value);
 
 int main (int argc, char **argv)
@@ -194,6 +208,7 @@ int main (int argc, char **argv)
     short got_action = FALSE;
     short got_object = FALSE;
 
+    strcpy (env_enabled, "true");
 
     /* snprintf (config_file, 4096, "%s/freem.conf", SYSCONFDIR); */
 
@@ -280,6 +295,31 @@ int main (int argc, char **argv)
                     base_arg++;
                     
                     break;
+
+                case 'E':
+                    if (argv[i][2] != '=') {
+                        fprintf (stderr, "fmadm:  missing equals sign in flag -%c\n", argv[i][1]);
+                        fmadm_usage ();
+                        exit (1);
+                    }
+
+                    k = 0;
+                    
+                    for (j = 3; j < strlen (argv[i]); j++) {
+                        env_enabled[k++] = argv[i][j];
+                    }
+                    env_enabled[k] = '\0';
+
+                    if ((strcmp (env_enabled, "true") != 0) && (strcmp (env_enabled, "false") != 0)) {
+                        fprintf (stderr, "fmadm:  -E (environment enabled) option must be either 'true' or 'false'\n");
+                        fmadm_usage ();
+                        exit (1);
+                    }
+                    
+                    base_arg++;
+                    
+                    break;
+                    
                     
                 case 'n':
                     if (argv[i][2] != '=') {
@@ -321,10 +361,10 @@ int main (int argc, char **argv)
     
     snprintf (env_config_file, 4096, "%s/freem/env.conf", SYSCONFDIR);
     
-    /*
+/*
     printf ("action = '%s' object = '%s' environment = '%s' namespace = '%s' config_file = '%s' base_arg = '%d' next argument = '%s'\n", action, obj_str, fma_environment, fma_namespace, config_file, base_arg, argv[base_arg]);
     exit(1);
-    */
+*/
     
     /* override for fmadm configure and daemon stuff */
     if (got_action) {
@@ -339,22 +379,22 @@ int main (int argc, char **argv)
         else if (strcmp (argv[1], "start") == 0 && strcmp (argv[2], "environment") == 0) {
             act = ACT_START;
             obj = OBJ_DAEMON;
-            goto act_switch;
+            goto process_args;
         }
         else if (strcmp (argv[1], "stop") == 0 && strcmp (argv[2], "environment") == 0) {
             act = ACT_STOP;
             obj = OBJ_DAEMON;
-            goto act_switch;
+            goto process_args;
         }
         else if (strcmp (argv[1], "restart") == 0  && strcmp (argv[2], "environment") == 0) {
             act = ACT_RESTART;
             obj = OBJ_DAEMON;
-            goto act_switch;
+            goto process_args;
         }
         else if (strcmp (argv[1], "status") == 0  && strcmp (argv[2], "environment") == 0) {
             act = ACT_STATUS;
             obj = OBJ_DAEMON;
-            goto act_switch;
+            goto process_args;
         }        
 
     }
@@ -377,7 +417,8 @@ int main (int argc, char **argv)
     }
     
     set_namespace (fma_namespace, FALSE);
-    
+
+process_args:    
     /* allocate opts array */
     
     /* first dimension */
@@ -400,7 +441,8 @@ int main (int argc, char **argv)
 
     j = 1;
     for (i = base_arg; i < argc; i++) {
-        if (i > FMA_MAXARGS) return fmadm_usage(); /* bail if we're going to overrun the array */
+        if (i > FMA_MAXARGS) return fmadm_usage();        
+        /* bail if we're going to overrun the array */
         strncpy (opts[j++], argv[i], STRLEN - 1);
     }
     
@@ -420,6 +462,7 @@ int main (int argc, char **argv)
     else if (strncmp (action, "start", STRLEN - 1) == 0) act = ACT_START;
     else if (strncmp (action, "stop", STRLEN - 1) == 0) act = ACT_STOP;
     else if (strncmp (action, "restart", STRLEN - 1) == 0) act = ACT_RESTART;
+    else if (strncmp (action, "status", STRLEN - 1) == 0) act = ACT_STATUS;
     else return fmadm_usage();
 
     if (strncmp (obj_str, "lock", STRLEN - 1) == 0) obj = OBJ_LOCK;
@@ -872,15 +915,14 @@ void fmadm_exit (int retval)
 int fmadm_usage (void)
 {
 
-    fprintf (stdout, "\nusage:  fmadm <action> <object> [-e=<environment] [-n=<namespace>] [OPTIONS]\n");
+    fprintf (stdout, "\nusage:  fmadm <action> <object> [-e=<environment] [-n=<namespace>] [-u=<user>] [-g=<group>] [-E=true|false] [OPTIONS]\n");
     fprintf (stdout, "        fmadm configure\n");
     fprintf (stdout, "        fmadm reconfigure\n");
-    /* fprintf (stdout, "        fmadm checkperms\n\n"); */
     
     fprintf (stdout, "        <action> can be one of:\n");
     fprintf (stdout, "            list, examine, verify, compact, repair, create, remove,\n");
     fprintf (stdout, "            import, export, backup, restore, migrate, edit, start,\n");
-    fprintf (stdout, "            stop, restart\n\n");
+    fprintf (stdout, "            stop, restart, status\n\n");
 
     fprintf (stdout, "        <object> can be one of:\n");
     fprintf (stdout, "            lock, journal, namespace, global, routine, job,\n");
@@ -1144,6 +1186,110 @@ long fm_get_pid (char *env)
     }            
 }
 
+int fm_validate_environment (char *env)
+{
+    FILE *fp;
+    char line[255];
+    char chkline[255];
+
+    snprintf (chkline, 254, "[%s]\n", env);
+    
+    if ((fp = fopen (env_config_file, "r")) == NULL) {
+        fprintf (stderr, "fmadm:  could not open %s [%s]\n", env_config_file, strerror (errno));
+        return FALSE;
+    }
+
+    while (fgets (line, 254, fp)) {
+        if (strncmp (line, chkline, 254) == 0) {
+            fclose (fp);
+            return TRUE;
+        }
+    }
+
+    fclose (fp);
+    return FALSE;
+}
+
+int fm_start_environment (char *env, char *e_user, char *e_grp)
+{
+    char basecmd[255];
+    char cmd[4096];    
+
+    if (fm_environment_running (env) == TRUE) {
+        return TRUE;
+    }
+    
+#if !defined(__OS2__)
+    snprintf (basecmd, 254, "%s/bin/freem", PREFIX);
+#else
+    snprintf (basecmd, 254, "%s/bin/freemd.exe", PREFIX);
+#endif
+
+#if !defined(__OS2__)                    
+    snprintf (cmd, 4095, "%s -d -e %s -u %s -g %s", basecmd, env, e_user, e_grp);
+#else
+    sprintf (cmd, 4095, "%s -d -k -e %s -u %s -g %s", basecmd, env, e_user, e_grp);
+#endif
+
+    system (cmd);
+
+    sleep (1);
+    
+    return (fm_environment_running (env));
+}
+
+int fm_stop_environment (char *env)
+{
+    long epid;
+
+    epid = fm_get_pid (env);
+    if (epid > -1) {
+        kill (epid, SIGINT);
+        sleep (5);
+
+        if (fm_environment_running (env) == FALSE) {
+            return TRUE;
+        }
+        else {
+            kill (epid, SIGTERM);
+            sleep (5);
+            if (fm_environment_running (env) == FALSE) {
+                return TRUE;
+            }
+            else {
+                kill (epid, SIGKILL);
+                sleep (5);
+                if (fm_environment_running (env) == FALSE) {
+                    return TRUE;
+                }
+                else {
+                    return FALSE;
+                }
+            }
+        }
+    }
+    else {
+        return FALSE;
+    }   
+}
+
+int fm_environment_running (char *env)
+{       
+    long epid;
+    int result;
+    
+    epid = fm_get_pid (env);
+
+    if (epid == -1) {
+        return FALSE;
+    }
+    else {
+        result = kill (epid, 0);
+
+        return ((result == 0) ? TRUE : FALSE);
+    }
+}
+
 int fm_daemonctl (short action, short object, int optc, char **options)
 {
     FILE *ef;
@@ -1152,21 +1298,14 @@ int fm_daemonctl (short action, short ob
     char line[255];
     char tmps[255];
     char *cur_env;
-    char cmd[4096];
     char verb[40];
     char e_user[255];
     char e_grp[255];
     char e_ena[10];
-    char basecmd[255];    
     char *savptr;
     int result;
     long epid;
-
-#if !defined(__OS2__)
-    snprintf (basecmd, 254, "%s/bin/freem", PREFIX);
-#else
-    snprintf (basecmd, 254, "%s/bin/freemd.exe", PREFIX);
-#endif
+   
     
     switch (action) {
         case ACT_START:
@@ -1188,7 +1327,7 @@ int fm_daemonctl (short action, short ob
         envlist = (char *) malloc (sizeof (char) * BIGSTR);
         NULLPTRCHK(envlist,"fm_daemonctl");
 
-        strcpy (envlist, options[0]);
+        strcpy (envlist, options[1]);
     }
     else {
         /* no environment specified; do 'action' for all environments */
@@ -1213,6 +1352,12 @@ int fm_daemonctl (short action, short ob
     savptr = envlist;
     cur_env = strtok_r (envlist, ",", &savptr);
     do {
+        
+        if (fm_validate_environment (cur_env) == FALSE) {
+            fprintf (stderr, "fmadm:  %s is not a valid environment\n", cur_env);
+            continue;
+        }
+
         result = read_profile_string (env_config_file, cur_env, "enabled", e_ena);        
         if (result == FALSE || strcmp (e_ena, "true") == 0) {
 
@@ -1225,51 +1370,55 @@ int fm_daemonctl (short action, short ob
                 strcpy (e_grp, "freem");
             }
 
-            printf ("fmadm:  %s environment %s\n", verb, cur_env);
+            switch (action) {
+                case ACT_START:
+                case ACT_STOP:
+                case ACT_RESTART:
+                    fprintf (stderr, "fmadm:  %s environment %s... ", verb, cur_env);
+                    break;
+                case ACT_STATUS:
+                    fprintf (stderr, "fmadm:  %s environment %s\n", verb, cur_env);
+                    break;
+            }
 
             switch (action) {
+                
                 case ACT_START:
-#if !defined(__OS2__)                    
-                    snprintf (cmd, 4095, "%s -d -e %s -u %s -g %s", basecmd, cur_env, e_user, e_grp);
-#else
-                    sprintf (cmd, 4095, "%s -d -k -e %s -u %s -g %s", basecmd, cur_env, e_user, e_grp);
-#endif
-                    system (cmd);
+                    result = fm_start_environment (cur_env, e_user, e_grp);
+                    if (result == TRUE) {
+                        fprintf (stderr, "[OK]\n");
+                    }
+                    else {
+                        fprintf (stderr, "[FAIL]\n");
+                    }
                     break;
+
                 case ACT_STOP:
-                    epid = fm_get_pid (cur_env);
-                    if (epid > -1) {
-                        fprintf (stderr, "fmadm:  stopping environment daemon pid %d\n", epid);
-                        kill (epid, SIGINT);
-                        kill (epid, SIGTERM);
+                    result = fm_stop_environment (cur_env);
+                    if (result == TRUE) {
+                        fprintf (stderr, "[OK]\n");
                     }
                     else {
-                        fprintf (stderr, "fmadm:  could not obtain environment daemon pid\n");
-                    }
-                    
+                        fprintf (stderr, "[FAIL]\n");
+                    }                    
                     break;
+
                 case ACT_RESTART:
-                    epid = fm_get_pid (cur_env);
-                    if (epid > -1) {
-                        fprintf (stderr, "fmadm:  stopping environment daemon pid %d\n", epid);
-                        kill (epid, SIGINT);
-                        kill (epid, SIGTERM);
+                    if (fm_stop_environment (cur_env) == TRUE) {
+                        result = fm_start_environment (cur_env, e_user, e_grp);
+                        if (result == TRUE) {
+                            fprintf (stderr, "[OK]\n");
+                        }
+                        else {
+                            fprintf (stderr, "[FAIL]\n");
+                        }                        
                     }
                     else {
-                        fprintf (stderr, "fmadm:  could not obtain environment daemon pid\n");
-                    }
-                    fprintf (stderr, "fmadm:  waiting 2 seconds\n");
-                    sleep (2);
-                    fprintf (stderr, "fmadm:  starting environment %s\n", cur_env);
-#if !defined(__OS2__)                    
-                    snprintf (cmd, 4095, "%s -d -e %s -u %s -g %s", basecmd, cur_env, e_user, e_grp);
-#else
-                    sprintf (cmd, 4095, "%s -d -k -e %s -u %s -g %s", basecmd, cur_env, e_user, e_grp);
-#endif
-                    system (cmd);
-                    
+                        fprintf (stderr, "[FAIL]\n");
+                    }                       
 
                     break;
+                    
                 case ACT_STATUS:
                     epid = fm_get_pid (cur_env);
                     if (epid > -1) {
@@ -1313,7 +1462,11 @@ void fm_reconfigure(void)
     fprintf (stderr, "fmadm:  reconfiguring FreeM with system defaults for %s...\n", FREEM_VERSION_CSTR);
     fprintf (stderr, "fmadm:  backing up %s to %s...\t", config_file, config_backup);    
 
-    retval = rename (config_file, config_backup);
+#if !defined(__OS2__)    
+    retval = cp (config_backup, config_file);
+#else
+    retval = DosCopy (config_file, config_backup);
+#endif    
 
     if (retval == 0) {
 	fprintf (stderr, "[OK]\n");
@@ -1330,6 +1483,22 @@ void fm_reconfigure(void)
     
 } /* fm_reconfigure() */
 
+void update_conf (char *file, char *section, char *key, char *new_value)
+{
+    char old_value[255];
+    char tbuf[255];
+
+    snprintf (tbuf, 254, "%s.%s", section, key);
+        
+    read_profile_string (file, section, key, old_value);
+    if (strcmp (old_value, new_value) != 0) {
+        modify_profile_string (file, section, key, new_value);
+        fprintf (stderr, "\t%-40s%-20s -> %s\n", tbuf, old_value, new_value);
+    }
+    else {
+        fprintf (stderr, "\t%-40s%-20s\n", tbuf, "no change");
+    }
+}
 
 void fm_configure (void)
 {
@@ -1355,6 +1524,8 @@ void fm_configure (void)
     char buf[4096];
     FILE *fp;
 
+    int reconfigure = FALSE;
+    
     struct stat etcstat;
     int stat_result;
 
@@ -1365,7 +1536,7 @@ void fm_configure (void)
 
     char *username = env_user;
     char *groupname = env_group;
-   
+    
 #if !defined(__OS2__)
     if (geteuid () != 0) {
         fprintf (stderr, "fmadm:  not superuser\n");
@@ -1408,11 +1579,9 @@ void fm_configure (void)
     }
     
     if (file_exists (config_file)) {
-        fprintf (stderr, "fmadm:  '%s' already exists; running fmadm reconfigure instead\n", config_file);
-        fm_reconfigure ();
-        return;
+        reconfigure = TRUE;
     }
-
+    
     gethostname (hostid, 4095);
     uuid_v4 (buf);
 
@@ -1440,15 +1609,22 @@ void fm_configure (void)
 
         chmod (dstfile, 0755);
     }
-#else
-    fprintf (stderr, "fmadm:  not running on OS/2\n");
 #endif
-    
-    printf ("\nFreeM Initial Configuration\n");
-    printf ("---------------------------\n\n");
 
-    printf ("This utility will create the initial configuration file for ");
-    printf ("FreeM environment '%s' (owned by %s:%s) in '%s'.\n\n", fma_environment, username, groupname, config_file);    
+    if (reconfigure == FALSE) {
+        printf ("\nFreeM Initial Environment Configuration\n");
+        printf ("---------------------------------------\n\n");
+
+        printf ("This utility will create the initial configuration files for ");
+        printf ("FreeM environment '%s' (owned by %s:%s) in '%s'.\n\n", fma_environment, username, groupname, config_file);    
+    }
+    else {
+        printf ("\nFreeM Environment Upgrade/Reconfiguration\n");
+        printf ("-----------------------------------------\n\n");
+
+        printf ("This utility will update the configuration files for ");
+        printf ("FreeM environment '%s' (owned by %s:%s) in '%s'.\n\n", fma_environment, username, groupname, config_file);
+    }
     
     /* check for existence of needed directories */
     if (stat (SYSCONFDIR, &etcstat) == -1) {
@@ -1496,8 +1672,13 @@ void fm_configure (void)
     
     snprintf (src_dir, 4095, "%s/freem/mlib", DATADIR);
     snprintf (dest_dir, 4095, "%s/freem/%s/SYSTEM/routines", LOCALSTATEDIR, fma_environment);
-    
-    fprintf (stderr, "fmadm:  populating new environment '%s'\n", fma_environment);
+
+    if (reconfigure == FALSE) {
+        fprintf (stderr, "fmadm:  populating new environment '%s'\n", fma_environment);
+    }
+    else {
+        fprintf (stderr, "fmadm:  upgrading environment '%s'\n", fma_environment);
+    }
     
     snprintf (buf, 4095, "%s/freem/%s/SYSTEM", LOCALSTATEDIR, fma_environment);
     mkdir (buf, 0775);
@@ -1562,88 +1743,134 @@ void fm_configure (void)
         
     }
 
-    fp = fopen (env_config_file, "a+");
-
-    fprintf (stderr, "Creating %s... ", env_config_file);
-
-    snprintf (buf, 4095, "[%s]", fma_environment);
-    fm_write (fp, buf);
+    if (fm_validate_environment (fma_environment) == FALSE) {
+        fp = fopen (env_config_file, "a+");
+        
+        fprintf (stderr, "Creating %s... ", env_config_file);
+        
+        snprintf (buf, 4095, "[%s]", fma_environment);
+        fm_write (fp, buf);
+        
+        snprintf (buf, 4095, "user=%s", env_user);
+        fm_write (fp, buf);
+        
+        snprintf (buf, 4095, "group=%s", env_group);
+        fm_write (fp, buf);
+        
+        snprintf (buf, 4095, "enabled=%s", env_enabled);
+        fm_write (fp, buf);
+        
+        snprintf (buf, 4095, "env_path=%s/freem/%s", LOCALSTATEDIR, fma_environment);
+        fm_write (fp, buf);
+        
+        fclose (fp);
+        fprintf (stderr, "[OK]\n");
+    }
+    else {
+        char modtmp[255];
+        
+        fprintf (stderr, "\nUpdating %s: \n", env_config_file);
 
-    snprintf (buf, 4095, "user=%s", env_user);
-    fm_write (fp, buf);
-    
-    snprintf (buf, 4095, "group=%s", env_group);
-    fm_write (fp, buf);
+        update_conf (env_config_file, fma_environment, "user", env_user);
+        update_conf (env_config_file, fma_environment, "group", env_group);
+        update_conf (env_config_file, fma_environment, "enabled", env_enabled);
+    }
 
-    snprintf (buf, 4095, "enabled=true");
-    fm_write (fp, buf);
-    
-    snprintf (buf, 4095, "env_path=%s/freem/%s", LOCALSTATEDIR, fma_environment);
-    fm_write (fp, buf);
-    
-    fclose (fp);
-    fprintf (stderr, "[OK]\n");
-   
-    fp = fopen (config_file, "a+");
-    
-    fprintf (stderr, "Creating %s... ", config_file); 
+    if (reconfigure == FALSE) {
+        fp = fopen (config_file, "a+");
+        
+        fprintf (stderr, "Creating %s... ", config_file); 
+        
+        snprintf (buf, 4095, "[SYSTEM]");
+        fm_write (fp, buf);
+        
+        snprintf (buf, 4095, "root=%s/freem/%s/SYSTEM", LOCALSTATEDIR, fma_environment);
+        fm_write (fp, buf);
+        
+        snprintf (buf, 4095, "routines_path=%s", sysrtn);
+        fm_write (fp, buf);
+        
+        snprintf (buf, 4095, "globals_path=%s", sysgbl);
+        fm_write (fp, buf);
+        
+        snprintf (buf, 4095, "journal_file=%s", jnlfile);
+        fm_write (fp, buf);
+        
+        snprintf (buf, 4095, "journal_mode=%s", jnlmode);
+        fm_write (fp, buf);
+        
+        snprintf (buf, 4095, "journal_host_id=%s", jnlhostid);
+        fm_write (fp, buf);
+        
+        snprintf (buf, 4095, "journal_cut_threshold=%s", jnlcut);
+        fm_write (fp, buf);
+        
+        snprintf (buf, 4095, "zdate_format=%%x");
+        fm_write (fp, buf);
+        
+        snprintf (buf, 4095, "ztime_format=%%X");
+        fm_write (fp, buf);
+        
+        snprintf (buf, 4095, "\n[USER]");
+        fm_write (fp, buf);
+        
+        snprintf (buf, 4095, "root=%s/freem/%s/USER", LOCALSTATEDIR, fma_environment);
+        fm_write (fp, buf);
+        
+        snprintf (buf, 4095, "routines_path=%s", usrrtn);
+        fm_write (fp, buf);
+        
+        snprintf (buf, 4095, "globals_path=%s", usrgbl);
+        fm_write (fp, buf);
+        
+        fclose (fp);
+        set_permissions (config_file, username, groupname, 0755);
+        fprintf (stderr, "[OK]\n");
     
-    snprintf (buf, 4095, "[SYSTEM]");
-    fm_write (fp, buf);
-
-    snprintf (buf, 4095, "root=%s/freem/%s/SYSTEM", LOCALSTATEDIR, fma_environment);
-    fm_write (fp, buf);
-
-    snprintf (buf, 4095, "routines_path=%s", sysrtn);
-    fm_write (fp, buf);
-
-    snprintf (buf, 4095, "globals_path=%s", sysgbl);
-    fm_write (fp, buf);
-
-    snprintf (buf, 4095, "journal_file=%s", jnlfile);
-    fm_write (fp, buf);
-
-    snprintf (buf, 4095, "journal_mode=%s", jnlmode);
-    fm_write (fp, buf);
+        printf ("FreeM initial configuration is complete.\n\n");
+    }
+    else {
+        char tmpsd[255];
+        read_profile_string (config_file, "SYSTEM", "journal_host_id", tmpsd);
+        
+        /* existing configuration */
+        fprintf (stderr, "\nUpdating environment configuration for %s:\n", fma_environment);
 
-    snprintf (buf, 4095, "journal_host_id=%s", jnlhostid);
-    fm_write (fp, buf);
+        snprintf (buf, 4095, "%s/freem/%s/SYSTEM", LOCALSTATEDIR, fma_environment);
+        update_conf (config_file, "SYSTEM", "root", buf);
+        update_conf (config_file, "SYSTEM", "routines_path", sysrtn);       
+        update_conf (config_file, "SYSTEM", "globals_path", sysgbl);
+        update_conf (config_file, "SYSTEM", "journal_file", jnlfile);        
+        update_conf (config_file, "SYSTEM", "journal_mode", jnlmode);
+        update_conf (config_file, "SYSTEM", "journal_host_id", tmpsd);
+        update_conf (config_file, "SYSTEM", "journal_cut_threshold", jnlcut);
 
-    snprintf (buf, 4095, "journal_cut_threshold=%s", jnlcut);
-    fm_write (fp, buf);
+        snprintf (buf, 4095, "%%x");
+        update_conf (config_file, "SYSTEM", "zdate_format", buf);
+        
+        snprintf (buf, 4095, "%%X");
+        update_conf (config_file, "SYSTEM", "ztime_format", buf);
 
-    snprintf (buf, 4095, "zdate_format=%%x");
-    fm_write (fp, buf);
+        /* USER */        
+        snprintf (buf, 4095, "%s/freem/%s/USER", LOCALSTATEDIR, fma_environment);
+        update_conf (config_file, "USER", "root", buf);        
+        update_conf (config_file, "USER", "routines_path", usrrtn);
+        update_conf (config_file, "USER", "globals_path", usrgbl);
 
-    snprintf (buf, 4095, "ztime_format=%%X");
-    fm_write (fp, buf);
+    }
     
-    snprintf (buf, 4095, "\n[USER]");
-    fm_write (fp, buf);
-
-    snprintf (buf, 4095, "root=%s/freem/%s/USER", LOCALSTATEDIR, fma_environment);
-    fm_write (fp, buf);
-
-    snprintf (buf, 4095, "routines_path=%s", usrrtn);
-    fm_write (fp, buf);
-
-    snprintf (buf, 4095, "globals_path=%s", usrgbl);
-    fm_write (fp, buf);
         
-    fclose (fp);
-    set_permissions (config_file, username, groupname, 0755);
-    fprintf (stderr, "[OK]\n");
-
-    printf ("FreeM initial configuration is complete.\n\n");
-
-    printf (" USER globals:                   %s\n", usrgbl);
-    printf (" USER routines:                  %s\n", usrrtn);
-    printf (" SYSTEM globals:                 %s\n", sysgbl);
-    printf (" SYSTEM routines:                %s\n", sysrtn);
-    printf (" After-image journal:            %s [%s]\n", jnlfile, jnlmode);
-    printf (" Journal cut threshold:          %s bytes\n", jnlcut);
-    printf (" Distributed journaling host ID: %s\n", jnlhostid);
+    printf ("\n\nUSER globals:                   %s\n", usrgbl);
+    printf ("USER routines:                  %s\n", usrrtn);
+    printf ("SYSTEM globals:                 %s\n", sysgbl);
+    printf ("SYSTEM routines:                %s\n", sysrtn);
+    printf ("After-image journal:            %s [%s]\n", jnlfile, jnlmode);
+    printf ("Journal cut threshold:          %s bytes\n", jnlcut);
+    printf ("Distributed journaling host ID: %s\n", jnlhostid);
 
+    if (reconfigure == TRUE) {
+        fprintf (stderr, "\nIf you previously defined environments other than '%s', you should run\n'fmadm reconfigure -e=<environment-name>' on each of them to ensure they have\nthe latest vendor routines and correct, updated settings.\n\n", fma_environment);
+    }
     
 } /* fm_configure */