#include <sys/types.h>
#include <sys/stat.h>
#include <pwd.h>
#include "readwrite.h"
#include "substdio.h"
#include "subfd.h"
#include "error.h"
#include "exit.h"
#include "byte.h"
#include "str.h"
#include "case.h"
#include "fmt.h"
#include "auto_usera.h"
#include "auto_break.h"
#include "qlx.h"

#define GETPW_USERLEN 32

char *local;
struct passwd *pw;
char *dash;
char *extension;

int userext()
{
  char username[GETPW_USERLEN];
  char mailspooldir[GETPW_USERLEN + 16];
  struct stat st;

  extension = local + str_len(local);
  for (;;) {
    if (extension - local < sizeof(username))
      if (!*extension || (*extension == *auto_break)) {
	byte_copy(username,extension - local,local);
	username[extension - local] = 0;
	case_lowers(username);
	pw = getpwnam(username);
	if (pw)
	  if (pw->pw_uid) {
	    make_mailspool(mailspooldir, pw->pw_name);
	    if (stat(mailspooldir,&st) == 0) {
	      if (st.st_uid == pw->pw_uid) {
		dash = "";
		if (*extension) { ++extension; dash = "-"; }
		return 1;
	      }
	    }
	    else
	      if (error_temp(errno)) _exit(QLX_NFS);
          }
      }
    if (extension == local) return 0;
    --extension;
  }
}

char num[FMT_ULONG];

void main(argc,argv)
int argc;
char **argv;
{
  char mailspooldir[GETPW_USERLEN + 16];

  local = argv[1];
  if (!local) _exit(100);

  if (!userext()) {
    extension = local;
    dash = "-";
    pw = getpwnam(auto_usera);
  }

  if (!pw) _exit(QLX_NOALIAS);

  substdio_puts(subfdoutsmall,pw->pw_name);
  substdio_put(subfdoutsmall,"",1);
  substdio_put(subfdoutsmall,num,fmt_ulong(num,(long) pw->pw_uid));
  substdio_put(subfdoutsmall,"",1);
  substdio_put(subfdoutsmall,num,fmt_ulong(num,(long) pw->pw_gid));
  substdio_put(subfdoutsmall,"",1);
  make_mailspool(mailspooldir, pw->pw_name);
  substdio_puts(subfdoutsmall,mailspooldir);
  substdio_put(subfdoutsmall,"",1);
  substdio_puts(subfdoutsmall,dash);
  substdio_put(subfdoutsmall,"",1);
  substdio_puts(subfdoutsmall,extension);
  substdio_put(subfdoutsmall,"",1);
  substdio_flush(subfdoutsmall);

  _exit(0);
}

int make_mailspool(m, u)
     char *m, *u;
{
  int i, j;
  static char *base_mailspool = "/var/mailspool/";

  for (i = 0; base_mailspool[i] != '\0'; ++i) {
    m[i] = base_mailspool[i];
  }
  for (j = 0; u[j] != '\0'; ++j) {
    m[i++] = u[j];
  }
  m[i] = '\0';
  return 0;
}