Gecko [ gtgates.com ]

Name	Size	Permission	Date
cpan_sandbox	[ DIR ]	drwxr-xr-x	2017-06-12 18:25
php_sandbox	[ DIR ]	drwxr-xr-x	2020-12-20 04:48
MirrorSearch_pingtest	2.38 KB	-rwxr-xr-x	2022-05-16 17:46
activesync-invite-reply	1.69 KB	-rwxr-xr-x	2022-05-16 17:46
add_dns	2.36 KB	-rwxr-xr-x	2022-05-16 17:46
adddns	2.36 KB	-rwxr-xr-x	2022-05-16 17:46
addpop	6.08 KB	-rwxr-xr-x	2022-05-16 17:47
addsystemuser	3.27 KB	-rwxr-xr-x	2022-05-16 17:46
adduser	92 B	-rwxr-xr-x	2017-06-12 18:25
agent360.sh	16.03 KB	-rwx------	2025-09-17 21:17
apachelimits	4.31 KB	-rwxr-xr-x	2022-05-16 17:46
archive_sync_zones	3.05 KB	-rwxr-xr-x	2025-04-01 22:56
auto-adjust-mysql-limits	1.81 KB	-rwxr-xr-x	2022-05-16 17:46
autorepair	1.24 KB	-rwxr-xr-x	2022-05-16 17:46
backups_clean_metadata_for_missing_backups	1.57 KB	-rwxr-xr-x	2022-05-16 17:46
backups_create_metadata	15.75 KB	-rwxr-xr-x	2022-05-16 17:46
backups_list_user_files	4.56 KB	-rwxr-xr-x	2022-05-16 17:46
balance_linked_node_quotas	2.58 KB	-rwxr-xr-x	2022-05-16 17:47
before_apache_make	232 B	-rwxr-xr-x	2026-02-17 12:31
biglogcheck	1.69 KB	-rwxr-xr-x	2022-05-16 17:46
build_bandwidthdb_root_cache_in_background	1.52 KB	-rwxr-xr-x	2022-05-16 17:46
build_cpnat	3.41 KB	-rwxr-xr-x	2022-05-16 17:46
build_mail_sni	3.87 KB	-rwxr-xr-x	2022-09-24 10:10
build_maxemails_config	1.14 KB	-rwxr-xr-x	2022-05-16 17:46
builddovecotconf	6.76 KB	-rwxr-xr-x	2022-05-16 17:46
buildeximconf	7 KB	-rwxr-xr-x	2023-03-11 10:28
buildhttpdconf	2.6 KB	-rwxr-xr-x	2022-05-16 17:46
buildpureftproot	539 B	-rwxr-xr-x	2022-05-16 17:47
ccs-check	4.91 KB	-rwxr-xr-x	2022-05-16 17:47
check_cpanel_pkgs	10.75 KB	-rwxr-xr-x	2022-05-16 17:46
check_cpanel_rpms	218 B	-rwxr-xr-x	2021-12-14 12:30
check_domain_tls_service_domains.pl	6.68 KB	-rwxr-xr-x	2022-05-16 17:46
check_immutable_files	5.49 KB	-rwxr-xr-x	2022-05-16 17:47
check_mail_spamassassin_compiledregexps_body_0	187 B	-rwxr-xr-x	2017-06-12 18:25
check_maxmem_against_domains_count	3.57 KB	-rwxr-xr-x	2022-05-16 17:46
check_mount_procfs	2.02 KB	-rwxr-xr-x	2022-05-16 17:46
check_mysql	5.55 KB	-rwxr-xr-x	2022-09-24 10:10
check_plugin_pkgs	2.45 KB	-rwxr-xr-x	2025-04-01 22:56
check_security_advice_changes	8.28 KB	-rwxr-xr-x	2023-03-11 10:28
check_unmonitored_enabled_services	4.56 KB	-rwxr-xr-x	2022-09-24 10:10
check_unreliable_resolvers	3.59 KB	-rwxr-xr-x	2022-05-16 17:46
check_users_my_cnf	6.05 KB	-rwxr-xr-x	2022-05-16 17:46
check_valid_server_hostname	7.66 KB	-rwxr-xr-x	2022-09-24 10:10
checkalldomainsmxs	2.4 KB	-rwxr-xr-x	2022-05-16 17:46
checkbashshell	1.18 KB	-rwxr-xr-x	2022-05-16 17:46
checkccompiler	1.22 KB	-rwxr-xr-x	2022-05-16 17:46
checkexim.pl	3.1 KB	-rwxr-xr-x	2022-05-16 17:46
checklink	1.29 KB	-rwxr-xr-x	2022-05-16 17:46
checkusers	856 B	-rwxr-xr-x	2022-05-16 17:47
chkpaths	141 B	-rwxr-xr-x	2017-06-12 18:25
chpass	416 B	-rwxr-xr-x	2022-05-16 17:46
ckillall	1.11 KB	-rwxr-xr-x	2022-05-16 17:47
cl_pkg_verify_hook.py	2.38 KB	-rwxr-xr-x	2026-01-30 12:30
clean_dead_mailman_locks	2.09 KB	-rwxr-xr-x	2022-05-16 17:46
clean_up_temp_wheel_users	2.44 KB	-rwxr-xr-x	2022-05-16 17:46
clean_user_php_sessions	4.76 KB	-rwxr-xr-x	2022-08-26 11:30
cleandns	13.11 KB	-rwxr-xr-x	2025-04-01 22:56
cleandns8	417 B	-rwxr-xr-x	2022-05-16 17:46
cleanmsglog	735 B	-rwxr-xr-x	2017-06-12 18:25
cleanphpsessions	932 B	-rwxr-xr-x	2022-05-16 17:46
cleanphpsessions.php	658 B	-rw-r--r--	2022-08-16 11:30
cleanquotas	1.61 KB	-rwxr-xr-x	2022-05-16 17:46
cleansessions	5.89 KB	-rwxr-xr-x	2025-04-01 22:56
cleanupinterchange	2.64 KB	-rwxr-xr-x	2022-05-16 17:46
cleanupmysqlprivs	533 B	-rwxr-xr-x	2021-12-14 12:30
clear_cpaddon_ui_caches	1.27 KB	-rwxr-xr-x	2022-05-16 17:46
clear_orphaned_virtfs_mounts	3.56 KB	-rwxr-xr-x	2022-05-16 17:46
comparecdb	1.52 KB	-rwxr-xr-x	2022-05-16 17:46
compilers	2.86 KB	-rwxr-xr-x	2022-05-16 17:46
compilerscheck	999 B	-rwxr-xr-x	2022-05-16 17:47
configure_firewall_for_cpanel	520 B	-rwxr-xr-x	2022-05-16 17:46
configure_rh_firewall_for_cpanel	520 B	-rwxr-xr-x	2022-05-16 17:46
configure_rh_ipv6_firewall_for_cpanel	520 B	-rwxr-xr-x	2022-05-16 17:46
convert2dovecot	682 B	-rwxr-xr-x	2022-05-16 17:46
convert_accesshash_to_token	4.07 KB	-rwxr-xr-x	2022-05-16 17:46
convert_and_migrate_from_legacy_backup	1.97 KB	-rwxr-xr-x	2022-05-16 17:46
convert_maildir_to_mdbox	1.66 KB	-rwxr-xr-x	2022-05-16 17:46
convert_mdbox_to_maildir	1.66 KB	-rwxr-xr-x	2022-05-16 17:47
convert_roundcube_mysql2sqlite	26.27 KB	-rwxr-xr-x	2025-04-01 22:56
convert_to_dovecot_delivery	4.33 KB	-rwxr-xr-x	2022-05-16 17:46
convert_whmxfer_to_sqlite	1.46 KB	-rwxr-xr-x	2022-05-16 17:46
copy_user_mail_as_root	1.25 KB	-rwxr-xr-x	2022-05-16 17:46
copy_user_mail_as_user	1.34 KB	-rwxr-xr-x	2022-05-16 17:46
cpaddonsup	3.25 KB	-rwxr-xr-x	2022-05-16 17:47
cpan_config	2.8 KB	-rwxr-xr-x	2022-05-16 17:46
cpanel_initial_install	67.18 KB	-rwxr-xr-x	2025-04-01 22:56
cpanelsync	28.31 KB	-rwxr-xr-x	2022-05-16 17:46
cpanelsync_postprocessor	1.62 KB	-rwxr-xr-x	2022-05-16 17:46
cpanpingtest	965 B	-rwxr-xr-x	2022-05-16 17:46
cpbackup	44.79 KB	-rwxr-xr-x	2025-04-01 22:56
cpbackup_transport_file	5.65 KB	-rwxr-xr-x	2023-03-11 10:28
cpdig	1.81 KB	-rwxr-xr-x	2022-05-16 17:46
cpfetch	1.23 KB	-rwxr-xr-x	2022-05-16 17:47
cphulkdblacklist	433 B	-rwxr-xr-x	2022-05-16 17:46
cphulkdwhitelist	1.3 KB	-rwxr-xr-x	2022-05-16 17:46
cpservice	2.87 KB	-rwxr-xr-x	2022-05-16 17:46
cpuser_port_authority	19.29 KB	-rwxr-xr-x	2022-05-16 17:46
cpuser_service_manager	10.85 KB	-rwxr-xr-x	2022-09-24 10:10
create_default_featurelist	11.62 KB	-rwx------	2026-02-16 22:13
createacct	26.95 MB	-rwx------	2025-10-17 11:30
custom_backup_destination.pl.sample	5.06 KB	-rwxr-xr-x	2022-09-24 10:10
custom_backup_destination.pl.skeleton	2.84 KB	-rwxr-xr-x	2022-05-16 17:46
dcpumon-wrapper	850 B	-rwxr-xr-x	2022-05-16 17:46
delpop	6.2 KB	-rwxr-xr-x	2022-05-16 17:46
detect_env_capabilities	508 B	-rwxr-xr-x	2022-05-16 17:46
disable_prelink	2.77 KB	-rwxr-xr-x	2022-05-16 17:47
disable_sqloptimizer	1.49 KB	-rwxr-xr-x	2022-05-16 17:46
disablefileprotect	2.19 KB	-rwxr-xr-x	2025-04-01 22:56
distro_changed_hook	1.16 KB	-rwxr-xr-x	2022-05-16 17:46
dnscluster	4.44 KB	-rwxr-xr-x	2022-05-16 17:47
dnsqueuecron	1.29 KB	-rwxr-xr-x	2022-05-16 17:46
dnssec-cluster-keys	3.75 KB	-rwxr-xr-x	2022-05-16 17:46
dovecot_maintenance	7.93 KB	-rwxr-xr-x	2022-05-16 17:46
dovecot_set_defaults.pl	984 B	-rwxr-xr-x	2022-05-16 17:46
dumpcdb	866 B	-rwxr-xr-x	2022-05-16 17:46
dumpinodes	687 B	-rwxr-xr-x	2022-05-16 17:46
dumpquotas	616 B	-rwxr-xr-x	2022-05-16 17:46
dumpstor	913 B	-rwxr-xr-x	2022-05-16 17:47
ea4_fresh_install	2.64 KB	-rwxr-xr-x	2022-05-16 17:46
edit_cpanelsync_exclude_list	2.58 KB	-rwxr-xr-x	2022-05-16 17:46
editquota	3.43 KB	-rwxr-xr-x	2025-04-01 22:56
elevate-cpanel	187.75 KB	-rwx------	2024-02-12 23:25
email_archive_maintenance	6.15 KB	-rwxr-xr-x	2022-05-16 17:46
email_hold_maintenance	1.46 KB	-rwxr-xr-x	2022-05-16 17:47
enable_spf_dkim_globally	8.83 KB	-rwxr-xr-x	2022-05-16 17:46
enable_sqloptimizer	1.57 KB	-rwxr-xr-x	2022-05-16 17:46
enablefileprotect	2.1 KB	-rwxr-xr-x	2022-05-16 17:46
ensure_autoenabled_features	2.93 MB	-rwx------	2025-10-17 11:30
ensure_conf_dir_crt_key	4.82 KB	-rwxr-xr-x	2022-05-16 17:46
ensure_cpuser_file_ip	2.55 KB	-rwxr-xr-x	2022-05-16 17:46
ensure_crontab_permissions	1.08 KB	-rwxr-xr-x	2022-05-16 17:46
ensure_dovecot_memory_limits_meet_minimum	3.13 KB	-rwxr-xr-x	2022-05-16 17:46
ensure_hostname_resolves	2.51 KB	-rwxr-xr-x	2025-04-01 22:56
ensure_includes	601 B	-rwxr-xr-x	2022-05-16 17:46
ensure_vhost_includes	13.53 KB	-rwxr-xr-x	2022-05-16 17:46
exim_tidydb	2.96 KB	-rwxr-xr-x	2022-05-16 17:46
eximconfgen	1.32 KB	-rwxr-xr-x	2022-05-16 17:46
eximstats_spam_check	867 B	-rwxr-xr-x	2022-05-16 17:46
export_horde_calendars_to_ics	15.07 KB	-rwxr-xr-x	2023-08-01 11:30
export_horde_contacts_to_vcf	13.94 KB	-rwxr-xr-x	2023-05-06 10:14
expunge_expired_certificates_from_sslstorage	3.56 KB	-rwxr-xr-x	2022-05-16 17:46
expunge_expired_pkgacct_sessions	852 B	-rwxr-xr-x	2022-05-16 17:46
expunge_expired_transfer_sessions	1.06 KB	-rwxr-xr-x	2022-05-16 17:46
fastmail	5.16 KB	-rwxr-xr-x	2022-05-16 17:46
featuremod	1.92 KB	-rwxr-xr-x	2022-05-16 17:46
fetchfile	422 B	-rwxr-xr-x	2022-05-16 17:46
find_and_fix_rpm_issues	6.99 KB	-rwxr-xr-x	2022-05-16 17:46
find_outdated_services	6.06 KB	-rwxr-xr-x	2025-04-01 22:56
find_pids_with_inotify_watch_on_path	3.66 KB	-rwxr-xr-x	2022-05-16 17:46
fix-cpanel-perl	28.94 KB	-rwxr-xr-x	2025-10-17 11:30
fix-listen-on-localhost	3.52 KB	-rwxr-xr-x	2022-05-16 17:46
fix-web-vhost-configuration	6.15 KB	-rwxr-xr-x	2022-05-16 17:46
fix_addon_permissions	7.68 KB	-rwxr-xr-x	2022-05-16 17:46
fix_dns_zone_ttls	1.34 KB	-rwxr-xr-x	2022-05-16 17:46
fix_innodb_tables	4.05 KB	-rwxr-xr-x	2022-05-16 17:46
fix_reseller_acls	10.88 KB	-rwxr-xr-x	2022-05-16 17:47
fixetchosts	4.32 KB	-rwxr-xr-x	2022-05-16 17:47
fixheaders	572 B	-rwxr-xr-x	2022-05-16 17:46
fixmailinglistperms	1008 B	-rwxr-xr-x	2022-05-16 17:46
fixmailman	2.09 KB	-rwxr-xr-x	2022-05-16 17:46
fixnamedviews	1.22 KB	-rwxr-xr-x	2022-05-16 17:46
fixndc	413 B	-rwxr-xr-x	2022-05-16 17:47
fixquotas	18.47 KB	-rwxr-xr-x	2025-04-01 22:56
fixrelayd	1.74 KB	-rwxr-xr-x	2022-05-16 17:46
fixrndc	16.39 KB	-rwxr-xr-x	2025-04-01 22:56
fixtar	503 B	-rwxr-xr-x	2022-05-16 17:46
fixtlsversions	4.7 KB	-rwxr-xr-x	2022-05-16 17:46
fixvaliases	2 KB	-rwxr-xr-x	2022-05-16 17:46
fixwebalizer	966 B	-rwxr-xr-x	2022-05-16 17:47
forcelocaldomain	895 B	-rwxr-xr-x	2022-05-16 17:46
ftpfetch	2.2 KB	-rwxr-xr-x	2020-12-20 04:47
ftpquotacheck	8.31 KB	-rwxr-xr-x	2022-05-16 17:47
ftpsfetch	2.36 KB	-rwxr-xr-x	2020-12-20 04:47
ftpupdate	261 B	-rwxr-xr-x	2020-12-20 04:54
gather_update_log_stats	4.25 KB	-rwx------	2026-02-16 21:57
gather_update_logs_setupcrontab	5.45 KB	-rwx------	2026-02-16 21:57
gemwrapper	1.74 KB	-rwxr-xr-x	2022-05-16 17:46
gencrt	6.26 KB	-rwxr-xr-x	2022-05-16 17:46
generate_account_suspension_include	5.7 KB	-rwxr-xr-x	2022-05-16 17:47
generate_google_drive_credentials	1.11 KB	-rwxr-xr-x	2022-05-16 17:47
generate_google_drive_oauth_uri	984 B	-rwxr-xr-x	2022-05-16 17:46
generate_maildirsize	13.94 KB	-rwxr-xr-x	2023-03-11 10:28
gensysinfo	1.16 KB	-rwxr-xr-x	2022-05-16 17:46
get_locale_from_legacy_name_info	1.99 KB	-rwxr-xr-x	2022-05-16 17:46
getremotecpmove	12.67 KB	-rwxr-xr-x	2022-09-24 10:10
grpck	1.19 KB	-rwxr-xr-x	2022-05-16 17:46
hackcheck	3.02 KB	-rwxr-xr-x	2022-05-16 17:46
hook	1.45 KB	-rwxr-xr-x	2022-05-16 17:46
httpspamdetect	2.66 KB	-rwxr-xr-x	2022-05-16 17:46
hulk-unban-ip	3.96 MB	-rwx------	2025-10-17 11:30
import_exim_data	8.39 KB	-rwxr-xr-x	2022-09-24 10:10
increase_filesystem_limits	891 B	-rwxr-xr-x	2022-05-16 17:46
initacls	4.99 KB	-rwxr-xr-x	2022-05-16 17:46
initfpsuexec	444 B	-rwxr-xr-x	2022-05-16 17:47
initialize_360monitoring	2.76 KB	-rwx------	2025-11-13 13:58
initquotas	19.47 KB	-rwxr-xr-x	2022-05-16 17:46
initsuexec	4.03 KB	-rwxr-xr-x	2022-05-16 17:46
install_cpanel_analytics	1.93 KB	-rwxr-xr-x	2023-05-06 10:14
install_dovecot_fts	1.57 KB	-rwxr-xr-x	2022-05-16 17:46
install_plugin	2.8 KB	-rwxr-xr-x	2022-09-24 10:10
installpkg	575 B	-rwxr-xr-x	2022-05-16 17:46
installpostgres	6.56 KB	-rwxr-xr-x	2022-05-16 17:46
installsqlite3	1.82 KB	-rwxr-xr-x	2022-05-16 17:46
ipcheck	3.93 KB	-rwxr-xr-x	2022-05-16 17:46
ipusage	7.45 KB	-rwxr-xr-x	2022-05-16 17:47
isdedicatedip	602 B	-rwxr-xr-x	2022-05-16 17:46
jetbackup-check	3.69 KB	-rwxr-xr-x	2022-05-16 17:47
killdns	422 B	-rwxr-xr-x	2022-05-16 17:46
killdns-dnsadmin	1.15 KB	-rwxr-xr-x	2022-05-16 17:47
killmysqluserprivs	433 B	-rwxr-xr-x	2022-05-16 17:46
killmysqlwildcard	1.15 KB	-rwxr-xr-x	2022-05-16 17:46
killpvhost	853 B	-rwxr-xr-x	2022-05-16 17:46
killspamkeys	937 B	-rwxr-xr-x	2022-05-16 17:46
link_3rdparty_binaries	1.24 KB	-rwxr-xr-x	2022-07-19 11:30
linksubemailtomainacct	3.17 KB	-rwxr-xr-x	2022-05-16 17:46
listcheck	538 B	-rwxr-xr-x	2022-05-16 17:46
listsubdomains	1.05 KB	-rwxr-xr-x	2022-05-16 17:47
litespeed-check	3.86 KB	-rwxr-xr-x	2022-05-16 17:46
locale_export	4.82 KB	-rwxr-xr-x	2022-05-16 17:46
locale_import	4.35 KB	-rwxr-xr-x	2022-05-16 17:46
locale_info	3.99 KB	-rwxr-xr-x	2022-05-16 17:46
logo.dat	205 B	-rw-r--r--	2017-06-12 18:25
magicloader	1.94 KB	-rwxr-xr-x	2022-05-16 17:46
maildir_converter	6.08 KB	-rwxr-xr-x	2022-05-16 17:47
mailperm	16.53 KB	-rwxr-xr-x	2025-04-01 22:56
mailscannerupdate	2.42 KB	-rwxr-xr-x	2022-05-16 17:46
mainipcheck	10 KB	-rwxr-xr-x	2022-05-16 17:46
maintenance	46.87 KB	-rwxr-xr-x	2025-04-01 22:56
make_config	407 B	-rw-r--r--	2017-06-12 18:25
make_hostname_unowned	1.16 KB	-rwxr-xr-x	2022-05-16 17:46
manage_extra_marketing	12.76 KB	-rwx------	2026-02-16 22:13
manage_greylisting	16.19 KB	-rwxr-xr-x	2022-09-24 10:10
manage_mysql_profiles	16.33 KB	-rwxr-xr-x	2025-04-01 22:56
migrate-pdns-conf	9.83 KB	-rwxr-xr-x	2024-09-19 11:30
migrate_legacy_wordpress_to_modern_wordpress	12.99 KB	-rwx------	2025-05-19 04:08
migrate_local_ini_to_php_ini	7.41 KB	-rwxr-xr-x	2022-05-16 17:46
migrate_whmtheme_file_to_userdata	2.95 KB	-rwxr-xr-x	2022-05-16 17:46
mkwwwacctconf	2.33 KB	-rwxr-xr-x	2023-03-11 10:28
modify_accounts	4.09 KB	-rwxr-xr-x	2022-09-24 10:10
modify_featurelist	10.31 KB	-rwx------	2026-02-16 22:13
modify_packages	3.65 KB	-rwxr-xr-x	2022-09-24 10:10
modsec_vendor	15.63 KB	-rwxr-xr-x	2022-05-16 17:46
mysqlconnectioncheck	6.55 KB	-rwxr-xr-x	2022-05-16 17:46
mysqlpasswd	4.09 KB	-rwxr-xr-x	2022-05-16 17:46
named.ca	1.57 KB	-rw-r--r--	2017-06-12 18:25
named.rfc1912.zones	774 B	-rw-r--r--	2020-12-20 04:08
notify_expiring_certificates	9.37 KB	-rwxr-xr-x	2022-07-19 11:30
notify_expiring_certificates_on_linked_nodes	1.33 KB	-rwxr-xr-x	2022-09-24 10:10
oopscheck	1.12 KB	-rwxr-xr-x	2022-05-16 17:46
optimize_eximstats	3.88 KB	-rwxr-xr-x	2022-05-16 17:46
patch_mail_spamassassin_compiledregexps_body_0	2.39 KB	-rwxr-xr-x	2022-05-16 17:46
patchfdsetsize	2.72 KB	-rwxr-xr-x	2022-05-16 17:46
pedquota	2.26 KB	-rwxr-xr-x	2022-05-16 17:47
perform_sqlite_auto_rebuild_db_maintenance	2.2 KB	-rwxr-xr-x	2022-05-16 17:46
perlinstaller	528 B	-rwxr-xr-x	2022-05-16 17:46
perlmods	1.18 KB	-rwxr-xr-x	2022-05-16 17:46
php_fpm_config	9.73 KB	-rwxr-xr-x	2022-05-16 17:46
phpini_tidy	687 B	-rwxr-xr-x	2022-05-16 17:46
pkgacct	87.82 KB	-rwxr-xr-x	2023-05-06 10:14
post_snapshot	3.16 KB	-rwxr-xr-x	2023-03-11 10:28
post_sync_cleanup	6.09 KB	-rwxr-xr-x	2022-05-16 17:46
posteasyapache	123 B	-rwxr-xr-x	2026-01-26 14:49
postkillacct	85 B	-rwxr-xr-x	2026-01-30 12:30
postmodifyacct	12 B	-rwxr-xr-x	2026-01-30 12:30
postrestoreacct	12 B	-rwxr-xr-x	2026-01-26 14:49
postupcp	373 B	-rwxr-xr-x	2026-02-17 12:31
postupcp.cloudlinux-linksafe.bak	52 B	-rwxr-xr-x	2017-07-10 20:09
postwwwacct	148 B	-rwxr-xr-x	2026-01-30 12:30
prekillacct	12 B	-rwxr-xr-x	2026-01-30 12:30
preupcp	12 B	-rwxr-xr-x	2026-01-30 12:30
primary_virtual_host_migration	2.44 KB	-rwxr-xr-x	2022-05-16 17:46
process_pending_cpanel_php_pear_registration	2.72 KB	-rwxr-xr-x	2025-04-01 22:56
process_site_templates	7.27 KB	-rwxr-xr-x	2022-05-16 17:46
proxydomains	9.34 KB	-rwxr-xr-x	2022-05-16 17:46
ptycheck	724 B	-rwxr-xr-x	2022-05-16 17:46
purge_modsec_log	1.53 KB	-rwxr-xr-x	2022-05-16 17:46
purge_old_config_caches	2.08 KB	-rwxr-xr-x	2022-05-16 17:46
pwck	708 B	-rwxr-xr-x	2022-05-16 17:46
quickdnslookup	1.13 KB	-rwxr-xr-x	2022-05-16 17:46
quickwhoisips	2.29 KB	-rwxr-xr-x	2022-09-24 10:10
quota_auto_fix	1.41 KB	-rwxr-xr-x	2022-05-16 17:46
quotacheck	22.36 KB	-rwxr-xr-x	2022-09-24 10:10
rawchpass	460 B	-rwxr-xr-x	2022-05-16 17:46
rdate	4.8 KB	-rwxr-xr-x	2022-09-24 10:10
realadduser	5.61 KB	-rwxr-xr-x	2022-05-16 17:47
realchpass	3.26 KB	-rwxr-xr-x	2022-05-16 17:46
realperlinstaller	5.67 KB	-rwxr-xr-x	2022-05-16 17:46
realrawchpass	425 B	-rwxr-xr-x	2022-05-16 17:46
rebuild_available_addons_packages_cache	1.27 KB	-rwxr-xr-x	2022-05-16 17:46
rebuild_available_rpm_addons_cache	1.27 KB	-rwxr-xr-x	2022-05-16 17:46
rebuild_bandwidthdb_root_cache	1.45 KB	-rwxr-xr-x	2022-05-16 17:46
rebuild_dbmap	5.8 KB	-rwxr-xr-x	2022-05-16 17:46
rebuild_provider_openid_connect_links_db	1.01 KB	-rwxr-xr-x	2022-05-16 17:47
rebuild_whm_chrome	2.22 KB	-rwxr-xr-x	2022-05-16 17:46
rebuilddnsconfig	26.42 KB	-rwxr-xr-x	2025-04-01 22:56
rebuildhttpdconf	2.6 KB	-rwxr-xr-x	2022-05-16 17:46
rebuildinstalledssldb	2.85 KB	-rwxr-xr-x	2022-05-16 17:47
rebuildippool	509 B	-rwxr-xr-x	2022-05-16 17:46
rebuilduserssldb	948 B	-rwxr-xr-x	2022-05-16 17:47
refresh-dkim-validity-cache	5.97 KB	-rwxr-xr-x	2022-05-16 17:46
regenerate_tokens	2.18 KB	-rwxr-xr-x	2022-09-24 10:10
remote_log_transfer	11.6 KB	-rwxr-xr-x	2023-03-11 10:28
remove_dovecot_index_files	5.89 KB	-rwxr-xr-x	2022-05-16 17:46
removeacct	23.11 MB	-rwx------	2025-10-17 11:30
rescan_user_dovecot_fts	2.98 KB	-rwxr-xr-x	2022-05-16 17:46
reset_mail_quotas_to_sane_values	6.82 KB	-rwxr-xr-x	2022-05-16 17:46
resetmailmanurls	2.03 KB	-rwxr-xr-x	2022-05-16 17:46
resetquotas	4.61 KB	-rwxr-xr-x	2025-04-01 22:56
restartsrv	3.19 KB	-rwxr-xr-x	2025-04-01 22:56
restartsrv_apache	422 B	-rwxr-xr-x	2022-05-16 17:46
restartsrv_apache_php_fpm	10.15 MB	-rwxr-xr-x	2025-10-17 11:30
restartsrv_base	10.15 MB	-rwxr-xr-x	2025-10-17 11:30
restartsrv_bind	10.15 MB	-rwxr-xr-x	2025-10-17 11:30
restartsrv_chkservd	427 B	-rwxr-xr-x	2022-05-16 17:46
restartsrv_clamd	10.15 MB	-rwxr-xr-x	2025-10-17 11:30
restartsrv_cpanel_dovecot_solr	10.15 MB	-rwxr-xr-x	2025-10-17 11:30
restartsrv_cpanel_php_fpm	10.15 MB	-rwxr-xr-x	2025-10-17 11:30
restartsrv_cpanellogd	10.15 MB	-rwxr-xr-x	2025-10-17 11:30
restartsrv_cpdavd	10.15 MB	-rwxr-xr-x	2025-10-17 11:30
restartsrv_cpgreylistd	10.15 MB	-rwxr-xr-x	2025-10-17 11:30
restartsrv_cphulkd	10.15 MB	-rwxr-xr-x	2025-10-17 11:30
restartsrv_cpipv6	10.15 MB	-rwxr-xr-x	2025-10-17 11:30
restartsrv_cpsrvd	10.15 MB	-rwxr-xr-x	2025-10-17 11:30
restartsrv_crond	10.15 MB	-rwxr-xr-x	2025-10-17 11:30
restartsrv_dnsadmin	10.15 MB	-rwxr-xr-x	2025-10-17 11:30
restartsrv_dovecot	10.15 MB	-rwxr-xr-x	2025-10-17 11:30
restartsrv_exim	10.15 MB	-rwxr-xr-x	2025-10-17 11:30
restartsrv_eximstats	504 B	-rwxr-xr-x	2022-05-16 17:46
restartsrv_ftpd	426 B	-rwxr-xr-x	2022-05-16 17:46
restartsrv_ftpserver	911 B	-rwxr-xr-x	2022-05-16 17:47
restartsrv_httpd	10.15 MB	-rwxr-xr-x	2025-10-17 11:30
restartsrv_imap	437 B	-rwxr-xr-x	2022-05-16 17:46
restartsrv_inetd	2.47 KB	-rwxr-xr-x	2022-09-24 10:10
restartsrv_ipaliases	10.15 MB	-rwxr-xr-x	2025-10-17 11:30
restartsrv_lmtp	437 B	-rwxr-xr-x	2022-05-16 17:46
restartsrv_mailman	10.15 MB	-rwxr-xr-x	2025-10-17 11:30
restartsrv_mysql	10.15 MB	-rwxr-xr-x	2025-10-17 11:30
restartsrv_named	579 B	-rwxr-xr-x	2025-04-01 22:56
restartsrv_nscd	10.15 MB	-rwxr-xr-x	2025-10-17 11:30
restartsrv_p0f	10.15 MB	-rwxr-xr-x	2025-10-17 11:30
restartsrv_pdns	10.15 MB	-rwxr-xr-x	2025-10-17 11:30
restartsrv_pop3	437 B	-rwxr-xr-x	2022-05-16 17:46
restartsrv_postgres	427 B	-rwxr-xr-x	2022-05-16 17:47
restartsrv_postgresql	10.15 MB	-rwxr-xr-x	2025-10-17 11:30
restartsrv_powerdns	442 B	-rwxr-xr-x	2022-05-16 17:46
restartsrv_proftpd	10.15 MB	-rwxr-xr-x	2025-10-17 11:30
restartsrv_pureftpd	10.15 MB	-rwxr-xr-x	2025-10-17 11:30
restartsrv_queueprocd	10.15 MB	-rwxr-xr-x	2025-10-17 11:30
restartsrv_rsyslog	10.15 MB	-rwxr-xr-x	2025-10-17 11:30
restartsrv_rsyslogd	437 B	-rwxr-xr-x	2022-05-16 17:46
restartsrv_spamd	10.15 MB	-rwxr-xr-x	2025-10-17 11:30
restartsrv_sshd	10.15 MB	-rwxr-xr-x	2025-10-17 11:30
restartsrv_syslogd	2.4 KB	-rwxr-xr-x	2022-07-19 11:30
restartsrv_tailwatchd	10.15 MB	-rwxr-xr-x	2025-10-17 11:30
restartsrv_unknown	10.15 MB	-rwxr-xr-x	2025-10-17 11:30
restartsrv_xinetd	422 B	-rwxr-xr-x	2022-05-16 17:46
restorecpuserfromcache	1.96 KB	-rwxr-xr-x	2022-05-16 17:46
restorepkg	37.58 MB	-rwx------	2025-11-06 12:30
rfc1912_zones.tar	10 KB	-rw-r--r--	2017-06-12 18:25
rpmup	5.07 KB	-rwxr-xr-x	2025-04-01 22:56
rsync-user-homedir.pl	5.76 KB	-rwxr-xr-x	2022-05-16 17:46
run_if_exists	512 B	-rwxr-xr-x	2022-05-16 17:46
run_plugin_lifecycle	3.72 KB	-rwx------	2026-02-16 22:13
runstatsonce	440 B	-rwxr-xr-x	2022-05-16 17:46
runweblogs	1.02 KB	-rwxr-xr-x	2022-05-16 17:47
sa-update_wrapper	3.34 KB	-rwxr-xr-x	2022-05-16 17:46
safetybits.pl	844 B	-rwxr-xr-x	2022-05-16 17:47
secureit	4.72 KB	-rwxr-xr-x	2022-05-16 17:46
securemysql	4.4 KB	-rwxr-xr-x	2025-04-01 22:56
securerailsapps	3.58 KB	-rwxr-xr-x	2022-05-16 17:46
securetmp	15.99 KB	-rwxr-xr-x	2023-08-01 11:30
selectorunparkhook.py	1.7 KB	-rwxr-xr-x	2026-01-30 12:30
sendicq	474 B	-rwxr-xr-x	2022-05-16 17:47
servicedomains	9.34 KB	-rwxr-xr-x	2022-05-16 17:46
set_mailman_archive_perms	1.75 KB	-rwxr-xr-x	2022-05-16 17:46
setpostgresconfig	6.04 KB	-rwxr-xr-x	2022-05-16 17:46
setup_greylist_db	16.19 KB	-rwxr-xr-x	2022-09-24 10:10
setup_modsec_db	1.3 KB	-rwxr-xr-x	2022-05-16 17:47
setup_systemd_timer_for_plugins	3.92 KB	-rwx------	2026-02-16 22:13
setupftpserver	10.47 KB	-rwxr-xr-x	2022-05-16 17:47
setupmailserver	9.55 KB	-rwxr-xr-x	2022-05-16 17:46
setupnameserver	12.49 KB	-rwxr-xr-x	2025-04-01 22:56
shrink_modsec_ip_database	12.97 KB	-rwxr-xr-x	2022-05-16 17:46
simpleps	3.05 KB	-rwxr-xr-x	2022-05-16 17:47
slurp_exim_mainlog	5.78 KB	-rwxr-xr-x	2022-05-16 17:47
smartcheck	15.13 KB	-rwxr-xr-x	2022-05-16 17:47
smtpmailgidonly	8.15 KB	-rwxr-xr-x	2023-03-11 10:28
snapshot_prep	5.88 KB	-rwxr-xr-x	2023-03-11 10:28
spamassassin_dbm_cleaner	5.85 KB	-rwxr-xr-x	2022-09-24 10:10
spamassassindisable	3.74 KB	-rwxr-xr-x	2022-09-24 10:10
spamboxdisable	2.27 KB	-rwxr-xr-x	2022-09-24 10:10
sshcontrol	14.38 KB	-rwxr-xr-x	2022-05-16 17:47
ssl_crt_status	3.84 KB	-rwxr-xr-x	2022-05-16 17:47
suspendacct	18.01 KB	-rwxr-xr-x	2023-05-06 10:14
suspendmysqlusers	4.78 KB	-rwxr-xr-x	2025-04-01 22:56
swapip	3.82 KB	-rwxr-xr-x	2022-05-16 17:47
sync-mysql-users-from-grants	1.2 KB	-rwxr-xr-x	2022-05-16 17:46
sync_child_accounts	1.77 KB	-rwxr-xr-x	2022-05-16 17:47
sync_contact_emails_to_cpanel_users_files	1.14 KB	-rwxr-xr-x	2022-09-24 10:10
synccpaddonswithsqlhost	6.59 KB	-rwxr-xr-x	2022-05-16 17:47
synctransfers	1.92 KB	-rwxr-xr-x	2022-05-16 17:47
syslog_check	1.36 KB	-rwxr-xr-x	2022-05-16 17:46
sysup	645 B	-rwxr-xr-x	2022-05-16 17:46
test_sa_compiled	1.07 KB	-rwxr-xr-x	2022-05-16 17:47
transfer_account_as_user	2.34 KB	-rwxr-xr-x	2022-05-16 17:46
transfer_accounts_as_root	4.76 KB	-rwxr-xr-x	2022-05-16 17:46
transfer_in_progress	3.08 KB	-rwxr-xr-x	2022-05-16 17:46
transfer_in_progress.pod	312 B	-rw-r--r--	2017-06-12 18:25
transfermysqlusers	9.72 MB	-rwx------	2025-10-17 11:30
try-later	7.95 KB	-rwxr-xr-x	2022-05-16 17:46
unblockip	667 B	-rwxr-xr-x	2022-05-16 17:46
uninstall_cpanel_analytics	1.2 KB	-rwxr-xr-x	2022-05-16 17:46
uninstall_dovecot_fts	562 B	-rwxr-xr-x	2022-05-16 17:47
uninstall_plugin	2.84 KB	-rwxr-xr-x	2022-09-24 10:10
unlink_service_account	2.62 KB	-rwxr-xr-x	2022-05-16 17:46
unpkgacct	4.6 KB	-rwxr-xr-x	2022-05-16 17:46
unslavenamedconf	863 B	-rwxr-xr-x	2022-05-16 17:47
unsuspendacct	17.8 KB	-rwxr-xr-x	2025-04-01 22:56
unsuspendmysqlusers	7.1 KB	-rwxr-xr-x	2025-04-01 22:57
upcp	31.76 KB	-rwxr-xr-x	2025-04-01 22:56
upcp-running	2.7 KB	-rwxr-xr-x	2022-05-16 17:46
upcp.static	716.78 KB	-rwxr-xr-x	2025-11-06 12:30
update-packages	5.07 KB	-rwxr-xr-x	2025-04-01 22:56
update_apachectl	480 B	-rwxr-xr-x	2022-05-16 17:46
update_db_cache	430 B	-rwxr-xr-x	2022-05-16 17:47
update_dkim_keys	1.45 KB	-rwxr-xr-x	2022-05-16 17:46
update_exim_rejects	1.21 KB	-rwxr-xr-x	2022-05-16 17:46
update_existing_mail_quotas_for_account	4.78 KB	-rwxr-xr-x	2022-05-16 17:46
update_feature_flags	957 B	-rwxr-xr-x	2025-04-01 22:56
update_known_proxy_ips	1002 B	-rwxr-xr-x	2022-05-16 17:46
update_local_rpm_versions	4.56 KB	-rwxr-xr-x	2023-03-11 10:28
update_mailman_cache	8.34 KB	-rwxr-xr-x	2022-05-16 17:46
update_mysql_systemd_config	1.25 KB	-rwxr-xr-x	2022-05-16 17:47
update_neighbor_netblocks	487 B	-rwxr-xr-x	2022-05-16 17:46
update_sa_config	2.14 KB	-rwxr-xr-x	2022-05-16 17:46
update_spamassassin_config	10.73 KB	-rwxr-xr-x	2023-03-11 10:28
update_users_jail	691 B	-rwxr-xr-x	2022-05-16 17:46
update_users_vhosts	801 B	-rwxr-xr-x	2022-05-16 17:47
updatedomainips	605 B	-rwxr-xr-x	2022-05-16 17:46
updatenameserverips	1.66 KB	-rwxr-xr-x	2022-05-16 17:46
updatenow	5.18 KB	-rwxr-xr-x	2022-09-24 10:10
updatenow.static	1.97 MB	-rwxr-xr-x	2025-11-06 12:30
updatesigningkey	1.95 KB	-rwxr-xr-x	2022-05-16 17:47
updatessldomains	1.81 KB	-rwxr-xr-x	2022-05-16 17:46
updatesupportauthorizations	2.49 KB	-rwxr-xr-x	2022-05-16 17:46
updateuserdatacache	2.47 KB	-rwxr-xr-x	2022-05-16 17:46
updateuserdomains	774 B	-rwxr-xr-x	2022-05-16 17:47
upgrade_bandwidth_dbs	2.22 KB	-rwxr-xr-x	2022-05-16 17:47
upgrade_subaccount_databases	2.73 KB	-rwxr-xr-x	2022-05-16 17:46
userdata_wildcard_cleanup	5.74 KB	-rwxr-xr-x	2022-05-16 17:47
userdirctl	5.01 KB	-rwxr-xr-x	2022-05-16 17:46
validate_sshkey_passphrase	1.21 KB	-rwxr-xr-x	2022-05-16 17:46
verify_api_spec_files	757 B	-rwxr-xr-x	2022-05-16 17:47
verify_pidfile	1.96 KB	-rwxr-xr-x	2022-05-16 17:46
verify_vhost_includes	7.34 KB	-rwxr-xr-x	2022-09-24 10:10
vps_optimizer	7.82 KB	-rwxr-xr-x	2022-05-16 17:46
vzzo-fixer	725 B	-rwxr-xr-x	2022-05-16 17:46
whmlogin	2.33 KB	-rwxr-xr-x	2022-05-16 17:46
whoowns	1.13 KB	-rwxr-xr-x	2017-06-12 18:25
wwwacct	26.95 MB	-rwx------	2025-10-17 11:30
wwwacct2	88 B	-rwxr-xr-x	2017-06-12 18:25
xfer_rcube_schema_migrate.pl	2.4 KB	-rwxr-xr-x	2022-05-16 17:47
xfer_rcube_uid_resolver.pl	1.8 KB	-rwxr-xr-x	2022-05-16 17:46
xferpoint	3.13 KB	-rwxr-xr-x	2022-05-16 17:46
xfertool	16.23 KB	-rwxr-xr-x	2025-04-01 22:56
zoneexists	800 B	-rwxr-xr-x	2022-05-16 17:46

Rename

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

# cpanel - scripts/cpuser_port_authority           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

use strict;
use warnings;

package scripts::cpuser_port_authority;

use Cpanel::JSON                    ();
use Cpanel::Transaction::File::JSON ();
use Cpanel::Config::LoadUserDomains ();
use Cpanel::Debug                   ();
use Cpanel::Validate::Username      ();
use Cpanel::FileUtils::Write        ();
use Cpanel::PwCache                 ();

our $port_authority_conf = "/etc/cpanel/cpuser_port_authority.json";

my $cmds = {
    give => {
        code     => \&give,
        clue     => "give <user> <number of ports> [--service=my_app]",
        abstract => 'Give a user 1 or more ports.',
        help     => "Give a user 1 or more ports, that only they can run a service on.\n  --service=<NAME>  this will tie a service name, as appropriate for scripts/cpuser_service_manager, to the ports for reference",
    },
    take => {
        code     => \&take,
        clue     => "take <user> <port-number> [<port-number> <port-number> …]",
        abstract => "Take 1 or more ports from a user.",
        help     => "Take 1 or more ports from a user. Errors out completely if any of the given ports do not belong to them.",
    },
    list => {
        code     => \&list,
        clue     => "list [<user>]",
        abstract => "List port assignment information.",
        help     => "List port assignment information. If given a user it lists only that user’s information. The output is in human friendly JSON format.",
    },
    fw => {
        code     => \&fw,
        clue     => "fw",
        abstract => "Setup Firewall",
        help     => "Setup the firewall rules to match the configured port assignments",
    },
    user => {
        code     => \&user,
        clue     => "user (remove|change) <user> [<new_user>]",
        abstract => "Operate on a given user’s port assignments",
        help     => "Remove all ports owned by the given user. Change port ownership from <user> to <new_user>.",
    },
};

my $hint_blurb = "Usage: `$0 {command} …`.\n\tThis tool supports the following commands:";
my $opts       = {
    'help:pre_hint'  => $hint_blurb,
    'help:pre_help'  => "Various user-assigned-port related admin utilities\n\n$hint_blurb",
    default_commands => "help",
    alias            => { free => "take", firewall => "fw" },
};

run(@ARGV) if !caller;

sub run {
    my (@argv) = @_;
    die "This script should only be called as root\n" if $> != 0;

local $ENV{TERM} = $ENV{TERM} || "xterm-256color";    # non-CLI modulino avoid needless: Cannot find termcap: TERM not set at …/Term/ReadLine.pm line 373.
    require App::CmdDispatch;
    import App::CmdDispatch;

# need to have App::CmdDispatch do this automatically see CPANEL-22328
    if ( @argv && grep { defined && m/\A\-\-help\z/ } @argv ) {
        App::CmdDispatch->new( $cmds, $opts )->help();
        exit(0);
    }

my $orig_command_hint = \&App::CmdDispatch::command_hint;
    no warnings "redefine";
    local *App::CmdDispatch::command_hint = sub {
        $orig_command_hint->(@_);
        exit(1);
    };
    no warnings 'once';
    require App::CmdDispatch::IO;
    local *App::CmdDispatch::IO::print = sub {
        shift;
        if ( ref($@) && $@ =~ m/^App::CmdDispatch::Exception/ ) {
            CORE::print STDERR @_;
            return;
        }
        CORE::print(@_);
        return;
    };
    local *App::CmdDispatch::MinimalIO::print = \&App::CmdDispatch::IO::print;
    use warnings 'once';

# ^^^ /need to have App::CmdDispatch do this automatically see CPANEL-22328

if ( $ARGV[0] && $ARGV[0] eq 'help' ) {
        require Cpanel::Services::Firewall;
        if ( Cpanel::Services::Firewall::is_firewalld() ) {
            $opts->{'help:post_help'} = _get_firewalld_caveat();
        }
    }

my $app = App::CmdDispatch->new( $cmds, $opts );
    if ( ref( $app->{io} ) eq "1" ) {    # To work around https://rt.cpan.org/Ticket/Display.html?id=132309
        $app->{io} = bless {}, "App::CmdDispatch::MinimalIO";
    }
    return $app->run(@argv);
}

################
#### commands ##
################

sub give {
    my ( $app, $user, $count, @flags ) = @_;
    _validate_user_arg( $app, $user );

if ( !defined $count || $count !~ m/^[1-9][0-9]*$/ ) {
        _bail( $app, "The number of ports you want assigned must be a whole number greater than 0." );
    }

my @ports = _get_next_n_ports($count);          # dies if it can't get $count ports
    _add_conf( $app, $user => \@ports, @flags );    # dies if port is already assigned (i.e. raced from _get_next_n_ports()), dies if it can’t save

for my $port (@ports) {
        print "$port\n";
    }

_setup_firewall();
    return;
}

sub take {
    my ( $app, $user, @ports ) = @_;
    _validate_user_arg( $app, $user );

die "No ports given.\n" if !@ports;

my $transaction = Cpanel::Transaction::File::JSON->new(
        path        => $port_authority_conf,
        permissions => 0640,
    );

my $data = $transaction->get_data();
    my $hr   = ref($data) eq 'HASH' ? $data : {};

for my $port (@ports) {
        if ( !defined $port || $port !~ m/^[1-9][0-9]*$/ ) {
            die "Invalid port.\n";
        }
        elsif ( !exists $hr->{$port} ) {
            die "“$port” is not assigned.\n";
        }
        elsif ( $hr->{$port}{owner} ne $user ) {
            die "“$port” is not owned by “$user”.\n";
        }
        else {
            delete $hr->{$port};
        }
    }

$transaction->set_data($hr);
    _write_transaction($transaction);
    _setup_firewall();
    return;
}

sub user {
    my ( $app, $action, $user, $new_user ) = @_;

die "invalid action for `user` subcommand\n" if !defined $action || ( $action ne "remove" && $action ne "change" );

# This function is used in 2 ways, from the command line where multiple actions are
    # allowed.   And from the Task processor, where it is in reaction to a modify account.
    # In the latter case, the action will be "change", and the original user will have
    # already been changed to new_user, and is no longer valid.

if (   $action eq "change"
        && defined $user
        && defined $new_user
        && Cpanel::Validate::Username::user_exists($new_user)
        && !Cpanel::Validate::Username::user_exists($user) ) {
        _validate_user_arg( $app, $new_user );
    }
    else {
        _validate_user_arg( $app, $user );
    }

if ( $action eq "change" ) {
        die "New username is not valid.\n" if !defined $new_user || !Cpanel::Validate::Username::is_strictly_valid($new_user);
        die "Too many arguments.\n"        if @_ > 4;
    }
    else {
        die "Too many arguments.\n" if @_ > 3;
    }

my $transaction = Cpanel::Transaction::File::JSON->new(
        path        => $port_authority_conf,
        permissions => 0640,
    );

my $data = $transaction->get_data();
    my $hr   = ref($data) eq 'HASH' ? $data : {};

my $count = 0;
    for my $port ( sort keys %{$hr} ) {
        if ( $hr->{$port}{owner} eq $user ) {
            $count++;
            if ( $action eq "change" ) {
                $hr->{$port}{owner} = $new_user;
            }
            else {
                delete $hr->{$port};
            }
        }
    }

if ($count) {
        $transaction->set_data($hr);
        _write_transaction($transaction);
        _setup_firewall();
    }
    else {
        eval { $transaction->close_or_die; };
        warn $@ if $@;
    }

print "", ( $action eq "change" ? "Updated" : "Removed" ), ": $count\n";
    return;
}

sub list {
    my ( $app, $user ) = @_;

my $hr = eval { Cpanel::JSON::LoadFile($port_authority_conf) } || {};

if ( $user || @_ == 2 ) {
        _validate_user_arg( $app, $user );

for my $port ( keys %{$hr} ) {
            delete $hr->{$port} if $hr->{$port}{owner} ne $user;
        }
    }

print Cpanel::JSON::pretty_canonical_dump($hr);

return;
}

sub fw {
    _setup_firewall();
    return;
}

##############################
#### used by task processor ##
##############################

sub call_ubic {
    my ( $user, @args ) = @_;

my $curhome = Cpanel::PwCache::gethomedir($user);
    if ( -s "$curhome/.ubic.cfg" ) {
        require Cpanel::AccessIds;
        Cpanel::AccessIds::do_as_user_with_exception(
            $user,
            sub {
                local $ENV{HOME} = $curhome;

# would be cool if Cpanel::FindBin (or whatever) did this for us: CPANEL-22345 and CPANEL-23118
                my $real_perl  = readlink("/usr/local/cpanel/3rdparty/bin/perl");
                my $cp_bin_dir = $real_perl;
                $cp_bin_dir =~ s{/perl$}{};
                local $ENV{PATH} = "$cp_bin_dir:$ENV{PATH}";    # not only does this allow it to find our ubic-admin, it allows its env-shebang to pick up our perl

system( "ubic", @args );
            }
        );
    }

return;
}

sub update_ubic_conf {
    my ( $user, $orig_user ) = @_;

my $newhome = Cpanel::PwCache::gethomedir($user);
    die "Invalid new username\n" if ( !$newhome || !-d $newhome );

my $ubic_note     = "IMPORTANT = Do not edit this cPanel User Service Manager generated file!";    # from scripts/cpuser_service_manager, DO NOT prepend a '#'
    my $ubic_cnf_path = "$newhome/.ubic.cfg";

if ( -s $ubic_cnf_path ) {
        require Cpanel::LoadFile;
        require Cpanel::AccessIds;
        Cpanel::AccessIds::do_as_user_with_exception(
            $user,
            sub {
                my $had_ubic_note = 0;
                my $new_ubic      = "";
                for my $line ( split( /\n/, Cpanel::LoadFile::load($ubic_cnf_path) ) ) {
                    if ( $line =~ m/^\s*data_dir\s*=/ ) {
                        $new_ubic .= "data_dir = $newhome/ubic/data\n";
                    }
                    elsif ( $line =~ m/^\s*default_user\s*=/ ) {
                        $new_ubic .= "default_user = $user\n";
                    }
                    elsif ( $line =~ m/^\s*service_dir\s*=/ ) {
                        $new_ubic .= "service_dir = $newhome/ubic/service\n";
                    }
                    elsif ( $line eq $ubic_note ) {
                        $had_ubic_note++;
                        $new_ubic .= "$ubic_note\n";
                    }
                    else {
                        if ( $line ne "" ) {
                            warn "Custom line in $ubic_cnf_path may be incorrect:\n\t(Line: '$line')\n";

# could modify it but you get into a rats nest:
                            #   e.g. change homedir then username:
                            #     what happens when old name is foo and the new name if foo1:
                            #        /home/foo becomes /home/foo1
                            #        /home/foo1 becomes  /home/foo11
                            #   e.g. change username then homedir
                            #     what happens when old name is bar and the new homedir is /home2/bart
                            #     /home/bar becomes /home/bart
                            #     /home/bart becomes /home2/bartt
                            # they really shouldn't be editing this file anyway ¯\_(ツ)_/¯
                        }

$new_ubic .= "$line\n";
                    }
                }

if ( !$had_ubic_note ) {
                    $new_ubic = "$ubic_note\n$new_ubic";
                }

Cpanel::FileUtils::Write::overwrite( $ubic_cnf_path, $new_ubic );

my $ubic_update_service   = $newhome . "/ubic/service/ubic/update";
                my $ubic_watchdog_service = $newhome . "/ubic/service/ubic/watchdog";

foreach my $file ( $ubic_update_service, $ubic_watchdog_service ) {
                    if ( -e $file ) {
                        my $new_ubic      = "";
                        my $did_something = 0;
                        for my $line ( split( /\n/, Cpanel::LoadFile::load($file) ) ) {
                            my $working = $line;
                            if ( $working =~ m:'--stdout=/.+?/$orig_user/.*': ) {
                                $working =~ s:(--stdout=/.+?)/$orig_user/:$1/$user/:;
                            }
                            if ( $working =~ m:'--stderr=/.+?/$orig_user/.*': ) {
                                $working =~ s:(--stderr=/.+?)/$orig_user/:$1/$user/:;
                            }
                            $new_ubic .= $working;
                        }

Cpanel::FileUtils::Write::overwrite( $file, $new_ubic );
                    }
                }
            }
        );
    }

return;
}

###############
#### helpers ##
###############

sub _setup_firewall {

require Cpanel::Services::Firewall;
    if ( Cpanel::Services::Firewall::is_firewalld() ) {
        warn _get_firewalld_caveat() . "\n";
    }

print "Setting up firewall …\n";

require Capture::Tiny;
    my ( $out, $rv ) = Capture::Tiny::capture_merged( \&Cpanel::Services::Firewall::setup_firewall );

if ($rv) {    # setup_firewall() RV is suitable for exit($rv||0)
        warn "Firewall setup reported a problem. Please run /usr/local/cpanel/scripts/configure_firewall_for_cpanel to ensure the firewall is OK.\n";
        return;
    }
    else {
        print " … done.\n";
    }

return 1;
}

sub _validate_user_arg {
    my ( $app, $user ) = @_;

_bail( $app, "The user argument is missing." ) if !$user;

if ( $user ne "root" ) {
        my $user_lookup = Cpanel::Config::LoadUserDomains::loaduserdomains( undef, 0, 1 );
        _bail( $app, "The given user is not a cPanel user.\n" ) if !$user_lookup->{$user};
    }

return 1;
}

sub _get_next_n_ports {
    my ($n) = @_;

my ( $bottom_min, $bottom_max, $top_min, $top_max ) = _get_port_ranges();
    my $port;    # buffer

my @ports;
    for $port ( $bottom_min .. $bottom_max ) {
        push @ports, $port if !_is_port_assigned($port);
        last if @ports == $n;
    }

return @ports if @ports == $n;

if ( defined $top_min ) {
        for $port ( $top_min .. $top_max ) {
            push @ports, $port if !_is_port_assigned($port);
            last if @ports == $n;
        }
    }

die "Not enough free ports (wanted $n)\n" if @ports != $n;
    return @ports;
}

my $lookup_cache;

sub _add_conf {
    my ( $app, $user, $ports, @flags ) = @_;

# There is an old unused system (to be deprecated/removed via CPANEL-22447) that uses
    #    /var/cpanel/portassignments.db (YAML) && /etc/portassignments (key: value version of the .db file …)
    # We could import those here if they exist but probably YAGNI.

my $service;
    for my $flag (@flags) {
        if ( defined $flag && $flag =~ m/^\-\-service/ ) {
            $service = $flag;
            $service =~ s/^\-\-service//;
            $service =~ s/^=//;                              # do this sperately in case they just pass `--service` or `--service=`
            if ( $service !~ m/^[\w-]+(?:\.[\w-]+)*$/ ) {    # regexp is $service_name_re from Ubic.pm v1.60
                _bail( $app, "Invalid service name" );
            }
        }
    }

my $transaction = Cpanel::Transaction::File::JSON->new(
        path        => $port_authority_conf,
        permissions => 0640,
    );

my $data = $transaction->get_data();
    my $hr   = ref($data) eq 'HASH' ? $data : {};

for my $port ( @{$ports} ) {
        die "port “$port” already assigned (is someone else logged in as root and running this script?)\n" if exists $hr->{$port};
        $hr->{$port} = { owner => $user };
        $hr->{$port}{service} = $service if $service;
    }

$transaction->set_data($hr);
    _write_transaction($transaction);

return;
}

sub _write_transaction {
    my ($transaction) = @_;

eval {
        $transaction->save_pretty_canonical_or_die();
        $transaction->close_or_die();
    };
    warn $@ if $@;

$lookup_cache = undef;

return;
}

sub _get_cmd {
    return $cmds;
}

sub _bail {
    my ( $app, $msg ) = @_;
    chomp($msg);

# !$app for task processor
    die "$msg\n" if $ENV{ __PACKAGE__ . "::bail_die" } || !$app;    # for API calls, otherwise:

warn "$msg\n";
    $app->help();

# there is no return()ing from this lol
    exit(1);                                                        ## no critic qw(Cpanel::NoExitsFromSubroutines) the refactor here is risky
}

sub _is_port_assigned {
    my ($port) = @_;

if ( !$lookup_cache ) {
        $lookup_cache = eval { Cpanel::JSON::LoadFile($port_authority_conf) } || {};
    }

return exists $lookup_cache->{$port};
}

my ( $bottom_min, $bottom_max, $top_min, $top_max );

sub _get_port_ranges {
    if ( !defined $bottom_min ) {

# even if FTP is disabled ATM, it could be re-enabled (¿TODO/YAGNI? only factor these in if FTP is currently enabled
        my ( $passive_ftp_start, $passive_ftp_end ) = ( 49_152, 65_534 );

no warnings "redefine";
        local *Cpanel::Debug::log_warn = sub { };    # facepalm …
        require Cpanel::FtpUtils::Config;
        my $ftp_conf          = Cpanel::FtpUtils::Config->new->get_config;
        my $ftp_passive_range = $ftp_conf->{PassivePortRange} || $ftp_conf->{PassivePorts};
        if ($ftp_passive_range) {
            ( $passive_ftp_start, $passive_ftp_end ) = split( /\s+/, $ftp_passive_range );
        }

my ( $ephemeral_start, $ephemeral_end ) = ( 49_152, 65_535 );    # IANA defaults

require File::stat;
        if ( File::stat::stat("/proc/sys/net/ipv4/ip_local_port_range") ) {
            require Path::Tiny;
            my $ip_local_port_range_raw = Path::Tiny::path("/proc/sys/net/ipv4/ip_local_port_range")->slurp;
            chomp($ip_local_port_range_raw);
            ( $ephemeral_start, $ephemeral_end ) = split( /\s+/, $ip_local_port_range_raw );

if ( $ephemeral_start > $passive_ftp_start ) {
                $ephemeral_start = $passive_ftp_start;
            }

if ( $ephemeral_end < $passive_ftp_end ) {
                $ephemeral_end = $passive_ftp_end;
            }
        }

$ephemeral_start = 10_001               if $ephemeral_start < 10_001;
        $ephemeral_end   = $ephemeral_start + 1 if $ephemeral_end < $ephemeral_start;

( $bottom_min, $bottom_max, $top_min, $top_max ) = ( 10_000 => ( $ephemeral_start - 1 ), ( $ephemeral_end + 1 ) => 65535 );

if ( $ephemeral_end >= 65535 ) {
            ( $top_min, $top_max ) = ( undef, undef );
        }
    }

return ( $bottom_min, $bottom_max, $top_min, $top_max );
}

sub _silent_sys {
    my (@sys) = @_;
    require Capture::Tiny;
    my ( $out, $exit ) = Capture::Tiny::capture_merged( sub { system(@sys) } );
    die "`@sys` exited unclean ($exit)\n" if $exit;    #TODO/YAGNI: output $out if --verbose
    return;
}

sub _get_firewalld_caveat {

my $message = <<"END_FIREWALLD";
ℹ️  [Caveat] Currently, firewalld does not respect port ownership assignments.

To enforce port ownership, you must use iptables tables instead.

We will update this system when the functionality is available.
END_FIREWALLD

require Cpanel::Output::Formatted::Terminal;
    return Cpanel::Output::Formatted::Terminal->new->format_message( "bold black on_blue" => $message );
}