| Current Path : /cpanel_installer/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //cpanel_installer/dpkg-wait |
#!/usr/bin/perl
# cpanel - installd/apt-get-wait Copyright 2021 cPanel, L.L.C.
# All rights reserved.
# copyright@cpanel.net http://cpanel.net
# This code is subject to the cPanel license. Unauthorized copying is prohibited
use strict;
use warnings;
use File::FcntlLock;
# Define our locks, assume all are locked to start
my %lock_files = (
'/var/lib/dpkg/lock' => 1,
'/var/lib/dpkg/lock-frontend' => 1,
'/var/cache/apt/archives/lock' => 1,
'/var/lib/apt/lists/' => 1
);
my $args = join( " ", @ARGV );
my $cmd = $0;
$cmd =~ s/^(?:.+\/)?(.+)\-wait$/$1/;
my $clear = 0;
until ($clear) {
foreach my $path ( keys %lock_files ) {
my $fs = File::FcntlLock->new();
open my $fh, '<', $path or die "Can't open file: $!\n";
if ( !$fs->lock( $fh, F_SETLK ) ) {
close($fh) or die "can't close $path: $!";
$lock_files{$path} = 1;
# Locking failed: File or segment already locked by other process(es)
# wait a tenth of a second and try again
select( undef, undef, undef, .10 );
}
else {
$fs->l_type(F_UNLCK);
$fs->lock( $fh, F_SETLK ) or print "Unlocking failed: " . $fs->error . "\n";
close($fh) or print "can't close $path: $! !!!\n";
$lock_files{$path} = 0;
}
}
# If either path is locked, set all paths to locked and start over
foreach my $locked ( values %lock_files ) {
if ( $locked == 1 ) {
foreach my $lock_file_path ( keys %lock_files ) {
$lock_files{$lock_file_path} = 1;
}
$clear = 0;
last;
}
else {
$clear = 1;
}
}
}
exec "$cmd $args";