Changeset 24848
- Timestamp:
- 2011-12-01T12:34:28+13:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gs2-extensions/parallel-building/trunk/src/bin/script/manifestinator.pl
r24677 r24848 9 9 } 10 10 11 my $dir = $ARGV[0];12 if (!opendir(DH, $dir))13 {14 die ("Failed to open import directory for reading!\n");15 }16 my @files = readdir(DH);17 closedir(DH);18 19 11 open(XMLOUT, '>:utf8', 'manifest.xml'); 20 12 print XMLOUT "<Manifest>\n"; 21 13 print XMLOUT " <Index>\n"; 22 14 23 foreach my $file (sort @files) 24 { 25 if ($file =~ /^\./) 26 { 27 next; 28 } 29 print XMLOUT " <Filename>" . $file . "</Filename>\n"; 30 } 15 &manifestify($ARGV[0], ''); 31 16 32 17 print XMLOUT " </Index>\n"; … … 35 20 close(XMLOUT); 36 21 exit; 22 23 sub manifestify 24 { 25 my ($dir, $prefix) = @_; 26 if (!opendir(DH, $dir)) 27 { 28 die ("Failed to open import directory for reading!\n"); 29 } 30 my @files = readdir(DH); 31 closedir(DH); 32 foreach my $file (sort @files) 33 { 34 if ($file =~ /^\./) 35 { 36 next; 37 } 38 my $path = $dir . '/' . $file; 39 if (-d $path) 40 { 41 my $new_prefix = $prefix . $file . '/'; 42 &manifestify($path, $new_prefix); 43 } 44 else 45 { 46 print XMLOUT " <Filename>" . $prefix . $file . "</Filename>\n"; 47 } 48 } 49 }
Note:
See TracChangeset
for help on using the changeset viewer.