1 files changed, 74 insertions, 17 deletions

diff --git a/urunlevel/runlevel/install_initd.c b/urunlevel/runlevel/install_initd.c
index 4b9ab88..270e4d0 100644
--- a/urunlevel/runlevel/install_initd.c
+++ b/urunlevel/runlevel/install_initd.c
@@ -3,6 +3,9 @@
  *
  * Copyright (C) 2005 by David Seikel won_fang@yahoo.com.au
  *
+ * Clean room implementation of LSB init.d specs.
+ * I didn't steal any of this, honest B-).
+ *
  * 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
@@ -20,6 +23,7 @@
  *
  */
 
+#include <string.h>
 #include <unistd.h>
 
 #include "busybox.h"
@@ -28,21 +32,74 @@
 
 int install_initd_main(int argc, char **argv)
 {
-    llist_t *sorted = NULL;
-    llist_t *unsorted = get_scripts();
-//    char *info_text = NULL;
-//    char *pathname = NULL;
-//    init_d_info_t *info = NULL;
-
-//    bb_xasprintf(&pathname, "/etc/init.d/%s", script->d_name);
-//    info_text = get_init_info(pathname);
-//    info = parse_init_info(info_text, script->d_name);
-//    if (info)
-//        result = llist_add_to(result, (char *) info);
-
-    sorted = sort_scripts(unsorted);
-// Should return 1 if this script is in unsorted.
-
-//    free(info_text);
-    return EXIT_SUCCESS;
+    int result = EXIT_FAILURE;
+
+    argv += optind;
+    if (!*argv)
+        bb_show_usage();
+    else {
+        int in_init = 0;
+        llist_t *current = NULL;
+        llist_t *unsorted = get_scripts();
+        init_d_info_t *info = NULL;
+        char *info_text = NULL;
+        char *pathname = NULL;
+        RESERVE_CONFIG_BUFFER(resolved_path, PATH_MAX);
+
+        bb_xasprintf(&pathname, "%s", *argv);
+        if ((*argv)[0] != '/') {
+            char *cwd = xgetcwd(NULL);
+            
+            if (cwd) {
+                free(pathname);
+                bb_xasprintf(&pathname, "%s/%s", cwd, *argv);
+            }
+        }
+
+        if (realpath(pathname, resolved_path) != NULL) {
+            if (strncmp("/etc/init.d/", resolved_path, 12) == 0)
+                in_init = 1;
+        } else {
+            bb_perror_msg("%s", pathname);
+        }
+
+        if (!in_init) {
+                bb_xasprintf(&info_text, "/etc/init.d/%s", bb_get_last_path_component(pathname));
+                symlink(pathname, info_text);
+                free(info_text);
+        }
+
+        info_text = get_init_info(pathname);
+        info = parse_init_info(info_text, bb_get_last_path_component(pathname));
+
+        sort_scripts(unsorted, info);
+        current = unsorted;
+        result = EXIT_SUCCESS;
+        while (current) {
+            init_d_info_t *this_one = (init_d_info_t *) current->data;
+
+            if (this_one) {
+                if (strcmp(this_one->path, info->path) == 0) {
+                    result = EXIT_FAILURE;
+                    free(info_text);
+                    bb_xasprintf(&info_text, "/etc/init.d/%s", bb_get_last_path_component(pathname));
+                    remove_file(info_text, FILEUTILS_FORCE);
+                    break;
+                }
+            }
+            current = current->link;
+        }
+
+    if (result == EXIT_FAILURE)
+        bb_error_msg("Unable to install the %s init.d script.", pathname);
+
+#ifdef CONFIG_FEATURE_CLEAN_UP
+        RELEASE_CONFIG_BUFFER(resolved_path);
+#endif
+        free(info);
+        free(pathname);
+        free(info_text);
+    }
+
+    return result;
 }