--- freem/src/mumps.c	2025/03/31 20:01:13	1.9
+++ freem/src/mumps.c	2025/04/02 02:16:27	1.12
@@ -1,5 +1,5 @@
 /*
- *   $Id: mumps.c,v 1.9 2025/03/31 20:01:13 snw Exp $
+ *   $Id: mumps.c,v 1.12 2025/04/02 02:16:27 snw Exp $
  *    main module of freem
  *
  *  
@@ -24,6 +24,15 @@
  *   along with FreeM.  If not, see <https://www.gnu.org/licenses/>.
  *
  *   $Log: mumps.c,v $
+ *   Revision 1.12  2025/04/02 02:16:27  snw
+ *   Add fmadm status environment command and move journals to a better location
+ *
+ *   Revision 1.11  2025/04/01 23:21:45  snw
+ *   fmadm commands for stopping, starting, and restarting environments now functional
+ *
+ *   Revision 1.10  2025/04/01 20:11:46  snw
+ *   Further work on fmadm
+ *
  *   Revision 1.9  2025/03/31 20:01:13  snw
  *   Set d_uid in daemon
  *
@@ -135,7 +144,6 @@ int main (int argc, char **argv, char **
 	{"execute", required_argument, 0, 'x'},
         {"daemon", no_argument, 0, 'd'},
         {"nofork", no_argument, 0, 'k'},
-        {"pidfile", required_argument, 0, 'p'},
         {"shmsize", required_argument, 0, 'S'},
         {"user", required_argument, 0, 'u'},
         {"group", required_argument, 0, 'g'},
@@ -297,10 +305,6 @@ int main (int argc, char **argv, char **
 		nofork = TRUE;
                 break;
 
-            case 'p': /* --pidfile */
-                pid_file_path = strdup (optarg);
-                break;
-
             case 'S': /* --shmsize */
                 shm_init_size = atol (optarg);
                 break;
@@ -326,7 +330,7 @@ int main (int argc, char **argv, char **
         extern char *optarg;
         extern int optind, optopt;
 
-        while ((c = getopt (argc, argv, "hsfiqRr:n:e:vx:dkpS:u:g:")) != -1) {
+        while ((c = getopt (argc, argv, "hsfiqRr:n:e:vx:dkS:u:g:")) != -1) {
 
 	    if (c == '?') freem_usage ();
 	    
@@ -393,10 +397,6 @@ int main (int argc, char **argv, char **
                     nofork = TRUE;
                     break;
 
-                case 'p': /* --pidfile */
-                    pid_file_path = strdup (optarg);
-                    break;
-
                 case 's': /* --standard */
                     
                     if (strcmp (optarg, "M77") == 0) {
@@ -568,11 +568,6 @@ int main (int argc, char **argv, char **
                     m_log (1, "failure switching UIDs");
                     exit (1);
                 }
-                if (chdir (d_user->pw_dir) == -1) {
-                    fprintf (stderr, "freem:  chdir failure\n");
-                    m_log (1, "failure in chdir");
-                    exit (1);
-                }            
             }
 
         }
@@ -587,44 +582,14 @@ int main (int argc, char **argv, char **
         run_daemon = TRUE;
         nofork = FALSE;        
         
-        if (pid_file_path == NULL) {
-            /* no PID file specified. choose one. */
-            uid_t pid_uid;
-            char *home_directory;
-           
-            pid_file_path = (char *) calloc (PATH_MAX, sizeof (char));
-            NULLPTRCHK(pid_file_path,"main");
-
-            home_directory = (char *) calloc (PATH_MAX, sizeof (char));
-            NULLPTRCHK(home_directory,"main");
-            
-            pid_uid = geteuid ();
-
-            if (pid_uid == 0) {
-                /* we're running as root */
-                strcpy (pid_file_path, "/var/run/freem.pid");
-            }
-            else {
-                /* our user is a normie */
-                struct passwd *pw = getpwuid (pid_uid);
-
-                if (pw == NULL) {
-                    m_log (1, "main:  failure in getpwuid()");
-                }
-                
-                strcpy (home_directory, pw->pw_dir);               
-                snprintf (pid_file_path, PATH_MAX - 1, "%s/.freem.pid", home_directory);                
-            }
-
-            free (home_directory);
-            
-        }
-
         {
             char pidfile_buf[256];
             int errsav;
 
-            m_log (1, pid_file_path);
+            pid_file_path = (char *) malloc (PATH_MAX * sizeof (char));
+            NULLPTRCHK(pid_file_path,"main");
+            
+            snprintf (pid_file_path, PATH_MAX - 1, "%s/freem/run/%s.pid", LOCALSTATEDIR, shm_env);
 
             pid_fd = open (pid_file_path, O_RDWR | O_CREAT, 0640);
             errsav = errno;
@@ -642,9 +607,9 @@ int main (int argc, char **argv, char **
                 exit (1);
             }
 
-            sprintf (pidfile_buf, "%d\n", getpid ());
+            sprintf (pidfile_buf, "%ld\n", (long) getpid ());
             write (pid_fd, pidfile_buf, strlen (pidfile_buf));
-         
+
         }
        
         
@@ -851,6 +816,7 @@ int main (int argc, char **argv, char **
 
                 fprintf (stderr, "freem:  terminating\r\n");
                 cleanup ();
+                
                 exit (0);
                 
             }
@@ -963,7 +929,6 @@ void freem_usage(void)
     fprintf (stdout, "\t-x <MCODE>, --execute=<MCODE>\n\t\texecute M code <MCODE> on startup\n\n");
     fprintf (stdout, "\t-d, --daemon\n\t\trun the FreeM daemon (one and only one FreeM daemon must always be running)\n\n");
     fprintf (stdout, "\t-k, --nofork\n\t\trun the FreeM daemon in foreground (requires --daemon)\n\n");
-    fprintf (stdout, "\t-p <PIDFILE>, --pidfile=<PIDFILE>\n\t\tuse <PIDFILE> to record the PID of the FreeM daemon\n\n\n");
     fprintf (stdout, "\t-S <BYTES>, --shmsize=<BYTES>\n\t\tsets the size of the shared memory segment where FreeM stores the job table, lock table, and IPC table.\n");
 #else
     fprintf (stdout, "\t-h\n\t\tdisplays this help message\n\n");
@@ -978,7 +943,6 @@ void freem_usage(void)
     fprintf (stdout, "\t-x <MCODE>\n\t\texecute M code <MCODE> on startup\n\n");
     fprintf (stdout, "\t-d\n\t\trun the FreeM daemon (one and only one FreeM daemon must always be running)\n\n");
     fprintf (stdout, "\t-k\n\t\trun the FreeM daemon in foreground (requires --daemon)\n\n");
-    fprintf (stdout, "\t-p <PIDFILE>\n\t\tuse <PIDFILE> to record the PID of the FreeM daemon\n\n\n");
     fprintf (stdout, "\t-S <BYTES>\n\t\tsets the size of the shared memory segment where FreeM stores the job table, lock table, and IPC table.\n");
 #endif    
     fprintf (stdout, "\t\t  - Each concurrent job takes %d bytes (1 page) of shared memory\n", PG_SIZE);