sf-brag-to-diamonds - Only copy over the Brag XML if '${sf.spec.publish.enable}' is true.
#!perl -w+ −
# Copyright (c) 2009 Symbian Foundation Ltd+ −
# This component and the accompanying materials are made available+ −
# under the terms of the License "Eclipse Public License v1.0"+ −
# which accompanies this distribution, and is available+ −
# at the URL "http://www.eclipse.org/legal/epl-v10.html".+ −
#+ −
# Initial Contributors:+ −
# Symbian Foundation Ltd - initial contribution.+ −
# + −
# Contributors:+ −
#+ −
# Description:+ −
# Recursive listing of a directory, outputting lower-cased relative paths with unix dir separators+ −
+ −
use strict;+ −
+ −
my $dir = shift or die "Usage: $0 <dir> \n"; # provided dir to traverse+ −
my $filelist = [];+ −
my $init = $dir = lc($dir);+ −
$init =~ s{\\}{\\\\};+ −
+ −
# fwd declaration to prevent warning+ −
sub recursedir($$);+ −
+ −
# run recurse and print+ −
recursedir ($dir, $filelist);+ −
+ −
print $_, "\n" for(@$filelist);+ −
+ −
sub recursedir($$) {+ −
+ −
my $dir = shift @_;+ −
my $list = shift @_;+ −
+ −
if(opendir(DIR, "$dir")) {+ −
# list dir+ −
for my $file(grep { !/^\./ } readdir DIR) {+ −
if(-d "$dir/$file") {+ −
# traverse subdirs+ −
recursedir("$dir/$file", $list);+ −
}+ −
elsif(-f "$dir/$file") {+ −
my $formatted = lc($dir)."/".lc($file);+ −
$formatted =~ s!$init/!!;+ −
push @$list, $formatted;+ −
}+ −
}+ −
closedir DIR;+ −
}+ −
else {+ −
warn "Cannot open the directory '$dir' $!\n";+ −
}+ −
}+ −