aboutsummaryrefslogtreecommitdiff
path: root/debianutils/run_parts.c
blob: 3ec4b9d10ee9cc172ae8cb86011712e93d711e08 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
/* vi: set sw=4 ts=4: */
/*
 * Mini run-parts implementation for busybox
 *
 *
 * Copyright (C) 2001 by Emanuele Aina <emanuele.aina@tiscali.it>
 *
 * Based on the Debian run-parts program, version 1.15
 *   Copyright (C) 1996 Jeff Noxon <jeff@router.patch.net>,
 *   Copyright (C) 1996-1999 Guy Maor <maor@debian.org>
 *   
 *
 * 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; 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.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
 * 02111-1307 USA
 *
 */

/* This is my first attempt to write a program in C (well, this is my first
 * attempt to write a program! :-) . */

/* This piece of code is heavily based on the original version of run-parts,
 * taken from debian-utils. I've only removed the long options and a the 
 * report mode. As the original run-parts support only long options, I've
 * broken compatibility because the BusyBox policy doesn't allow them. 
 * The supported options are: 
 * -t			test. Print the name of the files to be executed, without
 * 				execute them.
 * -a ARG		argument. Pass ARG as an argument the program executed. It can 
 * 				be repeated to pass multiple arguments.
 * -u MASK 		umask. Set the umask of the program executed to MASK. */

/* TODO 
 * done - convert calls to error in perror... and remove error()
 * done - convert malloc/realloc to their x... counterparts 
 * done - remove catch_sigchld
 * done - use bb's concat_path_file() 
 * done - declare run_parts_main() as extern and any other function as static?
 */

#include <stdio.h>
#include <stdarg.h>
#include <stdlib.h>
/* #include <sys/types.h> */
#include <sys/wait.h>
#include <dirent.h>
#include <sys/stat.h>
#include <unistd.h>
#include <getopt.h>
#include <string.h>
#include <errno.h>
#include <ctype.h>

#include "busybox.h"

static int test_mode = 0;
static int exitstatus = 0;

static int argcount = 0, argsize = 0;
static char **args = 0;


/* set_umask */
/* Check and set the umask of the program executed. As stated in the original
 * run-parts, the octal conversion in libc is not foolproof; it will take the 
 * 8 and 9 digits under some circumstances. We'll just have to live with it.
 */

static void set_umask (void)
{
  int mask, result;

  /*TODO
   * We must substitute sscanf, according to bb's style guide? */
  result = sscanf (optarg, "%o", &mask);
  if ((result != 1) || (mask > 07777) || (mask < 0)) {
	  perror_msg_and_die ("bad umask value");
  }

  umask (mask);
}

/* add_argument */
/* Add an argument to the commands that we will call. Called once for
   every argument. */
static void add_argument (char *newarg)
{
  if (argcount+1 >= argsize) {
    argsize = argsize ? argsize*2 : 4;
	/*TODO if we convert to xrealloc we lose the verbose error message */
	args = realloc(args, argsize * (sizeof(char*)));
    if (!args) {
		perror_msg_and_die ("failed to reallocate memory for arguments");
	}
  }
  args[argcount++] = newarg;
  args[argcount] = 0;
}

/* valid_name */
/* True or false? Is this a valid filename (upper/lower alpha, digits,
 * underscores, and hyphens only?)
 */

static int valid_name (const struct dirent *d)
{
	char *c = d->d_name;
	while (*c) {
		if (!isalnum(*c) && *c!='_' && *c!='-') {
			return 0;
		}
		++c;
	}
	return 1;
}


/* run_part */
/* Execute a file */

static void run_part (char *progname)
{
  int result;
  int pid;

  
  if ((pid=fork()) < 0) {
    perror_msg_and_die ("failed to fork");
  }
  else if (!pid) {
    args[0] = progname;
    execv (progname, args);
    perror_msg_and_die ("failed to exec %s", progname);
  }

  if (0) {
		  
  } else {
		  
		  waitpid(pid, &result, 0);
  }

  if (WIFEXITED (result) && WEXITSTATUS(result)) {
		  perror_msg ("%s exited with return code %d", progname, WEXITSTATUS(result));
		  exitstatus = 1;
  }
  else if (WIFSIGNALED (result)) {
		  perror_msg ("%s exited because of uncaught signal %d", progname,
						  WTERMSIG(result));
		  exitstatus = 1;
  }
}

/* run_parts */
/* Find the parts to run & call run_part() */

static void run_parts (char *dir_name)
{
  struct dirent **namelist = 0;
  char *filename;
  int entries, i;
  struct stat st;

  /* -- */
  
  /* scandir() isn't POSIX, but it makes things easy. */
  entries = scandir (dir_name, &namelist, valid_name, alphasort);

  if (entries < 0) {
    perror_msg_and_die ("failed to open directory %s", dir_name);
  }
  
  for (i = 0; i < entries; i++) {

	  /* -- */

	  filename = concat_path_file (dir_name, namelist[i]->d_name);
	  
	  if (stat (filename, &st) < 0) {
		  perror_msg_and_die ("failed to stat component %s", filename);
	  }
	  if (S_ISREG(st.st_mode) && !access (filename, X_OK)) {
		  if (test_mode)
			  printf ("run-parts would run %s\n", filename);
		  else {
			  run_part (filename);
		  }
	  }

	  else if (!S_ISDIR(st.st_mode)) {
		  error_msg ("component %s is not an executable plain file",
				  filename);
		  exitstatus = 1;
	  }
	  
	  free (namelist[i]);
	  free (filename);
  }
  free (namelist);
}

/* run_parts_main */
/* Process options */
int run_parts_main (int argc, char *argv[])
{
  umask (022);
  add_argument(0);
  
  for (;;) {
    int c;

    opterr = 0;
    c = getopt(argc, argv, "tu:a:");
	
    if (c == EOF)
      break;
    switch (c) {
	case 't':               /* Enable test mode */
		test_mode = 1;
		break;			
	case 'u':               /* Set the umask of the programs executed */
		set_umask ();
		break;
    case 'a':               /* Pass an argument to the programs */
		add_argument (optarg);
		break;
    default:
		show_usage();
    }
  }
  
  /* We require exactly one argument: the directory name */
  if (optind != (argc - 1)) {
	  show_usage();
  }

  run_parts (argv[optind]);

  return exitstatus;
}