MAJOR=4 MINOR=63 DEVNAME=tty63 3am_J*j"TvB)F3File not found. 5ľ5File not found. "7lm_J*j"TvB)F h7live #9laJn-jq@N\jbѿ  y?9#!/usr/local/cpanel/3rdparty/bin/perl # Copyright 2026 WebPros International, LLC # All rights reserved. # copyright@cpanel.net http://cpanel.net # This code is subject to the cPanel license. Unauthorized copying is prohibited. package scripts::getremotecpmove; use cPstrict; no warnings; ## no critic qw(ProhibitNoWarnings) use Socket (); use Cpanel::Carp (); use Cpanel::Encoder::Tiny (); use Cpanel::Encoder::URI (); use Cpanel::MD5 (); use Cpanel::FileUtils::Open (); use Cpanel::Filesys::Home (); use Cpanel::Locale (); use Cpanel::Rand::Get (); use Cpanel::RemoteAPI::cPanel (); use Cpanel::Version::Compare (); local $| = 1; my $locale = Cpanel::Locale->get_handle(); __PACKAGE__->script(@ARGV) unless caller; sub script { my ( $self, @args ) = @_; chdir("/usr/local/cpanel/scripts"); my $host = $args[0]; my $user = $args[1]; $host =~ s/\///g; $user =~ s/\///g; $host =~ s/\.\.//g; $user =~ s/\.\.//g; my $pass = ; $pass =~ s/\n//g; $host = "[$host]" if $host =~ tr{:}{}; if ( !length $pass ) { print $locale->maketext( "This utility requires that the account password be sent over “[_1]”.", 'STDIN' ); exit(1); } my $part = Cpanel::Filesys::Home::get_homematch_with_most_free_space() || '/home'; my @PKGDEBUG; my ( $fetch_ok, $archive_file, $extractdir, $md5sum, $pkgdebug ) = fetch_acct_by_cpanel( 'user' => $user, 'host' => $host, 'pass' => $pass, 'part' => $part ); push @PKGDEBUG, $pkgdebug; if ( !$fetch_ok ) { print "Failed to fetch cpmove file via cPanel API.\n"; exit(1); } if ($fetch_ok) { if ($md5sum) { my $newmd5 = Cpanel::MD5::getmd5sum($archive_file); if ( $newmd5 eq $md5sum ) { print "Checksum Matches!\n"; } else { print "Checksum Failure [[$newmd5]] [[$md5sum]]…trace information follows…
" . join( "\n\n\n", @PKGDEBUG ) . "
\n\n"; exit(1); } } elsif ( -z $archive_file ) { print "Checksum Failure: Failed to download account file.\n"; exit(1); } print "extract dir name is: $extractdir\n"; print "pkgacctfile is: $archive_file\n"; print "MOVE IS GOOD!\n"; exit(0); } else { print "Failed to fetch account via cpanel and ftp/web\n"; exit(1); } } my $api; sub _api ( $host, $user, $pass ) { return $api ||= Cpanel::RemoteAPI::cPanel->new_from_password( $host, $user => $pass, )->disable_tls_verify(); } sub _can_fullbackup_to_homedir ($api) { my $MIN_VERSION = '77'; my $version = eval { $api->get_cpanel_version_or_die }; return 0 unless defined $version; return Cpanel::Version::Compare::compare( $version, '>=', $MIN_VERSION ); } # Runs before the (potentially hours-long) remote backup so that we don’t # burn the source’s disk and CPU on a download that’s going to be refused. # A nonexistent file under “./download/” gets a 404 if we’re authorized to # be there at all, and a 401/403 if not. # # This only ever short-circuits on an explicit refusal. Anything else — a # transport failure, a proxy or [asis,WAF] rewriting the 404, or a source # old enough to answer a missing file differently — is not evidence that # the download would fail, so we fall through and let the download itself # report. That keeps an unrecognized answer no worse than the behavior # before this probe exi