/* ----------------------------------------------------------------------- *

 *

 *  direct.c - Linux automounter direct mount handling

 *   

 *   Copyright 1997 Transmeta Corporation - All Rights Reserved

 *   Copyright 1999-2000 Jeremy Fitzhardinge <jeremy@goop.org>

 *   Copyright 2001-2005 Ian Kent <raven@themaw.net>

 *

 *   This program is free software; you can redistribute it and/or modify

 *   it under the terms of the GNU General Public License as published by

 *   the Free Software Foundation, Inc., 675 Mass Ave, Cambridge MA 02139,

 *   USA; either version 2 of the License, or (at your option) any later

 *   version.

 *   

 *   This program is distributed in the hope that it will be useful,

 *   but WITHOUT ANY WARRANTY; without even the implied warranty of

 *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

 *   GNU General Public License for more details.

 *

 * ----------------------------------------------------------------------- */

#include <dirent.h>

#include <libgen.h>

#include <signal.h>

#include <stdio.h>

#include <stdlib.h>

#include <string.h>

#include <sys/ioctl.h>

#include <sys/types.h>

#include <sys/wait.h>

#include <sys/stat.h>

#include <sys/time.h>

#include <sys/poll.h>

#include <sys/mount.h>

#include <sys/vfs.h>

#include <sched.h>

#define INCLUDE_PENDING_FUNCTIONS

#include "automount.h"

/* Attribute to create detached thread */

extern pthread_attr_t th_attr_detached;

struct mnt_params {

	char *options;

};

pthread_key_t key_mnt_direct_params;

pthread_key_t key_mnt_offset_params;

pthread_once_t key_mnt_params_once = PTHREAD_ONCE_INIT;

static void key_mnt_params_destroy(void *arg)

{

	struct mnt_params *mp;

	mp = (struct mnt_params *) arg;

	if (mp->options)

		free(mp->options);

	free(mp);

	return;

}

static void key_mnt_params_init(void)

{

	int status;

	status = pthread_key_create(&key_mnt_direct_params, key_mnt_params_destroy);

	if (status)

		fatal(status);

	status = pthread_key_create(&key_mnt_offset_params, key_mnt_params_destroy);

	if (status)

		fatal(status);

	return;

}

static void mnts_cleanup(void *arg)

{

	struct mnt_list *mnts = (struct mnt_list *) arg;

	tree_free_mnt_tree(mnts);

	return;

}

int do_umount_autofs_direct(struct autofs_point *ap, struct mapent *me)

{

	struct ioctl_ops *ops = get_ioctl_ops();

	char buf[MAX_ERR_BUF];

	int ioctlfd = -1, rv, left, retries;

	int opened = 0;

	left = umount_multi(ap, me->key, 0);

	if (left) {

		warn(ap->logopt, "could not unmount %d dirs under %s",

		     left, me->key);

		return 1;

	}

	if (me->ioctlfd != -1) {

		if (ap->state == ST_READMAP &&

		    is_mounted(me->key, MNTS_REAL)) {

			error(ap->logopt,

			      "attempt to umount busy direct mount %s",

			      me->key);

			return 1;

		}

		ioctlfd = me->ioctlfd;

	} else {

		ops->open(ap->logopt, &ioctlfd, me->dev, me->key);

		opened = 1;

	}

	if (ioctlfd >= 0) {

		unsigned int status = 1;

		rv = ops->askumount(ap->logopt, ioctlfd, &status);

		if (rv) {

			char *estr = strerror_r(errno, buf, MAX_ERR_BUF);

			error(ap->logopt, "ioctl failed: %s", estr);

			/* The ioctl failed so this probably won't

			 * work either but since we opened it here

			 * try anyway. We should set these catatonic

			 * too but ....

			 */

			if (opened)

				ops->close(ap->logopt, ioctlfd);

			return 1;

		} else if (!status) {

			if (ap->state != ST_SHUTDOWN_FORCE) {

				error(ap->logopt,

				      "ask umount returned busy for %s",

				      me->key);

				if (opened)

					ops->close(ap->logopt, ioctlfd);

				return 1;

			} else {

				me->ioctlfd = -1;

				ops->close(ap->logopt, ioctlfd);

				goto force_umount;

			}

		}

		me->ioctlfd = -1;

		ops->close(ap->logopt, ioctlfd);

	} else {

		error(ap->logopt,

		      "couldn't get ioctl fd for direct mount %s", me->key);

		return 1;

	}

	sched_yield();

	retries = UMOUNT_RETRIES;

	while ((rv = umount(me->key)) == -1 && retries--) {

		struct timespec tm = {0, 200000000};

		if (errno != EBUSY)

			break;

		nanosleep(&tm, NULL);

	}

	if (rv == -1) {

		switch (errno) {

		case ENOENT:

		case EINVAL:

			warn(ap->logopt, "mount point %s does not exist",

			      me->key);

			return 0;

			break;

		case EBUSY:

			warn(ap->logopt, "mount point %s is in use", me->key);

			if (ap->state == ST_SHUTDOWN_FORCE)

				goto force_umount;

			else {

				if (ap->state != ST_READMAP)

					set_direct_mount_tree_catatonic(ap, me);

				return 0;

			}

			break;

		case ENOTDIR:

			error(ap->logopt, "mount point is not a directory");

			return 0;

			break;

		}

		return 1;

	}

force_umount:

	if (rv != 0) {

		info(ap->logopt, "forcing umount of direct mount %s", me->key);

		rv = umount2(me->key, MNT_DETACH);

	} else

		info(ap->logopt, "umounted direct mount %s", me->key);

	if (!rv && me->flags & MOUNT_FLAG_DIR_CREATED) {

		if  (rmdir(me->key) == -1) {

			char *estr = strerror_r(errno, buf, MAX_ERR_BUF);

			warn(ap->logopt, "failed to remove dir %s: %s",

			     me->key, estr);

		}

	}

	return rv;

}

int umount_autofs_direct(struct autofs_point *ap)

{

	struct map_source *map;

	struct mapent_cache *nc, *mc;

	struct mapent *me, *ne;

	nc = ap->entry->master->nc;

	cache_readlock(nc);

	pthread_cleanup_push(cache_lock_cleanup, nc);

	map = ap->entry->maps;

	while (map) {

		mc = map->mc;

		pthread_cleanup_push(cache_lock_cleanup, mc);

		cache_readlock(mc);

		me = cache_enumerate(mc, NULL);

		while (me) {

			int error;

			ne = cache_lookup_distinct(nc, me->key);

			if (ne && map->master_line > ne->age) {

				me = cache_enumerate(mc, me);

				continue;

			}

			/* The daemon is exiting so ...

			 * If we get a fail here we must make our

			 * best effort to set the direct mount trigger

			 * catatonic regardless of the reason for the

			 * failed umount.

			 */

			error = do_umount_autofs_direct(ap, me);

			if (!error)

				goto done;

			if (ap->state != ST_READMAP)

				set_direct_mount_tree_catatonic(ap, me);

done:

			me = cache_enumerate(mc, me);

		}

		pthread_cleanup_pop(1);

		map = map->next;

	}

	pthread_cleanup_pop(1);

	close(ap->state_pipe[0]);

	close(ap->state_pipe[1]);

	if (ap->pipefd >= 0)

		close(ap->pipefd);

	if (ap->kpipefd >= 0) {

		close(ap->kpipefd);

		ap->kpipefd = -1;

	}

	return 0;

}

int do_mount_autofs_direct(struct autofs_point *ap,

			   struct mapent *me, time_t timeout)

{

	const char *str_direct = mount_type_str(t_direct);

	struct ioctl_ops *ops = get_ioctl_ops();

	struct mnt_params *mp;

	struct stat st;

	int status, ret, ioctlfd;

	const char *map_name;

	time_t runfreq;

	int err;

	if (timeout) {

		/* Calculate the expire run frequency */

		runfreq = (timeout + CHECK_RATIO - 1) / CHECK_RATIO;

		if (ap->exp_runfreq)

			ap->exp_runfreq = min(ap->exp_runfreq, runfreq);

		else

			ap->exp_runfreq = runfreq;

	}

	if (ops->version && !do_force_unlink) {

		ap->flags |= MOUNT_FLAG_REMOUNT;

		ret = try_remount(ap, me, t_direct);

		ap->flags &= ~MOUNT_FLAG_REMOUNT;

		if (ret == 1)

			return 0;

		if (ret == 0)

			return -1;

	} else {

		struct mnt_list *mnts;

		if (ap->state == ST_READMAP && is_mounted(me->key, MNTS_ALL)) {

			time_t tout = get_exp_timeout(ap, me->source);

			int save_ioctlfd, ioctlfd;

			save_ioctlfd = ioctlfd = me->ioctlfd;

			if (ioctlfd == -1)

				ops->open(ap->logopt,

					  &ioctlfd, me->dev, me->key);

			if (ioctlfd < 0) {

				error(ap->logopt,

				     "failed to create ioctl fd for %s",

				     me->key);

				return 0;

			}

			ops->timeout(ap->logopt, ioctlfd, tout);

			if (save_ioctlfd == -1)

				ops->close(ap->logopt, ioctlfd);

			return 0;

		}

		mnts = get_mnt_list(me->key, 1);

		if (mnts) {

			/*

			 * A return of 1 indicates we successfully unlinked

			 * the mount tree if there was one. A return of 0

			 * indicates we failed to unlink the mount tree so

			 * we have to return a failure.

			 */

			ret = unlink_mount_tree(ap, mnts);

			free_mnt_list(mnts);

			if (!ret) {

				error(ap->logopt,

				      "already mounted as other than autofs "

				      "or failed to unlink entry in tree");

				return -1;

			}

		}

		if (me->ioctlfd != -1) {

			error(ap->logopt, "active direct mount %s", me->key);

			return -1;

		}

	}

	status = pthread_once(&key_mnt_params_once, key_mnt_params_init);

	if (status)

		fatal(status);

	mp = pthread_getspecific(key_mnt_direct_params);

	if (!mp) {

		mp = (struct mnt_params *) malloc(sizeof(struct mnt_params));

		if (!mp) {

			crit(ap->logopt,

			  "mnt_params value create failed for direct mount %s",

			  ap->path);

			return 0;

		}

		mp->options = NULL;

		status = pthread_setspecific(key_mnt_direct_params, mp);

		if (status) {

			free(mp);

			fatal(status);

		}

	}

	if (!mp->options) {

		mp->options = make_options_string(ap->path, ap->kpipefd, str_direct);

		if (!mp->options)

			return 0;

		if ((ap->flags & MOUNT_FLAG_STRICTEXPIRE) &&

		    ((get_kver_major() == 5 && get_kver_minor() > 3) ||

		     (get_kver_major() > 5))) {

			char *tmp = realloc(mp->options, strlen(mp->options) + 12);

			if (tmp) {

				strcat(tmp, ",strictexpire");

				mp->options = tmp;

			}

		}

		if ((ap->flags & MOUNT_FLAG_IGNORE) &&

		    ((get_kver_major() == 5 && get_kver_minor() > 4) ||

		     (get_kver_major() > 5))) {

			char *tmp = realloc(mp->options, strlen(mp->options) + 7);

			if (tmp) {

				strcat(tmp, ",ignore");

				mp->options = tmp;

			}

		}

	}

	/* In case the directory doesn't exist, try to mkdir it */

	if (mkdir_path(me->key, mp_mode) < 0) {

		if (errno != EEXIST && errno != EROFS) {

			crit(ap->logopt,

			     "failed to create mount directory %s", me->key);

			return -1;

		}

		/* If we recieve an error, and it's EEXIST or EROFS we know

		   the directory was not created. */

		me->flags &= ~MOUNT_FLAG_DIR_CREATED;

	} else {

		/* No errors so the directory was successfully created */

		me->flags |= MOUNT_FLAG_DIR_CREATED;

	}

	map_name = me->mc->map->argv[0];

	ret = mount(map_name, me->key, "autofs", MS_MGC_VAL, mp->options);

	if (ret) {

		crit(ap->logopt, "failed to mount autofs path %s", me->key);

		goto out_err;

	}

	ret = stat(me->key, &st);

	if (ret == -1) {

		error(ap->logopt,

		      "failed to stat direct mount trigger %s", me->key);

		goto out_umount;

	}

	if (ap->mode && (err = chmod(me->key, ap->mode)))

		warn(ap->logopt, "failed to change mode of %s", me->key);

	ops->open(ap->logopt, &ioctlfd, st.st_dev, me->key);

	if (ioctlfd < 0) {

		crit(ap->logopt, "failed to create ioctl fd for %s", me->key);

		goto out_umount;

	}

	ops->timeout(ap->logopt, ioctlfd, timeout);

	notify_mount_result(ap, me->key, timeout, str_direct);

	cache_set_ino_index(me->mc, me->key, st.st_dev, st.st_ino);

	ops->close(ap->logopt, ioctlfd);

	debug(ap->logopt, "mounted trigger %s", me->key);

	return 0;

out_umount:

	/* TODO: maybe force umount (-l) */

	umount(me->key);

out_err:

	if (me->flags & MOUNT_FLAG_DIR_CREATED)

		rmdir(me->key);

	return -1;

}

int mount_autofs_direct(struct autofs_point *ap)

{

	struct map_source *map;

	struct mapent_cache *nc, *mc;

	struct mapent *me, *ne, *nested;

	time_t now = monotonic_time(NULL);

	if (strcmp(ap->path, "/-")) {

		error(ap->logopt, "expected direct map, exiting");

		return -1;

	}

	/* TODO: check map type */

	if (lookup_nss_read_map(ap, NULL, now))

		lookup_prune_cache(ap, now);

	else {

		error(ap->logopt, "failed to read direct map");

		return -1;

	}

	pthread_cleanup_push(master_source_lock_cleanup, ap->entry);

	master_source_readlock(ap->entry);

	nc = ap->entry->master->nc;

	cache_readlock(nc);

	pthread_cleanup_push(cache_lock_cleanup, nc);

	map = ap->entry->maps;

	while (map) {

		time_t timeout;

		/*

		 * Only consider map sources that have been read since

		 * the map entry was last updated.

		 */

		if (ap->entry->age > map->age) {

			map = map->next;

			continue;

		}

		mc = map->mc;

		timeout = get_exp_timeout(ap, map);

		cache_readlock(mc);

		pthread_cleanup_push(cache_lock_cleanup, mc);

		me = cache_enumerate(mc, NULL);

		while (me) {

			ne = cache_lookup_distinct(nc, me->key);

			if (ne) {

				if (map->master_line < ne->age) {

					/* TODO: check return, locking me */

					do_mount_autofs_direct(ap, me, timeout);

				}

				me = cache_enumerate(mc, me);

				continue;

			}

			nested = cache_partial_match(nc, me->key);

			if (nested) {

				error(ap->logopt,

				   "removing invalid nested null entry %s",

				   nested->key);

				nested = cache_partial_match(nc, me->key);

				if (nested)

					cache_delete(nc, nested->key);

			}

			/* TODO: check return, locking me */

			do_mount_autofs_direct(ap, me, timeout);

			me = cache_enumerate(mc, me);

		}

		pthread_cleanup_pop(1);

		map = map->next;

	}

	pthread_cleanup_pop(1);

	pthread_cleanup_pop(1);

	return 0;

}

int umount_autofs_offset(struct autofs_point *ap, struct mapent *me)

{

	struct ioctl_ops *ops = get_ioctl_ops();

	char buf[MAX_ERR_BUF];

	int ioctlfd = -1, rv = 1, retries;

	int opened = 0;

	if (me->ioctlfd != -1) {

		if (is_mounted(me->key, MNTS_REAL)) {

			error(ap->logopt,

			      "attempt to umount busy offset %s", me->key);

			return 1;

		}

		ioctlfd = me->ioctlfd;

	} else {

		/* offset isn't mounted, return success and try to recover */

		if (!is_mounted(me->key, MNTS_AUTOFS)) {

			debug(ap->logopt,

			      "offset %s not mounted",

			      me->key);

			return 0;

		}

		ops->open(ap->logopt, &ioctlfd, me->dev, me->key);

		opened = 1;

	}

	if (ioctlfd >= 0) {

		unsigned int status = 1;

		rv = ops->askumount(ap->logopt, ioctlfd, &status);

		if (rv) {

			char *estr = strerror_r(errno, buf, MAX_ERR_BUF);

			logerr("ioctl failed: %s", estr);

			if (opened && ioctlfd != -1)

				ops->close(ap->logopt, ioctlfd);

			return 1;

		} else if (!status) {

			if (ap->state != ST_SHUTDOWN_FORCE) {

				if (ap->shutdown)

					error(ap->logopt,

					     "ask umount returned busy for %s",

					     me->key);

				if (opened && ioctlfd != -1)

					ops->close(ap->logopt, ioctlfd);

				return 1;

			} else {

				me->ioctlfd = -1;

				ops->catatonic(ap->logopt, ioctlfd);

				ops->close(ap->logopt, ioctlfd);

				goto force_umount;

			}

		}

		me->ioctlfd = -1;

		ops->catatonic(ap->logopt, ioctlfd);

		ops->close(ap->logopt, ioctlfd);

	} else {

		struct stat st;

		char *estr;

		int save_errno = errno;

		/* Non existent directory on remote fs - no mount */

		if (stat(me->key, &st) == -1 && errno == ENOENT)

			return 0;

		estr = strerror_r(save_errno, buf, MAX_ERR_BUF);

		error(ap->logopt,

		      "couldn't get ioctl fd for offset %s: %s",

		      me->key, estr);

		goto force_umount;

	}

	sched_yield();

	retries = UMOUNT_RETRIES;

	while ((rv = umount(me->key)) == -1 && retries--) {

		struct timespec tm = {0, 200000000};

		if (errno != EBUSY)

			break;

		nanosleep(&tm, NULL);

	}

	if (rv == -1) {

		switch (errno) {

		case ENOENT:

			warn(ap->logopt, "mount point does not exist");

			return 0;

			break;

		case EBUSY:

			error(ap->logopt, "mount point %s is in use", me->key);

			if (ap->state != ST_SHUTDOWN_FORCE)

				return 1;

			break;

		case ENOTDIR:

			error(ap->logopt, "mount point is not a directory");

			return 0;

			break;

		}

		goto force_umount;

	}

force_umount:

	if (rv != 0) {

		info(ap->logopt, "forcing umount of offset mount %s", me->key);

		rv = umount2(me->key, MNT_DETACH);

	} else

		info(ap->logopt, "umounted offset mount %s", me->key);

	return rv;

}

int mount_autofs_offset(struct autofs_point *ap, struct mapent *me, const char *root, const char *offset)

{

	const char *str_offset = mount_type_str(t_offset);

	struct ioctl_ops *ops = get_ioctl_ops();

	char buf[MAX_ERR_BUF];

	struct mnt_params *mp;

	time_t timeout = get_exp_timeout(ap, me->source);

	struct stat st;

	int ioctlfd, status, ret;

	const char *hosts_map_name = "-hosts";

	const char *map_name = hosts_map_name;

	const char *type;

	char mountpoint[PATH_MAX];

	if (ops->version && ap->flags & MOUNT_FLAG_REMOUNT) {

		ret = try_remount(ap, me, t_offset);

		if (ret == 1)

			return MOUNT_OFFSET_OK;

		/* Offset mount not found, fall thru and try to mount it */

		if (!(ret == -1 && errno == ENOENT))

			return MOUNT_OFFSET_FAIL;

	} else {

		if (is_mounted(me->key, MNTS_AUTOFS)) {

			if (ap->state != ST_READMAP)

				warn(ap->logopt,

				     "trigger %s already mounted", me->key);

			return MOUNT_OFFSET_OK;

		}

		if (me->ioctlfd != -1) {

			error(ap->logopt, "active offset mount %s", me->key);

			return MOUNT_OFFSET_FAIL;

		}

	}

	status = pthread_once(&key_mnt_params_once, key_mnt_params_init);

	if (status)

		fatal(status);

	mp = pthread_getspecific(key_mnt_offset_params);

	if (!mp) {

		mp = (struct mnt_params *) malloc(sizeof(struct mnt_params));

		if (!mp) {

			crit(ap->logopt,

			  "mnt_params value create failed for offset mount %s",

			  me->key);

			return MOUNT_OFFSET_OK;

		}

		mp->options = NULL;

		status = pthread_setspecific(key_mnt_offset_params, mp);

		if (status) {

			free(mp);

			fatal(status);

		}

	}

	if (!mp->options) {

		mp->options = make_options_string(ap->path, ap->kpipefd, str_offset);

		if (!mp->options)

			return MOUNT_OFFSET_OK;

		if ((ap->flags & MOUNT_FLAG_STRICTEXPIRE) &&

		    ((get_kver_major() == 5 && get_kver_minor() > 3) ||

		     (get_kver_major() > 5))) {

			char *tmp = realloc(mp->options, strlen(mp->options) + 12);

			if (tmp) {

				strcat(tmp, ",strictexpire");

				mp->options = tmp;

			}

		}

		if ((ap->flags & MOUNT_FLAG_IGNORE) &&

		    ((get_kver_major() == 5 && get_kver_minor() > 4) ||

		     (get_kver_major() > 5))) {

			char *tmp = realloc(mp->options, strlen(mp->options) + 7);

			if (tmp) {

				strcat(tmp, ",ignore");

				mp->options = tmp;

			}

		}

	}

	strcpy(mountpoint, root);

	strcat(mountpoint, offset);

	/* In case the directory doesn't exist, try to mkdir it */

	if (mkdir_path(mountpoint, mp_mode) < 0) {

		if (errno == EEXIST) {

			/*

			 * If the mount point directory is a real mount

			 * and it isn't the root offset then it must be

			 * a mount that has been automatically mounted by

			 * the kernel NFS client.

			 */

			if (me->multi != me &&

			    is_mounted(mountpoint, MNTS_REAL))

				return MOUNT_OFFSET_IGNORE;

			/* 

			 * If we recieve an error, and it's EEXIST

			 * we know the directory was not created.

			 */

			me->flags &= ~MOUNT_FLAG_DIR_CREATED;

		} else if (errno == EACCES) {

			/*

			 * We require the mount point directory to exist when

			 * installing multi-mount triggers into a host

			 * filesystem.

			 *

			 * If it doesn't exist it is not a valid part of the

			 * mount heirachy.

			 */

			char *estr = strerror_r(errno, buf, MAX_ERR_BUF);

			debug(ap->logopt,

			     "can't create mount directory: %s, %s",

			     mountpoint, estr);

			return MOUNT_OFFSET_FAIL;

		} else {

			char *estr = strerror_r(errno, buf, MAX_ERR_BUF);

			crit(ap->logopt,

			     "failed to create mount directory: %s, %s",

			     mountpoint, estr);

			return MOUNT_OFFSET_FAIL;

		}

	} else {

		/* No errors so the directory was successfully created */

		me->flags |= MOUNT_FLAG_DIR_CREATED;

	}

	debug(ap->logopt,

	      "calling mount -t autofs " SLOPPY " -o %s automount %s",

	      mp->options, mountpoint);

	type = ap->entry->maps->type;

	if (!type || strcmp(ap->entry->maps->type, "hosts"))

		map_name = me->mc->map->argv[0];

	ret = mount(map_name, mountpoint, "autofs", MS_MGC_VAL, mp->options);

	if (ret) {

		crit(ap->logopt,

		     "failed to mount offset trigger %s at %s",

		     me->key, mountpoint);

		goto out_err;

	}

	ret = stat(mountpoint, &st);

	if (ret == -1) {

		error(ap->logopt,

		     "failed to stat direct mount trigger %s", mountpoint);

		goto out_umount;

	}

	ops->open(ap->logopt, &ioctlfd, st.st_dev, mountpoint);

	if (ioctlfd < 0) {

		crit(ap->logopt, "failed to create ioctl fd for %s", mountpoint);

		goto out_umount;

	}

	ops->timeout(ap->logopt, ioctlfd, timeout);

	cache_set_ino_index(me->mc, me->key, st.st_dev, st.st_ino);

	if (ap->logopt & LOGOPT_DEBUG)

		notify_mount_result(ap, mountpoint, timeout, str_offset);

	else

		notify_mount_result(ap, me->key, timeout, str_offset);

	ops->close(ap->logopt, ioctlfd);

	debug(ap->logopt, "mounted trigger %s at %s", me->key, mountpoint);

	return MOUNT_OFFSET_OK;

out_umount:

	umount(mountpoint);

out_err:

	if (stat(mountpoint, &st) == 0 && me->flags & MOUNT_FLAG_DIR_CREATED)

		 rmdir_path(ap, mountpoint, st.st_dev);

	return MOUNT_OFFSET_FAIL;

}

void *expire_proc_direct(void *arg)

{

	struct ioctl_ops *ops = get_ioctl_ops();

	struct mnt_list *mnts = NULL, *next;

	struct list_head list, *p;

	struct expire_args *ea;

	struct expire_args ec;

	struct autofs_point *ap;

	struct mapent *me = NULL;

	unsigned int how;

	int ioctlfd, cur_state;

	int status, ret, left;

	ea = (struct expire_args *) arg;

	status = pthread_mutex_lock(&ea->mutex);

	if (status)

		fatal(status);

	ap = ec.ap = ea->ap;

	how = ea->how;

	ec.status = -1;

	ea->signaled = 1;

	status = pthread_cond_signal(&ea->cond);

	if (status)

		fatal(status);

	status = pthread_mutex_unlock(&ea->mutex);

	if (status)

		fatal(status);

	pthread_cleanup_push(expire_cleanup, &ec);

	left = 0;

	mnts = tree_make_mnt_tree("/");

	pthread_cleanup_push(mnts_cleanup, mnts);

	/* Get a list of mounts select real ones and expire them if possible */

	INIT_LIST_HEAD(&list);

	if (!tree_get_mnt_list(mnts, &list, "/", 0)) {

		ec.status = 0;

		return NULL;

	}

	list_for_each(p, &list) {

		next = list_entry(p, struct mnt_list, list);

		/*

		 * All direct mounts must be present in the map

		 * entry cache.

		 */

		pthread_cleanup_push(master_source_lock_cleanup, ap->entry);

		master_source_readlock(ap->entry);

		me = lookup_source_mapent(ap, next->mp, LKP_DISTINCT);

		pthread_cleanup_pop(1);

		if (!me)

			continue;

		if (next->flags & MNTS_AUTOFS) {

			struct stat st;

			int ioctlfd;

			cache_unlock(me->mc);

			/*

			 * If we have submounts check if this path lives below