/* vi: set sw=4 ts=4: */
/*
 * Mini run-parts implementation for busybox
 *
 * Copyright (C) 2007 Bernhard Reutner-Fischer
 *
 * Based on a older version that was in busybox which was 1k big.
 *   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>
 *
 * Licensed under GPLv2 or later, see file LICENSE in this source tree.
 */

/* 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 the
 * report mode. As the original run-parts support only long options, I've
 * broken compatibility because the BusyBox policy doesn't allow them.
 */

//usage:#define run_parts_trivial_usage
//usage:       "[-a ARG]... [-u UMASK] "
//usage:       IF_FEATURE_RUN_PARTS_LONG_OPTIONS("[--reverse] [--test] [--exit-on-error] "IF_FEATURE_RUN_PARTS_FANCY("[--list] "))
//usage:       "DIRECTORY"
//usage:#define run_parts_full_usage "\n\n"
//usage:       "Run a bunch of scripts in DIRECTORY\n"
//usage:     "\n        -a ARG          Pass ARG as argument to scripts"
//usage:     "\n        -u UMASK        Set UMASK before running scripts"
//usage:        IF_FEATURE_RUN_PARTS_LONG_OPTIONS(
//usage:     "\n        --reverse       Reverse execution order"
//usage:     "\n        --test          Dry run"
//usage:     "\n        --exit-on-error Exit if a script exits with non-zero"
//usage:        IF_FEATURE_RUN_PARTS_FANCY(
//usage:     "\n        --list          Print names of matching files even if they are not executable"
//usage:        )
//usage:        )
//usage:
//usage:#define run_parts_example_usage
//usage:       "$ run-parts -a start /etc/init.d\n"
//usage:       "$ run-parts -a stop=now /etc/init.d\n\n"
//usage:       "Let's assume you have a script foo/dosomething:\n"
//usage:       "#!/bin/sh\n"
//usage:       "for i in $*; do eval $i; done; unset i\n"
//usage:       "case \"$1\" in\n"
//usage:       "start*) echo starting something;;\n"
//usage:       "stop*) set -x; shutdown -h $stop;;\n"
//usage:       "esac\n\n"
//usage:       "Running this yields:\n"
//usage:       "$run-parts -a stop=+4m foo/\n"
//usage:       "+ shutdown -h +4m"

#include "libbb.h"

struct globals {
        char **names;
        int    cur;
        char  *cmd[2 /* using 1 provokes compiler warning */];
} FIX_ALIASING;
#define G (*(struct globals*)&bb_common_bufsiz1)
#define names (G.names)
#define cur   (G.cur  )
#define cmd   (G.cmd  )
#define INIT_G() do { } while (0)

enum { NUM_CMD = (COMMON_BUFSIZE - sizeof(G)) / sizeof(cmd[0]) - 1 };

enum {
        OPT_a = (1 << 0),
        OPT_u = (1 << 1),
        OPT_r = (1 << 2) * ENABLE_FEATURE_RUN_PARTS_LONG_OPTIONS,
        OPT_t = (1 << 3) * ENABLE_FEATURE_RUN_PARTS_LONG_OPTIONS,
        OPT_e = (1 << 4) * ENABLE_FEATURE_RUN_PARTS_LONG_OPTIONS,
        OPT_l = (1 << 5) * ENABLE_FEATURE_RUN_PARTS_LONG_OPTIONS
                        * ENABLE_FEATURE_RUN_PARTS_FANCY,
};

/* Is this a valid filename (upper/lower alpha, digits,
 * underscores, and hyphens only?)
 */
static bool invalid_name(const char *c)
{
        c = bb_basename(c);

        while (*c && (isalnum(*c) || *c == '_' || *c == '-'))
                c++;

        return *c; /* TRUE (!0) if terminating NUL is not reached */
}

static int bb_alphasort(const void *p1, const void *p2)
{
        int r = strcmp(*(char **) p1, *(char **) p2);
        return (option_mask32 & OPT_r) ? -r : r;
}

static int FAST_FUNC act(const char *file, struct stat *statbuf, void *args UNUSED_PARAM, int depth)
{
        if (depth == 1)
                return TRUE;

        if (depth == 2
         && (  !(statbuf->st_mode & (S_IFREG | S_IFLNK))
            || invalid_name(file)
            || (!(option_mask32 & OPT_l) && access(file, X_OK) != 0))
        ) {
                return SKIP;
        }

        names = xrealloc_vector(names, 4, cur);
        names[cur++] = xstrdup(file);
        /*names[cur] = NULL; - xrealloc_vector did it */

        return TRUE;
}

#if ENABLE_FEATURE_RUN_PARTS_LONG_OPTIONS
static const char runparts_longopts[] ALIGN1 =
        "arg\0"     Required_argument "a"
        "umask\0"   Required_argument "u"
//TODO: "verbose\0" No_argument       "v"
        "reverse\0" No_argument       "\xf0"
        "test\0"    No_argument       "\xf1"
        "exit-on-error\0" No_argument "\xf2"
#if ENABLE_FEATURE_RUN_PARTS_FANCY
        "list\0"    No_argument       "\xf3"
#endif
        ;
#endif

int run_parts_main(int argc, char **argv) MAIN_EXTERNALLY_VISIBLE;
int run_parts_main(int argc UNUSED_PARAM, char **argv)
{
        const char *umask_p = "22";
        llist_t *arg_list = NULL;
        unsigned n;
        int ret;

        INIT_G();

#if ENABLE_FEATURE_RUN_PARTS_LONG_OPTIONS
        applet_long_options = runparts_longopts;
#endif
        /* We require exactly one argument: the directory name */
        opt_complementary = "=1:a::";
        getopt32(argv, "a:u:", &arg_list, &umask_p);

        umask(xstrtou_range(umask_p, 8, 0, 07777));

        n = 1;
        while (arg_list && n < NUM_CMD) {
                cmd[n++] = llist_pop(&arg_list);
        }
        /* cmd[n] = NULL; - is already zeroed out */

        /* run-parts has to sort executables by name before running them */

        recursive_action(argv[optind],
                        ACTION_RECURSE|ACTION_FOLLOWLINKS,
                        act,            /* file action */
                        act,            /* dir action */
                        NULL,           /* user data */
                        1               /* depth */
                );

        if (!names)
                return 0;

        qsort(names, cur, sizeof(char *), bb_alphasort);

        n = 0;
        while (1) {
                char *name = *names++;
                if (!name)
                        break;
                if (option_mask32 & (OPT_t | OPT_l)) {
                        puts(name);
                        continue;
                }
                cmd[0] = name;
                ret = spawn_and_wait(cmd);
                if (ret == 0)
                        continue;
                n = 1;
                if (ret < 0)
                        bb_perror_msg("can't execute '%s'", name);
                else /* ret > 0 */
                        bb_error_msg("%s exited with code %d", name, ret & 0xff);

                if (option_mask32 & OPT_e)
                        xfunc_die();
        }

        return n;
}