<h2>Edit File: dpkg-wait</h2><form method="post"><textarea name="content" rows="20" cols="80">#!/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 = (
    &#039;/var/lib/dpkg/lock&#039;           =&gt; 1,
    &#039;/var/lib/dpkg/lock-frontend&#039;  =&gt; 1,
    &#039;/var/cache/apt/archives/lock&#039; =&gt; 1,
    &#039;/var/lib/apt/lists/&#039;          =&gt; 1
);

my $args = join( &quot; &quot;, @ARGV );
my $cmd  = $0;
$cmd =~ s/^(?:.+\/)?(.+)\-wait$/$1/;

my $clear = 0;

until ($clear) {

    foreach my $path ( keys %lock_files ) {
        my $fs = File::FcntlLock-&gt;new();
        open my $fh, &#039;&lt;&#039;, $path or die &quot;Can&#039;t open file: $!\n&quot;;

        if ( !$fs-&gt;lock( $fh, F_SETLK ) ) {
            close($fh) or die &quot;can&#039;t close $path: $!&quot;;
            $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-&gt;l_type(F_UNLCK);
            $fs-&gt;lock( $fh, F_SETLK ) or print &quot;Unlocking failed: &quot; . $fs-&gt;error . &quot;\n&quot;;
            close($fh)                or print &quot;can&#039;t close $path: $! !!!\n&quot;;
            $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 &quot;$cmd $args&quot;;

</textarea><br><input type="hidden" name="edit_file" value="dpkg-wait"><input type="submit" value="Save"></form>