ddts-script 0.4.5

[Nicolas Bertolissio]

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': $!";
+               }
        }
 }