randomized continuation lines

[moira.git] / update / exec_002.c

diff --git a/update/exec_002.c b/update/exec_002.c
index 4f4d06c4438f54aa716300fffb69d0a8b4157674..03188efcd65ea1a2172aa9029a02d2dae947f93a 100644 (file)
--- a/update/exec_002.c
+++ b/update/exec_002.c
@@ -2,45 +2,100 @@
  *     $Source$
  *     $Header$
  */
+/*  (c) Copyright 1988 by the Massachusetts Institute of Technology. */
+/*  For copying and distribution information, please see the file */
+/*  <mit-copyright.h>. */
 
 #ifndef lint
 static char *rcsid_exec_002_c = "$Header$";
 #endif lint
 
+#include <mit-copyright.h>
 #include <stdio.h>
+#include <errno.h>
+#include <sys/types.h>
+#ifdef _AIX
+#undef _BSD
+#endif
 #include <sys/wait.h>
-#include "gdb.h"
+#ifdef _AIX
+#define _BSD 44
+#endif
+#include <signal.h>
+#include <gdb.h>
+#include <moira.h>
 #include "update.h"
-#include "sms_update_int.h"
-#include "kludge.h"
-#include "smsu_int.h"
 
 extern CONNECTION conn;
-extern int code, errno;
+extern int code, errno, uid;
+extern char *whoami;
+
+#if defined(vax) || defined(ibm032)
+#define WEXITSTATUS(waitb) ((waitb).w_retcode)
+#endif
+
 
 int
 exec_002(str)
     char *str;
 {
+#ifdef POSIX
+    int waitb;
+    sigset_t mask,oldmask;
+#else
     union wait waitb;
+    int mask;
+#endif
     int n, pid;
 
+    if (config_lookup("noexec")) {
+       code = EPERM;
+       code = send_object(conn, (char *)&code, INTEGER_T);
+       com_err(whoami, code, "Not allowed to execute");
+       return(0);
+    }
     str += 8;
     while (*str == ' ')
        str++;
+#ifdef POSIX
+    sigemptyset(&mask);
+    sigaddset(&mask,SIGCHLD);
+    sigprocmask(SIG_BLOCK,&mask,&oldmask);
+#else
+    mask = sigblock(sigmask(SIGCHLD));
+#endif
     pid = fork();
     switch (pid) {
     case -1:
        n = errno;
+#ifdef POSIX
+       sigprocmask(SIG_UNBLOCK,&oldmask,&mask);
+#else
+       sigsetmask(mask);
+#endif
        log_priority = log_ERROR;
        com_err(whoami, errno, ": can't fork to run install script");
        code = send_object(conn, (char *)&n, INTEGER_T);
        if (code)
            exit(1);
-       return;
+       return(0);
     case 0:
+       if (setuid(uid) < 0) {
+           com_err(whoami, errno, "Unable to setuid to %d\n", uid);
+           exit(1);
+       }
+#ifdef POSIX
+       sigprocmask(SIG_UNBLOCK,&oldmask,&mask);
+#else
+       sigsetmask(mask);
+#endif
        execlp(str, str, (char *)NULL);
        n = errno;
+#ifdef POSIX
+       sigprocmask(SIG_UNBLOCK,&oldmask,&mask);
+#else
+       sigsetmask(mask);
+#endif
        log_priority = log_ERROR;
        com_err(whoami, n, ": %s", str);
        (void) send_object(conn, (char *)&n, INTEGER_T);
@@ -49,17 +104,32 @@ exec_002(str)
        do {
            n = wait(&waitb);
        } while (n != -1 && n != pid);
+#ifdef POSIX
+       sigprocmask(SIG_UNBLOCK,&oldmask,&mask);
+#else
+       sigsetmask(mask);
+#endif
+#ifdef POSIX
+       if (WIFEXITED(waitb)) {
+           n = WEXITSTATUS(waitb) + ERROR_TABLE_BASE_sms;
+           log_priority = log_ERROR;
+           com_err(whoami, n, " child exited with status %d",
+                   WEXITSTATUS(waitb));
+#else
        if (waitb.w_status) {
+           n = waitb.w_retcode + ERROR_TABLE_BASE_sms;
            log_priority = log_ERROR;
-           com_err(whoami, 0, "child exited with status %d", waitb.w_status);
+           com_err(whoami, n, " child exited with status %d",
+                   waitb.w_retcode);
+#endif
            code = send_object(conn, (char *)&n, INTEGER_T);
-           if (code)
+           if (code) {
                exit(1);
-       }
-       else {
+           }
+       } else {
            code = send_ok();
            if (code)
-               exit(1);
+             exit(1);
        }
     }
 }