Linux ip-148-66-134-25.ip.secureserver.net 3.10.0-1160.119.1.el7.tuxcare.els10.x86_64 #1 SMP Fri Oct 11 21:40:41 UTC 2024 x86_64
Apache
: 148.66.134.25 | : 3.144.4.54
66 Domain
8.0.30
amvm
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
BLACK DEFEND!
README
+ Create Folder
+ Create File
/
usr /
local /
cpanel /
scripts /
[ HOME SHELL ]
Name
Size
Permission
Action
cpan_sandbox
[ DIR ]
drwxr-xr-x
php_sandbox
[ DIR ]
drwxr-xr-x
MirrorSearch_pingtest
2.38
KB
-rwxr-xr-x
activesync-invite-reply
1.69
KB
-rwxr-xr-x
add_dns
2.36
KB
-rwxr-xr-x
adddns
2.36
KB
-rwxr-xr-x
addpop
6.08
KB
-rwxr-xr-x
addsystemuser
3.27
KB
-rwxr-xr-x
adduser
92
B
-rwxr-xr-x
apachelimits
4.31
KB
-rwxr-xr-x
archive_sync_zones
3.02
KB
-rwxr-xr-x
auto-adjust-mysql-limits
1.81
KB
-rwxr-xr-x
autorepair
1.24
KB
-rwxr-xr-x
backups_clean_metadata_for_mis...
1.57
KB
-rwxr-xr-x
backups_create_metadata
15.75
KB
-rwxr-xr-x
backups_list_user_files
4.56
KB
-rwxr-xr-x
balance_linked_node_quotas
2.58
KB
-rwxr-xr-x
biglogcheck
1.69
KB
-rwxr-xr-x
build_bandwidthdb_root_cache_i...
1.52
KB
-rwxr-xr-x
build_cpnat
3.41
KB
-rwxr-xr-x
build_mail_sni
3.87
KB
-rwxr-xr-x
build_maxemails_config
1.14
KB
-rwxr-xr-x
builddovecotconf
6.76
KB
-rwxr-xr-x
buildeximconf
7
KB
-rwxr-xr-x
buildhttpdconf
2.6
KB
-rwxr-xr-x
buildnsdconf
1.01
KB
-rwxr-xr-x
buildpureftproot
539
B
-rwxr-xr-x
ccs-check
4.91
KB
-rwxr-xr-x
check_cpanel_pkgs
10.75
KB
-rwxr-xr-x
check_cpanel_rpms
218
B
-rwxr-xr-x
check_domain_tls_service_domai...
6.68
KB
-rwxr-xr-x
check_immutable_files
5.49
KB
-rwxr-xr-x
check_mail_spamassassin_compil...
187
B
-rwxr-xr-x
check_maxmem_against_domains_c...
3.57
KB
-rwxr-xr-x
check_mount_procfs
2.02
KB
-rwxr-xr-x
check_mysql
5.55
KB
-rwxr-xr-x
check_security_advice_changes
8.28
KB
-rwxr-xr-x
check_unmonitored_enabled_serv...
4.56
KB
-rwxr-xr-x
check_unreliable_resolvers
3.59
KB
-rwxr-xr-x
check_users_my_cnf
6.05
KB
-rwxr-xr-x
check_valid_server_hostname
7.66
KB
-rwxr-xr-x
checkalldomainsmxs
2.4
KB
-rwxr-xr-x
checkbashshell
1.18
KB
-rwxr-xr-x
checkccompiler
1.22
KB
-rwxr-xr-x
checkexim.pl
3.1
KB
-rwxr-xr-x
checklink
1.29
KB
-rwxr-xr-x
checknsddirs
1014
B
-rwxr-xr-x
checkusers
856
B
-rwxr-xr-x
chkmydns
561
B
-rwxr-xr-x
chkpaths
141
B
-rwxr-xr-x
chpass
416
B
-rwxr-xr-x
ckillall
1.11
KB
-rwxr-xr-x
clean_dead_mailman_locks
2.09
KB
-rwxr-xr-x
clean_up_temp_wheel_users
2.44
KB
-rwxr-xr-x
clean_user_php_sessions
4.76
KB
-rwxr-xr-x
cleandns
13.09
KB
-rwxr-xr-x
cleandns8
417
B
-rwxr-xr-x
cleanmsglog
735
B
-rwxr-xr-x
cleanphpsessions
932
B
-rwxr-xr-x
cleanphpsessions.php
658
B
-rw-r--r--
cleanquotas
1.61
KB
-rwxr-xr-x
cleansessions
5.91
KB
-rwxr-xr-x
cleanupinterchange
2.64
KB
-rwxr-xr-x
cleanupmysqlprivs
533
B
-rwxr-xr-x
clear_cpaddon_ui_caches
1.27
KB
-rwxr-xr-x
clear_orphaned_virtfs_mounts
3.56
KB
-rwxr-xr-x
comparecdb
1.52
KB
-rwxr-xr-x
compilers
2.86
KB
-rwxr-xr-x
compilerscheck
999
B
-rwxr-xr-x
configure_firewall_for_cpanel
520
B
-rwxr-xr-x
configure_rh_firewall_for_cpan...
520
B
-rwxr-xr-x
configure_rh_ipv6_firewall_for...
520
B
-rwxr-xr-x
convert2dovecot
682
B
-rwxr-xr-x
convert_accesshash_to_token
4.07
KB
-rwxr-xr-x
convert_and_migrate_from_legac...
1.97
KB
-rwxr-xr-x
convert_maildir_to_mdbox
1.66
KB
-rwxr-xr-x
convert_mdbox_to_maildir
1.66
KB
-rwxr-xr-x
convert_roundcube_mysql2sqlite
25.28
KB
-rwxr-xr-x
convert_to_dovecot_delivery
4.33
KB
-rwxr-xr-x
convert_whmxfer_to_sqlite
1.46
KB
-rwxr-xr-x
copy_user_mail_as_root
1.25
KB
-rwxr-xr-x
copy_user_mail_as_user
1.34
KB
-rwxr-xr-x
cpaddonsup
3.25
KB
-rwxr-xr-x
cpan_config
2.8
KB
-rwxr-xr-x
cpanel_initial_install
67.36
KB
-rwxr-xr-x
cpanelsync
28.31
KB
-rwxr-xr-x
cpanelsync_postprocessor
1.62
KB
-rwxr-xr-x
cpanpingtest
965
B
-rwxr-xr-x
cpbackup
44.77
KB
-rwxr-xr-x
cpbackup_transport_file
5.65
KB
-rwxr-xr-x
cpdig
1.81
KB
-rwxr-xr-x
cpfetch
1.23
KB
-rwxr-xr-x
cphulkdblacklist
433
B
-rwxr-xr-x
cphulkdwhitelist
1.3
KB
-rwxr-xr-x
cpservice
2.87
KB
-rwxr-xr-x
cpuser_port_authority
19.29
KB
-rwxr-xr-x
cpuser_service_manager
10.85
KB
-rwxr-xr-x
createacct
24.57
MB
-rwx------
custom_backup_destination.pl.s...
5.06
KB
-rwxr-xr-x
custom_backup_destination.pl.s...
2.84
KB
-rwxr-xr-x
dav_change_hostname
3.57
KB
-rwxr-xr-x
dcpumon-wrapper
850
B
-rwxr-xr-x
delpop
6.2
KB
-rwxr-xr-x
detect_env_capabilities
508
B
-rwxr-xr-x
disable_prelink
2.77
KB
-rwxr-xr-x
disable_sqloptimizer
1.49
KB
-rwxr-xr-x
disablefileprotect
2.09
KB
-rwxr-xr-x
distro_changed_hook
1.16
KB
-rwxr-xr-x
dnscluster
4.44
KB
-rwxr-xr-x
dnsqueuecron
1.29
KB
-rwxr-xr-x
dnssec-cluster-keys
3.75
KB
-rwxr-xr-x
dovecot_maintenance
7.93
KB
-rwxr-xr-x
dovecot_set_defaults.pl
984
B
-rwxr-xr-x
dumpcdb
866
B
-rwxr-xr-x
dumpinodes
687
B
-rwxr-xr-x
dumpquotas
616
B
-rwxr-xr-x
dumpstor
913
B
-rwxr-xr-x
ea4_fresh_install
2.64
KB
-rwxr-xr-x
edit_cpanelsync_exclude_list
2.58
KB
-rwxr-xr-x
editquota
3.44
KB
-rwxr-xr-x
elevate-cpanel
314.53
KB
-rwx------
email_archive_maintenance
6.15
KB
-rwxr-xr-x
email_hold_maintenance
1.46
KB
-rwxr-xr-x
enable_spf_dkim_globally
8.83
KB
-rwxr-xr-x
enable_sqloptimizer
1.57
KB
-rwxr-xr-x
enablefileprotect
2.1
KB
-rwxr-xr-x
ensure_autoenabled_features
2.5
MB
-rwx------
ensure_conf_dir_crt_key
4.82
KB
-rwxr-xr-x
ensure_cpuser_file_ip
2.55
KB
-rwxr-xr-x
ensure_crontab_permissions
1.08
KB
-rwxr-xr-x
ensure_dovecot_memory_limits_m...
3.13
KB
-rwxr-xr-x
ensure_hostname_resolves
2.57
KB
-rwxr-xr-x
ensure_includes
601
B
-rwxr-xr-x
ensure_vhost_includes
13.53
KB
-rwxr-xr-x
exim_tidydb
2.96
KB
-rwxr-xr-x
eximconfgen
1.32
KB
-rwxr-xr-x
eximstats_spam_check
867
B
-rwxr-xr-x
export_horde_calendars_to_ics
15.07
KB
-rwxr-xr-x
export_horde_contacts_to_vcf
13.94
KB
-rwxr-xr-x
exportmydnsdb
3.47
KB
-rwxr-xr-x
expunge_expired_certificates_f...
3.56
KB
-rwxr-xr-x
expunge_expired_pkgacct_sessio...
852
B
-rwxr-xr-x
expunge_expired_transfer_sessi...
1.06
KB
-rwxr-xr-x
fastmail
5.16
KB
-rwxr-xr-x
featuremod
1.92
KB
-rwxr-xr-x
fetchfile
422
B
-rwxr-xr-x
find_and_fix_rpm_issues
6.99
KB
-rwxr-xr-x
find_outdated_services
5.41
KB
-rwxr-xr-x
find_pids_with_inotify_watch_o...
3.66
KB
-rwxr-xr-x
fix-cpanel-perl
28.82
KB
-rwxr-xr-x
fix-listen-on-localhost
3.52
KB
-rwxr-xr-x
fix-web-vhost-configuration
6.15
KB
-rwxr-xr-x
fix_addon_permissions
7.68
KB
-rwxr-xr-x
fix_dns_zone_ttls
1.34
KB
-rwxr-xr-x
fix_innodb_tables
4.05
KB
-rwxr-xr-x
fix_pear_registry
4.07
KB
-rwxr-xr-x
fix_reseller_acls
10.88
KB
-rwxr-xr-x
fixetchosts
4.32
KB
-rwxr-xr-x
fixheaders
572
B
-rwxr-xr-x
fixmailinglistperms
1008
B
-rwxr-xr-x
fixmailman
2.09
KB
-rwxr-xr-x
fixnamedviews
1.22
KB
-rwxr-xr-x
fixndc
413
B
-rwxr-xr-x
fixquotas
17.45
KB
-rwxr-xr-x
fixrelayd
1.74
KB
-rwxr-xr-x
fixrndc
16.48
KB
-rwxr-xr-x
fixtar
503
B
-rwxr-xr-x
fixtlsversions
4.7
KB
-rwxr-xr-x
fixvaliases
2
KB
-rwxr-xr-x
fixwebalizer
966
B
-rwxr-xr-x
forcelocaldomain
895
B
-rwxr-xr-x
ftpfetch
2.2
KB
-rwxr-xr-x
ftpquotacheck
8.31
KB
-rwxr-xr-x
ftpsfetch
2.36
KB
-rwxr-xr-x
ftpupdate
261
B
-rwxr-xr-x
gemwrapper
1.74
KB
-rwxr-xr-x
gencrt
6.26
KB
-rwxr-xr-x
generate_account_suspension_in...
5.7
KB
-rwxr-xr-x
generate_google_drive_credenti...
1.11
KB
-rwxr-xr-x
generate_google_drive_oauth_ur...
984
B
-rwxr-xr-x
generate_maildirsize
13.94
KB
-rwxr-xr-x
gensysinfo
1.16
KB
-rwxr-xr-x
get_locale_from_legacy_name_in...
1.99
KB
-rwxr-xr-x
getremotecpmove
12.67
KB
-rwxr-xr-x
grpck
1.19
KB
-rwxr-xr-x
hackcheck
3.02
KB
-rwxr-xr-x
hook
1.45
KB
-rwxr-xr-x
httpspamdetect
2.66
KB
-rwxr-xr-x
hulk-unban-ip
3.93
MB
-rwx------
import_exim_data
8.39
KB
-rwxr-xr-x
importmydnsdb
11.34
KB
-rwxr-xr-x
increase_filesystem_limits
891
B
-rwxr-xr-x
initacls
4.99
KB
-rwxr-xr-x
initfpsuexec
444
B
-rwxr-xr-x
initquotas
19.47
KB
-rwxr-xr-x
initsuexec
4.03
KB
-rwxr-xr-x
install_cpanel_analytics
1.93
KB
-rwxr-xr-x
install_dovecot_fts
1.57
KB
-rwxr-xr-x
install_plugin
2.8
KB
-rwxr-xr-x
installpkg
575
B
-rwxr-xr-x
installpostgres
6.56
KB
-rwxr-xr-x
installsqlite3
1.82
KB
-rwxr-xr-x
ipcheck
3.93
KB
-rwxr-xr-x
ipusage
7.45
KB
-rwxr-xr-x
isdedicatedip
602
B
-rwxr-xr-x
jetbackup-check
3.69
KB
-rwxr-xr-x
killdns
422
B
-rwxr-xr-x
killdns-dnsadmin
1.15
KB
-rwxr-xr-x
killmysqluserprivs
433
B
-rwxr-xr-x
killmysqlwildcard
1.15
KB
-rwxr-xr-x
killpvhost
853
B
-rwxr-xr-x
killspamkeys
937
B
-rwxr-xr-x
link_3rdparty_binaries
1.24
KB
-rwxr-xr-x
linksubemailtomainacct
3.17
KB
-rwxr-xr-x
listcheck
538
B
-rwxr-xr-x
listsubdomains
1.05
KB
-rwxr-xr-x
litespeed-check
3.86
KB
-rwxr-xr-x
locale_export
4.82
KB
-rwxr-xr-x
locale_import
4.35
KB
-rwxr-xr-x
locale_info
3.99
KB
-rwxr-xr-x
logo.dat
205
B
-rw-r--r--
magicloader
1.94
KB
-rwxr-xr-x
maildir_converter
6.08
KB
-rwxr-xr-x
mailperm
16.58
KB
-rwxr-xr-x
mailscannerupdate
2.42
KB
-rwxr-xr-x
mainipcheck
10
KB
-rwxr-xr-x
maintenance
46.62
KB
-rwxr-xr-x
make_config
407
B
-rw-r--r--
make_hostname_unowned
1.16
KB
-rwxr-xr-x
manage_extra_marketing
12.41
KB
-rwx------
manage_greylisting
16.19
KB
-rwxr-xr-x
manage_mysql_profiles
20.02
KB
-rwxr-xr-x
migrate-pdns-conf
9.83
KB
-rwxr-xr-x
migrate_local_ini_to_php_ini
7.41
KB
-rwxr-xr-x
migrate_whmtheme_file_to_userd...
2.95
KB
-rwxr-xr-x
mkwwwacctconf
2.33
KB
-rwxr-xr-x
modify_accounts
4.09
KB
-rwxr-xr-x
modify_default_featurelist_ent...
5.18
KB
-rwx------
modify_packages
3.65
KB
-rwxr-xr-x
modsec_vendor
15.63
KB
-rwxr-xr-x
mysqlconnectioncheck
6.55
KB
-rwxr-xr-x
mysqlpasswd
4.09
KB
-rwxr-xr-x
named.ca
1.57
KB
-rw-r--r--
named.rfc1912.zones
774
B
-rw-r--r--
nixstatsagent.sh
58.67
KB
-rwx------
notify_expiring_certificates
9.37
KB
-rwxr-xr-x
notify_expiring_certificates_o...
1.33
KB
-rwxr-xr-x
oopscheck
1.12
KB
-rwxr-xr-x
optimize_eximstats
3.88
KB
-rwxr-xr-x
patch_mail_spamassassin_compil...
2.39
KB
-rwxr-xr-x
patchfdsetsize
2.72
KB
-rwxr-xr-x
pedquota
2.26
KB
-rwxr-xr-x
perform_sqlite_auto_rebuild_db...
2.2
KB
-rwxr-xr-x
perlinstaller
528
B
-rwxr-xr-x
perlmods
1.18
KB
-rwxr-xr-x
php_fpm_config
9.73
KB
-rwxr-xr-x
phpini_tidy
687
B
-rwxr-xr-x
pkgacct
87.82
KB
-rwxr-xr-x
post_snapshot
3.16
KB
-rwxr-xr-x
post_sync_cleanup
6.09
KB
-rwxr-xr-x
premodifyacct
62
B
-rwxr-xr-x
primary_virtual_host_migration
2.44
KB
-rwxr-xr-x
process_pending_cpanel_php_pea...
3.49
KB
-rwxr-xr-x
process_site_templates
7.27
KB
-rwxr-xr-x
proxydomains
9.34
KB
-rwxr-xr-x
ptycheck
724
B
-rwxr-xr-x
purge_modsec_log
1.53
KB
-rwxr-xr-x
purge_old_config_caches
2.08
KB
-rwxr-xr-x
pwck
708
B
-rwxr-xr-x
quickdnslookup
1.13
KB
-rwxr-xr-x
quickwhoisips
2.29
KB
-rwxr-xr-x
quota_auto_fix
1.41
KB
-rwxr-xr-x
quotacheck
22.36
KB
-rwxr-xr-x
rawchpass
460
B
-rwxr-xr-x
rdate
4.8
KB
-rwxr-xr-x
realadduser
5.61
KB
-rwxr-xr-x
realchpass
3.26
KB
-rwxr-xr-x
realperlinstaller
5.67
KB
-rwxr-xr-x
realrawchpass
425
B
-rwxr-xr-x
rebuild_available_addons_packa...
1.27
KB
-rwxr-xr-x
rebuild_available_rpm_addons_c...
1.27
KB
-rwxr-xr-x
rebuild_bandwidthdb_root_cache
1.45
KB
-rwxr-xr-x
rebuild_dbmap
5.8
KB
-rwxr-xr-x
rebuild_provider_openid_connec...
1.01
KB
-rwxr-xr-x
rebuild_whm_chrome
2.22
KB
-rwxr-xr-x
rebuilddnsconfig
26.21
KB
-rwxr-xr-x
rebuildhttpdconf
2.6
KB
-rwxr-xr-x
rebuildinstalledssldb
2.85
KB
-rwxr-xr-x
rebuildippool
509
B
-rwxr-xr-x
rebuildnsdzones
1.14
KB
-rwxr-xr-x
rebuilduserssldb
948
B
-rwxr-xr-x
refresh-dkim-validity-cache
5.97
KB
-rwxr-xr-x
regenerate_tokens
2.18
KB
-rwxr-xr-x
reloadnsd
821
B
-rwxr-xr-x
remote_log_transfer
11.6
KB
-rwxr-xr-x
remove_dovecot_index_files
5.89
KB
-rwxr-xr-x
removeacct
20.91
MB
-rwx------
rescan_user_dovecot_fts
2.98
KB
-rwxr-xr-x
reset_mail_quotas_to_sane_valu...
6.82
KB
-rwxr-xr-x
resetmailmanurls
2.03
KB
-rwxr-xr-x
resetquotas
4.68
KB
-rwxr-xr-x
restartsrv
3.23
KB
-rwxr-xr-x
restartsrv_apache
422
B
-rwxr-xr-x
restartsrv_apache_php_fpm
9.9
MB
-rwxr-xr-x
restartsrv_base
9.9
MB
-rwxr-xr-x
restartsrv_bind
9.9
MB
-rwxr-xr-x
restartsrv_chkservd
427
B
-rwxr-xr-x
restartsrv_clamd
9.9
MB
-rwxr-xr-x
restartsrv_cpanalyticsd
9.9
MB
-rwxr-xr-x
restartsrv_cpanel_php_fpm
9.9
MB
-rwxr-xr-x
restartsrv_cpanellogd
9.9
MB
-rwxr-xr-x
restartsrv_cpdavd
9.9
MB
-rwxr-xr-x
restartsrv_cpgreylistd
9.9
MB
-rwxr-xr-x
restartsrv_cphulkd
9.9
MB
-rwxr-xr-x
restartsrv_cpipv6
9.9
MB
-rwxr-xr-x
restartsrv_cpsrvd
9.9
MB
-rwxr-xr-x
restartsrv_crond
9.9
MB
-rwxr-xr-x
restartsrv_dnsadmin
9.9
MB
-rwxr-xr-x
restartsrv_dovecot
9.9
MB
-rwxr-xr-x
restartsrv_exim
9.9
MB
-rwxr-xr-x
restartsrv_eximstats
504
B
-rwxr-xr-x
restartsrv_ftpd
426
B
-rwxr-xr-x
restartsrv_ftpserver
911
B
-rwxr-xr-x
restartsrv_httpd
9.9
MB
-rwxr-xr-x
restartsrv_imap
437
B
-rwxr-xr-x
restartsrv_inetd
2.47
KB
-rwxr-xr-x
restartsrv_ipaliases
9.9
MB
-rwxr-xr-x
restartsrv_lmtp
437
B
-rwxr-xr-x
restartsrv_mailman
9.9
MB
-rwxr-xr-x
restartsrv_mydns
9.9
MB
-rwxr-xr-x
restartsrv_mysql
9.9
MB
-rwxr-xr-x
restartsrv_named
777
B
-rwxr-xr-x
restartsrv_nscd
9.9
MB
-rwxr-xr-x
restartsrv_nsd
9.9
MB
-rwxr-xr-x
restartsrv_p0f
9.9
MB
-rwxr-xr-x
restartsrv_pdns
9.9
MB
-rwxr-xr-x
restartsrv_pop3
437
B
-rwxr-xr-x
restartsrv_postgres
427
B
-rwxr-xr-x
restartsrv_postgresql
9.9
MB
-rwxr-xr-x
restartsrv_powerdns
442
B
-rwxr-xr-x
restartsrv_proftpd
9.9
MB
-rwxr-xr-x
restartsrv_pureftpd
9.9
MB
-rwxr-xr-x
restartsrv_queueprocd
9.9
MB
-rwxr-xr-x
restartsrv_rsyslog
9.9
MB
-rwxr-xr-x
restartsrv_rsyslogd
437
B
-rwxr-xr-x
restartsrv_spamd
9.9
MB
-rwxr-xr-x
restartsrv_sshd
9.9
MB
-rwxr-xr-x
restartsrv_syslogd
2.4
KB
-rwxr-xr-x
restartsrv_tailwatchd
9.9
MB
-rwxr-xr-x
restartsrv_unknown
9.9
MB
-rwxr-xr-x
restartsrv_xinetd
422
B
-rwxr-xr-x
restorecpuserfromcache
1.96
KB
-rwxr-xr-x
restorepkg
36.49
MB
-rwx------
rfc1912_zones.tar
10
KB
-rw-r--r--
rpmup
4.77
KB
-rwxr-xr-x
rsync-user-homedir.pl
5.76
KB
-rwxr-xr-x
run_if_exists
512
B
-rwxr-xr-x
runstatsonce
440
B
-rwxr-xr-x
runweblogs
1.02
KB
-rwxr-xr-x
sa-update_wrapper
3.34
KB
-rwxr-xr-x
safetybits.pl
844
B
-rwxr-xr-x
secureit
4.72
KB
-rwxr-xr-x
securemysql
4.54
KB
-rwxr-xr-x
securerailsapps
3.58
KB
-rwxr-xr-x
securetmp
15.99
KB
-rwxr-xr-x
sendicq
474
B
-rwxr-xr-x
servicedomains
9.34
KB
-rwxr-xr-x
set_mailman_archive_perms
1.75
KB
-rwxr-xr-x
set_php_memory_limits
3.67
KB
-rwxr-xr-x
setpostgresconfig
6.04
KB
-rwxr-xr-x
setup_greylist_db
16.19
KB
-rwxr-xr-x
setup_modsec_db
1.3
KB
-rwxr-xr-x
setupftpserver
10.47
KB
-rwxr-xr-x
setupmailserver
9.55
KB
-rwxr-xr-x
setupnameserver
13.75
KB
-rwxr-xr-x
shrink_modsec_ip_database
12.97
KB
-rwxr-xr-x
simpleps
3.05
KB
-rwxr-xr-x
slurp_exim_mainlog
5.78
KB
-rwxr-xr-x
smartcheck
15.13
KB
-rwxr-xr-x
smtpmailgidonly
8.15
KB
-rwxr-xr-x
snapshot_prep
5.88
KB
-rwxr-xr-x
spamassassin_dbm_cleaner
5.85
KB
-rwxr-xr-x
spamassassindisable
3.74
KB
-rwxr-xr-x
spamboxdisable
2.27
KB
-rwxr-xr-x
sshcontrol
14.38
KB
-rwxr-xr-x
ssl_crt_status
3.84
KB
-rwxr-xr-x
suspendacct
18.01
KB
-rwxr-xr-x
suspendmysqlusers
4.42
KB
-rwxr-xr-x
swapip
3.82
KB
-rwxr-xr-x
sync-mysql-users-from-grants
1.2
KB
-rwxr-xr-x
sync_child_accounts
1.77
KB
-rwxr-xr-x
sync_contact_emails_to_cpanel_...
1.14
KB
-rwxr-xr-x
synccpaddonswithsqlhost
6.59
KB
-rwxr-xr-x
synctransfers
1.92
KB
-rwxr-xr-x
syslog_check
1.36
KB
-rwxr-xr-x
sysup
645
B
-rwxr-xr-x
test_sa_compiled
1.07
KB
-rwxr-xr-x
transfer_account_as_user
2.34
KB
-rwxr-xr-x
transfer_accounts_as_root
4.76
KB
-rwxr-xr-x
transfer_in_progress
3.08
KB
-rwxr-xr-x
transfer_in_progress.pod
312
B
-rw-r--r--
transfermysqlusers
9.53
MB
-rwx------
try-later
7.95
KB
-rwxr-xr-x
unblockip
667
B
-rwxr-xr-x
uninstall_cpanel_analytics
1.2
KB
-rwxr-xr-x
uninstall_dovecot_fts
562
B
-rwxr-xr-x
uninstall_plugin
2.84
KB
-rwxr-xr-x
unlink_service_account
2.62
KB
-rwxr-xr-x
unpkgacct
4.6
KB
-rwxr-xr-x
unslavenamedconf
863
B
-rwxr-xr-x
unsuspendacct
17.8
KB
-rwxr-xr-x
unsuspendmysqlusers
6.71
KB
-rwxr-xr-x
upcp
31.56
KB
-rwxr-xr-x
upcp-running
2.7
KB
-rwxr-xr-x
upcp.static
708.6
KB
-rwxr-xr-x
update-packages
4.77
KB
-rwxr-xr-x
update_apachectl
480
B
-rwxr-xr-x
update_db_cache
430
B
-rwxr-xr-x
update_dkim_keys
1.45
KB
-rwxr-xr-x
update_exim_rejects
1.21
KB
-rwxr-xr-x
update_existing_mail_quotas_fo...
4.78
KB
-rwxr-xr-x
update_known_proxy_ips
1002
B
-rwxr-xr-x
update_local_rpm_versions
4.56
KB
-rwxr-xr-x
update_mailman_cache
8.34
KB
-rwxr-xr-x
update_mysql_systemd_config
1.25
KB
-rwxr-xr-x
update_neighbor_netblocks
487
B
-rwxr-xr-x
update_sa_config
2.14
KB
-rwxr-xr-x
update_spamassassin_config
10.73
KB
-rwxr-xr-x
update_users_jail
691
B
-rwxr-xr-x
update_users_vhosts
801
B
-rwxr-xr-x
updatedomainips
605
B
-rwxr-xr-x
updatenameserverips
1.66
KB
-rwxr-xr-x
updatenow
5.18
KB
-rwxr-xr-x
updatenow.static
1.91
MB
-rwxr-xr-x
updatenow.static-cpanelsync
1.97
MB
-rwx------
updatesigningkey
1.95
KB
-rwxr-xr-x
updatessldomains
1.81
KB
-rwxr-xr-x
updatesupportauthorizations
2.49
KB
-rwxr-xr-x
updateuserdatacache
2.47
KB
-rwxr-xr-x
updateuserdomains
774
B
-rwxr-xr-x
upgrade_bandwidth_dbs
2.22
KB
-rwxr-xr-x
upgrade_subaccount_databases
2.73
KB
-rwxr-xr-x
userdata_wildcard_cleanup
5.74
KB
-rwxr-xr-x
userdirctl
5.01
KB
-rwxr-xr-x
validate_sshkey_passphrase
1.21
KB
-rwxr-xr-x
verify_api_spec_files
757
B
-rwxr-xr-x
verify_pidfile
1.96
KB
-rwxr-xr-x
verify_vhost_includes
7.34
KB
-rwxr-xr-x
vps_optimizer
7.82
KB
-rwxr-xr-x
vzzo-fixer
725
B
-rwxr-xr-x
whmlogin
2.33
KB
-rwxr-xr-x
whoowns
1.13
KB
-rwxr-xr-x
wpt_license
6.27
MB
-rwx------
wwwacct
24.57
MB
-rwx------
wwwacct2
88
B
-rwxr-xr-x
xfer_rcube_schema_migrate.pl
2.4
KB
-rwxr-xr-x
xfer_rcube_uid_resolver.pl
1.8
KB
-rwxr-xr-x
xferpoint
3.13
KB
-rwxr-xr-x
xfertool
16.14
KB
-rwxr-xr-x
zoneexists
800
B
-rwxr-xr-x
Delete
Unzip
Zip
${this.title}
Close
Code Editor : initquotas
#!/usr/local/cpanel/3rdparty/bin/perl # cpanel - scripts/initquotas Copyright 2022 cPanel, L.L.C. # All rights reserved. # copyright@cpanel.net http://cpanel.net # This code is subject to the cPanel license. Unauthorized copying is prohibited package scripts::initquotas; use strict; use warnings; use IPC::Open3 (); use Cpanel::ArrayFunc::Uniq (); use Cpanel::Quota::Filesys (); use Quota (); use Cpanel::TimeHiRes (); use Cpanel::ConfigFiles (); use Cpanel::Backup::Config (); use Cpanel::FileUtils::TouchFile (); use Cpanel::Binaries (); use Cpanel::FindBin (); use Cpanel::Filesys::Info (); use Cpanel::Filesys::FindParse (); use Cpanel::Filesys::Mounts (); use Cpanel::SafeRun::Simple (); use Cpanel::SafeRun::Errors (); use Cpanel::Transaction::File::Raw (); use Cpanel::Config::LoadWwwAcctConf (); use Cpanel::Unix::PID::Tiny (); use Cpanel::OS (); use Cpanel::Quota::Cache (); use Cpanel::SysQuota::Cache (); use Cpanel::MysqlUtils::Dir (); use Try::Tiny; my %cmd = ( 'quota' => undef, 'quotaon' => undef, 'quotaoff' => undef, 'quotacheck' => undef, 'convertquota' => undef, ); our $FSTAB_FILE = '/etc/fstab'; my $ENABLE_QUOTA = 1; my $DISABLE_QUOTA = 0; my $pidfile = '/var/run/initquotas.pid'; my @ALL_QUOTA_FILES = ( 'quota.user', 'aquota.user', 'quota.group', 'aquota.group' ); my $supported_file_system_regex = 'ext[234]|reiserfs'; my $journaled_supported_file_system_regex = 'ext[34]|reiserfs'; my $do_quotacheck = ( grep( m/skipquotacheck/i, @ARGV ) || -d '/proc/vz/vzaquota' ) ? 0 : 1; my $supports_journaled_quota = supports_journaled_quota(); my $mountkeyword = 'remount'; if ( Cpanel::OS::has_quota_support_for_xfs() ) { $supported_file_system_regex .= '|xfs'; } my $DEFAULT_MYSQL_DATADIR = '/var/lib/mysql'; if ( !caller() ) { local $| = 1; my $upid = Cpanel::Unix::PID::Tiny->new(); # Check for running instances of initquotas. if ( !$upid->pid_file($pidfile) ) { my $pid = $upid->get_pid_from_pidfile($pidfile); print "Another instance of initquotas appears to be running at PID '$pid'.\n"; exit 1; } # Check for running instance of quotacheck. if ( my $pid = $upid->is_pidfile_running('/var/run/quotacheck.pid') ) { print "An instance of quotacheck appears to be running at PID '$pid'.\n"; exit 1; } my $ok = __PACKAGE__->run(); exit( $ok ? 0 : 1 ); } sub run { if ( !verify_all_quota_binaries_are_in_place() ) { return 0; } chmod oct(4755), $cmd{'quota'}; my @mount_output = split( /\n/, Cpanel::SafeRun::Simple::saferun('mount') ); my $has_filesystems_with_quota = grep( /with\s+quotas|usrj?quota/, @mount_output ) ? 1 : 0; my $mount_point_config = get_mount_point_config(); # Modify fstab as needed my ( $fses_to_convert_arrayref, $mount_cmds_ref, $need_quotacheck ) = setup_quotas($mount_point_config); # Don't run quotacheck if none of our file systems use it. $do_quotacheck &&= $need_quotacheck; if ( @$mount_cmds_ref || $do_quotacheck ) { local $ENV{'LANG'} = 'C'; my $quota_off = Cpanel::SafeRun::Errors::saferunnoerror( $cmd{'quotaoff'}, '-a' ); foreach my $line ( split( /\n/, $quota_off ) ) { next if $line =~ /no\s+such\s+process/i; print "Running quotaoff failed!\n"; Cpanel::SafeRun::Errors::saferunnoerror( $cmd{'quotaon'}, '-a' ); exit 1; } } # Now actually remount the file systems with or without quotas based on the logic above. # So /etc/fstab matches what is actually going on foreach my $data ( @{$mount_cmds_ref} ) { my ( $cmdref, $fstab, $journaled ) = @{$data}{qw/cmd fstab journaled/}; my $result = Cpanel::SafeRun::Errors::saferunallerrors( @{$cmdref} ); if ($result) { my $cmd = join( " ", @{$cmdref} ); print "Warning: mount failure while executing $cmd: $result\n"; if ($journaled) { print "Trying non-journaled quotas instead for $cmdref->[-1]\n"; _update_fstab_line( \$fstab, $DISABLE_QUOTA, $journaled ); _update_fstab_line( \$fstab, $ENABLE_QUOTA, 0 ); rebuild_fstab( sub { $data->{'fstab'} eq $_[0] ? $fstab : $_[0] } ); $result = Cpanel::SafeRun::Errors::saferunallerrors( @{$cmdref} ); print "Warning: mount failure while executing $cmd: $result\n" if $result; } if ($result) { print "Disabling quotas for $cmdref->[-1]\n"; _update_fstab_line( \$fstab, $DISABLE_QUOTA, 0 ); rebuild_fstab( sub { $data->{'fstab'} eq $_[0] ? $fstab : $_[0] } ); } } } if ( !$do_quotacheck ) { Cpanel::SafeRun::Errors::saferunnoerror( $cmd{'quotaon'}, '-a' ); if ( !$need_quotacheck ) { print "Quotas have been enabled and updated.\n"; } else { print "Quotas have been enabled, however they may not be up to date as quotacheck has been skipped.\n"; } exit 0; } purge_quotas($fses_to_convert_arrayref); Cpanel::Filesys::Mounts::clear_mounts_cache(); run_quota_check(); convert_quotas($fses_to_convert_arrayref); Cpanel::SafeRun::Errors::saferunnoerror( $cmd{'quotaon'}, '-a' ); reset_quota_caches(); Cpanel::Filesys::Mounts::clear_mounts_cache(); print "Quotas have been enabled and updated.\n"; return 1; } sub reset_quota_caches { Cpanel::SysQuota::Cache::purge_cache(); try { Cpanel::Quota::Cache::update_quota_cache_dir(); }; # No reason to catch as update_quota_cache_dir # has already logged the error. return; } sub purge_quotas { my $fses_to_purge_arrayref = shift; foreach my $mntpoint (@$fses_to_purge_arrayref) { _purge_quota_files($mntpoint); } return; } sub convert_quotas { my $fses_to_convert_arrayref = shift; foreach my $mntpoint (@$fses_to_convert_arrayref) { Cpanel::SafeRun::Errors::saferunnoerror( $cmd{'convertquota'}, $mntpoint ) unless $supports_journaled_quota; _set_quota_file_perms($mntpoint); } return; } sub run_quota_check { my $fs = Cpanel::Quota::Filesys->new(); my $paths_ref = $fs->get_devices_with_quotas_enabled(); print 'Updating Quota Files......'; foreach my $dev ( sort keys %$paths_ref ) { next if index( $paths_ref->{$dev}{'fstype'}, 'xfs' ) > -1; next if index( $paths_ref->{$dev}{'mode'}, 'quota' ) == -1; my ($format) = $paths_ref->{$dev}{'mode'} =~ m{jqfmt=([a-z0-9]+)}; if ( $paths_ref->{$dev}{'mode'} =~ m{usrjquota}i ) { $format ||= 'vfsv1'; } my @args = ( '--create-files', '--user', '--group', '--verbose', '--force', '--use-first-dquot', '--no-remount' ); if ($format) { quotarun( $cmd{'quotacheck'}, @args, '--format=' . $format, $dev ); } else { # Cannot detect so do all three quotarun( $cmd{'quotacheck'}, @args, '--format=vfsold', $dev ); quotarun( $cmd{'quotacheck'}, @args, '--format=vfsv0', $dev ); quotarun( $cmd{'quotacheck'}, @args, '--format=vfsv1', $dev ); } } print '....Done' . "\n"; return; } sub quotarun { my (@CMD) = @_; print "\n\t"; my $empty_dir = q{/var/cpanel/empty_directory}; if ( !-d $empty_dir ) { die "Cannot create directory '$empty_dir': $!" unless mkdir( $empty_dir, 0700 ); } local $ENV{'LD_PRELOAD'} = "$Cpanel::ConfigFiles::CPANEL_ROOT/lib/quotacheck_virtfs_wrapper.so"; print "Running Task: “@CMD”.\n"; my $start_time = Cpanel::TimeHiRes::time(); my $qout_fh; my $pid = IPC::Open3::open3( '>/dev/null', $qout_fh, $qout_fh, @CMD ); while ( read( $qout_fh, $_, 1 ) ) { syswrite( STDOUT, $_ eq "\n" ? "\n\t" : $_ ); } print "\n"; close($qout_fh); waitpid( $pid, 0 ); my $end_time = Cpanel::TimeHiRes::time(); my $exec_time = sprintf( "%.3f", ( $end_time - $start_time ) ); print "Completed Task: “@CMD” in $exec_time second(s).\n"; return; } sub _purge_quota_files { my $mntpoint = shift; my @files_to_purge = map { ( "$_.new", $_ ) } @ALL_QUOTA_FILES; foreach my $quota_file (@files_to_purge) { if ( -e $mntpoint . '/' . $quota_file ) { unlink( $mntpoint . '/' . $quota_file ) } } return; } sub _set_quota_file_perms { my $mntpoint = shift; foreach my $quota_file (@ALL_QUOTA_FILES) { if ( -e $mntpoint . '/' . $quota_file ) { chmod 0644, $mntpoint . '/' . $quota_file } } return; } sub wall { my $wall_txt = shift; my $wall_cmd = Cpanel::Binaries::path('wall'); -x $wall_cmd or return; if ( open( my $wall_fh, '|-' ) || exec($wall_cmd ) ) { print {$wall_fh} $wall_txt; close($wall_fh); } return; } sub rebuild_fstab { my ($changeref) = @_; my @CFILE; my $trans = _get_fstab_transaction(); my $fstab_sr = $trans->get_data(); foreach my $fstab_line ( split( m{^}, $$fstab_sr ) ) { push @CFILE, &$changeref($fstab_line); } my $data = join( '', @CFILE ); $trans->set_data( \$data ); $trans->save_and_close_or_die(); return; } sub _get_fstab_transaction { return Cpanel::Transaction::File::Raw->new( 'path' => $FSTAB_FILE, 'permissions' => 0644, 'restore_original_permissions' => 1 ); } # # Cycle though the fstab and add usrquota to all supported filesystems # and remove from filesystems that should not have them # sub setup_quotas { ## no critic(Subroutines::ProhibitExcessComplexity) -- Refactoring this function is a project, not a bug fix my $mount_point_config = shift; my @CFILE; my @MOUNT_CMDS; my @NEED_CONVERT; my $wwwacct_ref = Cpanel::Config::LoadWwwAcctConf::loadwwwacctconf(); my $home = $wwwacct_ref->{'HOMEDIR'} || '/home'; my $trans = _get_fstab_transaction(); my $fstab_sr = $trans->get_data(); my $need_quotacheck = 0; LINE: foreach my $fstab_line ( split( m{^}, $$fstab_sr ) ) { if ( $fstab_line =~ /^(\S+)\s*(\S+)/ ) { if ( $fstab_line =~ /^#/ ) { push @CFILE, $fstab_line; next LINE; } my ( $dsk, $mntpoint, $fstype, $options, $dump, $pass, @opts ) = split( /\s+/, $fstab_line ); my @options = split( /\s*\,\s*/, $options || '' ); if ( grep( /^(?:ro|noauto|loop)/, @options ) ) { push @CFILE, $fstab_line; next LINE; } if ( grep( /^noquota/, @options ) ) { print "The system will leave quotas disabled on $mntpoint because the noquota option was specified in the fstab file.\n"; push @CFILE, $fstab_line; next LINE; } my $has_usr_quota = ( $fstab_line =~ /\bu(srj?)?quota\b/ ? 1 : 0 ); $dsk =~ s/^LABEL=//g; if ( $fstab_line =~ /\s*$supported_file_system_regex/ ) { foreach my $quota_file (@ALL_QUOTA_FILES) { if ( -l $mntpoint . '/' . $quota_file ) { push( @CFILE, $fstab_line ); next LINE; #openvz } } my $use_journaled = $fstab_line =~ /\s*$journaled_supported_file_system_regex/ ? $supports_journaled_quota : 0; my $mountpnt_can_do_quota = ( $mntpoint =~ /^(?:\/boot|\/tmp)/ ? 0 : 1 ); $need_quotacheck ||= ( $fstype ne 'xfs' || Cpanel::OS::has_quota_support_for_xfs() ) && $mountpnt_can_do_quota; my $config = $mount_point_config->{$mntpoint} // {}; $mountpnt_can_do_quota = 0 if $config->{'disable'}; if ( !$mountpnt_can_do_quota && $has_usr_quota ) { print_config_messages( $config, 'action' ); print "$dsk (removing " . ( $use_journaled ? 'journaled ' : '' ) . "quotas)\n"; _update_fstab_line( \$fstab_line, $DISABLE_QUOTA, $use_journaled ); push @MOUNT_CMDS, { 'cmd' => [ 'mount', '-o', $mountkeyword, $mntpoint ], 'fstab' => $fstab_line, 'journaled' => $use_journaled }; } elsif ( $mountpnt_can_do_quota && !$has_usr_quota ) { print_config_messages( $config, 'action' ); print "$dsk (enabling " . ( $use_journaled ? 'journaled ' : '' ) . "quotas)\n"; _update_fstab_line( \$fstab_line, $ENABLE_QUOTA, $use_journaled ); push @MOUNT_CMDS, { 'cmd' => [ 'mount', '-o', $mountkeyword, $mntpoint ], 'fstab' => $fstab_line, 'journaled' => $use_journaled }; } else { print_config_messages( $config, 'inaction' ); print "$dsk (already configured quotas = $has_usr_quota).\n"; } if ( $mountpnt_can_do_quota && $fstype ne 'xfs' ) { _set_quota_file_perms($mntpoint); foreach my $quota_file (@ALL_QUOTA_FILES) { my $quota_file_with_path = $mntpoint eq '/' ? $mntpoint . $quota_file : $mntpoint . '/' . $quota_file; if ( !-e $quota_file_with_path ) { Cpanel::FileUtils::TouchFile::touchfile($quota_file_with_path); } } _set_quota_file_perms($mntpoint); push @NEED_CONVERT, $mntpoint; } } } push( @CFILE, $fstab_line ); } my $data = join( '', @CFILE ); $trans->set_data( \$data ); $trans->save_and_close_or_die(); return ( \@NEED_CONVERT, \@MOUNT_CMDS, $need_quotacheck ); } sub get_mount_point_config { my %mounts; # If a mount point exactly matches the MySQL datadir it should be skipped (CPANEL-28760) my $mysql_datadir = get_mysql_datadir(); my $mysql_datadir_mount = get_mount_point($mysql_datadir); if ( $mysql_datadir_mount eq $mysql_datadir ) { $mounts{$mysql_datadir_mount} = { disable => 1, message => { action => "The system will disable quotas on $mysql_datadir_mount because it is a MySQL or MariaDB data directory.", inaction => "The system will leave quotas disabled on $mysql_datadir_mount because it is a MySQL or MariaDB data directory.", }, }; } #NOTE:: QUOTAS CAN BE ON A BACKUP DISK SINCE ALL FILES ARE ALWAYS OWNED BY ROOT -- HOWEVER IT IS SLOW for my $backup_mount ( @{ get_backup_dir_mount_points() } ) { if ( $backup_mount eq '/' ) { $mounts{$backup_mount} = { disable => 0, message => { always => "Warning : Your system does not have a separate filesystem for backups. This may cause performance degradation during the backup process.", }, }; } else { $mounts{$backup_mount} = { disable => 1, message => { action => "The system will disable quotas on $backup_mount in order to prevent performance degradation.", inaction => "The system will leave quotas disabled on $backup_mount in order to prevent performance degradation.", }, }; } } return \%mounts; } # Scans the backup configuraiton for fses that are set to be backup fses that have # quotas enabled on them and disables them. Returns a hashref list of backup fses that exist # sub get_backup_dir_mount_points { my @mountpoints; my $backup_dir_ref = Cpanel::Backup::Config::get_backup_dirs(); foreach my $backup_dir ( Cpanel::ArrayFunc::Uniq::uniq( @{$backup_dir_ref} ) ) { print "checking out $backup_dir\n"; my $backup_mount = get_mount_point($backup_dir); push @mountpoints, $backup_mount; } return \@mountpoints; } sub supports_journaled_quota { require Cpanel::LoadFile; if ( Cpanel::LoadFile::loadfile('/sbin/quotaon') =~ m/usrjquota/ ) { print "journaled quota support: kernel supports, user space tools supports (available)\n"; return 1; } print "journaled quota support: kernel supports, user space tools not updated (disabled)\n"; return 0; } sub _update_fstab_line { my ( $fstab_line_ref, $action, $supports_journaled_quota ) = @_; my ( $device, $mntpoint, $fstype, $options, $dump, $pass, @opts ) = split( /\s+/, $$fstab_line_ref ); my @options_list = split( m/\s*,\s*/, $options ); if ( $action == $DISABLE_QUOTA ) { @options_list = grep( !m/(?:quota|jqfmt)/, @options_list ); push @options_list, 'defaults' if scalar @options_list == 0; } else { @options_list = grep( !m/(?:u(srj?)?quota|jqfmt)/, @options_list ); if ($supports_journaled_quota) { @options_list = grep( !m/^defaults$/, @options_list ); #defaults seems to cause usrjquota to break on some systems push @options_list, 'usrjquota=quota.user', 'jqfmt=vfsv1'; } else { unshift @options_list, 'defaults' if !grep( m/^defaults$/, @options_list ); my $usrquota = 'usrquota'; if ( Cpanel::OS::has_quota_support_for_xfs() && $$fstab_line_ref =~ m{\bxfs\b} ) { print "The system will configure quotas on the “$device” which is using the “xfs” filesystem.\n"; print "A reboot will be required to enable quotas on xfs.\n"; $usrquota = 'uquota'; } push @options_list, $usrquota; } } $options = join( ',', @options_list ); $$fstab_line_ref = join( "\t", $device, $mntpoint, $fstype, $options, $dump, $pass, @opts ) . "\n"; return 1; } sub verify_all_quota_binaries_are_in_place { my @missing_cmds; foreach my $cmd_name ( keys %cmd ) { $cmd{$cmd_name} = Cpanel::FindBin::findbin($cmd_name); if ( !( $cmd{$cmd_name} && -x $cmd{$cmd_name} ) ) { push @missing_cmds, $cmd_name; } } if ( scalar @missing_cmds ) { print "Incomplete quota kit: unable to initialize quotas.\n"; print 'Missing commands: ', join( ', ', sort @missing_cmds ), "\n"; return 0; } return 1; } sub get_mount_point { my $dir = shift; my $filesys_ref = Cpanel::Filesys::Info::_all_filesystem_info(); return Cpanel::Filesys::FindParse::find_mount( $filesys_ref, $dir ); } sub get_mysql_datadir { my $datadir = Cpanel::MysqlUtils::Dir::getmysqldir() // $DEFAULT_MYSQL_DATADIR; $datadir =~ s{/$}{}; # Remove any trailing slash. return $datadir; } sub get_config_messages { my ( $ref, @selections ) = @_; unshift @selections, 'always' unless grep { $_ eq 'always' } @selections; return map { $ref->{'message'}->{$_} } grep { exists $ref->{'message'}->{$_} && length $ref->{'message'}->{$_} } @selections; } sub print_config_messages { return unless my @messages = get_config_messages(@_); print join( "\n", @messages ) . "\n"; return; } 1;
Close