/**********************************************************************
 *  passwd.c -- add/remove user from passwd file
 *
 * Copyright 1994 by the Massachusetts Institute of Technology
 * For copying and distribution information, please see the file
 * <mit-copyright.h>.
 **********************************************************************/
#include <mit-copyright.h>

#include <AL/AL.h>
#include <sys/types.h>
#include <fcntl.h>
#include <unistd.h>
#include <stdio.h>
#include <string.h>
#ifdef SOLARIS
#include <shadow.h>
#endif

/* XXX do reference count */
long ALincRefCount(ALsession session)
{ return 0L; }

/* set error context to contents of a file */
void
ALgetErrorContextFromFile(ALsession session, char *filename)
{
  int fd, cnt;

  fd = open(filename, O_RDONLY);
  if (fd < 0)
    {
      ALcontext(session)[0]='\0';
    }
  else
    {
      /* put contents of NOCREATE file in error context */
      cnt = read(fd, ALcontext(session), ALlengthErrContext);

      /* null-terminate the string */
      if (cnt < ALlengthErrContext) ALcontext(session)[cnt] = '\0';
      else ALcontext(session)[ALlengthErrContext] = '\0';
    }
  return;
}

/* Add user to passwd file */

long
ALaddPasswdEntry(ALsession session)
{
  long code;
  FILE *pfile;
  int cnt, fd;
#ifdef SOLARIS
  long lastchg = DAY_NOW;
#endif

  /* inc refcount */
  if ((code=ALincRefCount(session)) != 0L) return(code);

  /* if we didn't find user via hesiod, we're done */
  if (!ALisTrue(session, ALdidGetHesiodPasswd)) return 0L;

  /* if NOCREATE is set, return an error */
  if (ALisTrue(session, ALhaveNOCREATE))
    {
      ALgetErrorContextFromFile(session, ALfileNOCREATE);
      return(ALerrNOCREATE);
    }

  if (ALisTrue(session, ALisRemoteSession) && ALisTrue(session, ALhaveNOREMOTE))
    {
      ALgetErrorContextFromFile(session, ALfileNOREMOTE);
      return(ALerrNOREMOTE);
    }

  /* lock password file */
  fd = ALopenLockFile("/etc/ptmp");
  if (fd < 0) ALreturnError(session, ALerrNoLock, "/etc/ptmp for insert");

  /* append correct line */
#ifndef SOLARIS
    if((pfile=fopen("/etc/passwd", "a")) != NULL) {
        fprintf(pfile, "%s:%s:%d:%d:%s:%s:%s\n",
                ALpw_name(session),
                ALpw_passwd(session),
                ALpw_uid(session),
                ALpw_gid(session),
                ALpw_gecos(session),
                ALpw_dir(session),
                ALpw_shell(session));
        fclose(pfile);
    }
#else
   if((pfile=fopen("/etc/shadow", "a")) != NULL) {
   fprintf(pfile,"%s:%s:%d::::::\n",
            ALpw_name(session),
            ALpw_passwd(session),
            lastchg);
        fclose(pfile);
    }
    if((pfile=fopen("/etc/passwd", "a")) != NULL) {
        fprintf(pfile, "%s:%s:%d:%d:%s:%s:%s\n",
                ALpw_name(session),
                "x",
                ALpw_uid(session),
                ALpw_gid(session),
                ALpw_gecos(session),
                ALpw_dir(session),
                ALpw_shell(session));
        fclose(pfile);
    }
#endif
    close(fd);
    unlink("/etc/ptmp");

  /* printf("Added %s to /etc/passwd\n", ALpw_dir(session)); */
  return 0L;
}

long
ALremovePasswdEntry(ALsession session)
{
  long code;

  /* XXX should decrement refcount */
  /* if we didn't find user via hesiod, we're done */
  if (!ALisTrue(session, ALdidGetHesiodPasswd)) return 0L;

  /* delete user's entry */
  code = ALmodifyLinesOfFile(session, "/etc/passwd", "/etc/ptmp",
			     ALmodifyRemoveUser, ALappendNOT);
#ifdef SOLARIS
  if (code) return(code);
  code = ALmodifyLinesOfFile(session, "/etc/shadow", "/etc/ptmp",
			     ALmodifyRemoveUser, ALappendNOT);
#endif

  return(code);
}