source: gs2-extensions/parallel-building/trunk/src/bin/script/manifestinator.pl@ 24848

#!/usr/bin/perl

use strict;

if (!defined $ARGV[0] || !-d $ARGV[0])
{
  print "usage: manifestinator.pl <import directory>\n";
  exit(0);
}

open(XMLOUT, '>:utf8', 'manifest.xml');
print XMLOUT "<Manifest>\n";
print XMLOUT "  <Index>\n";

&manifestify($ARGV[0], '');

print XMLOUT "  </Index>\n";
print XMLOUT "</Manifest>\n";

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";
    }
  }
}