fix RCS Id strings

[moira.git] / update / exec_002.c

/* $Id$
 *
 * Copyright (C) 1988-1998 by the Massachusetts Institute of Technology.
 * For copying and distribution information, please see the file
 * <mit-copyright.h>.
 */

#include <mit-copyright.h>
#include <moira.h>
#include "update_server.h"
#include "update.h"

#include <sys/wait.h>

#include <errno.h>
#include <signal.h>
#include <stdio.h>
#include <unistd.h>

#include <gdb.h>

RCSID("$Header$");

extern CONNECTION conn;
extern int code, uid, log_priority, have_authorization;
extern char *whoami;

int exec_002(char *str)
{
  int waitb;
  sigset_t mask, oldmask;
  int n, pid;

  if (!have_authorization)
    {
      reject_call(MR_PERM);
      return 0;
    }
  if (config_lookup("noexec"))
    {
      code = EPERM;
      send_object(conn, (char *)&code, INTEGER_T);
      com_err(whoami, code, "Not allowed to execute");
      return 0;
    }
  str += 8;
  while (*str == ' ')
    str++;
  sigemptyset(&mask);
  sigaddset(&mask, SIGCHLD);
  sigprocmask(SIG_BLOCK, &mask, &oldmask);
  pid = fork();
  switch (pid)
    {
    case -1:
      n = errno;
      sigprocmask(SIG_UNBLOCK, &oldmask, &mask);
      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 0;
    case 0:
      if (setuid(uid) < 0)
	{
	  com_err(whoami, errno, "Unable to setuid to %d\n", uid);
	  exit(1);
	}
      sigprocmask(SIG_UNBLOCK, &oldmask, &mask);
      execlp(str, str, NULL);
      n = errno;
      sigprocmask(SIG_UNBLOCK, &oldmask, &mask);
      log_priority = log_ERROR;
      com_err(whoami, n, ": %s", str);
      send_object(conn, (char *)&n, INTEGER_T);
      exit(1);
    default:
      do
	n = wait(&waitb);
      while (n != -1 && n != pid);
      sigprocmask(SIG_UNBLOCK, &oldmask, &mask);
      if ((WIFEXITED(waitb) && (WEXITSTATUS(waitb) != 0)) ||
	  WIFSIGNALED(waitb))
	{
	  log_priority = log_ERROR;
	  if (WIFSIGNALED(waitb))
	    {
	      n = MR_COREDUMP;
	      com_err(whoami, n, " child exited on signal %d",
		      WTERMSIG(waitb));
	    }
	  else
	    {
	      n = WEXITSTATUS(waitb) + ERROR_TABLE_BASE_sms;
	      com_err(whoami, n, " child exited with status %d",
		      WEXITSTATUS(waitb));
	    }
	  code = send_object(conn, (char *)&n, INTEGER_T);
	  if (code)
	    exit(1);
	}
      else
	{
	  code = send_ok();
	  if (code)
	    exit(1);
	}
    }
  return 0;
}