#include <sys/types.h>
#include <pwd.h>
#include <grp.h>
#include "readwrite.h"
#include "exit.h"
#include "scan.h"
#include "fmt.h"
#include "strerr.h"
#include "open.h"
#include "seek.h"
#include "fork.h"

#define FATAL "idedit: fatal: "
#define WARNING "idedit: warning: "

int fd;

void byte(pos,value)
char *pos;
unsigned int value;
{
  unsigned long u;
  unsigned char ch;

  if (pos[scan_ulong(pos,&u)]) return;

  if (seek_set(fd,(seek_pos) u) == -1)
    strerr_die2sys(111,FATAL,"unable to seek: ");

  ch = value;
  if (write(fd,&ch,1) != 1)
    strerr_die2sys(111,FATAL,"unable to write: ");
}

char *args[10];

void run()
{
  int pid;
  int wstat;

  pid = fork();
  if (pid == -1)
    strerr_die2sys(111,FATAL,"unable to fork: ");

  if (pid == 0) {
    execv(*args,args);
    strerr_die4sys(111,WARNING,"unable to run ",*args,": ");
  }

  if (wait_pid(&wstat,pid) != pid)
    strerr_die2sys(111,FATAL,"waitpid surprise");
}

void u(account,group,home,pos0,pos1,pos2,pos3)
char *account;
char *group;
char *home;
char *pos0;
char *pos1;
char *pos2;
char *pos3;
{
  struct passwd *pw;
  unsigned int value;

  pw = getpwnam(account);

  if (!pw && group) {
    args[0] = "add-account";
    args[1] = account;
    args[2] = group;
    args[3] = home;
    args[4] = 0;
    run();
    pw = getpwnam(account);
  }

  if (!pw)
    strerr_die3x(111,FATAL,"unable to find uid for ",account);

  value = pw->pw_uid;
  byte(pos0,value); value >>= 8;
  byte(pos1,value); value >>= 8;
  byte(pos2,value); value >>= 8;
  byte(pos3,value); value >>= 8;
  if (value)
    strerr_die3x(111,FATAL,"excessively large uid for ",account);
}

void g(group,pos0,pos1,pos2,pos3)
char *group;
char *pos0;
char *pos1;
char *pos2;
char *pos3;
{
  struct group *gr;
  unsigned int value;

  gr = getgrnam(group);

  if (!gr) {
    args[0] = "add-group";
    args[1] = group;
    args[2] = 0;
    run();
    gr = getgrnam(group);
  }

  if (!gr)
    strerr_die3x(111,FATAL,"unable to find gid for ",group);

  value = gr->gr_gid;
  byte(pos0,value); value >>= 8;
  byte(pos1,value); value >>= 8;
  byte(pos2,value); value >>= 8;
  byte(pos3,value); value >>= 8;
  if (value)
    strerr_die3x(111,FATAL,"excessively large gid for ",group);
}

void main(argc,argv)
int argc;
char **argv;
{
  if (argc < 42) _exit(100);

  fd = open_write(argv[1]);
  if (fd == -1) strerr_die4sys(111,FATAL,"unable to open ",argv[1],": ");

  g("qmail",argv[34],argv[35],argv[36],argv[37]);
  g("nofiles",argv[38],argv[39],argv[40],argv[41]);

  u("root",(char *) 0,"/",argv[14],argv[15],argv[16],argv[17]);

  u("qmaild","nofiles","/var/qmail",argv[6],argv[7],argv[8],argv[9]);
  u("qmaill","nofiles","/var/qmail",argv[10],argv[11],argv[12],argv[13]);
  u("qmailp","nofiles","/var/qmail",argv[18],argv[19],argv[20],argv[21]);
  u("alias","nofiles","/var/qmail/alias",argv[2],argv[3],argv[4],argv[5]);

  u("qmailq","qmail","/var/qmail",argv[22],argv[23],argv[24],argv[25]);
  u("qmailr","qmail","/var/qmail",argv[26],argv[27],argv[28],argv[29]);
  u("qmails","qmail","/var/qmail",argv[30],argv[31],argv[32],argv[33]);

  _exit(0);
}