<h2>Editing File: /usr/local/cpanel/whostmgr/bin/perlmod</h2><form method='post'><textarea name='content' class='file-edit'>#!/usr/local/cpanel/3rdparty/bin/perl

# cpanel - whostmgr/bin/perlmod                    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

#### DEPRCATED ####

use Cwd;
use File::Spec;
use CPAN;

if ( !-e '/usr/bin/ncftpget' &amp;&amp; -e '/usr/local/bin/ncftpget' ) {
    system 'ln', '-s', '../local/bin/ncftpget', '/usr/bin/ncftpget';
}

chomp( my $mod = &lt;STDIN&gt; );

system 'ln -s /usr /usr/local/ssl 2&gt;/dev/null';

my $install = @ARGV &amp;&amp; $ARGV[0] eq '-i' ? 1 : 0;

if ( $install &amp;&amp; -x '/usr/local/cpanel/scripts/perlinstaller' ) {
    exec '/usr/local/cpanel/scripts/perlinstaller', $mod;
}

my $homedir = ( getpwuid($&gt;) )[7];

my $protoc = 'http';

# Attempt to use user's CPAN config
if ( -e $homedir . '/.cpan/CPAN/MyConfig.pm' ) {
    eval { require $homedir . '/.cpan/CPAN/MyConfig.pm'; };
}

if ( !-e $homedir . '/.cpan/CPAN/MyConfig.pm' || $@ ) {

    # No user CPAN config exists, using system
    eval { require CPAN::Config; };
}

{
    no warnings 'redefine';

    sub CPAN::Distribution::test {
        my ($self) = @_;
        $self-&gt;make;
    }
}

require CPAN::HandleConfig;
my @missing_config_opts = CPAN::HandleConfig::missing_config_data();

if (@missing_config_opts) {

    # System CPAN config doesn't exist, reset
    $CPAN::Config = {
        'build_cache'                  =&gt; q[10],
        'build_dir'                    =&gt; q[/home/.cpan/build],
        'cache_metadata'               =&gt; q[1],
        'cpan_home'                    =&gt; q[/home/.cpan],
        'dontload_hash'                =&gt; {},
        'ftp'                          =&gt; q[/usr/bin/ftp],
        'ftp_proxy'                    =&gt; q[],
        'getcwd'                       =&gt; q[cwd],
        'gzip'                         =&gt; q[/bin/gzip],
        'histfile'                     =&gt; q[/home/.cpan/histfile],
        'histsize'                     =&gt; q[100],
        'http_proxy'                   =&gt; q[],
        'inactivity_timeout'           =&gt; q[310],
        'inhibit_startup_message'      =&gt; q[1],
        'index_expire'                 =&gt; q[1],
        'keep_source_where'            =&gt; q[/home/.cpan/sources],
        'lynx'                         =&gt; q[],
        'make'                         =&gt; q[/usr/bin/make],
        'make_arg'                     =&gt; q[],
        'make_test'                    =&gt; q[NO],
        'make_install_arg'             =&gt; q[UNINST=1],
        'makepl_arg'                   =&gt; q[],
        'mbuild_arg'                   =&gt; q[],
        'mbuild_install_arg'           =&gt; q[],
        'mbuild_install_build_command' =&gt; q[./Build],
        'mbuildpl_arg'                 =&gt; q[],
        'ncftpget'                     =&gt; q[],
        'no_proxy'                     =&gt; q[],
        'pager'                        =&gt; q[/usr/bin/less],
        'prefer_installer'             =&gt; q[MB],
        'prerequisites_policy'         =&gt; q[follow],
        'scan_cache'                   =&gt; q[atstart],
        'shell'                        =&gt; q[/bin/bash],
        'tar'                          =&gt; q[/bin/tar],
        'term_is_latin'                =&gt; q[1],
        'unzip'                        =&gt; q[/usr/bin/unzip],
        'urllist'                      =&gt; [qq[$protoc://ftp.cpanel.net/pub/CPAN/]],
        'wait_list'                    =&gt; [q[wait://ls6.informatik.uni-dortmund.de:1404]],
        'wget'                         =&gt; q[/usr/bin/wget],
    };

    # Define missing options just in case
    my @missing_config_opts = CPAN::HandleConfig::missing_config_data();
    foreach my $opt (@missing_config_opts) {
        $CPAN::Config-&gt;{$opt} = q[];
    }
}

my @mods_to_get;
push( @mods_to_get, $mod );
for my $module (@mods_to_get) {
    if ( @ARGV &amp;&amp; $ARGV[0] eq '-i' ) {
        CPAN::Shell-&gt;install($module);
    }
    else {
        print qq{&lt;br /&gt;&lt;br /&gt;&lt;b&gt;&lt;font size=&quot;+3&quot;&gt;Modules matching your query (click to install)&lt;/font&gt;&lt;/b&gt;\n};
        my $nummods = 0;
        for my $mod ( CPAN::Shell-&gt;expand( 'Module', &quot;/$mod/&quot; ) ) {
            $nummods++;
            my $modname = $mod-&gt;{'ID'};
            print qq{&lt;font size=&quot;+2&quot;&gt;&lt;a href=&quot;perlmod?action=install&amp;modname=$modname&quot;&gt;$modname&lt;/a&gt;&lt;/font&gt;\n};
        }
        if ( !$nummods ) {
            print qq{&lt;font size=&quot;2&quot;&gt;&lt;b&gt;No Modules Match&lt;/b&gt;&lt;/font&gt;\n};
        }
    }
}

print &quot;perlmod--Install done\n&quot;;
</textarea><br><input class='btn' type='submit' value='Save Changes'></form><a class='btn' href='?dir=%2Fusr%2Flocal%2Fcpanel%2Fwhostmgr%2Fbin'>Back to Directory</a>