When creating a script, if the destination directory does not exist, just print a notice and skip that script. This is to allow the open source instance creator to skip creating the repl monitor script in admin/admin which does not yet exist.

1 files changed, 10 insertions, 0 deletions

diff --git a/ldap/admin/src/create_instance.c b/ldap/admin/src/create_instance.c
index 301584c6..c0883542 100644
--- a/ldap/admin/src/create_instance.c
+++ b/ldap/admin/src/create_instance.c
@@ -736,6 +736,11 @@ char *gen_perl_script(char *s_root, char *cs_path, char *name, char *fmt, ...)
     FILE *f;
     va_list args;
 
+	if (PR_FAILURE == PR_Access(cs_path, PR_ACCESS_EXISTS)) {
+		printf("Notice: %s does not exist, skipping %s . . .\n", cs_path, name);
+		return NULL;
+	}
+
     PR_snprintf(fn, sizeof(fn), "%s%c%s", cs_path, FILE_PATHSEP, name);
     PR_snprintf(myperl, sizeof(myperl), "%s%cbin%cslapd%cadmin%cbin%cperl",
                     s_root, FILE_PATHSEP, FILE_PATHSEP,
@@ -777,6 +782,11 @@ char *gen_perl_script_auto(char *s_root, char *cs_path, char *name,
     char fn[PATH_SIZE], ofn[PATH_SIZE];
     const char *table[10][2];
 
+	if (PR_FAILURE == PR_Access(cs_path, PR_ACCESS_EXISTS)) {
+		printf("Notice: %s does not exist, skipping %s . . .\n", cs_path, name);
+		return NULL;
+	}
+
     PR_snprintf(ofn, sizeof(ofn), "%s%cbin%cslapd%cadmin%cscripts%ctemplate-%s", s_root,
             FILE_PATHSEP, FILE_PATHSEP, FILE_PATHSEP, FILE_PATHSEP,
             FILE_PATHSEP, name);