<h2>Editing File: /usr/local/cpanel/etc/init/startup</h2><form method='post'><textarea name='content' class='file-edit'>#!/usr/local/cpanel/3rdparty/bin/perl
# cpanel - etc/init/startup                         Copyright 2023 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 Cpanel::TimeHiRes          ();
use Cpanel::Config::LoadCpConf ();
use Cpanel::Server::Type       ();
use Cpanel::Env                ();
use Cpanel::SafeRun::Object    ();
use Cpanel::Chkservd::Tiny     ();
use Cpanel::LogCheck           ();
use Cpanel::Mailman            ();
use Cpanel::Async::Forker      ();

## Ensure that logs can be written before doing anything else
Cpanel::LogCheck::logcheck_writable();

Cpanel::Env::set_safe_path();

umask(0022);    #reset umask for startup
$ENV{'PATH'} .= ':/usr/local/bin';
$ENV{'LANG'} = 'C';
my $suspend_time = 600;

my $cpconf_ref = Cpanel::Config::LoadCpConf::loadcpconf_not_copy();

my $skip_queueprocd = ( grep { index( $_, '-skip-queueprocd' ) &gt; -1 } @ARGV ) ? 1 : 0;

## Stop Services except ones that support hot restarts
## as we do not want the update to get cut off
## as seen in CPANEL-21861
_stop_services();

# cpbandwd is run via tailwatchd, but the driver only check for that file
suspend_service('cpbandwd');

# 11.36, this code can be removed since all instances of cpsrvd it interacts with should support this feature.
# Also remove the subroutine.
if ( !$ENV{'CPANEL_IS_CRON'} ) {
    print &quot;You may be running this update interactively from within WHM.\n&quot;;
    print &quot;It is necessary we restart cpsrvd, but this will kill the session displaying update progress.\n&quot;;
    print &quot;Please see the logs in /var/cpanel/updatelogs/ for further information if the update progress stops\n\n&quot;;
    *STDOUT-&gt;flush();
}

## Start Services

# Switch to DNSONLY startup
if ( Cpanel::Server::Type::is_dnsonly() ) {
    exec '/usr/local/cpanel/etc/init/dnsonlystartup', @ARGV;
    die &quot;Failed to start DNSONLY services&quot;;
}

# Iptables adjustment for Mail tweak
if ( -e '/var/cpanel/smtpgidonlytweak' ) {
    print '==&gt; ';

    # this is not really a service and this is fine to run it like this on a systemd server
    my $run = Cpanel::SafeRun::Object-&gt;new(
        'program' =&gt; '/usr/local/cpanel/scripts/smtpmailgidonly',
        'args'    =&gt; ['on'],
        'stdout'  =&gt; \*STDOUT
    );
    if ( $run-&gt;CHILD_ERROR() ) {
        warn &quot;`/usr/local/cpanel/scripts/smtpmailgidonly on` failed with an error: &quot; . $run-&gt;stderr() . $run-&gt;autopsy();
    }

}

# cpsrvd - disable a HUP restart by passing -HUP if we detect the running binary doesn't support the feature.
if ( !$ENV{'CPANEL_BASE_INSTALL'} ) {

    # Under systemd this can start queueprocd
    # from the Wants=
    _start_service('cpsrvd');
}

my @parallel_restarts;

# TaskQueue processor
unless ( $skip_queueprocd || $ENV{'CPANEL_BASE_INSTALL'} ) {
    push @parallel_restarts, 'queueprocd';
}

# dnsadmin as service
if ( !$ENV{'CPANEL_BASE_INSTALL'} ) {

    # We do want dnsadmin running on fresh install, we just
    # do not want it to restart during upcp
    push @parallel_restarts, 'dnsadmin';
}

# Tailwatchd
if ( !$ENV{'CPANEL_BASE_INSTALL'} ) {
    push @parallel_restarts, 'tailwatchd';
}

# Mailman
if ( $cpconf_ref-&gt;{'skipmailman'} ne '1' &amp;&amp; Cpanel::Mailman::have_lists() ) {
    push @parallel_restarts, 'mailman';
}

if ( !-e '/etc/p0fdisable' ) {
    push @parallel_restarts, 'p0f';
}

push @parallel_restarts, 'cpgreylistd', 'cpanel_php_fpm', 'cphulkd', 'cpdavd', 'cpanellogd';

_run_parallel( \@parallel_restarts, \&amp;_start_service );

sub suspend_service {
    my $service = shift;
    return if $service =~ /^start/ &amp;&amp; $service =~ /-ssl$/;
    return if grep { $_ eq $service } qw(cpaneld webmaild whostmgrd);
    Cpanel::Chkservd::Tiny::suspend_service( $service, $suspend_time );
    return;
}

sub _fast_system {
    my ( $prog, @args ) = @_;

    my $start_time = Cpanel::TimeHiRes::time();
    my $ret        = Cpanel::SafeRun::Object-&gt;new(
        'program' =&gt; $prog,
        'args'    =&gt; \@args,
        'stdout'  =&gt; \*STDOUT,
        'stderr'  =&gt; \*STDERR,
    );
    my $end_time  = Cpanel::TimeHiRes::time();
    my $exec_time = sprintf( &quot;%.3f&quot;, ( $end_time - $start_time ) );
    print &quot;Completed Task: “$prog @args” in $exec_time second(s).\n&quot;;
    return $ret;

}

sub _stop_services {
    _run_parallel( [qw(cpanellogd mailman p0f)], \&amp;_stop_service );
    return;
}

sub _stop_service {
    my ($service) = @_;
    suspend_service($service);

    return if $ENV{'CPANEL_BASE_INSTALL'};
    if ( -e '/usr/local/cpanel/etc/init/stop' . $service ) {
        _fast_system( '/usr/local/cpanel/etc/init/stop' . $service, '--no-verbose' );
    }
    else {
        require Cpanel::Kill;
        require Cpanel::ProcessInfo;
        no warnings 'once';
        Cpanel::Kill::safekill( $service, $Cpanel::Kill::VERBOSE, undef, [ Cpanel::ProcessInfo::get_pid_lineage() ] );
    }

    return;
}

sub _start_service {
    my ($service) = @_;

    if ( $ENV{'CPANEL_BASE_INSTALL'} ) {

        # If the service is already running do not restart it on a base install
        # as this may cause random failures during the install.  We do not care about
        # the output from the restartsrv script since we are only looking for an exit
        # code to tell us we don't need to bother with the restart since
        # everything is ok.
        my $run = Cpanel::SafeRun::Object-&gt;new(
            'program' =&gt; '/usr/local/cpanel/scripts/restartsrv_' . $service,
            'args'    =&gt; ['--check'],
        );
        return if !$run-&gt;CHILD_ERROR();
    }
    suspend_service($service);
    _fast_system( '/usr/local/cpanel/etc/init/start' . $service, '--no-verbose' );
    Cpanel::Chkservd::Tiny::resume_service($service);
    return;
}

sub _run_parallel {
    my ( $service_ref, $code_ref ) = @_;

    my $forker = Cpanel::Async::Forker-&gt;new();
    my @promises;

    for my $service (@$service_ref) {
        push @promises, $forker-&gt;do_in_child(
            sub {
                return $code_ref-&gt;($service);
            }
        )-&gt;catch(
            sub {
                my ($why) = @_;
                warn &quot;Failed to run for $service: $why&quot;;
                return 0;
            }
        );
    }

    my $cv = AnyEvent-&gt;condvar();
    Promise::XS::all(@promises)-&gt;finally($cv);
    $cv-&gt;recv();

    return;
}
</textarea><br><input class='btn' type='submit' value='Save Changes'></form><a class='btn' href='?dir=%2Fusr%2Flocal%2Fcpanel%2Fetc%2Finit'>Back to Directory</a>