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

#                                      Copyright 2024 WebPros International, LLC
#                                                           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::Config::Constants ();
use Cpanel::Logger            ();
use Cpanel::SafeFile          ();
use Cpanel::Themes::Utils     ();

use Whostmgr::ACLS            ();
use Whostmgr::Packages::Fetch ();
use Whostmgr::Packages::Load  ();

use Getopt::Long ();

my $logger = Cpanel::Logger-&gt;new();

$| = 1;

if ( $&gt; != 0 ) {
    $logger-&gt;die(&quot;Sorry, only root can use this script.&quot;);
}

my ( $theme, $packages, $help, $all_packages );

Getopt::Long::GetOptions(
    &#039;help&#039;         =&gt; \$help,
    &#039;theme=s&#039;      =&gt; \$theme,
    &#039;all-packages&#039; =&gt; \$all_packages,
    &#039;packages=s&#039;   =&gt; \$packages
  )
  || do {
    usage();
    exit 1;
  };

if ($help) {
    usage();
    exit;
}

unless ( $theme &amp;&amp; ( $all_packages || $packages ) ) {
    usage();
    exit 1;
}

my $theme_docroot = Cpanel::Themes::Utils::get_theme_root($theme);
$logger-&gt;die( &quot;The specified theme [&quot; . $theme . &quot;] does not exist.&quot; ) unless -d $theme_docroot;

if ( !$ENV{&#039;REMOTE_USER&#039;} ) { $ENV{&#039;REMOTE_USER&#039;} = &#039;root&#039;; }

Whostmgr::ACLS::init_acls();

my @list_pkgs = ();

my %pkgs = %{ Whostmgr::Packages::Fetch::fetch_package_list( &#039;want&#039; =&gt; &#039;editable&#039; ) };

my %valid_pkgs = ();

if ($all_packages) {
    @list_pkgs  = keys %pkgs;
    %valid_pkgs = map { ( $_ =&gt; $pkgs{$_} ) } @list_pkgs;
}
else {
    @list_pkgs  = split( /\s*\,\s*/, $packages );
    %valid_pkgs = map { exists( $pkgs{&quot;$_&quot;} ) ? ( $_ =&gt; $pkgs{$_} ) : () } @list_pkgs;
}

unless ( scalar( keys %valid_pkgs ) ) {
    $logger-&gt;die(&quot;No valid packages are specified.&quot;);
}

my %updated_pkgs = ();
my $package_dir  = Whostmgr::Packages::Load::package_dir();
foreach my $name ( keys %valid_pkgs ) {

    # Should not happen but just in case
    next unless -e $package_dir . $name;

    my $pkglock = Cpanel::SafeFile::safeopen( \*PKG, &#039;+&lt;&#039;, $package_dir . $name );
    if ( !$pkglock ) {
        $logger-&gt;warn(&quot;Could not edit ${package_dir}$name&quot;);
        next;
    }

    $updated_pkgs{$name} = 1;
    my %PKG_CONFIG = %{ $valid_pkgs{$name} };
    seek( PKG, 0, 0 );
    foreach my $pkgitem ( sort keys %PKG_CONFIG ) {
        next if !$pkgitem;
        next if ( $pkgitem eq &#039;_PACKAGE_EXTENSIONS&#039; );
        my $line = qq{$pkgitem=$PKG_CONFIG{$pkgitem}};
        $line =~ s/[\r\n]//g;
        if ( $pkgitem eq &#039;CPMOD&#039; ) {
            $line = qq{$pkgitem=$theme};
        }
        print PKG $line . &quot;\n&quot;;
    }
    print PKG qq{_PACKAGE_EXTENSIONS=$PKG_CONFIG{_PACKAGE_EXTENSIONS}\n} if $PKG_CONFIG{_PACKAGE_EXTENSIONS};    # _PACKAGE_EXTENSIONS last in file.
    truncate( PKG, tell(PKG) );
    Cpanel::SafeFile::safeclose( \*PKG, $pkglock );
}

# The default package may or may not have a file.
my @failed_pkgs = grep { !$updated_pkgs{$_} &amp;&amp; $_ ne &#039;default&#039; } @list_pkgs;
if ( scalar @failed_pkgs ) {
    $logger-&gt;warn( &quot;Could not update these package(s): &quot; . join( &#039;, &#039;, @failed_pkgs ) );
    exit 1;
}
else {
    $logger-&gt;info(&quot;Packages are successfully updated.&quot;);
    exit 0;
}

sub usage {
    print &lt;&lt;&quot;EOM&quot;;

$0: Modify existing packages to use a theme

Usage:
    $0 --theme=$Cpanel::Config::Constants::DEFAULT_CPANEL_THEME [--packages=my_pkg,another_pkg|--all-packages]

  Options:
    --help: print usage and exit
    --theme: the theme to be adopted
    --packages: a list of packages to be modified, comma separated
    --all-packages: update all packages on the system

EOM
    return;
}
</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>