wine/gecko
0
0
Fork 0
mirror of https://gitlab.winehq.org/wine/wine-gecko.git synced 2024-09-13 09:24:08 -07:00
Code Issues Packages Projects Releases Wiki Activity

Bug 394500, fix permissions on updates before pushing, r=joduinn,rhelmer

Browse Source
This commit is contained in:
nrthomas@gmail.com 2007-10-08 13:34:45 -07:00
parent d23dcd9b90
commit 5890826202
1 changed files with 18 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
tools/release/Bootstrap/Step/Updates.pm
View File

@ -203,6 +203,16 @@ sub ReleaseBetaAusCallback {
}
}
sub PermissionsAusCallback {
my $dir = $File::Find::name;
if (-f $dir) {
chmod(0644, $dir) or die("Couldn't chmod $dir to 644: $!");
} elsif (-d $dir) {
chmod(0775, $dir) or die("Couldn't chmod $dir to 775: $!");
}
}
sub Push {
my $this = shift;
@ -225,13 +235,17 @@ sub Push {
my $candidateDir = $config->GetFtpCandidateDir(bitsUnsigned => 0);
# push partial mar files up to ftp server
my $marsDir = catfile('ftp', $product, 'nightly',
$version . '-candidates', 'rc' . $rc) . '/';
chmod(0644, glob(catfile($fullUpdateDir,$marsDir,"*partial.mar")))
or die("Couldn't chmod a partial mar to 644: $!");
$this->Shell(
cmd => 'rsync',
cmdArgs => ['-av', '-e', 'ssh',
'--include=*partial.mar',
'--exclude=*',
catfile('ftp', $product, 'nightly', $version . '-candidates',
'rc' . $rc) . '/',
$marsDir,
$stagingUser . '@' . $stagingServer . ':' . $candidateDir],
dir => $fullUpdateDir,
logFile => $pushLog,
@ -245,6 +259,8 @@ sub Push {
my @snippetDirs = glob(catfile($fullUpdateDir, "aus2*"));
File::Find::find(\&PermissionsAusCallback, @snippetDirs);
foreach $dir (@snippetDirs) {
my $targetDir = $targetPrefix;
if ($dir =~ /aus2\.(.*)$/) {