/*
* 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.
*/
#include <sys/types.h>
#include <sys/wait.h>
#include <sys/param.h>
#include <sys/stat.h>
#include <sys/modctl.h>
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <string.h>
#include <fcntl.h>
#include <errno.h>
#include <zone.h>
void l_exec_userfile(char *execfile, int id, char **envp);
void l_usage();
extern void fatal(char *fmt, ...);
extern void error(char *fmt, ...);
/*
* Load a module.
*/
int
main(int argc, char *argv[], char *envp[])
{
char *execfile = NULL; /* name of file to exec after loading */
char *modpath = NULL;
int id;
extern int optind;
extern char *optarg;
int opt;
int use_path = 0;
char path[1024];
if (argc < 2 || argc > 5) {
l_usage();
}
while ((opt = getopt(argc, argv, "e:p")) != -1) {
switch (opt) {
case 'e':
execfile = optarg;
break;
case 'p':
use_path++;
break;
case '?':
l_usage();
}
}
if (getzoneid() != GLOBAL_ZONEID) {
fatal("modload can only be run from the global zone\n");
}
modpath = argv[optind];
if (modpath == NULL) {
(void) printf("modpath is null\n");
l_usage();
}
if (!use_path && modpath[0] != '/') {
if (getcwd(path, 1023 - strlen(modpath)) == NULL)
fatal("Can't get current directory\n");
(void) strcat(path, "/");
(void) strcat(path, modpath);
} else
(void) strcpy(path, modpath);
/*
* Load the module.
*/
if (modctl(MODLOAD, use_path, path, &id) != 0) {
if (errno == EPERM)
fatal("Insufficient privileges to load a module\n");
else
error("can't load module");
}
/*
* Exec the user's file (if any)
*/
if (execfile)
l_exec_userfile(execfile, id, envp);
return (0); /* success */
}
/*
* Exec the user's file
*/
void
l_exec_userfile(char *execfile, int id, char **envp)
{
struct modinfo modinfo;
int child;
int status;
int waitret;
char module_id[8];
char mod0[8];
if ((child = fork()) == -1)
error("can't fork %s", execfile);
/*
* exec the user program.
*/
if (child == 0) {
modinfo.mi_id = id;
modinfo.mi_nextid = id;
modinfo.mi_info = MI_INFO_ONE;
if (modctl(MODINFO, id, &modinfo) < 0)
error("can't get module status");
(void) sprintf(module_id, "%d", modinfo.mi_id);
(void) sprintf(mod0, "%d", modinfo.mi_msinfo[0].msi_p0);
(void) execle(execfile, execfile, module_id, mod0, NULL, envp);
/* Shouldn't get here if execle was successful */
error("couldn't exec %s", execfile);
} else {
do {
/* wait for exec'd program to finish */
waitret = wait(&status);
} while ((waitret != child) && (waitret != -1));
waitret = (waitret == -1) ? waitret : status;
if ((waitret & 0377) != 0) {
/* exited because of a signal */
(void) printf("'%s' terminated because of signal %d",
execfile, (waitret & 0177));
if (waitret & 0200)
(void) printf(" and produced a core file\n");
(void) printf(".\n");
exit(waitret >> 8);
} else {
/* simple termination */
if (((waitret >> 8) & 0377) != 0) {
(void) printf("'%s' returned error %d.\n",
execfile, (waitret >> 8) & 0377);
exit(waitret >> 8);
}
}
}
}
void
l_usage()
{
fatal("usage: modload [-p] [-e <exec_file>] <filename>\n");
}