#include <stdio.h>
#include <string.h>
#include <unistd.h>
#include <sys/types.h>
#include <sys/wait.h>
#include <sys/stat.h>
#include <errno.h>

#define PATH_SEP	'/'
#define LOCK_F	"/etc/smount.lock"

#ifdef _BSD_
# include <sys/types.h>
extern char *sys_errlist[];
# define raise(s) kill(getpid(),(s))
# define strerror(e) sys_errlist[(e)]
#endif


static char __ident[] = "@(#)(c)SPDsoft, Wed Mar 15, 1995";
#define VERS_STR        ((char*)&__ident[4])


void usage(void);
int launch( char *cmd[], int *status );
extern int errno;
char	*app;

#define N_D	4

char *args[N_D][8]=
	{
	{ NULL,"-t","4.2","-o","ro,nosuid","/dev/sr0","/cdrom", NULL },
	{ NULL,"-t","hsfs","-o","ro,nosuid","/dev/sr0","/cdrom", NULL },
	{ NULL,"-t","pcfs","-o","rw,nosuid","/dev/fd0","/pcfs", NULL },
	{ NULL,"-t","pcfs","-o","ro,nosuid","/dev/fd0","/pcfs", NULL },
	};

char *names[N_D]= {"cdrom","cdrom_iso","dos","dos_ronly"};

char *cmds[3]={"/usr/etc/mount","/usr/etc/umount","/bin/eject"};
		

main(int argc, char **argv )
{
	int	i,
		opt,
		status;
	int	unmount=0;
	int	quiet=0;
	struct stat sbp;

	extern char     *optarg;
	extern int      optind,opterr;


	if ((app = strrchr(argv[0], PATH_SEP))  != NULL)
		app = app+1;
	else
		app = argv[0];

	if(0==stat(LOCK_F,&sbp))
	{
		fprintf(stderr,
		"%s: Sorry, %s locked by root. Try again later\n", app, app);
		exit(EACCES);
	}
	
        while ( (opt=getopt(argc,argv,"huV")) != EOF )
        {
                switch(opt)
                {
                        case 'V':
				fprintf(stderr, "%s: %s\n", app, VERS_STR);
                                exit(0);
                                break;
                        case 'u':
				unmount=1;
                                break;
/*                        case 'q':*/
/*				quiet=1;*/
/*                                break;*/
                        case 'h':
			default:
                                usage();
                                break;
		}
	}

	if ((argc-optind)!=1)
                usage();

	for(i=0;i<N_D;i++)
		if (0==strcmp(names[i],argv[optind]))
			break;

	if (i==N_D)
	{
		fprintf(stderr,"%s: %s: No such name\n",app,argv[optind]);
		exit(1);
	}

	if (unmount)
	{
		args[i][4] = cmds[1];
		args[i][6] = NULL;
		launch(&(args[i][4]),&status);
		if(status!=0)
		{
			fprintf(stderr,"%s: %s exit with %d (%s)\n",
				app, args[i][5], status, strerror(status));
			exit(status);
		}
		args[i][4] = cmds[2];
		launch(&(args[i][4]),&status);
		if(status!=0)
		{
			fprintf(stderr,"%s: %s exit with %d (%s)\n",
				app, args[i][5], status, strerror(status));
			exit(status);
		}
	}
	else
	{
		args[i][0] = cmds[0];
		launch(args[i],&status);
		if(status!=0)
		{
			fprintf(stderr,"%s: %s exit with %d (%s)\n",
				app, args[i][0], status, strerror(status));
			exit(status);
		}
	}
	exit(0);
}

void usage(void)
{
	int i;

        fprintf(stderr,"Use: %s [-uh] name\n", app);
        fprintf(stderr,"%s: -h : This text\n", app);
/*        fprintf(stderr,"%s: -q : Quiet mode\n", app);*/
        fprintf(stderr,"%s: -u : Unmount and eject\n", app);
        fprintf(stderr,"%s: name: One of these: ", app);

	for(i=0;i<N_D;i++)
		fprintf(stderr,"%s%s", names[i], i==N_D-1 ? "\n":", " );
        exit(0);
	
}


int launch( char *cmd[], int *status )
{
	int res=0;
	int st;
	int pid, wpid;

	switch ( pid = fork() )
	{
	case -1:	/* error */
			perror ( "fork" );
			res = -1;
			break;

	case 0:		execv ( cmd[0], &cmd[0] );
			fprintf(stderr, "%s: execv %s: %s\n",
			app, cmd[0], strerror(errno));
			exit(-2);
			break;

	default:	
			*status = 0;
			while ( pid !=(wpid= wait ( &st )) )
			if (WIFSTOPPED(st))
			{
				fprintf(stderr,"%s: %s stoped %d\n",
				app, cmd[0], WSTOPSIG(st));
				res = -6;
			}
			else if(WIFEXITED(st))
			{
				*status = WEXITSTATUS(st);
			}
			else if(WIFSIGNALED(st))
			{
				fprintf(stderr,"%s: %s signaled %d\n",
				app, cmd[0],WTERMSIG(st));
				res = -6;
			}

			if(st&0200)
				fprintf(stderr,
					"%s: %s core dumped\n", app, cmd[0]);

			break;

	}   /* Fin del   switch */

	return res;
}