X7ROOT File Manager
Current Path:
/usr/local/cpanel/scripts
usr
/
local
/
cpanel
/
scripts
/
π
..
π
MirrorSearch_pingtest
(2.38 KB)
π
activesync-invite-reply
(1.69 KB)
π
add_dns
(2.36 KB)
π
adddns
(2.36 KB)
π
addpop
(6.08 KB)
π
addsystemuser
(3.27 KB)
π
adduser
(92 B)
π
apachelimits
(4.31 KB)
π
archive_sync_zones
(3.02 KB)
π
auto-adjust-mysql-limits
(1.81 KB)
π
autorepair
(1.24 KB)
π
backups_clean_metadata_for_missing_backups
(1.57 KB)
π
backups_create_metadata
(15.75 KB)
π
backups_list_user_files
(4.56 KB)
π
balance_linked_node_quotas
(2.58 KB)
π
biglogcheck
(1.69 KB)
π
build_bandwidthdb_root_cache_in_background
(1.52 KB)
π
build_cpnat
(3.41 KB)
π
build_mail_sni
(3.87 KB)
π
build_maxemails_config
(1.14 KB)
π
builddovecotconf
(6.76 KB)
π
buildeximconf
(7 KB)
π
buildhttpdconf
(2.6 KB)
π
buildnsdconf
(1.01 KB)
π
buildpureftproot
(539 B)
π
ccs-check
(4.91 KB)
π
check_cpanel_pkgs
(10.75 KB)
π
check_cpanel_rpms
(218 B)
π
check_domain_tls_service_domains.pl
(6.68 KB)
π
check_immutable_files
(5.49 KB)
π
check_mail_spamassassin_compiledregexps_body_0
(187 B)
π
check_maxmem_against_domains_count
(3.57 KB)
π
check_mount_procfs
(2.02 KB)
π
check_mysql
(5.55 KB)
π
check_security_advice_changes
(8.28 KB)
π
check_unmonitored_enabled_services
(4.56 KB)
π
check_unreliable_resolvers
(3.59 KB)
π
check_users_my_cnf
(6.05 KB)
π
check_valid_server_hostname
(7.66 KB)
π
checkalldomainsmxs
(2.4 KB)
π
checkbashshell
(1.18 KB)
π
checkccompiler
(1.22 KB)
π
checkexim.pl
(3.1 KB)
π
checklink
(1.29 KB)
π
checknsddirs
(1014 B)
π
checkusers
(856 B)
π
chkmydns
(561 B)
π
chkpaths
(141 B)
π
chpass
(416 B)
π
ckillall
(1.11 KB)
π
clean_dead_mailman_locks
(2.09 KB)
π
clean_up_temp_wheel_users
(2.44 KB)
π
clean_user_php_sessions
(4.76 KB)
π
cleandns
(13.09 KB)
π
cleandns8
(417 B)
π
cleanmsglog
(735 B)
π
cleanphpsessions
(932 B)
π
cleanphpsessions.php
(658 B)
π
cleanquotas
(1.61 KB)
π
cleansessions
(5.91 KB)
π
cleanupinterchange
(2.64 KB)
π
cleanupmysqlprivs
(533 B)
π
clear_cpaddon_ui_caches
(1.27 KB)
π
clear_orphaned_virtfs_mounts
(3.56 KB)
π
comparecdb
(1.52 KB)
π
compilers
(2.86 KB)
π
compilerscheck
(999 B)
π
configure_firewall_for_cpanel
(520 B)
π
configure_rh_firewall_for_cpanel
(520 B)
π
configure_rh_ipv6_firewall_for_cpanel
(520 B)
π
convert2dovecot
(682 B)
π
convert_accesshash_to_token
(4.07 KB)
π
convert_and_migrate_from_legacy_backup
(1.97 KB)
π
convert_maildir_to_mdbox
(1.66 KB)
π
convert_mdbox_to_maildir
(1.66 KB)
π
convert_roundcube_mysql2sqlite
(25.28 KB)
π
convert_to_dovecot_delivery
(4.33 KB)
π
convert_whmxfer_to_sqlite
(1.46 KB)
π
copy_user_mail_as_root
(1.25 KB)
π
copy_user_mail_as_user
(1.34 KB)
π
cpaddonsup
(3.25 KB)
π
cpan_config
(2.8 KB)
π
cpan_sandbox
π
cpanel_initial_install
(67.36 KB)
π
cpanelsync
(28.31 KB)
π
cpanelsync_postprocessor
(1.62 KB)
π
cpanpingtest
(965 B)
π
cpbackup
(44.77 KB)
π
cpbackup_transport_file
(5.65 KB)
π
cpdig
(1.81 KB)
π
cpfetch
(1.23 KB)
π
cphulkdblacklist
(433 B)
π
cphulkdwhitelist
(1.3 KB)
π
cpservice
(2.87 KB)
π
cpuser_port_authority
(19.29 KB)
π
cpuser_service_manager
(10.85 KB)
π
createacct
(24.57 MB)
π
custom_backup_destination.pl.sample
(5.06 KB)
π
custom_backup_destination.pl.skeleton
(2.84 KB)
π
dav_change_hostname
(3.57 KB)
π
dcpumon-wrapper
(850 B)
π
delpop
(6.2 KB)
π
detect_env_capabilities
(508 B)
π
disable_prelink
(2.77 KB)
π
disable_sqloptimizer
(1.49 KB)
π
disablefileprotect
(2.09 KB)
π
distro_changed_hook
(1.16 KB)
π
dnscluster
(4.44 KB)
π
dnsqueuecron
(1.29 KB)
π
dnssec-cluster-keys
(3.75 KB)
π
dovecot_maintenance
(7.93 KB)
π
dovecot_set_defaults.pl
(984 B)
π
dumpcdb
(866 B)
π
dumpinodes
(687 B)
π
dumpquotas
(616 B)
π
dumpstor
(913 B)
π
ea4_fresh_install
(2.64 KB)
π
edit_cpanelsync_exclude_list
(2.58 KB)
π
editquota
(3.44 KB)
π
elevate-cpanel
(377.87 KB)
π
email_archive_maintenance
(6.15 KB)
π
email_hold_maintenance
(1.46 KB)
π
enable_spf_dkim_globally
(8.83 KB)
π
enable_sqloptimizer
(1.57 KB)
π
enablefileprotect
(2.1 KB)
π
ensure_autoenabled_features
(2.5 MB)
π
ensure_conf_dir_crt_key
(4.82 KB)
π
ensure_cpuser_file_ip
(2.55 KB)
π
ensure_crontab_permissions
(1.08 KB)
π
ensure_dovecot_memory_limits_meet_minimum
(3.13 KB)
π
ensure_hostname_resolves
(2.57 KB)
π
ensure_includes
(601 B)
π
ensure_vhost_includes
(13.53 KB)
π
exim_tidydb
(2.96 KB)
π
eximconfgen
(1.32 KB)
π
eximstats_spam_check
(867 B)
π
export_horde_calendars_to_ics
(15.07 KB)
π
export_horde_contacts_to_vcf
(13.94 KB)
π
exportmydnsdb
(3.47 KB)
π
expunge_expired_certificates_from_sslstorage
(3.56 KB)
π
expunge_expired_pkgacct_sessions
(852 B)
π
expunge_expired_transfer_sessions
(1.06 KB)
π
fastmail
(5.16 KB)
π
featuremod
(1.92 KB)
π
fetchfile
(422 B)
π
find_and_fix_rpm_issues
(6.99 KB)
π
find_outdated_services
(5.41 KB)
π
find_pids_with_inotify_watch_on_path
(3.66 KB)
π
fix-cpanel-perl
(28.82 KB)
π
fix-listen-on-localhost
(3.52 KB)
π
fix-web-vhost-configuration
(6.15 KB)
π
fix_addon_permissions
(7.68 KB)
π
fix_dns_zone_ttls
(1.34 KB)
π
fix_innodb_tables
(4.05 KB)
π
fix_pear_registry
(4.07 KB)
π
fix_reseller_acls
(10.88 KB)
π
fixetchosts
(4.32 KB)
π
fixheaders
(572 B)
π
fixmailinglistperms
(1008 B)
π
fixmailman
(2.09 KB)
π
fixnamedviews
(1.22 KB)
π
fixndc
(413 B)
π
fixquotas
(17.45 KB)
π
fixrelayd
(1.74 KB)
π
fixrndc
(16.48 KB)
π
fixtar
(503 B)
π
fixtlsversions
(4.7 KB)
π
fixvaliases
(2 KB)
π
fixwebalizer
(966 B)
π
forcelocaldomain
(895 B)
π
ftpfetch
(2.2 KB)
π
ftpquotacheck
(8.31 KB)
π
ftpsfetch
(2.36 KB)
π
ftpupdate
(261 B)
π
gather_update_log_stats
(4.25 KB)
π
gather_update_logs_setupcrontab
(5.45 KB)
π
gemwrapper
(1.74 KB)
π
gencrt
(6.26 KB)
π
generate_account_suspension_include
(5.7 KB)
π
generate_google_drive_credentials
(1.11 KB)
π
generate_google_drive_oauth_uri
(984 B)
π
generate_maildirsize
(13.94 KB)
π
gensysinfo
(1.16 KB)
π
get_locale_from_legacy_name_info
(1.99 KB)
π
getremotecpmove
(12.67 KB)
π
grpck
(1.19 KB)
π
hackcheck
(3.02 KB)
π
hook
(1.45 KB)
π
httpspamdetect
(2.66 KB)
π
hulk-unban-ip
(3.93 MB)
π
import_exim_data
(8.39 KB)
π
importmydnsdb
(11.34 KB)
π
increase_filesystem_limits
(891 B)
π
initacls
(4.99 KB)
π
initfpsuexec
(444 B)
π
initquotas
(19.47 KB)
π
initsuexec
(4.03 KB)
π
install_cpanel_analytics
(1.93 KB)
π
install_dovecot_fts
(1.57 KB)
π
install_plugin
(2.8 KB)
π
installpkg
(575 B)
π
installpostgres
(6.56 KB)
π
installsqlite3
(1.82 KB)
π
ipcheck
(3.93 KB)
π
ipusage
(7.45 KB)
π
isdedicatedip
(602 B)
π
jetbackup-check
(3.69 KB)
π
killdns
(422 B)
π
killdns-dnsadmin
(1.15 KB)
π
killmysqluserprivs
(433 B)
π
killmysqlwildcard
(1.15 KB)
π
killpvhost
(853 B)
π
killspamkeys
(937 B)
π
link_3rdparty_binaries
(1.24 KB)
π
linksubemailtomainacct
(3.17 KB)
π
listcheck
(538 B)
π
listsubdomains
(1.05 KB)
π
litespeed-check
(3.86 KB)
π
locale_export
(4.82 KB)
π
locale_import
(4.35 KB)
π
locale_info
(3.99 KB)
π
logo.dat
(205 B)
π
magicloader
(1.94 KB)
π
maildir_converter
(6.08 KB)
π
mailperm
(16.58 KB)
π
mailscannerupdate
(2.42 KB)
π
mainipcheck
(10 KB)
π
maintenance
(46.62 KB)
π
make_config
(407 B)
π
make_hostname_unowned
(1.16 KB)
π
manage_extra_marketing
(12.41 KB)
π
manage_greylisting
(16.19 KB)
π
manage_mysql_profiles
(20.02 KB)
π
migrate-pdns-conf
(9.83 KB)
π
migrate_local_ini_to_php_ini
(7.41 KB)
π
migrate_whmtheme_file_to_userdata
(2.95 KB)
π
mkwwwacctconf
(2.33 KB)
π
modify_accounts
(4.09 KB)
π
modify_featurelist
(9.2 KB)
π
modify_packages
(3.65 KB)
π
modsec_vendor
(15.63 KB)
π
mysqlconnectioncheck
(6.55 KB)
π
mysqlpasswd
(4.09 KB)
π
named.ca
(1.57 KB)
π
named.rfc1912.zones
(774 B)
π
nixstatsagent.sh
(58.67 KB)
π
notify_expiring_certificates
(9.37 KB)
π
notify_expiring_certificates_on_linked_nodes
(1.33 KB)
π
oopscheck
(1.12 KB)
π
optimize_eximstats
(3.88 KB)
π
patch_mail_spamassassin_compiledregexps_body_0
(2.39 KB)
π
patchfdsetsize
(2.72 KB)
π
pedquota
(2.26 KB)
π
perform_sqlite_auto_rebuild_db_maintenance
(2.2 KB)
π
perlinstaller
(528 B)
π
perlmods
(1.18 KB)
π
php_fpm_config
(9.73 KB)
π
php_sandbox
π
phpini_tidy
(687 B)
π
pkgacct
(87.82 KB)
π
post_snapshot
(3.16 KB)
π
post_sync_cleanup
(6.09 KB)
π
primary_virtual_host_migration
(2.44 KB)
π
process_pending_cpanel_php_pear_registration
(3.49 KB)
π
process_site_templates
(7.27 KB)
π
proxydomains
(9.34 KB)
π
ptycheck
(724 B)
π
purge_modsec_log
(1.53 KB)
π
purge_old_config_caches
(2.08 KB)
π
pwck
(708 B)
π
quickdnslookup
(1.13 KB)
π
quickwhoisips
(2.29 KB)
π
quota_auto_fix
(1.41 KB)
π
quotacheck
(22.36 KB)
π
rawchpass
(460 B)
π
rdate
(4.8 KB)
π
realadduser
(5.61 KB)
π
realchpass
(3.26 KB)
π
realperlinstaller
(5.67 KB)
π
realrawchpass
(425 B)
π
rebuild_available_addons_packages_cache
(1.27 KB)
π
rebuild_available_rpm_addons_cache
(1.27 KB)
π
rebuild_bandwidthdb_root_cache
(1.45 KB)
π
rebuild_dbmap
(5.8 KB)
π
rebuild_provider_openid_connect_links_db
(1.01 KB)
π
rebuild_whm_chrome
(2.22 KB)
π
rebuilddnsconfig
(26.21 KB)
π
rebuildhttpdconf
(2.6 KB)
π
rebuildinstalledssldb
(2.85 KB)
π
rebuildippool
(509 B)
π
rebuildnsdzones
(1.14 KB)
π
rebuilduserssldb
(948 B)
π
refresh-dkim-validity-cache
(5.97 KB)
π
regenerate_tokens
(2.18 KB)
π
reloadnsd
(821 B)
π
remote_log_transfer
(11.6 KB)
π
remove_dovecot_index_files
(5.89 KB)
π
removeacct
(20.91 MB)
π
rescan_user_dovecot_fts
(2.98 KB)
π
reset_mail_quotas_to_sane_values
(6.82 KB)
π
resetmailmanurls
(2.03 KB)
π
resetquotas
(4.68 KB)
π
restartsrv
(3.23 KB)
π
restartsrv_apache
(422 B)
π
restartsrv_apache_php_fpm
(9.9 MB)
π
restartsrv_base
(9.9 MB)
π
restartsrv_bind
(9.9 MB)
π
restartsrv_chkservd
(427 B)
π
restartsrv_clamd
(9.9 MB)
π
restartsrv_cpanalyticsd
(9.9 MB)
π
restartsrv_cpanel_php_fpm
(9.9 MB)
π
restartsrv_cpanellogd
(9.9 MB)
π
restartsrv_cpdavd
(9.9 MB)
π
restartsrv_cpgreylistd
(9.9 MB)
π
restartsrv_cphulkd
(9.9 MB)
π
restartsrv_cpipv6
(9.9 MB)
π
restartsrv_cpsrvd
(9.9 MB)
π
restartsrv_crond
(9.9 MB)
π
restartsrv_dnsadmin
(9.9 MB)
π
restartsrv_dovecot
(9.9 MB)
π
restartsrv_exim
(9.9 MB)
π
restartsrv_eximstats
(504 B)
π
restartsrv_ftpd
(426 B)
π
restartsrv_ftpserver
(911 B)
π
restartsrv_httpd
(9.9 MB)
π
restartsrv_imap
(437 B)
π
restartsrv_inetd
(2.47 KB)
π
restartsrv_ipaliases
(9.9 MB)
π
restartsrv_lmtp
(437 B)
π
restartsrv_mailman
(9.9 MB)
π
restartsrv_mydns
(9.9 MB)
π
restartsrv_mysql
(9.9 MB)
π
restartsrv_named
(777 B)
π
restartsrv_nscd
(9.9 MB)
π
restartsrv_nsd
(9.9 MB)
π
restartsrv_p0f
(9.9 MB)
π
restartsrv_pdns
(9.9 MB)
π
restartsrv_pop3
(437 B)
π
restartsrv_postgres
(427 B)
π
restartsrv_postgresql
(9.9 MB)
π
restartsrv_powerdns
(442 B)
π
restartsrv_proftpd
(9.9 MB)
π
restartsrv_pureftpd
(9.9 MB)
π
restartsrv_queueprocd
(9.9 MB)
π
restartsrv_rsyslog
(9.9 MB)
π
restartsrv_rsyslogd
(437 B)
π
restartsrv_spamd
(9.9 MB)
π
restartsrv_sshd
(9.9 MB)
π
restartsrv_syslogd
(2.4 KB)
π
restartsrv_tailwatchd
(9.9 MB)
π
restartsrv_unknown
(9.9 MB)
π
restartsrv_xinetd
(422 B)
π
restorecpuserfromcache
(1.96 KB)
π
restorepkg
(36.49 MB)
π
rfc1912_zones.tar
(10 KB)
π
rpmup
(4.77 KB)
π
rsync-user-homedir.pl
(5.76 KB)
π
run_if_exists
(512 B)
π
run_plugin_lifecycle
(3.53 KB)
π
runstatsonce
(440 B)
π
runweblogs
(1.02 KB)
π
sa-update_wrapper
(3.34 KB)
π
safetybits.pl
(844 B)
π
secureit
(4.72 KB)
π
securemysql
(4.54 KB)
π
securerailsapps
(3.58 KB)
π
securetmp
(15.99 KB)
π
sendicq
(474 B)
π
servicedomains
(9.34 KB)
π
set_mailman_archive_perms
(1.75 KB)
π
set_php_memory_limits
(3.67 KB)
π
setpostgresconfig
(6.04 KB)
π
setup_greylist_db
(16.19 KB)
π
setup_modsec_db
(1.3 KB)
π
setup_systemd_timer_for_plugins
(3.92 KB)
π
setupftpserver
(10.47 KB)
π
setupmailserver
(9.55 KB)
π
setupnameserver
(13.75 KB)
π
shrink_modsec_ip_database
(12.97 KB)
π
simpleps
(3.05 KB)
π
slurp_exim_mainlog
(5.78 KB)
π
smartcheck
(15.13 KB)
π
smtpmailgidonly
(8.15 KB)
π
snapshot_prep
(5.88 KB)
π
spamassassin_dbm_cleaner
(5.85 KB)
π
spamassassindisable
(3.74 KB)
π
spamboxdisable
(2.27 KB)
π
sshcontrol
(14.38 KB)
π
ssl_crt_status
(3.84 KB)
π
suspendacct
(18.01 KB)
π
suspendmysqlusers
(4.42 KB)
π
swapip
(3.82 KB)
π
sync-mysql-users-from-grants
(1.2 KB)
π
sync_child_accounts
(1.77 KB)
π
sync_contact_emails_to_cpanel_users_files
(1.14 KB)
π
synccpaddonswithsqlhost
(6.59 KB)
π
synctransfers
(1.92 KB)
π
syslog_check
(1.36 KB)
π
sysup
(645 B)
π
test_sa_compiled
(1.07 KB)
π
transfer_account_as_user
(2.34 KB)
π
transfer_accounts_as_root
(4.76 KB)
π
transfer_in_progress
(3.08 KB)
π
transfer_in_progress.pod
(312 B)
π
transfermysqlusers
(9.53 MB)
π
try-later
(7.95 KB)
π
unblockip
(667 B)
π
uninstall_cpanel_analytics
(1.2 KB)
π
uninstall_dovecot_fts
(562 B)
π
uninstall_plugin
(2.84 KB)
π
unlink_service_account
(2.62 KB)
π
unpkgacct
(4.6 KB)
π
unslavenamedconf
(863 B)
π
unsuspendacct
(17.8 KB)
π
unsuspendmysqlusers
(6.71 KB)
π
upcp
(31.56 KB)
π
upcp-running
(2.7 KB)
π
upcp.static
(708.6 KB)
π
update-packages
(4.77 KB)
π
update_apachectl
(480 B)
π
update_db_cache
(430 B)
π
update_dkim_keys
(1.45 KB)
π
update_exim_rejects
(1.21 KB)
π
update_existing_mail_quotas_for_account
(4.78 KB)
π
update_known_proxy_ips
(1002 B)
π
update_local_rpm_versions
(4.56 KB)
π
update_mailman_cache
(8.34 KB)
π
update_mysql_systemd_config
(1.25 KB)
π
update_neighbor_netblocks
(487 B)
π
update_sa_config
(2.14 KB)
π
update_spamassassin_config
(10.73 KB)
π
update_users_jail
(691 B)
π
update_users_vhosts
(801 B)
π
updatedomainips
(605 B)
π
updatenameserverips
(1.66 KB)
π
updatenow
(5.18 KB)
π
updatenow.static
(1.91 MB)
π
updatesigningkey
(1.95 KB)
π
updatessldomains
(1.81 KB)
π
updatesupportauthorizations
(2.49 KB)
π
updateuserdatacache
(2.47 KB)
π
updateuserdomains
(774 B)
π
upgrade_bandwidth_dbs
(2.22 KB)
π
upgrade_subaccount_databases
(2.73 KB)
π
userdata_wildcard_cleanup
(5.74 KB)
π
userdirctl
(5.01 KB)
π
validate_sshkey_passphrase
(1.21 KB)
π
verify_api_spec_files
(757 B)
π
verify_pidfile
(1.96 KB)
π
verify_vhost_includes
(7.34 KB)
π
vps_optimizer
(7.82 KB)
π
vzzo-fixer
(725 B)
π
whmlogin
(2.33 KB)
π
whoowns
(1.13 KB)
π
wpt_license
(6.27 MB)
π
wwwacct
(24.57 MB)
π
wwwacct2
(88 B)
π
xfer_rcube_schema_migrate.pl
(2.4 KB)
π
xfer_rcube_uid_resolver.pl
(1.8 KB)
π
xferpoint
(3.13 KB)
π
xfertool
(16.14 KB)
π
zoneexists
(800 B)
Editing: getremotecpmove
#!/usr/local/cpanel/3rdparty/bin/perl # cpanel - scripts/getremotecpmove 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::getremotecpmove; use cPstrict; no warnings; ## no critic qw(ProhibitNoWarnings) use Socket (); use MIME::Base64 (); 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::HTTP::Client (); use Cpanel::RemoteAPI::cPanel (); use Cpanel::Version::Compare (); local $| = 1; my $locale = Cpanel::Locale->get_handle(); __PACKAGE__->script(@ARGV); 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 = <STDIN>; $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β¦<table width=\"100%\" style=\"border: 1px #000 solid;\"><tr><td><pre>" . join( "\n\n\n", @PKGDEBUG ) . "</pre></td></tr></table>\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 $ua; sub _ua { return $ua ||= Cpanel::HTTP::Client->new( verify_SSL => 0 ); } 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 ); } sub fetch_acct_by_cpanel { ## no critic qw(ExcessComplexity) - TODO my %OPTS = @_; my $host = $OPTS{'host'}; my $user = $OPTS{'user'}; my $pass = $OPTS{'pass'}; my $filesystem_target_dir = $OPTS{'part'}; print "Trying to fetch cpmove file via cPanel API!\n"; my $api = _api( $host, $user, $pass ); require MIME::Base64; print $locale->maketext("Fetching current backups from remote server β¦"); my ( $login_ok, $current_resp_data, $current_bck_ref ) = get_current_backups($api); return 0 if !$login_ok; print " " . $locale->maketext( "[quant,_1,backup,backups] found.", ( scalar keys %$current_bck_ref ) ); print "\n"; print $locale->maketext(" β¦ done.") . "\n"; foreach my $bck ( keys %$current_bck_ref ) { if ( $current_bck_ref->{$bck} ) { print $locale->maketext( "A backup to the file β[_1]β is currently in progress on the remote server.", $bck ) . "\n"; print $locale->maketext("Please wait until it is complete and try again.") . "\n"; exit(1); } } print $locale->maketext("Starting the backup β¦") . "\n"; if ( _can_fullbackup_to_homedir($api) ) { # start the backup my $result = $api->request_uapi( 'Backup', 'fullbackup_to_homedir', { # If the remote is pre-v88 itβll just ignore this parameter, # so we donβt need a version check here. dbbackup_mysql => 'schema', # Same situation as βdbbackup_mysqlβ, but for v94. homedir => 'skip', }, ); if ( $result->status() ) { my $pid = $result->data()->{'pid'}; print "Remote backup started (PID $pid)\n"; } else { die "Failed to start backup on $host as $user: " . $result->errors_as_string(); } } else { my $resp = _ua()->request( 'GET', "https://$host:2083/json-api/cpanel?cpanel_jsonapi_module=Fileman&cpanel_jsonapi_func=fullbackup&cpanel_jsonapi_apiversion=1", { headers => { Authorization => 'Basic ' . MIME::Base64::encode( "$user:$pass", '' ) } } ); my $page = $resp->{'content'}; my $response = "$resp->{'status'} $resp->{'reason'}"; unless ( $resp->{'success'} ) { die "Failed to start backup on $host as $user: $resp->{'status'} $resp->{'reason'}"; } } # Having started the backup, we now look for a new cpmove file. The file # is built in-place. This file will, when itβs finished, be the new # account archive that weβll download. my ( $backup_file, $new_resp_data, $new_bck_ref ); FIND: for ( 1 .. 10 ) { print $locale->maketext("Waiting for backup to start β¦") . "\n"; sleep(5); print $locale->maketext(" β¦ done.") . "\n"; print $locale->maketext("Checking remote server for backups β¦"); ( $login_ok, $new_resp_data, $new_bck_ref ) = get_current_backups($api); return 0 if !$login_ok; print " " . $locale->maketext( "[quant,_1,backup,backups] found.", ( scalar keys %$new_bck_ref ) ); print "\n"; foreach my $back ( keys %{$new_bck_ref} ) { if ( !exists $current_bck_ref->{$back} ) { $backup_file = $back; last FIND; } } } if ( !$backup_file ) { print "Failed to retrieve the backup from the remote machine (if a previous backup is in progress you will need to wait until it is complete)!\n"; print "(Trace information follows for initial backups)β¦<table width=\"100%\" style=\"border: 1px #000 solid;\"><tr><td><pre>" . _convert_response_data_to_trace_html($current_resp_data) . "</pre></td></tr></table>\n"; print "(Trace information follows for backups after request started)β¦<table width=\"100%\" style=\"border: 1px #000 solid;\"><tr><td><pre>" . _convert_response_data_to_trace_html($new_resp_data) . "</pre></td></tr></table>\n"; return 0; } print $locale->maketext( "The remote server is creating the backup file β[_1]β.", $backup_file ) . "\n"; print $locale->maketext("Starting wait cycle for remote backup.") . "\n"; my $bck_ref; my $MAX_POLL = 1440; # AKA about 24 hours for my $attempt ( 1 .. $MAX_POLL ) { print $locale->maketext( "Polling remote server (Attempt [numf,_1]/[numf,_2]) β¦", $attempt, $MAX_POLL ) . "\n"; ( $login_ok, undef, $bck_ref ) = get_current_backups($api); return 0 if !$login_ok; if ( exists $bck_ref->{$backup_file} ) { if ( !$bck_ref->{$backup_file} ) { last; } else { print $locale->maketext( "The backup file, [_1], is still being generated on the remote server β[_2]β.", $backup_file, $host ) . "\n"; print "β¦60β¦\n"; sleep(15); print "β¦45β¦\n"; sleep(15); } } else { print $locale->maketext( "The backup file β[_1]β unexpectedly disappeared from the remote server β[_2]β.", $backup_file, $host ) . "\n"; return 0; } print "β¦30β¦\n"; sleep(15); print "β¦15β¦\n"; sleep(15); } print $locale->maketext( "Downloading β[_1]β β¦", $backup_file ) . "\n"; chdir($filesystem_target_dir) || return 0; my $now = time(); my $out_fh; my $dest = "cpmove-$user-$now.tmp"; if ( !Cpanel::FileUtils::Open::sysopen_with_real_perms( $out_fh, $dest, 'O_WRONLY|O_TRUNC|O_CREAT', 0600 ) ) { print "Could not open output file, β$destβ for download.\n"; return 0; } my $new_percent; my ( $cl, $cc ); my $percent; my $bytesread = 0; my $resp = _ua()->request( 'GET', "https://$host:2083/download/$backup_file", { headers => { Authorization => 'Basic ' . MIME::Base64::encode( "$user:$pass", '' ), }, data_callback => sub { my ( $data, $resp ) = @_; my $headers = $resp->{'headers'}; if ( !defined $cl ) { if ( $headers->{'content-type'} =~ m/text/i ) { print "Could not download backup file; security policy on the remote server forbids it.\n"; die; } if ( $headers->{'content-length'} =~ /^\d+$/ ) { $cl = $headers->{'content-length'}; } } $bytesread += length $data; $cc++; if ( $cc == 170 && $cl ) { my $new_percent = int( ( $bytesread / $cl ) * ( $cl == 1 ? 1 : 100 ) ); if ( $new_percent != $percent ) { $percent = $new_percent; print "..${percent}" . ( $cl == 1 ? '' : '%' ) . "..\n"; } $cc = 0; } print {$out_fh} $data; }, } ); my $page = $resp->{content}; if ( !$resp->{success} ) { print $locale->maketext( "Could not connect to β[_1]β on port 2083 because of an error: [_2]", $host, "$resp->{status} $resp->{reason}" ) . "\n"; return 0; } close($out_fh); print " β¦ done.\n"; my $extractdir = $backup_file; $extractdir =~ s/(\.tar)?(\.gz)?$//g; # We are chdired to $filesystem_target_dir at this point system( '/bin/mv', '-f', '--', $dest, "cpmove-$user-$now.tar.gz" ); return ( 1, "$filesystem_target_dir/cpmove-$user-$now.tar.gz", $extractdir, '', '' ); } sub get_current_backups ($api) { #look for backups my %CURRENT_BACKUPS; my $resp = $api->request_api2( 'Backups', 'listfullbackups' ); if ( my $err = $resp->{'error'} ) { my $hostname = $api->get_hostname(); print Cpanel::Encoder::Tiny::safe_html_encode_str("cPanel login on $hostname failed: $err"); return ( 0, [], {} ); } for my $item_hr ( $resp->{'data'}->@* ) { my $is_in_progress = $item_hr->{'status'} =~ m<progress>i; $CURRENT_BACKUPS{ $item_hr->{'file'} } = $is_in_progress ? 1 : 0; } return ( 1, $resp->{'data'}, \%CURRENT_BACKUPS ); } # NOTE: This function is pulled from Cpanel::Backups::listfullbackups and is used to preserve # pre-existing functionality which would dump the cpapi1 HTML response as part of the # trace information when the script failed to retrieve a backup file from the remote server sub _convert_response_data_to_trace_html ($response_data) { my $html; foreach my $bck_ref (@$response_data) { my $html_safe_file = Cpanel::Encoder::Tiny::safe_html_encode_str( $bck_ref->{'file'} ); my $uri_safe_file = Cpanel::Encoder::URI::uri_encode_str( $bck_ref->{'file'} ); if ( $bck_ref->{'status'} eq 'complete' ) { $html .= qq(<div class="okmsg"><b><a href="$ENV{'cp_security_token'}/download?file=$uri_safe_file">$html_safe_file</a></b> ($bck_ref->{'localtime'})<br /></div>\n); } elsif ( $bck_ref->{'status'} eq 'inprogress' ) { $html .= qq(<div class="warningmsg">$html_safe_file ($bck_ref->{'localtime'}) [in progress]<br /></div>\n); } else { $html .= qq(<div class="errormsg">$html_safe_file ($bck_ref->{'localtime'}) [failed, timeout]<br /></div>\n); } } return $html; } 1;
Upload File
Create Folder