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

#!/usr/bin/perl

use strict;

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

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

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

close(XMLOUT);
exit;