65 lines
1.6 KiB
Perl
65 lines
1.6 KiB
Perl
#!/bin/perl
|
|
#
|
|
# The contents of this file are subject to the Mozilla Public
|
|
# License Version 1.1 (the "License"); you may not use this file
|
|
# except in compliance with the License. You may obtain a copy of
|
|
# the License at http://www.mozilla.org/MPL/
|
|
#
|
|
# Software distributed under the License is distributed on an "AS
|
|
# IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
|
|
# implied. See the License for the specific language governing
|
|
# rights and limitations under the License.
|
|
#
|
|
# The Original Code is mozilla.org code.
|
|
#
|
|
# The Initial Developer of the Original Code is Sun Microsystems,
|
|
# Inc. Portions created by Sun are
|
|
# Copyright (C) 1999 Sun Microsystems, Inc. All
|
|
# Rights Reserved.
|
|
#
|
|
# Contributor(s):
|
|
|
|
use Cwd ;
|
|
use Cwd 'abs_path';
|
|
sub usage {
|
|
printf("Usage: dirGen.pl <test_dir> <output_file>\n");
|
|
exit(-1);
|
|
}
|
|
|
|
#Main
|
|
if($#ARGV !=1 ) {
|
|
usage();
|
|
}
|
|
$cur_dir=cwd();
|
|
$test_dir=abs_path($ARGV[0]);
|
|
$output_file=$ARGV[1];
|
|
(-d $test_dir) || die ("ERROR: $test_dir doesn't exist !\n");
|
|
#Assume that depth is 1
|
|
@all_dirs;
|
|
$i=0;
|
|
chdir($test_dir);
|
|
while($nextdir = <*>) {
|
|
(-d $nextdir) || next; #Proceed only directories
|
|
($nextdir =~ /SCCS$/) && next; #ignore all SCCS entries
|
|
($nextdir =~ /CVS$/) && next; #ignore all CVS entries
|
|
unless (-f "$nextdir/TestProperties") {
|
|
print "Skipping $nextdir\n";
|
|
next;
|
|
}
|
|
$nextdir =~s/\\/\//g;
|
|
chomp($nextdir);
|
|
$all_dirs[$i] = $nextdir;
|
|
$i++;
|
|
}
|
|
chdir($cur_dir);
|
|
open(OUT,">$output_file") || die "Can't open output file\n";
|
|
print(OUT join("\n",@all_dirs));
|
|
close(OUT) || die "Can't close output file\n";;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|