/ usr / local / cpanel / scripts / [ HOME SHELL ]

Name	Size	Permission
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	3.13 KB	-rwxr-xr-x
adddns	3.13 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	5.04 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
backup_jobs_helper	10.88 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	9.64 KB	-rwxr-xr-x
buildeximconf	7 KB	-rwxr-xr-x
buildhttpdconf	2.6 KB	-rwxr-xr-x
buildpureftproot	539 B	-rwxr-xr-x
call_pkgacct	2.25 KB	-rwxr-xr-x
ccs-check	4.91 KB	-rwxr-xr-x
check_cpanel_pkgs	10.6 KB	-rwxr-xr-x
check_domain_recommendations_s...	2.65 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	6.77 KB	-rwxr-xr-x
cleanupinterchange	2.64 KB	-rwxr-xr-x
cleanupmysqlprivs	773 B	-rwxr-xr-x
clear_orphaned_virtfs_mounts	3.56 KB	-rwxr-xr-x
comet_license_registration_syn...	1.67 KB	-rwxr-xr-x
comet_protected_item_maintenan...	20.78 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	26.12 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
cpan_config	2.8 KB	-rwxr-xr-x
cpanel_initial_install	68.01 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.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
create_default_featurelist	11.62 KB	-rwx------
createacct	30.59 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
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.66 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
ea-nginx	92.48 KB	-rwxr-xr-x
ea-nginx-userdata	9.62 KB	-rwxr-xr-x
ea-podman	7.99 MB	-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
elevate-cpanel	417.95 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
enablefileprotect	2.1 KB	-rwxr-xr-x
ensure_autoenabled_features	3.17 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.51 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.47 KB	-rwxr-xr-x
find_pids_with_inotify_watch_o...	3.66 KB	-rwxr-xr-x
fix-cpanel-perl	28.43 KB	-rwxr-xr-x
fix-listen-on-localhost	3.94 KB	-rwxr-xr-x
fix-web-vhost-configuration	6.15 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.7 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	14.56 KB	-rwxr-xr-x
gensysinfo	1.16 KB	-rwxr-xr-x
get_locale_from_legacy_name_in...	1.99 KB	-rwxr-xr-x
getremotecpmove	22.54 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.82 KB	-rwxr-xr-x
hulk-unban-ip	4.1 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.35 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
install_tuxcare_els_php	1.84 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
is_update_available	3.26 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	2.25 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	5.21 KB	-rwxr-xr-x
locale_import	4.69 KB	-rwxr-xr-x
locale_info	3.99 KB	-rwxr-xr-x
log_retention	21.28 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	52.69 KB	-rwxr-xr-x
make_config	407 B	-rw-r--r--
make_hostname_unowned	1.16 KB	-rwxr-xr-x
manage_extra_marketing	12.76 KB	-rwx------
manage_greylisting	16.33 KB	-rwxr-xr-x
manage_mysql_profiles	16.33 KB	-rwxr-xr-x
mass_change_php_setting	10.65 KB	-rwxr-xr-x
migrate_ccs_to_cpdavd	47.06 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.07 KB	-rwxr-xr-x
modify_featurelist	16.16 KB	-rwx------
modify_packages	3.64 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
panel_ini	4.11 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...	1.98 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	89.91 KB	-rwxr-xr-x
post_snapshot	2.09 KB	-rwxr-xr-x
post_sync_cleanup	5.83 KB	-rwxr-xr-x
postupcp	107 B	-rwxr-xr-x
primary_virtual_host_migration	2.44 KB	-rwxr-xr-x
process_cpmove	4.32 KB	-rwxr-xr-x
process_pending_cpanel_php_pea...	2.73 KB	-rwxr-xr-x
proxydomains	9.59 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_api_readonly_cache	2.51 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	25.5 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	28.4 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.99 MB	-rwxr-xr-x
restartsrv_base	10.99 MB	-rwxr-xr-x
restartsrv_bind	10.99 MB	-rwxr-xr-x
restartsrv_chkservd	427 B	-rwxr-xr-x
restartsrv_clamd	10.99 MB	-rwxr-xr-x
restartsrv_cpanel_php_fpm	10.99 MB	-rwxr-xr-x
restartsrv_cpanellogd	10.99 MB	-rwxr-xr-x
restartsrv_cpdavd	10.99 MB	-rwxr-xr-x
restartsrv_cpgreylistd	10.99 MB	-rwxr-xr-x
restartsrv_cphulkd	10.99 MB	-rwxr-xr-x
restartsrv_cpipv6	10.99 MB	-rwxr-xr-x
restartsrv_cpsrvd	10.99 MB	-rwxr-xr-x
restartsrv_crond	10.99 MB	-rwxr-xr-x
restartsrv_dnsadmin	10.99 MB	-rwxr-xr-x
restartsrv_dovecot	10.99 MB	-rwxr-xr-x
restartsrv_exim	10.99 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.99 MB	-rwxr-xr-x
restartsrv_imap	437 B	-rwxr-xr-x
restartsrv_inetd	2.47 KB	-rwxr-xr-x
restartsrv_ipaliases	10.99 MB	-rwxr-xr-x
restartsrv_lmtp	437 B	-rwxr-xr-x
restartsrv_mailman	10.99 MB	-rwxr-xr-x
restartsrv_mysql	10.99 MB	-rwxr-xr-x
restartsrv_named	579 B	-rwxr-xr-x
restartsrv_nginx	10.99 MB	-rwxr-xr-x
restartsrv_nscd	10.99 MB	-rwxr-xr-x
restartsrv_p0f	10.99 MB	-rwxr-xr-x
restartsrv_pdns	10.99 MB	-rwxr-xr-x
restartsrv_pop3	437 B	-rwxr-xr-x
restartsrv_postgres	427 B	-rwxr-xr-x
restartsrv_postgresql	10.99 MB	-rwxr-xr-x
restartsrv_powerdns	442 B	-rwxr-xr-x
restartsrv_proftpd	10.99 MB	-rwxr-xr-x
restartsrv_pureftpd	10.99 MB	-rwxr-xr-x
restartsrv_queueprocd	10.99 MB	-rwxr-xr-x
restartsrv_rsyslog	10.99 MB	-rwxr-xr-x
restartsrv_rsyslogd	437 B	-rwxr-xr-x
restartsrv_spamd	10.99 MB	-rwxr-xr-x
restartsrv_sshd	10.99 MB	-rwxr-xr-x
restartsrv_syslogd	2.4 KB	-rwxr-xr-x
restartsrv_tailwatchd	10.99 MB	-rwxr-xr-x
restartsrv_unknown	10.99 MB	-rwxr-xr-x
restartsrv_xinetd	422 B	-rwxr-xr-x
restorecpuserfromcache	1.96 KB	-rwxr-xr-x
restorepkg	49.72 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
run_plugin_lifecycle	3.96 KB	-rwx------
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	16.76 KB	-rwxr-xr-x
sendicq	474 B	-rwxr-xr-x
servicedomains	9.59 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.33 KB	-rwxr-xr-x
setup_modsec_db	1.3 KB	-rwxr-xr-x
setup_systemd_timer_for_plugin...	3.92 KB	-rwx------
setupftpserver	10.47 KB	-rwxr-xr-x
setupmailserver	9.39 KB	-rwxr-xr-x
setupnameserver	12.6 KB	-rwxr-xr-x
show_php_settings	3.67 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	15.32 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.08 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
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	10.16 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	18.46 KB	-rwxr-xr-x
unsuspendmysqlusers	7.1 KB	-rwxr-xr-x
upcp	43.01 KB	-rwxr-xr-x
upcp-running	2.7 KB	-rwxr-xr-x
upcp.static	960.56 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.25 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.07 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	2.03 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	30.59 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
zonecheck	91 B	-rwxr-xr-x
zoneexists	800 B	-rwxr-xr-x

Code Editor : convert_roundcube_mysql2sqlite

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

# cpanel - scripts/convert_roundcube_mysql2sqlite  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 Script::RCube::Mysql2Sqlite;

use strict;
## no critic (RequireUseWarnings)
use Try::Tiny;

use Cpanel::AccessIds::ReducedPrivileges ();
use Cpanel::Config::LoadCpConf           ();
use Cpanel::MysqlUtils                   ();
use Cpanel::DbUtils                      ();
use Cpanel::MysqlUtils::Connect          ();
use Cpanel::MysqlUtils::Command          ();
use Cpanel::MysqlRun                     ();
use Cpanel::Config::LoadUserDomains      ();
use Cpanel::Email::RoundCube             ();
use Cpanel::Email::RoundCube::DBI        ();
use Cpanel::Quota::Temp                  ();

use Cpanel::PwCache       ();
use Cpanel::Logger        ();
use Cpanel::Filesys::Home ();

use File::Basename ();
use File::Copy     ();
use File::Path     ();
use File::Slurper  ();
use DBI;
use XML::Simple ();
use IPC::Open3  ();

$XML::Simple::PREFERRED_PARSER = "XML::SAX::PurePerl";

my $sqlite_table_file = '/usr/local/cpanel/base/3rdparty/roundcube/SQL/sqlite.initial.sql';

my $log_file = '/usr/local/cpanel/logs/roundcube_sqlite_convert_log';
my %opts     = ( 'alternate_logfile' => $log_file );
my $logger   = Cpanel::Logger->new( \%opts );

my $mysql_dbname = 'roundcube';
my $dbh;

# If this updates, then do_all_rcube_xml_to_db() needs to be updated to match
my @dumptables = qw(users identities contacts contactgroups contactgroupmembers calendars caldav_calendars events caldav_events attachments caldav_attachments itipinvitations responses);

my $time = time();

## if invoked as a script, there is nothing in the call stack
my $invoked_as_script = !caller();
__PACKAGE__->script(@ARGV) if ($invoked_as_script);

my $mysql_plus_sqlite;

sub script {
    my ( $package, $opt_user, $opt_dbname ) = @_;
    my $cpconf = Cpanel::Config::LoadCpConf::loadcpconf();

my $db_type = 'mysql';
    if ( exists $cpconf->{'roundcube_db'} ) {
        $db_type           = 'sqlite' if $cpconf->{'roundcube_db'} eq 'sqlite';
        $mysql_plus_sqlite = $cpconf->{'roundcube_db'} eq 'mysql_plus_sqlite';
    }

if ( defined $opt_user ) {
        ## the optional user arg feature is currently *only* called as a script;
        ##   otherwise, all these exits would check $invoked_as_script

## Transfers.pm is the only user of $opt_user, which it uses in conjunction with $opt_user;
        ##   this changes the global variable $opt_dbname just in time to be used in &init_check
        if ( defined $opt_dbname ) {
            $mysql_dbname = $opt_dbname;
        }

if ( $db_type eq 'sqlite' && init_check($cpconf) ) {
            my $wasSuccess = convert_mysql_roundcube_to_sqlite($opt_user);
            if ($wasSuccess) {

## Transfers.pm operates over a different dbname, and is responsible for the
                ##   removal of the temporary database
                unless ( defined $opt_dbname ) {
                    Cpanel::Email::RoundCube::archive_and_drop_mysql_roundcube($logger);
                }
                return 1;
            }
            die "Conversion for user '$opt_user' was not successful.\n";
        }

## SOMEDAY @GOLIVE: update-roundcube-sqlite-db gets moved to update-roundcube-db. Update this message and the conditional @GOIVE.
        die "The optional user argument is to be used only when Roundcube has been converted to sqlite. Use bin/update-roundcube-sqlite-db Exiting.\n";
    }

## Has the roundcube conversion already happened?
    ## note: this check is here, and not in init_check, because Transfers.pm calls into this
    ##   from a different context. The src server uses MySQL but the dest machine has done
    ##   the sqlite conversion.
    if ( $db_type eq 'sqlite' ) {
        $logger->info("Roundcube conversion already occurred, bailing out.");
        if ($invoked_as_script) {
            exit(0);
        }
        return 1;
    }

unless ( init_check($cpconf) ) {
        if ($invoked_as_script) {
            exit(0);
        }
        return 1;
    }

my %TRUEDOMAINS;
    Cpanel::Config::LoadUserDomains::loadtrueuserdomains( \%TRUEDOMAINS );
    my @users          = sort values %TRUEDOMAINS;
    my $success_cnt    = 0;
    my $success_verify = scalar @users;

for my $user (@users) {
        $success_cnt += convert_mysql_roundcube_to_sqlite($user);
    }

unless ( $success_cnt == $success_verify ) {
        $logger->warn("Roundcube Mysql to sqlite conversion was not completely successful. Please check $log_file for details.");

if ($invoked_as_script) {
            exit(1);
        }
        return;
    }

## Conversion is a success, so switch Roundcube configuration to use SQLite before dropping the database.
    my $DIR = '/usr/local/cpanel/base/3rdparty';
    Cpanel::Email::RoundCube::generate_roundcube_config_sqlite( $DIR, $logger );

## if the conversion was a complete success (as checked above), we can safely archive and
    ##   delete the MySQL roundcube database. This will prevent future problems with transfers,
    ##   and in fact is the final solution for the original Roundcube case 12162!
    ## already asserted via &init_check
    my $archive_success = Cpanel::Email::RoundCube::archive_and_drop_mysql_roundcube($logger);

require Cpanel::Config::CpConfGuard;
    my $cpconf_guard = Cpanel::Config::CpConfGuard->new();
    $cpconf->{'roundcube_db'} = $cpconf_guard->{'data'}->{'roundcube_db'} = 'sqlite';
    $cpconf_guard->save();

if ($invoked_as_script) {
        Cpanel::Email::RoundCube::restart_cpsrvd();
        exit(0);
    }

return 1;
}

sub convert_mysql_roundcube_to_sqlite {
    my ($user) = @_;
    my @domains = Cpanel::Email::RoundCube::collect_domains($user);

my @uid_name_pairs = collect_roundcube_user_info( \@domains, $user );

## returning 1: no conversion necessary
    return 1 unless ( scalar @uid_name_pairs );

## e.g. '/home'
    my $best_mnt_point   = Cpanel::Filesys::Home::get_homematch_with_most_free_space();
    my $tmpdir_root_base = "$best_mnt_point/roundcube_convert";

if ( -d $tmpdir_root_base ) {
        rename( $tmpdir_root_base, "$tmpdir_root_base.$time" );
    }
    mkdir($tmpdir_root_base);

my $tmpdir_root_sys = "$tmpdir_root_base/$user";
    mkdir($tmpdir_root_sys);

my @pwinfo = Cpanel::PwCache::getpwnam($user);
    my ( $mmuid, $mmgid, $homedir ) = @pwinfo[ 2, 3, 7 ];
    my $tmpdir_emailuser_base = "$homedir/tmp/roundcube_convert";

my $success_cnt = 0;
    my %has_sqlite_trapper_keeper;

for my $email_user_info (@uid_name_pairs) {
        my ( $uid, $email_user ) = @$email_user_info;

if ($mysql_plus_sqlite) {
            my $db_path = _roundcube_db_path( $user, $homedir, $email_user );
            $has_sqlite_trapper_keeper{$db_path} = -f $db_path;
            next if $has_sqlite_trapper_keeper{$db_path};
        }

my $tmpdir_root_sys_emailuser = "$tmpdir_root_sys/$email_user";
        mkdir($tmpdir_root_sys_emailuser);

do_mysqldumps_for_user( $uid, $tmpdir_root_sys_emailuser );
    }

## ensures that $best/rcube/$sysuser/$emailuser is readable by $sysuser,
    ##   so that $sysuser can move it to their $homedir after the setuid
    my $tempquota = Cpanel::Quota::Temp->new( user => $user, log => 1 );
    $tempquota->disable();

my $rv_chmod = system("chmod -R 700 $tmpdir_root_sys");
    my $rv_chown = system("chown -Rf $mmuid:$mmgid $tmpdir_root_sys");

for my $email_user_info (@uid_name_pairs) {
        my ( $uid, $email_user ) = @$email_user_info;

if ($mysql_plus_sqlite) {
            my $db_path = _roundcube_db_path( $user, $homedir, $email_user );
            if ( $has_sqlite_trapper_keeper{$db_path} ) {
                $logger->info("$email_user already has an SQLite DB, skipping...");
                $success_cnt++;
                next;
            }
        }

chdir($tmpdir_root_base);

my $tmpdir_root_sys_emailuser = "$tmpdir_root_sys/$email_user";
        my $rv_convert                = xml_to_sqlite( $user, $tmpdir_root_sys_emailuser, $tmpdir_emailuser_base, $email_user, $homedir );

unless ($rv_convert) {
            $logger->warn("Conversion was not successful for user '$user'.");
        }
        $success_cnt += $rv_convert;

## note: no need to "rmdir($tmpdir_root_sys_emailuser)", as this dir was moved
        ##   to $homedir/tmp/rcube/$emailuser (during the setuid)

## SOMEDAY @GOLIVE: remove the mysql roundcube database (steal mysql/roundcube backup/archive
        ##   clauses from update-roundcube-db, the mysql version)
    }

$tempquota->restore();

rmdir($tmpdir_root_sys);
    rmdir($tmpdir_root_base);

return $success_cnt == scalar(@uid_name_pairs);
}

sub collect_roundcube_user_info {
    my ( $ar_domains, $user ) = @_;
    my $regexp = '@(' . join( '|', map { s/\./\\./gr } @$ar_domains ) . ')$';
    my @ids;

try {
        @ids = $dbh->selectall_array( "SELECT user_id, username FROM users WHERE username REGEXP ? or username = ?", {}, $regexp, $user );
    };

return @ids;
}

## Stolen from pkgacct; needs to be modularized!
## SOMEDAY: this version has converged; move pkgacct version to module, and get rid of below
sub mysqldumpdb {
    my ($args) = @_;

my @options   = @{ $args->{'options'} };
    my $db        = $args->{'db'};
    my $table     = $args->{'table'};
    my $file      = $args->{'file'};
    my $file_mode = $args->{'append'} ? '>>' : '>';

# for testing
    my @extra_options = _get_extra_options();

my $mysqldump = Cpanel::DbUtils::find_mysqldump();
    my @db        = ($db);
    if ($table) {
        push @db, $table;
    }

my $pid = IPC::Open3::open3( my $w, my $r, '', $mysqldump, @extra_options, @options, @db );

my $first_line = 1;
    if ( open( my $fh, $file_mode, $file ) ) {
        while (<$r>) {
            if ( $first_line && ( !$_ || m/^mysqldump:/ ) ) {
                warn join( '.', @db ) . ': ' . $_;
                close $w;
                close $r;
                waitpid( $pid, 0 );
                $first_line = 0;
                my $mysqlcheck = Cpanel::DbUtils::find_mysqlcheck();
                system( $mysqlcheck, '--repair', @extra_options, @db );
                $pid = IPC::Open3::open3( $w, $r, '', $mysqldump, @extra_options, @options, @db );
            }
            else {
                print {$fh} $_;
            }
        }
    }
    close $w;
    close $r;
    waitpid( $pid, 0 );
    return;
}

sub do_mysqldumps_for_user {
    my ( $uid, $tmp_convertdir ) = @_;

for my $tbl (@dumptables) {
        ## these two tables do not key off user_id
        next if grep { $tbl eq $_ } qw{contactgroupmembers events ical_events caldav_events attachments ical_attachments caldav_attachments caldav_calendars};

## XML output, not suppressing table structure, with a where clause on user_id list
        my @opts = ( '--xml', '-w', qq{user_id = $uid} );
        mysqldumpdb(
            {
                'options' => [@opts],
                'db'      => $mysql_dbname,
                'file'    => "$tmp_convertdir/rcube.$tbl.xml",
                'table'   => $tbl
            }
        );
    }

## contactgroupmembers is gathered in two steps, otherwise would be a LEFT JOIN that
    ##   &mysqldumpdb can not currently support

my $contacts = _get_ids_from_col( 'contactgroups', 'contactgroup_id', $uid, 'user_id' );
    _dump_stuff_in( 'contactgroupmembers', 'contactgroup_id', $contacts, $tmp_convertdir ) if scalar(@$contacts);

# Handle events & attachments for calendaring, as those are identified by
    # calendar & event respectively.
    my $cals = _get_ids_from_col( "calendars", 'calendar_id', $uid, 'user_id' );
    next if !scalar(@$cals);
    my @events2export;
    my @attachments2export;
    foreach my $cal (@$cals) {
        my $events = _get_ids_from_col( "events", 'event_id', $cal, 'calendar_id' );

# Can't have attachments if no events exist to attach em to, so
        # next here is appropriate.
        next if !scalar(@$events);
        push @events2export, @$events;

my $attachments = _get_ids_from_col( "attachments", 'attachment_id', $events, 'event_id' );
        next if !scalar(@$attachments);
        push @attachments2export, @$attachments;
    }
    _dump_stuff_in( "events",      'event_id',      \@events2export,      $tmp_convertdir ) if @events2export;
    _dump_stuff_in( "attachments", 'attachment_id', \@attachments2export, $tmp_convertdir ) if @attachments2export;

return undef;
}

# Only here so that I don't "repeat myself".
sub _get_ids_from_col {
    my ( $tbl, $col, $search_term, $filter_on, $filter_mode ) = @_;
    my @ids;
    try {

# Quoting anything other than values here is actually harmful.
        # Don't do it as such. Same for IN statement here.
        my $where_clause = "WHERE $filter_on = ?";
        if ( ref $search_term eq 'ARRAY' ) {
            my $count = scalar(@$search_term);
            die "Bad call to _get_ids_from_col: no search term specified!" if !$count;
            my $qs = ( '?,' x ( $count - 1 ) ) . '?';
            $where_clause = "WHERE $filter_on IN ($qs)";
            @ids          = map { $_->[0] } $dbh->selectall_array( "SELECT $col FROM $tbl $where_clause", {}, @$search_term );
        }
        else {
            @ids = map { $_->[0] } $dbh->selectall_array( "SELECT $col FROM $tbl $where_clause", {}, $search_term );
        }
    }
    catch {
        $logger->warn( "Attempt to find necessary data from $col in $tbl failed: " . $dbh->errstr() );
    };
    return \@ids;

}

# Only here so that I don't "repeat myself".
sub _dump_stuff_in {
    my ( $tbl, $col, $in, $tmp_convertdir ) = @_;

# It is possible that we have a very large number of ID's.
    # If so, we need to do this in chunks.
    my $chunk_size = 1000;
    my @chunks;

while ( $in->@* ) {
        push @chunks, [ splice( $in->@*, 0, $chunk_size ) ];
    }

my $file_num = 0;
    foreach my $chunk (@chunks) {

my $f_name = $file_num ? "$tmp_convertdir/rcube.$tbl.$file_num.xml" : "$tmp_convertdir/rcube.$tbl.xml";
        my $csv    = join( ',', $chunk->@* );
        mysqldumpdb(
            {
                'options' => [ '--xml', '-w', qq{$col IN ($csv)} ],
                'db'      => $mysql_dbname,
                'file'    => $f_name,
                'table'   => $tbl,
            }
        );
        $file_num++;
    }

return;
}

sub create_rcube_sqlite_tables {
    my ($dbh) = @_;
    Cpanel::Email::RoundCube::DBI::ensure_schema_update( $dbh, 'sqlite' );
    return undef;
}

# This used to do all sorts of things like telling rcube_xml_to_db what needed
# quoting, what needed to be set to NULL, etc. -- thankfully all that is
# absolutely unnecessary with sqlite3.
sub do_all_rcube_xml_to_db {
    my ( $dbh, $xmldir ) = @_;

my $success_cnt = 0;
    ## verify the number of XML docs to convert to SQL
    my $success_verify = scalar(@dumptables);
    {
        ## note: there is a disparity in the sqlite.initial.sql, and the "table_structure" for "users";
        ##   preferences is not NULLABLE.
        my @_cols = qw(user_id username mail_host created last_login language preferences);
        $success_cnt += rcube_xml_to_db( $xmldir, 'users', $dbh, \@_cols );
    }

{
        my @_cols = qw( identity_id user_id changed del standard name organization email
          reply-to bcc signature html_signature);
        $success_cnt += rcube_xml_to_db( $xmldir, 'identities', $dbh, \@_cols );
    }

{
        my @_cols = qw(contact_id user_id changed del name email firstname surname vcard);
        $success_cnt += rcube_xml_to_db( $xmldir, 'contacts', $dbh, \@_cols );
    }

## new contactgroups table
    {
        my @_cols = qw( contactgroup_id user_id changed del name );
        $success_cnt += rcube_xml_to_db( $xmldir, 'contactgroups', $dbh, \@_cols );
    }

## new contactgroupmembers table
    ## guard clause: contactgroupmembers is gathered conditionally, so it is the only file which
    ##   may not exist
    if ( -e _xml_file( $xmldir, 'contactgroupmembers' ) ) {
        my @_cols = qw( contactgroup_id contact_id created );
        $success_cnt += rcube_xml_to_db( $xmldir, 'contactgroupmembers', $dbh, \@_cols );
    }
    else {
        $success_cnt++;
    }

# Restore calendar data
    foreach my $cal_tbl (qw{calendars caldav_calendars}) {
        unless ( -e _xml_file( $xmldir, $cal_tbl ) ) {
            $success_cnt++;
            next;
        }
        my @_cols = qw( calendar_id user_id name color showalarms );
        push( @_cols, qw{ical_url ical_user ical_pass ical_last_change} )                                                   if $cal_tbl eq 'ical_calendars';
        push( @_cols, qw{readonly caldav_url caldav_tag caldav_user caldav_pass caldav_oauth_provider caldav_last_change} ) if $cal_tbl eq 'caldav_calendars';
        $success_cnt += rcube_xml_to_db( $xmldir, $cal_tbl, $dbh, \@_cols );
    }
    foreach my $evt_tbl (qw{events caldav_events}) {
        unless ( -e _xml_file( $xmldir, $evt_tbl ) ) {
            $success_cnt++;
            next;
        }
        my @_cols = qw( event_id calendar_id recurrence_id uid instance isexception created changed sequence start end recurrence title description location categories url all_day free_busy priority sensitivity status alarms attendees notifyat );
        push( @_cols, qw{ical_url ical_last_change} )                if $evt_tbl eq 'ical_events';
        push( @_cols, qw{caldav_url caldav_tag caldav_last_change} ) if $evt_tbl eq 'caldav_events';

$success_cnt += rcube_xml_to_db( $xmldir, $evt_tbl, $dbh, \@_cols );
    }
    foreach my $atc_tbl (qw{attachments caldav_attachments}) {
        unless ( -e _xml_file( $xmldir, $atc_tbl ) ) {
            $success_cnt++;
            next;
        }
        my @_cols = qw( attachment_id event_id filename mimetype size data );
        $success_cnt += rcube_xml_to_db( $xmldir, $atc_tbl, $dbh, \@_cols );
    }
    if ( -e _xml_file( $xmldir, 'itipinvitations' ) ) {
        my @_cols = qw(token event_uid user_id event expires cancelled);
        $success_cnt += rcube_xml_to_db( $xmldir, 'itipinvitations', $dbh, \@_cols );
    }
    else {
        $success_cnt++;
    }

## Restore responses table, if available
    if ( -e _xml_file( $xmldir, 'responses' ) ) {
        my @_cols = qw( response_id user_id name data is_html changed del );
        $success_cnt += rcube_xml_to_db( $xmldir, 'responses', $dbh, \@_cols );
    }
    else {
        $success_cnt++;
    }

return $success_cnt == $success_verify;
}

sub _xml_file {
    my ( $xmldir, $tbl ) = @_;
    return "$xmldir/rcube.$tbl.xml";
}

sub _get_all_xml_files {
    my ( $xmldir, $tbl ) = @_;

opendir( my $dh, $xmldir ) or die "Cannot open directory $xmldir: $!";
    my @files = map { "$xmldir/$_" } grep { /^rcube\.$tbl\.(?:[0-9]+\.)?xml$/ } readdir($dh);
    return @files;
}

sub rcube_xml_to_db {
    my ( $xmldir, $tbl, $dbh, $ar_cols ) = @_;

my @xml_fnames  = _get_all_xml_files( $xmldir, $tbl );
    my %common_opts = ( ForceArray => 1, KeyAttr => [], ContentKey => '__content' );

foreach my $xml_fname (@xml_fnames) {
        ## $ref->{database}->[0]->{table_data}->[0]->{row}->[$x]->{field}->[$x]->{__content}
        my $ref;
        my $err;
        try {
            $ref = XML::Simple::XMLin( $xml_fname, %common_opts );
        }
        catch {
            $err = $_;
        };

if ($err) {
            $logger->warn("Failed to load xml for $tbl: $err");
            return;
        }

my $rows = $ref->{'database'}->[0]->{'table_data'}->[0]->{'row'};

## FWIW, Perl does not complain if $rows is undef, when called in a for loop context.
        for my $row (@$rows) {

# XXX Placeholders don't work on columns, but stuff with dashes
            # still needs quoting. As such, quote all col names.
            # Sorry, couldn't find a way around it.
            my $update_hr = { map { $dbh->quote_identifier( $_->{'name'} ) => $_->{'__content'} || '' } @{ $row->{'field'} } };
            my $rv        = $dbh->do( rcube_make_sql( $tbl, $update_hr ) );
            unless ($rv) {
                $logger->warn( "Conversion was not successful: " . $dbh->errstr() );
                return;
            }
        }
    }
    return 1;
}

sub rcube_make_sql {
    my ( $table, $update_hr ) = @_;

# Lets hope these actually are nonzero
    my @values = values(%$update_hr);
    my $qs     = ( '?,' x ( scalar(@values) - 1 ) ) . '?';
    return (
        "INSERT OR REPLACE INTO $table (" . join( ",", keys(%$update_hr) ) . ") VALUES ($qs)",
        undef,
        @values,
    );
}

sub check_mysqlup {
    ## note: this call is cached with a ttl of 600
    my $isrunning = Cpanel::MysqlRun::running();
    if ($isrunning) {
        return 1;
    }

return undef;
}

sub ensure_roundcube_tables {
    my ($dbh) = @_;

my %tables = map { $_ => undef } $dbh->tables();

# system table is created during a migration
    my @expected = qw(session cache system);
    push( @expected, @dumptables );

for my $exp (@expected) {
        next if $exp =~ /^caldav_|^ical_/;    ## ignoring as of 120
        if ( !exists $tables{$exp} && !exists $tables{qq{"main"."$exp"}} ) {
            $logger->warn("ERROR: missing $exp table");
            return;
        }
    }

return 1;
}

sub init_check {
    my ($cpconf) = @_;
    ## Ensure root
    return unless ( 0 == $> );

unless ( -e $sqlite_table_file ) {
        $logger->info("Roundcube is not installed; conversion is irrelevant.");
        return;
    }

if ( exists $cpconf->{'skiproundcube'} and $cpconf->{'skiproundcube'} ) {
        $logger->info("Roundcube should be skipped, bailing out.");
        return;
    }

my $mysqlup = check_mysqlup();
    unless ($mysqlup) {
        $logger->warn("Mysql not currently running, bailing out.");
        return;
    }

## Does this installation use Roundcube/MySQL?
    unless ( Cpanel::MysqlUtils::Command::db_exists($mysql_dbname) ) {
        $logger->warn("mysql database $mysql_dbname is missing");
        return;
    }

my $error;

try {
        my $dbc = Cpanel::MysqlUtils::Connect->new( database => $mysql_dbname );
        $dbh = $dbc->db_handle();
    }
    catch {
        $error = $_;
    };

if ($error) {
        $logger->warn("Failed to connect to MySQL database '$mysql_dbname'.");
        return;
    }

return 1;
}

##############################################################
# These functions allow tests to use a temporary MySQL server

sub _get_extra_options_string {

if ( scalar _get_extra_options() ) {
        return join( ' ', _get_extra_options() );
    }

return;
}

sub _get_extra_options {
    return @Cpanel::MysqlUtils::_EXTRA_MYSQL_ARGS;
}

#
##############################################################

sub xml_to_sqlite {
    my ( $user, $tmpdir_root, $tmpdir_convert_base, $email_user, $homedir ) = @_;
    my $code_ref = _closure_maker( $user, $tmpdir_root, $tmpdir_convert_base, $email_user, $homedir );

#fixup a user who's purposefully deleted their "etc" dir
    Cpanel::AccessIds::ReducedPrivileges::call_as_user( sub { File::Path::make_path( File::Basename::dirname( _roundcube_db_path( $user, $homedir, $email_user ) ), { chmod => 0750 } ); }, $user, 'mail' );
    my $rv = Cpanel::AccessIds::ReducedPrivileges::call_as_user( $code_ref, $user );
    return $rv;
}

sub _roundcube_db_path {
    my ( $system_user, $homedir, $mail_account ) = @_;
    my ( $mail_user, $mail_domain ) = split( '@', $mail_account );
    my $db_path = ( defined $mail_domain ) ? "$homedir/etc/$mail_domain/$mail_user.rcube.db" : "$homedir/etc/$mail_user.rcube.db";
    return $db_path;
}

## defining as a closure, as ::run_as_user does not currently handle sub args
sub _closure_maker {
    my ( $system_user, $tmpdir_root, $tmpdir_convert_base, $email_user, $homedir ) = @_;

my $code_ref = sub {
        my $tmp_convertdir = "$tmpdir_convert_base/$email_user";

if ( -d $tmp_convertdir ) {
            rename( $tmp_convertdir, "$tmp_convertdir.$time" );
        }

# Copy the XML files over to the user's tempdir.
        # Hopefully these are simple renames. But directories may be on different
        # mount points requiring a copy.

File::Path::make_path($tmp_convertdir);

for my $table (@dumptables) {
            my @all_src = _get_all_xml_files( $tmpdir_root, $table );
            foreach my $src (@all_src) {
                if ( -e $src ) {
                    my $filename = File::Basename::basename($src);
                    my $dest     = "$tmp_convertdir/$filename";
                    File::Copy::move( $src, $dest );
                }
            }
        }

# Clean up empty source directory.
        # This will fail if the above moves failed.

rmdir($tmpdir_root);

## note: similar clause in cpsrvd to set up $ENV{'_RCUBE'}
        my ( $mail_user, $mail_domain ) = split( '@', $email_user );

my $rcube_sqlite_loc8 = _roundcube_db_path( $system_user, $homedir, $email_user );

if ( -e $rcube_sqlite_loc8 ) {
            rename( $rcube_sqlite_loc8, "$rcube_sqlite_loc8.$time" );
        }

my $dbh = DBI->connect( "dbi:SQLite:dbname=$rcube_sqlite_loc8", "", "" ) or do {
            $logger->info("Connection error to $rcube_sqlite_loc8: $!");
            return;
        };
        ## note: $dbh->{sqlite_version} is confirmed 2.8.15
        create_rcube_sqlite_tables($dbh);
        return unless ensure_roundcube_tables($dbh);

unless ( do_all_rcube_xml_to_db( $dbh, $tmp_convertdir ) ) {
            $logger->info("Conversion of roundcube XML dump to sqlite database failed");
            return;
        }

$dbh->disconnect();

chmod( 0600, $rcube_sqlite_loc8 );

## the return values on these rm calls are not critical
        ## only remove the /tmp directory if the XML converion has been successful thus far

try {
            File::Path::remove_tree($tmp_convertdir);
        };

## attempt to rmdir, which will intentionally fail if any of the converts did not succeed
        rmdir($tmpdir_convert_base);

return 1;
    };
    return $code_ref;
}

Performers – Signal Health Group of Naples

Performers

[em_performers]

Code Editor : convert_roundcube_mysql2sqlite

Performers

Quick Links

Elite Caregivers USA, LLC

Useful Links

${this.title}

Code Editor : convert_roundcube_mysql2sqlite

Quick Links

Elite Caregivers USA, LLC

Useful Links