/*  $Header: /mit/groupquota/src/quotaon/quotaon.c,v 1.2 90/05/23 14:39:50 jnrees Exp $ 
*/

/*
 * Turn quota on/off for a filesystem.
 */
#include <sys/param.h>
#include <sys/file.h>
#include <ufs/quota.h>
#include <stdio.h>
#include <mntent.h>
#include <qoent.h>
#include <syslog.h>

int	vflag;		/* verbose */
int	aflag;		/* all file systems */

#define QFNAME "quotas"
char	quotafile[MAXPATHLEN + 1];
char	*listbuf[50];
char	*index(), *rindex();
char	*malloc();

main(argc, argv)
	int argc;
	char **argv;
{
	register struct mntent *mntp;
	char **listp;
	int listcnt;
	FILE *mtab, *fstab, *tmp;
	char *whoami, *rindex();
	int offmode = 0, errs = 0, i;
	char *tmpname = "/etc/quotaontmpXXXXXX";

	whoami = rindex(*argv, '/') + 1;
	if (whoami == (char *)1)
		whoami = *argv;
	if (strcmp(whoami, "quotaoff") == 0)
		offmode++;
	else if (strcmp(whoami, "quotaon") != 0) {
		fprintf(stderr, "Name must be quotaon or quotaoff not %s\n",
			whoami);
		exit(1);
	}
again:
	argc--, argv++;
	if (argc > 0 && strcmp(*argv, "-v") == 0) {
		vflag++;
		goto again;
	}
	if (argc > 0 && strcmp(*argv, "-a") == 0) {
		aflag++;
		goto again;
	}
	if (argc <= 0 && !aflag) {
		fprintf(stderr, "Usage:\n\t%s [-v] -a\n\t%s [-v] filesys ...\n",
			whoami, whoami);
		exit(1);
	}
	/*
	 * If aflag go through fstab and make a list of appropriate
	 * filesystems.
	 */
	if (aflag) {
		listp = listbuf;
		listcnt = 0;
		fstab = setmntent(MNTTAB, "r");
		while (mntp = getmntent(fstab)) {
			if (strcmp(mntp->mnt_type, MNTTYPE_42) != 0 ||
			    !hasmntopt(mntp, MNTOPT_QUOTA) ||
			    hasmntopt(mntp, MNTOPT_RO))
				continue;
			*listp = malloc(strlen(mntp->mnt_fsname) + 1);
			strcpy(*listp, mntp->mnt_fsname);
			listp++;
			listcnt++;
		}
		endmntent(fstab);
		*listp = (char *)0;
		listp = listbuf;
	} else {
		listp = argv;
		listcnt = argc;
	}

	/*
	 * Open temporary version of mtab
	 */
	mktemp(tmpname);
	tmp = setmntent(tmpname, "a");
	if (tmp == NULL) {
		perror(tmpname);
		exit(1);
	}

	/*
	 * Open real mtab
	 */
	mtab = setmntent(MOUNTED, "r");
	if (mtab == NULL) {
		perror(MOUNTED);
		exit(1);
	}

	/*
	 * Loop through mtab writing mount record to temp mtab.
	 * If a file system gets turn on or off modify the mount
	 * record before writing it.
	 */
	while ((mntp = getmntent(mtab)) != NULL) {
		if (strcmp(mntp->mnt_type, MNTTYPE_42) == 0 &&
		    !hasmntopt(mntp, MNTOPT_RO) &&
		    (oneof(mntp->mnt_fsname, listp, listcnt) ||
		     oneof(mntp->mnt_dir, listp, listcnt)) ) {
			errs += quotaonoff(mntp, offmode);
		}
		addmntent(tmp, mntp);
	}
	endmntent(mtab);
	endmntent(tmp);

	/*
	 * Move temp mtab to mtab
	 */
	if (rename(tmpname, MOUNTED) < 0) {
		perror(MOUNTED);
		exit(1);
	}
	while (listcnt--) {
		if (*listp) {
			fprintf(stderr, "%s not found in %s\n",
			    *listp, MOUNTED);
		}
		listp++;
	}
	exit(errs);
}

quotaonoff(mntp, offmode)
	register struct mntent *mntp;
	int offmode;
{
  FILE *qotab;
  struct qoent *qoent;
  struct dqargs dqargs;
  int qfd;
  static struct dqblk zblk = {0};

	if (offmode) {
		if (quotactl(Q_QUOTAOFF, mntp->mnt_fsname, 0, NULL) < 0)
			goto bad;
		if (vflag)
			printf("%s: quotas turned off\n", mntp->mnt_dir);
	} else {
	  
	  /* Get arguments from qotab first */
	  if (!(qotab = setqoent(QOTAB))){
	    setup_default_qoent(&qoent);
	    syslog(LOG_NOTICE, "Could not read qotab file, using defaults.");
	  }
	  else{
	    while(qoent = getqoent(qotab))
	      if (strcmp(mntp->mnt_dir, qoent->mnt_dir) == 0) break;
	    endqoent(qotab);
	    if (!qoent){
	      setup_default_qoent(&qoent);
	      syslog(LOG_NOTICE, "Could not find %s in qotab file.  Using defaults.", mntp->mnt_dir);
	    }
	  }

	  (void) sprintf(quotafile, "%s/%s", mntp->mnt_dir, QFNAME);
	  dqargs.qfname = quotafile;
	  dqargs.qgroup = QO_GROUP(qoent);
	  dqargs.bzeroslimit = qoent->qo_bzsl;
	  dqargs.bzerohlimit = qoent->qo_bzhl;
	  dqargs.fzeroslimit = qoent->qo_fzsl;
	  dqargs.fzerohlimit = qoent->qo_fzhl;
	  
	  /* Force the quotas file to be full length */
	  if (!(qfd = open(quotafile, O_RDWR))){
	    fprintf(stderr, "open: ");
	    goto bad;
	  }

	  if (quotactl(Q_QUOTAON, mntp->mnt_fsname, 0, &dqargs) < 0)
	    goto bad;

	  lseek(qfd, dqoff(32767), L_SET);
	  write(qfd, &zblk, dqoff(1));
	  close(qfd);

	  if (vflag)
	    printf("%s: quotas turned on\n", mntp->mnt_dir);
	}
	fixmntent(mntp, offmode);
	return (0);
bad:
	fprintf(stderr, "quotactl: ");
	perror(mntp->mnt_fsname);
	return (1);
}

setup_default_qoent(qoentp)
     struct qoent **qoentp;
{
  if (!(*qoentp = (struct qoent *)malloc(sizeof(struct qoent)))){
    perror("Can't turn on quotas.");
    exit(1);
  }
  (*qoentp)->qo_type = QOTYPE_DEFAULT;
  (*qoentp)->qo_bzsl = QO_BZHL_DEFAULT;
  (*qoentp)->qo_bzhl = QO_BZHL_DEFAULT;
  (*qoentp)->qo_fzsl = QO_FZSL_DEFAULT;
  (*qoentp)->qo_fzhl = QO_FZHL_DEFAULT;
  return;
}

oneof(target, listp, n)
	char *target;
	register char **listp;
	register int n;
{

	while (n--) {
		if (*listp && strcmp(target, *listp) == 0) {
			*listp = (char *)0;
			return (1);
		}
		listp++;
	}
	return (0);
}

char opts[1024];

fixmntent(mntp, offmode)
	register struct mntent *mntp;
	int offmode;
{
	register char *qst, *qend;

	if (offmode) {
		if (hasmntopt(mntp, MNTOPT_NOQUOTA))
			return;
		qst = hasmntopt(mntp, MNTOPT_QUOTA);
	} else {
		if (hasmntopt(mntp, MNTOPT_QUOTA))
			return;
		qst = hasmntopt(mntp, MNTOPT_NOQUOTA);
	}
	if (qst) {
		qend = index(qst, ',');
		if (qst != mntp->mnt_opts)
			qst--;			/* back up to ',' */
		if (qend == NULL)
			*qst = '\0';
		else
			while (*qst++ = *qend++);
	}
	sprintf(opts, "%s,%s", mntp->mnt_opts,
	    offmode? MNTOPT_NOQUOTA : MNTOPT_QUOTA);
	mntp->mnt_opts = opts;
}