/*
 * CDDL HEADER START
 *
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License (the "License").
 * You may not use this file except in compliance with the License.
 *
 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
 * or http://www.opensolaris.org/os/licensing.
 * See the License for the specific language governing permissions
 * and limitations under the License.
 *
 * When distributing Covered Code, include this CDDL HEADER in each
 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
 * If applicable, add the following below this CDDL HEADER, with the
 * fields enclosed by brackets "[]" replaced with your own identifying
 * information: Portions Copyright [yyyy] [name of copyright owner]
 *
 * CDDL HEADER END
 */
/*
 * Copyright 2009 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 */

/*	Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T	*/
/*	  All Rights Reserved  	*/


/*
 * Rmdir(1) removes directory.
 * If -p option is used, rmdir(1) tries to remove the directory
 * and it's parent directories.  It exits with code 0 if the WHOLE
 * given path is removed and 2 if part of path remains.
 * Results are printed except when -s is used.
 */

#include <stdio.h>
#include <libgen.h>
#include <errno.h>
#include <string.h>
#include <unistd.h>
#include <stdlib.h>
#include <locale.h>


int
main(int argc, char **argv)
{

	char	*prog;
	int c, pflag, sflag, errflg, rc;
	char *ptr, *remain, *msg, *path;
	unsigned int pathlen;

	prog = argv[0];
	pflag = sflag = 0;
	errflg = 0;
	(void) setlocale(LC_ALL, "");
#if !defined(TEXT_DOMAIN)	/* Should be defined by cc -D */
#define	TEXT_DOMAIN "SYS_TEST"	/* Use this only if it wasn't */
#endif
	(void) textdomain(TEXT_DOMAIN);

	while ((c = getopt(argc, argv, "ps")) != EOF)
		switch (c) {
			case 'p':
				pflag++;
				break;
			case 's':
				sflag++;
				break;
			case '?':
				errflg++;
				break;
		}
	if (argc < 2 || errflg) {
		(void) fprintf(stderr, gettext("Usage: %s [-ps] dirname ...\n"),
		    prog);
		exit(2);
	}
	errno = 0;
	argc -= optind;
	argv = &argv[optind];
	while (argc--) {
		ptr = *argv++;
		/*
		 * -p option. Remove directory and parents.
		 * Prints results of removing
		 */
		if (pflag) {
			pathlen = (unsigned)strlen(ptr);
			if ((path = (char *)malloc(pathlen + 4)) == NULL ||
			    (remain = (char *)malloc(pathlen + 4)) == NULL) {
				perror(prog);
				exit(2);
			}
			(void) strcpy(path, ptr);

			/*
			 * rmdirp removes directory and parents
			 * rc != 0 implies only part of path removed
			 */

			if (((rc = rmdirp(path, remain)) != 0) && !sflag) {
				switch (rc) {
				case -1:
					if (errno == EEXIST)
						msg = gettext(
						    "Directory not empty");
					else
						msg = strerror(errno);
					break;
				case -2:
					errno = EINVAL;
					msg = gettext("Can not remove . or ..");
					break;
				case -3:
					errno = EINVAL;
					msg = gettext(
					    "Can not remove current directory");
					break;
				}
				(void) fprintf(stderr, gettext("%s: directory"
				    " \"%s\": %s not removed; %s\n"),
				    prog, ptr, remain, msg);
			}
			free(path);
			free(remain);
			continue;
		}

		/* No -p option. Remove only one directory */

		if (rmdir(ptr) == -1) {
			switch (errno) {
			case EEXIST:
				msg = gettext("Directory not empty");
				break;
			case ENOTDIR:
				msg = gettext("Path component not a directory");
				break;
			case ENOENT:
				msg = gettext("Directory does not exist");
				break;
			case EACCES:
				msg = gettext(
				    "Search or write permission needed");
				break;
			case EBUSY:
				msg = gettext(
				    "Directory is a mount point or in use");
				break;
			case EROFS:
				msg = gettext("Read-only file system");
				break;
			case EIO:
				msg = gettext(
				    "I/O error accessing file system");
				break;
			case EINVAL:
				msg = gettext(
				    "Can't remove current directory or ..");
				break;
			case EFAULT:
			default:
				msg = strerror(errno);
				break;
			}
			(void) fprintf(stderr,
			    gettext("%s: directory \"%s\": %s\n"),
			    prog, ptr, msg);
			continue;
		}
	}
	return (errno ? 2 : 0);
}