Changeset 24848 for gs2-extensions/parallel-building/trunk/src

Timestamp:

2011-12-01T12:34:28+13:00 (12 years ago)

Author:

jmt12

Message:

Extended the manifestinator to correctly recurse into directories

File:

• gs2-extensions/parallel-building/trunk/src/bin/script/manifestinator.pl (modified) (2 diffs)

gs2-extensions/parallel-building/trunk/src/bin/script/manifestinator.pl

@@ -9 +9 @@
 }
 
-my $dir = $ARGV[0];
-if (!opendir(DH, $dir))
-{
-  die ("Failed to open import directory for reading!\n");
-}
-my @files = readdir(DH);
-closedir(DH);
-
 open(XMLOUT, '>:utf8', 'manifest.xml');
 print XMLOUT "<Manifest>\n";
 print XMLOUT "  <Index>\n";
 
-foreach my $file (sort @files)
-{
-  if ($file =~ /^\./)
-  {
-    next;
-  }
-  print XMLOUT "    <Filename>" . $file . "</Filename>\n";
-}
+&manifestify($ARGV[0], '');
 
 print XMLOUT "  </Index>\n";
@@ -35 +20 @@
 close(XMLOUT);
 exit;
+
+sub manifestify
+{
+  my ($dir, $prefix) = @_;
+  if (!opendir(DH, $dir))
+  {
+    die ("Failed to open import directory for reading!\n");
+  }
+  my @files = readdir(DH);
+  closedir(DH);
+  foreach my $file (sort @files)
+  {
+    if ($file =~ /^\./)
+    {
+      next;
+    }
+    my $path = $dir . '/' . $file;
+    if (-d $path)
+    {
+      my $new_prefix = $prefix . $file . '/';
+      &manifestify($path, $new_prefix);
+    }
+    else
+    {
+      print XMLOUT "    <Filename>" . $prefix . $file . "</Filename>\n";
+    }
+  }
+}