If fail to create dirs.raw in lib parent dir, create in ctrl_dir instead

Fix for issue #809

src/sbbs3/scfg/scfgxfr2.c

@@ -252,17 +252,20 @@ static void append_dir_list(const char* parent, const char* dir, FILE* fp, int d
 	globfree(&g);
 }
 
-BOOL create_raw_dir_list(const char* list_file)
+BOOL create_raw_dir_list(char* list_file)
 {
 	char		path[MAX_PATH+1];
+	char		fname[MAX_PATH+1] = "dirs.raw";
 	char*		p;
 	int			k=0;
 	bool		include_empty_dirs;
 	FILE*		fp;
 
 	SAFECOPY(path, list_file);
-	if((p=getfname(path))!=NULL)
+	if((p=getfname(path))!=NULL) {
+		SAFECOPY(fname, p);
 		*p=0;
+	}
 	if(uifc.input(WIN_MID|WIN_SAV,0,0,"Parent Directory",path,sizeof(path)-1
 		,K_EDIT)<1)
 		return(FALSE);
@@ -275,11 +278,14 @@ BOOL create_raw_dir_list(const char* list_file)
 	k=uifc.list(WIN_MID|WIN_SAV,0,0,0,&k,0,"Recursive Directory Search",uifcYesNoOpts);
 	if(k<0)
 		return(FALSE);
+	if((fp=fopen(list_file,"w"))==NULL) {
+		strcpy(list_file, fname);
 		if((fp=fopen(list_file,"w"))==NULL) {
 			SAFEPRINTF2(path,"Create Failure (%u): %s", errno, list_file);
 			uifc.msg(path);
 			return(FALSE);
 		}
+	}
 	backslash(path);
 	uifc.pop("Scanning Directories...");
 	append_dir_list(path, path, fp, /* depth: */0, /* max_depth: */k, include_empty_dirs);