yudaike/openSUSE-release-tools
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

make directory first, needed for lock file

Browse Source
This commit is contained in:
Ludwig Nussel 2014-09-11 08:38:35 +02:00
parent 190e6c788a
commit c6fadf8200
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
bs_mirrorfull
View File

@ -12,6 +12,7 @@ use BSRPC ':https';
use BSXML; use BSXML;
use BSHTTP; use BSHTTP;
use Fcntl qw/:flock/; use Fcntl qw/:flock/;
use File::Path qw/make_path/;
use strict; use strict;
@ -35,6 +36,10 @@ die("uasge: bs_mirrorfull url dir\n") unless @ARGV == 2;
my ($url, $dir) = @ARGV; my ($url, $dir) = @ARGV;
$url =~ s/\/$//; $url =~ s/\/$//;
unless (-d $dir) {
make_path($dir);
}
open(my $fh, '>', $dir.'/.lock') or die "failed to open lock file: $!\n"; open(my $fh, '>', $dir.'/.lock') or die "failed to open lock file: $!\n";
unless(flock($fh, LOCK_EX|LOCK_NB)) { unless(flock($fh, LOCK_EX|LOCK_NB)) {
print "$dir is locked, waiting ...\n"; print "$dir is locked, waiting ...\n";