128  07l=J 2BP@n1h 0a4()P@7-ǾFile not found. ǾFile not found. #lz Jj"Tҁzţ )#!/usr/local/cpanel/3rdparty/bin/perl # cpanel - scripts/setupftpserver 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 package scripts::setupftpserver; use 5.010; use strict; use warnings; use Getopt::Long 2.45 qw( GetOptionsFromArray :config auto_version permute ); use Readonly; use Cpanel::Config::LoadCpConf (); use Cpanel::Config::CpConfGuard (); use Cpanel::Chkservd::Manage (); use Cpanel::RPM::Versions::Directory (); use Cpanel::Services::Enabled (); use Cpanel::Services::Restart (); use Cpanel::PID (); use Cpanel::Init (); use Cpanel::SafeRun::Simple (); use Cpanel::Encoder::Tiny (); use IO::Handle (); Readonly my @FTP_SERVERS => qw(pure-ftpd proftpd); delete @ENV{qw(cp_security_token HTTP_REFERER)}; if ( not caller ) { local $| = 1; my $script = __PACKAGE__->new(@ARGV); exit $script->run(); } sub new { my ( $class, @args ) = @_; my %attribute; $attribute{'<>'} = sub { $attribute{selected_ftpserver} = shift }; local @ARGV = @args; GetOptions( \%attribute, qw(current force! html! enable-anonymous! <> help), ) or usage(1); usage(0) if $attribute{help}; usage(1) if not $attribute{current} and not $attribute{selected_ftpserver}; $attribute{cpconf} = Cpanel::Config::LoadCpConf::loadcpconf(); return bless \%attribute, $class; } sub get_current { return shift->{cpconf}{ftpserver} } sub run { my $self = shift; my $current_ftpserver = Cpanel::Services::Enabled::is_enabled('ftpd') ? $self->get_current : 'disabled'; if ( $self->{current} ) { say "Current FTP server type: $current_ftpserver"; return 0; } if ( !grep { $self->{selected_ftpserver} eq $_ } ( @FTP_SERVERS, 'disabled' ) ) { say "Unknown FTP server specified.\nTry $0 --help"; return 1; } if ( !$self->{force} && grep { $self->{selected_ftpserver} eq $_ } @FTP_SERVERS ) { my $dir = Cpanel::RPM::Versions::Directory->new( { dont_set_legacy => 1 }, ); my $target_state = $dir->fetch( { section => 'target_settings', key => $self->{selected_ftpserver}, }, ); if ( $target_state && grep { $target_state eq $_ } qw(unmanaged uninstalled) ) { my %target_state_msg = ( unmanaged => 'flagged to be left alone by cPanel', uninstalled => 'explicitly blocked from installation', ); print <<"END_TARGET_STATE_MESSAGE"; WARNING: You are attempting to switch to $self->{selected_ftpserver}, but it has explicitly been set to $target_state in /var/cpanel/rpm.versions.d/ This means its packages have been $target_state_msg{$target_state}. If this was unintentional, you may be able to remove this flag by running the following command and then re-running $0 /usr/local/cpanel/scripts/update_local_rpm_versions --del target_settings.$self->{selected_ftpserver} If you meant to do this, please re-run $0 with --force END_TARGET_STATE_MESSAGE return 2; } } die "Conversion process must be performed as root" if $> != 0; my $pid_obj = Cpanel::PID->new( { pid_file => '/var/run/setupftpserver.pid' }, ); if ( $pid_obj->create_pid_file() <= 0 ) { print <