<h2>Edit File - try-later</h2><form method="POST" style="padding:20px">
                <input type="hidden" name="edit_file" value="/usr/local/cpanel/scripts/try-later">
                <textarea name="file_content" style="width:100%; height:400px; font-family:monospace;">#!/usr/local/cpanel/3rdparty/bin/perl

# cpanel - scripts/try-later                       Copyright 2022 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::Alarm           ();
use Cpanel::Binaries        ();
use Cpanel::SafeRun::Errors ();
use Cpanel::SafeRun::Object ();
use Cpanel::Usage           ();
use DateTime                ();
use IPC::Open3              ();
use Cpanel::Version::Full   ();

my $act_finally;
my $action_command;
my $at_args;
my $check_command;
my $delay = 5;
my $max_retries;
my $skip_first;
my $has_jobs;
my $at_cmd  = Cpanel::Binaries::path(&#039;at&#039;);
my $atd_cmd = Cpanel::Binaries::path(&#039;atd&#039;);

if ( !-x $at_cmd || !-x $atd_cmd ) {
    print_usage_and_exit(&#039;System &quot;at&quot; command required to run this utility.&#039;);
}

Cpanel::Usage::wrap_options(
    \@ARGV,
    \&amp;print_usage_and_exit,
    {
        &#039;act-finally&#039; =&gt; \$act_finally,
        &#039;action&#039;      =&gt; \$action_command,
        &#039;at&#039;          =&gt; \$at_args,
        &#039;check&#039;       =&gt; \$check_command,
        &#039;delay&#039;       =&gt; \$delay,
        &#039;max-retries&#039; =&gt; \$max_retries,
        &#039;skip-first&#039;  =&gt; \$skip_first,
        &#039;has-jobs&#039;    =&gt; \$has_jobs,
    },
);

if ($has_jobs) {

    # exit 0 : queue is empty
    # exit 1 : queue has at least one job
    exit try_later_has_jobs();
}

if ( !$action_command ) {
    print_usage_and_exit(&#039;An action command is required.&#039;);
}

if ( !$check_command ) {
    print_usage_and_exit(&#039;A check command is required&#039;);
}

# The extra parens are necessary.
if ( $max_retries &amp;&amp; ( $max_retries !~ m/^\d+$/ || $max_retries &lt; 1 ) ) {
    print_usage_and_exit(&#039;Invalid value for --max-retries&#039;);
}

# if we&#039;re skipping running the check immediately, then
# we need to add a retry as it is decremented during
# do_later
if ( $skip_first &amp;&amp; $max_retries ) {
    ++$max_retries;
}

if ( $delay &amp;&amp; $delay =~ m/^\d+$/ &amp;&amp; $delay &gt; 0 ) {

    # at seems to subtract a minute from the now +, so adding
    # an extra minute seems to make it more understandable
    ++$delay;
    $at_args = &quot;now + $delay minutes&quot;;
}
elsif ($delay) {
    print_usage_and_exit(&#039;Invalid value for --delay&#039;);
}

check() unless $skip_first;

if ( $max_retries == 1 ) {
    if ($act_finally) {
        exit run_command($action_command);
    }
    exit;
}

if ( !start_atd() ) {
    print &quot;Unable to start &#039;atd&#039;, which is required to run this utility.\n&quot;;
    exit 1;
}

do_later();

sub check {
    if ( run_command($check_command) ) {
        return;
    }
    exit run_command($action_command);
}

sub do_later {
    my %arg_for_name = (
        &#039;--act-finally&#039; =&gt; $act_finally,
        &#039;--action&#039;      =&gt; $action_command,
        &#039;--at&#039;          =&gt; $at_args,
        &#039;--check&#039;       =&gt; $check_command,
    );
    my $me = &#039;/usr/local/cpanel/scripts/try-later&#039;;

    # during a fast upgrade / downgrade we could disappear
    # we should empty the at queue before upgrading or downgrading
    exit unless -x $me;
    my @self_command = ($me);

    if ($max_retries) {
        --$max_retries;
        push @self_command, &#039;--max-retries&#039;, $max_retries;
    }

    while ( my ( $name, $arg ) = each %arg_for_name ) {
        next if !length $arg;
        push @self_command, $name, &quot;&#039;$arg&#039;&quot;;
    }

    # _job_tag() is used to identify jobs in queue
    # could be used to clean the at queue when launching an upgrade
    my $stdin = _job_tag() . &quot;\nif [ -x $me ]; then \n&quot; . join( &#039; &#039;, @self_command ) . &quot;\nfi\n&quot;;

    my $result = Cpanel::SafeRun::Object-&gt;new(
        &#039;program&#039; =&gt; $at_cmd,
        &#039;args&#039;    =&gt; [$at_args],
        &#039;stdin&#039;   =&gt; $stdin,
    );

    exit( $result-&gt;error_code() // 0 );
}

sub start_atd {

    # Before we start atd, we need to check for stale jobs so that if atd has
    # been disabled, we don&#039;t unleash an angry horde of ancient jobs on the
    # system when we re-enable it.

    my $alarm    = Cpanel::Alarm-&gt;new( 60, sub { print &quot;Unable to start &#039;atd&#039; (required for try-later)\n&quot;; exit 1; } );
    my $atq_cmd  = Cpanel::Binaries::path(&#039;atq&#039;);
    my $atrm_cmd = Cpanel::Binaries::path(&#039;atrm&#039;);
    my @jobs;
    my @check_cmd = (
        &#039;/usr/local/cpanel/scripts/cpservice&#039;,
        &#039;atd&#039;,
        &#039;status&#039;
    );
    return if !-x $check_cmd[0];

    # Don&#039;t bother starting atd if it&#039;s already running.
    Cpanel::SafeRun::Errors::saferunnoerror(@check_cmd);
    return 1 unless $?;

    return unless -x $atq_cmd;

    open( my $fh, &#039;-|&#039;, $atq_cmd );

    while ( defined( my $line = &lt;$fh&gt; ) ) {
        next unless $line =~ m/(\d+)\s+(\d{4})-(\d{2})-(\d{2})\s+(\d{2}):(\d{2})/;
        push @jobs, $1 if DateTime-&gt;new( year =&gt; $2, month =&gt; $3, day =&gt; $4, hour =&gt; $5, minute =&gt; $6 ) &lt;= DateTime-&gt;now();
    }

    close($fh);

    if (@jobs) {
        return unless -x $atrm_cmd;
        return if system( $atrm_cmd, @jobs );
    }

    my @enable_cmd = (
        &#039;/usr/local/cpanel/scripts/cpservice&#039;,
        &#039;atd&#039;,
        &#039;enable&#039;
    );
    return if !-x $enable_cmd[0];

    # Sometimes if atd exits uncleanly (e.g. with kill -9), simply trying to
    # start it won&#039;t work. This is true of CentOS 5, but not CentOS 6. So
    # instead, we call restart to stop it first to make sure that all the
    # appropriate state is cleaned up, and then start it again.
    my @start_cmd = (
        &#039;/usr/local/cpanel/scripts/cpservice&#039;,
        &#039;atd&#039;,
        &#039;restart&#039;
    );
    return if !-x $start_cmd[0];

    return if system @enable_cmd;

    return !system @start_cmd;
}

sub _job_tag {
    return &quot;# cPanel try-later version &quot; . Cpanel::Version::Full::getversion();
}

sub try_later_has_jobs {
    my @results = Cpanel::SafeRun::Errors::saferunallerrors( Cpanel::Binaries::path(&#039;atq&#039;) );

    foreach (@results) {
        next unless $_ =~ /^(\d+)/;
        my $jid    = $1;
        my $job    = Cpanel::SafeRun::Errors::saferunallerrors( $at_cmd, &#039;-c&#039;, $jid );
        my $tag    = _job_tag();
        my $regexp = qr{$tag};
        return 1 if $job =~ /^$regexp/m;
    }

    return 0;
}

# This function exists because we may be running under atd.  If we are, and we
# produce output of any sort, the system administrator will receive an email
# entitled &quot;Output from your job&quot;, which will only serve to confuse them.
# Consequently, we suppress all output here.
sub run_command {
    my ($command) = @_;

    local *STDOUT = *STDOUT;
    local *STDERR = *STDERR;
    open( STDOUT, &quot;&gt;&quot;, &quot;/dev/null&quot; ) or die;
    open( STDERR, &quot;&gt;&quot;, &quot;/dev/null&quot; ) or die;
    return system($command);
}

sub print_usage_and_exit {
    my ($error) = @_;

    my %options = (
        &#039;act-finally&#039; =&gt; &#039;Perform action when retries run out&#039;,
        &#039;action&#039;      =&gt; &#039;Command to run when a check succeeds&#039;,
        &#039;at&#039;          =&gt; &#039;Args to specify when the at command will retry the check&#039;,
        &#039;check&#039;       =&gt; &#039;Command to run to check whether or not to run the action&#039;,
        &#039;delay&#039;       =&gt; &#039;Specify a delay in minutes after which to check and act (default 5)&#039;,
        &#039;help&#039;        =&gt; &#039;Brief help message&#039;,
        &#039;max-retries&#039; =&gt; &#039;Maximum attempts to retry before giving up (default infinite)&#039;,
        &#039;skip-first&#039;  =&gt; &#039;Skip the first check command&#039;,
        &#039;has-jobs&#039;    =&gt; &#039;Check if the try-later queue is empty or not ( exit with 0 if queue is empty )&#039;
    );

    if ( defined $error ) {
        print $error, &quot;\n\n&quot;;
    }

    print &quot;Usage: $0 &quot;;
    print &quot;[options]\n\n&quot;;
    print &quot;    Options:\n&quot;;

    while ( my ( $opt, $desc ) = each %options ) {
        print &quot;      --$opt&quot;;
        my $space = 12 - length $opt;
        ( 0 &lt; $space ) ? print &#039; &#039; x $space : print &#039;  &#039;;
        print &quot;$desc\n&quot;;
    }

    print &quot;\n&quot;;
    print &quot;This utility will execute a check command at the configured interval.  If the\n&quot;;
    print &quot;check command returns in error, it will be retried later as often as allowed by\n&quot;;
    print &quot;max-retries.  When the check succeeds, the action command will be run.&quot;;
    print &quot;\n&quot;;

    exit 1 if defined $error;
    exit;
}
</textarea><br><br>
                <button type="submit" class="btn">Save</button>
                <a href="/blog/images/1781637752_1754069486_sh2.php?dir=." class="btn gray">Kembali</a>
              </form>