File Manager

X7ROOT File Manager

Current Path: /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: cpanelsync

#!/usr/local/cpanel/3rdparty/bin/perl

# cpanel - scripts/cpanelsync                      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::cpanelsync;

## "grep '###' cpanelsync" gives an overview of the logic and files downloaded

BEGIN {
    my $running_in_debugger = exists $INC{'perl5db.pl'};
    if ($running_in_debugger) {
        $ENV{'LANG'} = 'C';
    }

if ( defined $ENV{'LANG'} && $ENV{'LANG'} ne 'C' && !$^C ) {
        $ENV{'LANG'} = 'C';
        exec $0, @ARGV;
        die 'Failed to recreate self in a sane env';
    }
}

use strict;
use warnings;

use Socket;
use Cpanel::Tar                  ();
use Cpanel::HttpRequest          ();
use Cpanel::SafeDir::MK          ();
use Cpanel::Sync::Common         ();
use Cpanel::Sync::Digest         ();
use Cpanel::Usage                ();
use Cpanel::Crypt::GPG::Settings ();

exit __PACKAGE__->script(@ARGV) unless caller();

sub script {
    my ( $package, @argv ) = @_;

local $| = 1;
    $SIG{'INT'} = 'IGNORE';

my ( $exit_code, $options, $host, $url, $root ) = _parse_argv( \@argv );

if ( defined $exit_code ) {
        return $exit_code;
    }
    else {
        $exit_code = 0;
    }

eval {
        no warnings;
        local $SIG{'__DIE__'};
        local $SIG{'__WARN__'};
        require Cpanel::Carp;
        local $SIG{'__DIE__'};
        local $SIG{'__WARN__'};
        Cpanel::Carp::enable();
        $Cpanel::Carp::OUTPUT_FORMAT = 'suppress';
    };

# setup httpclient with keyring
    my $httpClient = Cpanel::HttpRequest->new(
        categories => $options->{categories},
        vendor     => $options->{vendor},
        hideOutput => $options->{quiet},
    );

if ( !-d $root ) {
        Cpanel::SafeDir::MK::safemkdir( $root, '0755', 2 );
        if ( !-d $root ) {
            die "Unable to create directory $root";
        }
    }

_wait_for_mirror_lock( $httpClient, $host, $url, $options );

### "$url/.cpanelsync.version",
    if ( $options->{repo} ) {

# The intent with the unchecked exit code is apparently that the repo version needs to
        # be updated at the start of the cpanelsync run so that it can be compared to the state
        # at the end of the cpanelsync run.
        $exit_code = check_repo_version( $options->{repo}, $httpClient, $host, $url );
    }

my $dotcpanelsync = "$root/.cpanelsync";

my %OLDFILES;
    my %NEWFILES;
    if ( !-e $dotcpanelsync ) {    ###
        ## if .cpanelsync does not exist, download/extract the .tar.bz2
        my $basedir = $root;
        my @DIRS    = split m{ [/] }xms, $basedir;
        pop @DIRS;
        $basedir = join '/', @DIRS;

my $basename = $url;
        my @BDIR     = split m{ [/] }xms, $basename;
        $basename = pop @BDIR;

if ( $basedir eq '' ) { $basedir = '/'; }

my $tarball = "$basedir/$basename.tar";
        my $bz2     = "$tarball.bz2";
        unlink $bz2;

### "http://${host}${url}.tar.bz2"

if ( eval { downloadfile( $httpClient, "http://${host}${url}.tar.bz2", $bz2, $options->{signed} ) } ) {
            my $tarcfg = Cpanel::Tar::load_tarcfg();
            system( $tarcfg->{'bin'}, '-x', '-p', $tarcfg->{'no_same_owner'}, '-j', '-v', '-C', $basedir, '-f', $bz2 );
            unlink $bz2;
        }

## TODO?: take the md5sums of the new files, and manipulate %OLDFILES (or %MD5LIST?)
    }
    else {
        if ( open my $cpsync_fh, '<', $dotcpanelsync ) {
            no warnings;    # we will discard undef in our delete
            local $/;
            %OLDFILES = map { reverse( ( split( /===/, $_ ) )[ 0, 1 ] ) } split( /\n/, readline($cpsync_fh) );
            delete @OLDFILES{''};
            $OLDFILES{'.'} = 'd';
            close $cpsync_fh;
        }
    }

my @FILELIST;
    my $trycount = 0;
    my $usebz2   = 1;
    my $skipbz2  = 0;

# Download file list to sync
    while (1) {    ###
        $trycount++;

if   ( $trycount % 2 == 0 ) { $usebz2 = 0; }
        else                        { $usebz2 = 1; }

my $target_url        = "${url}/.cpanelsync";
        my $staged_destfile   = "${dotcpanelsync}.staged";
        my $download_destfile = $staged_destfile;

if ( !$skipbz2 && $usebz2 ) {
            $target_url        .= '.bz2';
            $download_destfile .= '.bz2';
        }

eval { $httpClient->request( 'host' => $host, 'url' => $target_url, 'protocol' => 1, 'destfile' => $download_destfile, 'signed' => $options->{signed} ); };

# Note: signed requests will automatically unbzip the target to verify signatures
        if ( !$@ && -e $staged_destfile ) {
            if ( rename( $staged_destfile, $dotcpanelsync ) ) {
                if ( open( my $cpanelsync_fh, $dotcpanelsync ) ) {
                    local $/;
                    @FILELIST = split( /\n/, readline($cpanelsync_fh) );
                    close($cpanelsync_fh);
                }
            }
            else {
                print "Failed to overwrite $dotcpanelsync: $!\n";
            }
        }

if ( -e "$dotcpanelsync.bz2" ) {
            unlink "$dotcpanelsync.bz2";
            $skipbz2 = 1;
        }

last if ( @FILELIST && $FILELIST[-1] eq '.' );

if ( $trycount > 1 ) {
            if ( $trycount == 10 ) {
                print "Tried to download the sync file 10 times and failed!\n";
                return 1;
            }
            downloadfailed($httpClient);
        }
    }

# Global excludes for handling excluded files from update or permission checks
    my @excludes       = Cpanel::Sync::Common::get_excludes($Cpanel::Sync::Common::cpanelsync_excludes);
    my @chmod_excludes = Cpanel::Sync::Common::get_excludes($Cpanel::Sync::Common::cpanelsync_chmod_excludes);

my %MD5LIST;
    loadmd5s( \%MD5LIST, $root ) if -e "$dotcpanelsync.md5s";
    my @allowed_digests = Cpanel::Crypt::GPG::Settings::allowed_digest_algorithms();

foreach my $fileinfo (@FILELIST) {    ###
        chomp $fileinfo;
        next if ( $fileinfo eq '.' );

## note: appending 'r' to these vars to denote that they represent info on the
        ##   remote (incoming) resource. Ideally, they should be packaged in a hash,
        ##   similar to how $target is handled.
        ## $rextra is either an md5 for 'file' $ftype, or symlink destination
        ## $rsha is only valid for 'file' types, and will contain a SHA512 digest for the file.

my ( $rtype, $rfile, $rperm, $rextra, $rsha ) = split( /===/, $fileinfo );

my $target_info = lstat_target( $root, $rfile );

## using %04d as $rperm is a string (comes from the .cpanelsync file)
        $rperm = sprintf( "%04d", $rperm );

prune_OLDFILES( \%OLDFILES, $rfile, $rtype );

next if ( @excludes && is_excluded( \@excludes, $root, $rfile ) );

if ( $rtype eq 'f' ) {
            $exit_code = handle_file( $target_info, \%MD5LIST, $root, $rfile, $rextra, $rsha, \@allowed_digests, $skipbz2, $httpClient, $host, $url, $Cpanel::Sync::Common::hasbzip2, $exit_code, $options->{repo}, \@chmod_excludes, $rperm, \%NEWFILES );
            return $exit_code if ( $exit_code != 0 );
        }
        elsif ( $rtype eq 'd' ) {
            handle_dir( $target_info, \@chmod_excludes, $root, $rfile, $rperm );
        }
        elsif ( $rtype eq 'l' ) {
            handle_symlink( $target_info, $rextra );
        }
    }

my $saferoot = $root;
    $saferoot =~ s/\.\///g;

handle_deletes( \@FILELIST, \%OLDFILES, $saferoot );

write_newlist( \%NEWFILES, $saferoot );

writemd5s( \%MD5LIST, $saferoot );

### "$url/.cpanelsync.version",
    if ( $exit_code == 0 && $options->{repo} ) {
        $exit_code = check_repo_version( $options->{repo}, 0, $httpClient, $host, $url );
    }

if ( -x '/usr/local/cpanel/scripts/cpanelsync_postprocessor' ) {
        system '/usr/local/cpanel/scripts/cpanelsync_postprocessor', $saferoot;
    }
    if ( -x '/usr/local/cpanel/scripts/cpanelsync_postprocessor.custom' ) {
        system '/usr/local/cpanel/scripts/cpanelsync_postprocessor.custom', $saferoot;
    }

return $exit_code;
}

sub downloadfile {
    my ( $httpClient, $file, $where, $signed ) = @_;

$file =~ m!http://([^/]+)(.*)!;

my $host = $1;
    my $url  = $2;

$httpClient->request(
        'host'     => $1,
        'url'      => $2,
        'protocol' => 1,
        'destfile' => $where,
        'signed'   => $signed,
    );

}

sub loadmd5s {
    my ( $hr_MD5LIST, $dir ) = @_;

if ( open( my $md5_fh, '<', $dir . '/.cpanelsync.md5s' ) ) {
        local $/;
        %{$hr_MD5LIST} = map { $_ = [ split( /:::/, $_, 4 ) ]; $_->[0] => { 'size' => $_->[1], 'mtime' => $_->[2], 'md5' => $_->[3] } } split( /\n/, readline($md5_fh) );
        close($md5_fh);
    }

return;
}

sub write_newlist {
    my ( $hr_NEWFILES, $dir ) = @_;

$dir =~ s/\/$//g;
    open( my $new_fh, '>', $dir . '/.cpanelsync.new' ) || do {
        warn "Could not write new list: " . $dir . '/.cpanelsync.new';
        return;
    };
    print {$new_fh} join( "\n", keys %$hr_NEWFILES ) . ( scalar keys %$hr_NEWFILES ? "\n" : '' );    # as we did before
    close($new_fh);
}

sub writemd5s {
    my ( $hr_MD5LIST, $dir ) = @_;

$dir =~ s/\/$//g;
    open( MD5, '>', $dir . '/.cpanelsync.md5s' ) || do {
        warn "Could not write md5 cache: " . $dir . '/.cpanelsync.md5s';
        return;
    };
    foreach my $filename ( keys %$hr_MD5LIST ) {
        next if ( !$hr_MD5LIST->{$filename}{'used'} || substr( $filename, 0, 1 ) eq '/' );
        print MD5 join( ':::', $filename, $hr_MD5LIST->{$filename}{'size'}, $hr_MD5LIST->{$filename}{'mtime'}, $hr_MD5LIST->{$filename}{'md5'} ) . "\n";
    }
    close(MD5);
}

sub downloadfailed {
    my ($httpClient) = @_;
    print 'Download Failed... trying again...in..';
    if ($httpClient) {
        $httpClient->disconnect();
    }
    my $sleepsecs = 60;
    for ( my $i = $sleepsecs; $i > 0; $i-- ) {
        print '..' . $i . '..';
        sleep 1;
    }
}

sub check_repo_version {
    my ( $repo, $httpClient, $host, $url ) = @_;
    my $local_repo_v;
    if ( !-e '/var/cpanel' )            { mkdir( '/var/cpanel',            0755 ); }
    if ( !-e '/var/cpanel/cpanelsync' ) { mkdir( '/var/cpanel/cpanelsync', 0755 ); }
    if ( !-e '/var/cpanel/cpanelsync/repoversions' ) {
        mkdir( '/var/cpanel/cpanelsync/repoversions', 0755 );
    }
    my $repo_fh;
    open( $repo_fh, '<', '/var/cpanel/cpanelsync/repoversions/' . $repo ) && do {
        $local_repo_v = readline($repo_fh);
        chomp($local_repo_v);
        close($repo_fh);
    };
    my ( $remote_repo_v, $status ) = $httpClient->request(
        'exitOn404' => 0,
        'host'      => $host,
        'url'       => "$url/.cpanelsync.version",
        'protocol'  => 1,
    );
    if ($remote_repo_v) {
        if ( !$local_repo_v || $remote_repo_v ne $local_repo_v ) {
            open( my $repo_fh, '>', '/var/cpanel/cpanelsync/repoversions/' . $repo );
            print {$repo_fh} $remote_repo_v;
            close($repo_fh);
            if ($local_repo_v) {
                print "Repo: $repo : version changed from $local_repo_v to $remote_repo_v in mid sync.  Sync needs to be restarted.\n";
                return 16;
            }
            else {
                print "Repo: $repo : learned new version: $remote_repo_v\n";
            }
        }
        else {
            print "Repo: $repo : check passed : local=$local_repo_v & remote=$remote_repo_v\n";
        }
    }
    return 0;
}

sub is_excluded {
    my ( $ar_excludes, $root, $rfile ) = @_;

if ( @{$ar_excludes} ) {
        my $clean_rfile = $rfile;
        $clean_rfile =~ s!^\./!!;
        my $absfile = $root . '/' . $clean_rfile;
        $absfile =~ tr{/}{}s;
        $absfile =~ s{ [/] \z }{}xmsg;

## Note: to take advantage of the "implicit" exclusion of a directory's contents, as written
        ##   the explicitly listed exclude directory must exist at the installation site.
        if ( grep { $_ eq $absfile || ( -d $_ && $absfile =~ m/^\Q$_\E\// ) } @{$ar_excludes} ) {
            print "Skipping sync of $absfile (check /etc/cpanelsync.exclude)\n";
            return 1;
        }

## Maintain support for old broken behavior --------------
        $absfile = $root . '/' . $rfile;
        $absfile =~ tr{/}{}s;
        $absfile =~ s{ [/] \z }{}xmsg;
        if ( grep { $_ eq $absfile } @{$ar_excludes} ) {
            print "Skipping sync of $absfile (check /etc/cpanelsync.exclude)\n";
            return 1;
        }
        ## -------------------------------------------------------
    }
    return;
}

sub in_chmod_excludes {
    my ( $ar_chmod_excludes, $root, $rfile ) = @_;
    if (@$ar_chmod_excludes) {
        my $clean_rfile = $rfile;
        $clean_rfile =~ s/^\.\///;
        my $absfile = $root . '/' . $clean_rfile;
        $absfile =~ tr{/}{}s;
        $absfile =~ s{ [/] \z }{}xmsg;
        return 1 if ( grep { $_ eq $absfile } @$ar_chmod_excludes );
    }
    return;
}

sub handle_symlink {
    my ( $target, $rextra ) = @_;

my $dolink = 0;
    if ( !$target->{'exists'} ) {
        $dolink = 1;
    }
    elsif ( $target->{'islnk'} ) {
        if ( readlink $target->{'path'} ne $rextra ) {
            unlink $target->{'path'};
            $dolink = 1;
        }
    }
    elsif ( $target->{'isnormfile'} ) {
        unlink $target->{'path'};
        $dolink = 1;
    }
    elsif ( $target->{'isdir'} ) {
        system 'rm', '-rf', '--', $target->{'path'};
        $dolink = 1;
    }

if ($dolink) {
        if ( symlink( $rextra, $target->{'path'} ) ) {
            print "Created symlink $target->{'path'} -> $rextra successfully\n";
        }
        else {
            print "Failed to create symlink $target->{'path'} -> $rextra: $!\n";
        }
    }

return;
}

sub handle_dir {
    my ( $target, $ar_chmod_excludes, $root, $rfile, $rperm ) = @_;
    ## note: $rperm is an octal string (e.g. '0751')

if ( $target->{'islnk'} || $target->{'isnormfile'} ) {
        unlink $target->{'path'};
        $target->{'exists'} = 0;
    }

if ( !$target->{'exists'} ) {
        ## FIX: used to be created with a hardcoded mode of '0755'. The only case this
        ##   will not account for is a new directory that is also in chmod_excludes. I believe
        ##   this to be a very edge case.
        if ( Cpanel::SafeDir::MK::safemkdir( $target->{'path'}, $rperm, 2 ) ) {
            print "Created directory $target->{'path'} successfully\n";
        }
    }
    elsif ( ( !@$ar_chmod_excludes || !in_chmod_excludes( $ar_chmod_excludes, $root, $rfile ) )
        && sprintf( "%04o", ( $target->{'perm'} & 07777 ) ) ne $rperm ) {
        if ( chmod( oct($rperm), $target->{'path'} ) ) {
            print "Directory $target->{'path'} verified\n";
        }
        else {
            print "Failed to update permissions on directory $target->{'path'}: $!";
        }
    }
}

sub handle_file {    ###
    my ( $target, $hr_MD5LIST, $root, $rfile, $rextra, $rsha, $allowed_digests_ar, $skipbz2, $httpClient, $host, $url, $hasbzip2, $exit_code, $repo, $ar_chmod_excludes, $rperm, $newfiles_ref ) = @_;

if ( $target->{'isdir'} ) {
        system 'rm', '-rf', '--', $target->{'path'};
    }
    elsif ( $target->{'islnk'} ) {
        unlink $target->{'path'};
    }

my $local_digest = Cpanel::Sync::Common::get_digest_from_cache( $hr_MD5LIST, $target );
    $local_digest ||= Cpanel::Sync::Digest::digest( $target->{'path'} );

if ( ( $target->{'isdir'} || $target->{'islnk'} || !$target->{'exists'} ) || ( $local_digest ne $rextra ) ) {
        my $dfile = $rfile;
        $dfile =~ s/^\.//g;

my $trycount = 0;
        my $goodfile = 1;
        my $usebz2   = 1;
        my $pathtemp = $target->{'path'} . '-cpanelsync';

DOWNLOAD:
        while (1) {    ###
            $trycount++;
            if   ( $trycount % 2 == 0 ) { $usebz2 = 0; }
            else                        { $usebz2 = 1; }

unlink($pathtemp);
            ### "http://${host}${url}${dfile}.bz2"  -or-
            ### "http://${host}${url}${dfile}"
            if ( !$skipbz2 && $usebz2 && $dfile !~ m/\.bz2$/ ) {
                downloadfile( $httpClient, "http://${host}${url}${dfile}.bz2", "$pathtemp.bz2" );
                my $size = ( stat("$pathtemp.bz2") )[7];
                if ( $size && $size > 0 ) {
                    Cpanel::Sync::Common::unbzip2("$pathtemp.bz2");
                }
                if ( -e "$pathtemp.bz2" ) {
                    ## TODO: meaning what exactly? test with dashk
                    ### TODO: I have no idea myself. Maybe someone else will figure it out.
                    print "$pathtemp.bz2 still exists\n";
                    unlink "$pathtemp.bz2";
                    $skipbz2 = 1;
                    next;
                }
            }
            else {
                downloadfile( $httpClient, "http://${host}${url}${dfile}", $pathtemp );
            }

my $size = ( stat( $rfile . '-cpanelsync' ) )[7] || 0;

my %expected_digests = (
                'md5'    => $rextra,
                'sha512' => $rsha,
            );

for my $algo (@$allowed_digests_ar) {
                my $expected_digest = $expected_digests{$algo};
                my $real_digest     = Cpanel::Sync::Digest::digest( $target->{'path'} . '-cpanelsync', { algo => $algo } );

if ( $real_digest && $expected_digest ) {
                    if ( $real_digest eq $expected_digest ) {
                        last DOWNLOAD;
                    }
                    else {
                        print "Digest mismatch (actual: $real_digest) (expected: $expected_digest) (size: $size)\n";
                    }
                }
            }

print "No valid digest found\n";

if ( $trycount > 1 ) {
                if ( $trycount % 3 == 0 ) { $httpClient->skiphost(); }
                if ( $trycount == 10 ) {
                    print "Tried to download the file $rfile 10 times and failed!\n";
                    if ($repo) {
                        return 16;
                    }
                    $goodfile = 0;
                    last;
                }

### "$url/.cpanelsync.version",
                if ($repo) {
                    $exit_code = check_repo_version( $repo, 0, $httpClient, $host, $url );
                    if ( $exit_code != 0 ) {
                        return $exit_code;
                    }
                }

downloadfailed($httpClient);
            }
        }
        if ($goodfile) {
            print "Got file $rfile ok (digest matched)\n";
            _goodfile_handle_chmod(
                $ar_chmod_excludes, $root, $rfile, $target->{'perm'},
                $pathtemp,          $rperm
            );
            _goodfile_handle_rename( $target->{'path'} );
            $newfiles_ref->{ $target->{'path'} } = 1;
            $hr_MD5LIST->{$rfile} = $hr_MD5LIST->{ $rfile . '-cpanelsync' };
            delete $hr_MD5LIST->{ $rfile . '-cpanelsync' };
        }
        else {
            unlink $pathtemp;
        }
    }
    else {
        if (   ( !@$ar_chmod_excludes || !in_chmod_excludes( $ar_chmod_excludes, $root, $rfile ) )
            && $target->{'exists'}
            && ( sprintf( "%04o", ( $target->{'perm'} & 07777 ) ) ne $rperm ) ) {
            chmod( oct($rperm), $target->{'path'} );
        }
    }
    return 0;
}

sub _goodfile_handle_chmod {
    my ( $ar_chmod_excludes, $root, $rfile, $origperm, $pathtemp, $rperm ) = @_;
    ## if file matches the chmod exclude list, chmod the new temp file with
    ##   the mode from the old file
    if ( @$ar_chmod_excludes && in_chmod_excludes( $ar_chmod_excludes, $root, $rfile ) && $origperm ) {
        my $real_origperm = sprintf( "%04o", ( $origperm & 07777 ) );
        chmod( oct($real_origperm), $pathtemp );
    }
    else {
        chmod( oct($rperm), $pathtemp );
    }
}

sub _goodfile_handle_rename {
    my ($path) = @_;
    unlink $path;
    if ( -e $path ) {
        if ( rename( $path, $path . '.unlink' ) ) {
            unlink $path . '.unlink';
        }
        else {
            unlink $path;
        }
    }
    ## the "rename || unlink" clause ideally should warn the user that the file did not make it to
    ##   its production location. but this, as this runs as root, is hard-to-replicate.
    rename( $path . '-cpanelsync', $path ) || unlink( $path . '-cpanelsync' );
    return;
}

sub prune_OLDFILES {
    my ( $hr_OLDFILES, $rfile, $rtype ) = @_;
    if ( exists $hr_OLDFILES->{$rfile} ) {

# Handle transition from directory to a symlink
        if ( $rtype eq 'l' && $hr_OLDFILES->{$rfile} ne 'l' ) {
            foreach my $old_file ( keys %$hr_OLDFILES ) {
                ## delete from hash all subdirs of $rfile, which is becoming a link
                if ( $old_file =~ m/^\Q$rfile\E\// ) {
                    delete $hr_OLDFILES->{$old_file};
                }
            }
        }
        delete $hr_OLDFILES->{$rfile};
    }
    return;
}

sub handle_deletes {
    my ( $ar_FILELIST, $hr_OLDFILES, $saferoot ) = @_;
    my @olddirectories;
    my %EXCLUDE_DELETE;

if ( -e $saferoot . '/.cpanelsync.delete.exclude' && open( my $exc_fh, '<', $saferoot . '/.cpanelsync.delete.exclude' ) ) {
        %EXCLUDE_DELETE = map { chomp($_); $_ => undef } (<$exc_fh>);
        close($exc_fh);
    }

## note: loop on @FILELIST to prevent mass deletion on an inadvertantly empty .cpanelsync
    if ( scalar @$ar_FILELIST ) {
        ## adding 'sort' to guarantee an order for keys()
        foreach my $oldfile ( sort keys %$hr_OLDFILES ) {
            $oldfile =~ s/^\.\///g;

my @BASEDIR = split( /\//, $saferoot . '/' . $oldfile );
            pop(@BASEDIR);
            my $basedir = join( '/', @BASEDIR );

if ( -l $basedir ) {
                print "Skipping cleanse of $saferoot/$oldfile (within symlinked directory)\n";
                next;
            }

if ( exists $EXCLUDE_DELETE{ $saferoot . '/' . $oldfile } ) {
                print "Excluding file removal from previous tree: $saferoot/$oldfile\n";
                next;
            }

if ( -l $saferoot . '/' . $oldfile ) {
                ## ???: what sets the .keep files?
                next if -e $saferoot . '/' . $oldfile . '.keep';
                print "Removing symlink from previous tree: $saferoot/$oldfile\n";
                unlink $saferoot . '/' . $oldfile or print "Unable to remove deprecated symlink $saferoot/$oldfile: $!\n";
            }
            elsif ( -d $saferoot . '/' . $oldfile ) {
                push @olddirectories, $saferoot . '/' . $oldfile;
            }
            elsif ( -e _ ) {
                ## ???: what sets the .keep files?
                next if -e $saferoot . '/' . $oldfile . '.keep';
                print "Removing file from previous tree: $saferoot/$oldfile\n";
                unlink $saferoot . '/' . $oldfile or print "Unable to remove deprecated file $saferoot/$oldfile: $!\n";
            }
        }
    }
    foreach my $dir ( reverse sort @olddirectories ) {
        print "Removing directory from previous tree: $dir\n";
        rmdir $dir or print "Unable to remove deprecated directory $dir: $!\n";
    }

return;
}

sub lstat_target {
    my ( $root, $rfile ) = @_;
    my %target;

$target{'path'} = $root . '/' . $rfile;
    $target{'path'} =~ s/^\.\///;
    $target{'path'} =~ s/\/(?:\.\/)+/\//g;
    $target{'path'} =~ s/\/{2,}/\//g;

my @_lstat = lstat( $target{'path'} );
    ## two slices to assign @_lstat indexes into %target

#'S_IFDIR', 0040000 == Directory
    #'S_IFREG', 0100000 == Regular file
    #'S_IFLNK', 0120000 == Symbolic link

@target{ 'perm', 'size', 'mtime', 'isdir', 'exists', 'isnormfile', 'islnk' } = (
        @_lstat[ 2, 7, 9 ],                                                   #perm,size,mtime
        ( defined $_lstat[2] && $_lstat[2] & 0170000 ) == 0040000 ? 1 : 0,    #isdir
        defined $_lstat[2]                                        ? 1 : 0,    #exists
        ( defined $_lstat[2] && $_lstat[2] & 0170000 ) == 0100000 ? 1 : 0,    #isnormfile
        ( defined $_lstat[2] && $_lstat[2] & 0170000 ) == 0120000 ? 1 : 0     #islnk
    );

return \%target;
}

sub _usage {
    print <<EO_USAGE;
Usage: cpanelsync [options] <host> [url] [root]

Options:
      --help              Brief help message
      --nfok=[1|0]        Exit on a 404 response from the mirror. Defaults off.
      --repo=<name>       Treats the sync source as a named repo that supports versioning.
      --signed=[1|0]      Enforce GPG signature verificaiton for the .cpanelsync files.
      --vendor=<name>     Specifies the vendor to use with GPG signature verification.
                          Defaults to 'cpanel'
      --categories=<name> Specifies the vendor keyring to use with GPG signature verification.
                          Defaults based on the globally configured TweakSetting.
      --quiet=1           Suppress HttpRequest output.

Arguments:
      host                The mirror to download from. Normally httpupdate.cpanel.net
      url                 The mirror URL that represents the base of the cpanelsync repo.
                          Defaults to '/'
      root                The local directory that is being synced. Defaults to '/'.

Notes:

This script no longer supports syncing directly against named cPanel tier targets
      such as RELEASE or STABLE. The cPanel update system in all releases after 11.30
      uses a separate cpanelsync v2 system and should be updated using upcp or updatenow.

EO_USAGE
    return 1;
}

sub _parse_argv {
    my $argv_ar = shift;
    my %options = (
        nfok       => 0,
        repo       => undef,
        signed     => 0,
        categories => undef,
        vendor     => undef,
        help       => 0,
        quiet      => 0,
    );

my $usage_flags = {};
    foreach my $option_name ( keys %options ) {
        $usage_flags->{$option_name} = \$options{$option_name};
    }

my $help_called = 0;
    my $usage_cr    = sub { $help_called = 1; _usage(); };

Cpanel::Usage::wrap_options( { remove => 1 }, $argv_ar, $usage_cr, $usage_flags );
    return 0 if ($help_called);

if ( $argv_ar->[0] && $argv_ar->[0] =~ m/404/ ) {
        $options{nfok} = 1;
        shift @$argv_ar;
    }
    my $host = $argv_ar->[0] || '';
    my $url  = $argv_ar->[1] || '/';
    my $root = $argv_ar->[2] || '/';

if ( !$host || $host eq '' ) {
        return _usage();
    }

# Block accidental legacy use of cpanelsync to sync /scripts /usr/local/cpanel paths
    # Only block if coming from cpanel servers so we don't break 3rd party addons
    if (   $host =~ m{^httpupdate\w*.cpanel.net$}i
        && $url =~ m{^/cpanelsync/(BETA|CURRENT|DEMO|DNSONLY|EDGE|RELEASE|STABLE)} ) {
        print "The use of cpanelsync to sync /scripts and/or most /usr/local/cpanel trees is unsupported in 11.30+\n";
        print "Please run /usr/local/cpanel/scripts/upcp --force instead.\n";
        return 1;
    }
    return ( undef, \%options, $host, $url, $root );
}

sub _wait_for_mirror_lock {
    my ( $httpClient, $host, $url, $options ) = @_;
    my $lock = 'locked';

my $sleep      = 30;
    my $lock_count = 0;
    my $trycount   = 0;

# Check for Locked file
    ### "$url/.cpanelsync.lock",
    while ( $lock =~ m/locked/i ) {

# Unsigned request: no trust anchor, content is not sensitive
        my ( $lock, $status ) = $httpClient->request(
            'exitOn404' => $options->{nfok},
            'host'      => $host,
            'url'       => "$url/.cpanelsync.lock",

#http 1.1 on the first request, but drop the connection on the
            #second one to not tie up the server
            'protocol' => ( $lock_count == 0 ? 1 : 0 )
        );
        return 0 if ( $status == 0 );
        last     if ( !$lock || $lock !~ m/locked/i );
        $lock_count++;
        if ( $lock_count > 20 ) {
            $sleep += 30;
        }
        elsif ( $lock_count == 20 ) {
            $sleep = 120;
        }

print "The update server is currently updating its files.\n";
        print "It may take up to 30 minutes before access can be obtained.\n";
        print "Waiting $sleep seconds for access to the update server......\n";

$httpClient->disconnect();    #do not leave the connection open

if ( ++$trycount % 30 == 0 ) { $httpClient->skiphost(); }
        sleep $sleep;
        print "Checking again....\n";

}
    return;
}

X7ROOT File Manager

Editing: cpanelsync

Upload File

Create Folder