/* GNU Mailutils -- a suite of utilities for electronic mail
   Copyright (C) 1999, 2001 Free Software Foundation, Inc.

   GNU Mailutils is free software; you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
   the Free Software Foundation; either version 2, or (at your option)
   any later version.

   GNU Mailutils is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License for more details.

   You should have received a copy of the GNU General Public License
   along with GNU Mailutils; if not, write to the Free Software
   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307  USA  */

#include "mail.h"

/*
 * sh[ell] [command] -- GNU extension
 * ![command] -- GNU extension
 */

int
mail_shell (int argc, char **argv)
{
  if (argv[0][0] == '!' && strlen (argv[0]) > 1)
    {
      char *buf = NULL;
      argv[0][0] = ' ';
      argcv_string (argc, argv, &buf);
      if (buf)
	{
	  int ret = util_do_command ("shell %s", &buf[1]);
	  free (buf);
	  return ret;
	}
      else
	return util_do_command ("shell");
    }
  else if (argc > 1)
    {
      int pid = fork ();
      if (pid == 0)
	{
	  char **argvec;
	  char *buf = NULL;

	  /* 1(shell) + 1 (-c) + 1(arg) + 1 (null) = 4  */
	  argvec = xmalloc (4 * (sizeof (char *)));

	  argcv_string (argc-1, &argv[1], &buf);

	  argvec[0] = getenv ("SHELL");
	  argvec[1] = "-c";
	  argvec[2] = buf;
	  argvec[3] = NULL;

	  execvp (argvec[0], argvec);
	  free (buf); /* Being cute, nuke it when finish testing.  */
	  free (argvec);
	  return 1;
	}
        if (pid > 0)
	{
	  while (waitpid(pid, NULL, 0) == -1)
	    /* do nothing */;
	  return 0;
	}
      return 1;
    }
  else
    {
      return util_do_command ("shell %s", getenv("SHELL"));
    }
  return 1;
}