JezK
Edit File: apt-get-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";