Changeset 198

Timestamp:

Mar 29, 2018, 8:58:20 AM (6 years ago)

Author:

g7moreau

Message:

• Change chmod and mkdir to be more secure

File:

• trunk/project-meta/project-meta (modified) (2 diffs)

trunk/project-meta/project-meta

@@ -67 +67 @@
    my ($folderdb, $folder) = @_;
    
+   return if $folder !~ m{/};
+   
    $folder =~ s{/[^/]+$}{};
-   
-   return if $folder !~ m{/};
 
    $folderdb->{$folder}++;
@@ -145 +145 @@
    for my $folder (sort keys %folders) {
       print "chmod o+rX,o-w '$current_dir/$folder'\n";
-      print "mkdir -p '$dap_folder/$acronym/$folder'\n" if -d "$current_dir/$folder";
+      print "mkdir '$dap_folder/$acronym/$folder'\n" if -d "$current_dir/$folder";
       }
 
    for my $dataset (@{$data_set}) {
       if ($dataset =~ m{/}) {
-         # Folder case
+         # sub-folder case
          my $folder = $dataset =~ s{/[^/]+$}{}r;
+         print "chmod -R o+rX,o-w '$current_dir/$dataset'\n";
          print "ln --symbolic --target-directory '$dap_folder/$acronym/$folder/' '$current_dir/$dataset'\n";
          }
       else {
-         # File case
+         # Root case
          print "ln --symbolic --target-directory '$dap_folder/$acronym/' '$current_dir/$dataset'\n";
          }