ddts-script 0.4.5

[Nicolas Bertolissio <nico.bertol@wanadoo.fr>]

Bonjour,

journal des modifications :
version 0.4.5
  - change: try to create directories recursively
    thanks to Youssef Oualmakran for reporting this missing feature

La rustine est attachée, le script complet n'a pas bougé :
http://perso.wanadoo.fr/nico.bertol/ddts/ddts-script.txt


Nicolas
-- 

--- ddts-script_0.4.4.txt	Tue Jan  1 23:19:29 2002
+++ ddts-script_0.4.5.txt	Sat Jan  5 11:05:55 2002
@@ -268,13 +268,17 @@
 
 =cut
 
-my $version = "0.4.4";
+my $version = "0.4.5";
 
 # Test if configuration as been made
 foreach ($tr_dir, $bug_dir, $rev_dir, $temp_dir) {
-	if (! -d $_) {
-		mkdir ($_, 755) || die "Is the script configured?\n"
-				      ."Can't create `$_': $!";
+	my @dir=split("/", $_);				# get all subdirs
+	for (my $i=1; $i<@dir; $i++) {
+		my $dir = join("/", (@dir[0..$i]));	# subdir path
+		if (! -d $dir) {			# if not exist, try to create it
+			mkdir ($dir, 755) || die "Is the script configured?\n"
+						."Can't create `$dir': $!";
+		}
 	}
 }