Gecko [ thearyasamaj.org ]

Name	Size	Permission
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

Code Editor : dkim-lib.pl

# Functions for setting up DKIM signing

$debian_dkim_config = "/etc/dkim-filter.conf";
$debian_dkim_default = "/etc/default/dkim-filter";

$redhat_dkim_config = "/etc/mail/dkim-milter/dkim-filter.conf";
$redhat_dkim_default = "/etc/sysconfig/dkim-milter";

$ubuntu_dkim_config = "/etc/opendkim.conf";
$ubuntu_dkim_default = "/etc/default/opendkim";

$centos_dkim_config = "/etc/opendkim.conf";
$centos_dkim_default = "/etc/sysconfig/opendkim";

$freebsd_dkim_config = "/usr/local/etc/mail/opendkim.conf";

$gentoo_dkim_config = "/etc/opendkim/opendkim.conf";

# get_dkim_type()
# Returns either 'ubuntu', 'debian', 'redhat', 'freebsd', 'centos', 'gentoo' or undef
sub get_dkim_type
{
if ($gconfig{'os_type'} eq 'debian-linux' && $gconfig{'os_version'} >= 7) {
	# Debian 7+ uses OpenDKIM
	return 'ubuntu';
	}
elsif ($gconfig{'os_type'} eq 'debian-linux' && $gconfig{'os_version'} >= 6 &&
       !-x "/usr/sbin/dkim-filter") {
	# Debian 6 can use OpenDKIM, unless it is already using dkim-filter
	return 'ubuntu';
	}
elsif ($gconfig{'os_type'} eq 'debian-linux') {
	# Older Debian versions only have dkim-filter
	return 'debian';
	}
elsif ($gconfig{'os_type'} eq 'redhat-linux') {
	if ($gconfig{'os_version'} >= 15 &&
	    !-r $redhat_dkim_config) {
		# Virtualmin provides opendkim now
		return 'centos';
		}
	else {
		# dkim-milter from older CentOS versions
		return 'redhat';
		}
	}
elsif ($gconfig{'os_type'} eq 'freebsd') {
	return 'freebsd';
	}
elsif ($gconfig{'os_type'} eq 'gentoo-linux') {
	return 'gentoo';
	}
return undef;
}

# get_dkim_config_file()
# Returns the path to the DKIM config file
sub get_dkim_config_file
{
return &get_dkim_type() eq 'ubuntu' ? $ubuntu_dkim_config :
       &get_dkim_type() eq 'debian' ? $debian_dkim_config :
       &get_dkim_type() eq 'redhat' ? $redhat_dkim_config :
       &get_dkim_type() eq 'centos' ? $centos_dkim_config :
       &get_dkim_type() eq 'freebsd' ? $freebsd_dkim_config :
       &get_dkim_type() eq 'gentoo' ? $gentoo_dkim_config :
				      undef;
}

# get_dkim_defaults_file()
# Returns the path to the DKIM defaults file
sub get_dkim_defaults_file
{
return &get_dkim_type() eq 'ubuntu' ? $ubuntu_dkim_default :
       &get_dkim_type() eq 'debian' ? $debian_dkim_default :
       &get_dkim_type() eq 'redhat' ? $redhat_dkim_default :
       &get_dkim_type() eq 'centos' ? $centos_dkim_default :
				      undef;
}

# get_dkim_init_name()
# Returns the name of the DKIM init script
sub get_dkim_init_name
{
return &get_dkim_type() eq 'ubuntu' ? 'opendkim' :
       &get_dkim_type() eq 'debian' ? 'dkim-filter' :
       &get_dkim_type() eq 'freebsd' ? 'milter-opendkim' :
       &get_dkim_type() eq 'gentoo' ? 'opendkim' :
       &get_dkim_type() eq 'redhat' ? 'dkim-milter' :
       &get_dkim_type() eq 'centos' ? 'opendkim' : undef;
}

# check_dkim()
# Returns undef if all the needed commands for DKIM are installed, or an error
# message if not.
sub check_dkim
{
&foreign_require("init");
if (!&get_dkim_type()) {
	# Not supported on this OS
	return $text{'dkim_eos'};
	}
my $config_file = &get_dkim_config_file();
return &text('dkim_econfig', "<tt>$config_file</tt>")
	if (!-r $config_file);
my $init = &get_dkim_init_name();
return &text('dkim_einit', "<tt>$init</tt>")
	if (!&init::action_status($init));

# Check mail server
&require_mail();
if ($config{'mail_system'} > 1) {
	return $text{'dkim_emailsystem'};
	}
elsif ($config{'mail_system'} == 1) {
	-r $sendmail::config{'sendmail_mc'} ||
		return $text{'dkim_esendmailmc'};
	}
return undef;
}

# can_install_dkim()
# Returns 1 if DKIM package installation is supported on this OS
sub can_install_dkim
{
if ($gconfig{'os_type'} eq 'debian-linux' ||
    $gconfig{'os_type'} eq 'redhat-linux') {
	&foreign_require("software");
	return defined(&software::update_system_install);
	}
return 0;
}

# install_dkim_package()
# Attempt to install DKIM filter, outputting progress messages
sub install_dkim_package
{
&foreign_require("software");
my $pkg = &get_dkim_type() eq 'ubuntu' ? 'opendkim' :
	  &get_dkim_type() eq 'freebsd' ? 'opendkim' :
	  &get_dkim_type() eq 'gentoo' ? 'opendkim' :
	  &get_dkim_type() eq 'debian' ? 'dkim-filter' :
	  &get_dkim_type() eq 'redhat' ? 'dkim-milter' :
	  &get_dkim_type() eq 'centos' ? 'opendkim' :
					 'dkim';
my @inst = &software::update_system_install($pkg);
return scalar(@inst) || !&check_dkim();
}

# get_dkim_config()
# Returns a hash containing details of the DKIM configuration and status.
# Keys are :
# enabled - Set to 1 if postfix is setup to use DKIM
# selector - Record within the domain for the key
# extra - Additional domains to enable for
# exclude - Domains for forcibly disable for
# keyfile - Private key file
sub get_dkim_config
{
&foreign_require("init");
my %rv;

# Check if filter is running
my $dkim_config = &get_dkim_config_file();
my $dkim_defaults = &get_dkim_defaults_file();
my $init = &get_dkim_init_name();
if (&get_dkim_type() eq 'debian' || &get_dkim_type() eq 'ubuntu') {
	# Read Debian opendkim config file
	my $conf = &get_open_dkim_config($dkim_config);
	$rv{'enabled'} = &init::action_status($init) == 2;
	$rv{'selector'} = $conf->{'Selector'};
	$rv{'keyfile'} = $conf->{'KeyFile'};

# Read defaults file that specifies port
	my %def;
	&read_env_file($dkim_defaults, \%def);
	if ($def{'SOCKET'} =~ /^inet:(\d+)/) {
		$rv{'port'} = $1;
		}
	elsif ($def{'SOCKET'} =~ /^local:([^:]+)/) {
		$rv{'socket'} = $1;
		}
	else {
		$rv{'enabled'} = 0;
		}

# Parse defaults option to get sign/verify mode
	if ($def{'DAEMON_OPTS'} =~ /-b\s*(\S+)/) {
		my $mode = $1;
		$rv{'sign'} = $mode =~ /s/ ? 1 : 0;
		$rv{'verify'} = $mode =~ /v/ ? 1 : 0;
		}
	else {
		$rv{'sign'} = 1;
		$rv{'verify'} = 1;
		}
	}
elsif (&get_dkim_type() eq 'redhat') {
	# Read Fedora dkim-milter config file
	my $conf = &get_open_dkim_config($dkim_config);
	$rv{'enabled'} = &init::action_status($init) == 2;
	$rv{'selector'} = $conf->{'Selector'};
	$rv{'keyfile'} = $conf->{'KeyFile'};

# Parse defaults option to get sign/verify mode
	if ($def{'EXTRA_FLAGS'} =~ /-b\s*(\S+)/) {
		my $mode = $1;
		$rv{'sign'} = $mode =~ /s/ ? 1 : 0;
		$rv{'verify'} = $mode =~ /v/ ? 1 : 0;
		}
	else {
		$rv{'sign'} = 1;
		$rv{'verify'} = 1;
		}
	}
elsif (&get_dkim_type() eq 'freebsd' || &get_dkim_type() eq 'gentoo') {
	# Read dkim config file
	my $conf = &get_open_dkim_config($dkim_config);
	$rv{'enabled'} = &init::action_status($init) == 2;
	$rv{'selector'} = $conf->{'Selector'};
	$rv{'keyfile'} = $conf->{'KeyFile'};
	
	# Work out socket from config file
	if ($conf->{'Socket'} =~ /^inet:(\d+)/) {
		$rv{'port'} = $1;
		}
	elsif ($conf->{'Socket'} =~ /^local:([^:]+)/) {
		$rv{'socket'} = $1;
		}
	else {
		$rv{'enabled'} = 0;
		}
	
	# Get sign/verify mode
	if ($conf->{'Mode'} =~ /\S+/) {
		$rv{'sign'} = $conf->{'Mode'} =~ /s/ ? 1 : 0;
		$rv{'verify'} = $conf->{'Mode'} =~ /v/ ? 1 : 0;
		}
	else {
		$rv{'sign'} = 1;
		$rv{'verify'} = 1;
		} 
	}
elsif (&get_dkim_type() eq 'centos') {
	# Read CentOS 7+ opendkim config file
	my $conf = &get_open_dkim_config($dkim_config);
	$rv{'enabled'} = &init::action_status($init) == 2;
	$rv{'selector'} = $conf->{'Selector'};
	$rv{'keyfile'} = $conf->{'KeyFile'};

# Work out socket from config file
	if ($conf->{'Socket'} =~ /^inet:(\d+)/) {
		$rv{'port'} = $1;
		}
	elsif ($conf->{'Socket'} =~ /^local:([^:]+)/) {
		$rv{'socket'} = $1;
		}
	else {
		$rv{'enabled'} = 0;
		}

# Parse defaults option to get sign/verify mode
	my %def;
	&read_env_file($dkim_defaults, \%def);
	if ($def{'OPTIONS'} =~ /-b\s*(\S+)/) {
		my $mode = $1;
		$rv{'sign'} = $mode =~ /s/ ? 1 : 0;
		$rv{'verify'} = $mode =~ /v/ ? 1 : 0;
		}
	else {
		$rv{'sign'} = 1;
		$rv{'verify'} = 1;
		}
	}

# Check mail server
&require_mail();
if ($config{'mail_system'} == 0) {
	# Postfix config
	my $wantmilter = $rv{'port'} ? "inet:localhost:$rv{'port'}" :
			 $rv{'socket'} ? "local:$rv{'socket'}" : "";
	my $milters = &postfix::get_real_value("smtpd_milters");
	if ($wantmilter && $milters !~ /\Q$wantmilter\E/) {
		$rv{'enabled'} = 0;
		}
	}
elsif ($config{'mail_system'} == 1) {
	# Sendmail config
	my $wantmilter = $rv{'port'} ? "inet:$rv{'port'}\@localhost" :
			 $rv{'socket'} ? "local:$rv{'socket'}" : "";
	my @feats = &sendmail::list_features();
	my ($milter) = grep { $_->{'text'} =~ /INPUT_MAIL_FILTER/ &&
			      $_->{'text'} =~ /\Q$wantmilter\E/ } @feats;
	if (!$milter) {
		$rv{'enabled'} = 0;
                }
	}

# Add extra domains
$rv{'extra'} = [ split(/\s+/, $config{'dkim_extra'}) ];
$rv{'exclude'} = [ split(/\s+/, $config{'dkim_exclude'}) ];

# Work out key size
if ($rv{'keyfile'} && -r $rv{'keyfile'}) {
	$rv{'size'} = &get_key_size($rv{'keyfile'});
	}

$rv{'enabled'} = 0 if (!$rv{'selector'});
return \%rv;
}

# get_open_dkim_config(file)
# Returns the config file as seen on Debian into as hash ref
sub get_open_dkim_config
{
my ($file) = @_;
my %conf;
open(DKIM, "<".$file) || return undef;
while(my $l = <DKIM>) {
	$l =~ s/#.*$//;
	if ($l =~ /^\s*(\S+)\s+(\S.*)/) {
		$conf{$1} = $2;
		}
	}
close(DKIM);
return \%conf;
}

# save_open_dkim_config(file, directive, value)
# Update a value in the Debian-style config file
sub save_open_dkim_config
{
my ($file, $name, $value) = @_;
my $lref = &read_file_lines($file);
if (defined($value)) {
	# Change value
	my $found = 0;
	foreach my $l (@$lref) {
		if ($l =~ /^\s*(\S+)\s*/ && $1 eq $name) {
			$l = $name." ".$value;
			$found = 1;
			last;
			}
		}

# Change commented value
	if (!$found) {
		foreach my $l (@$lref) {
			if ($l =~ /^\s*#+\s*(\S+)\s*/ && $1 eq $name) {
				$l = $name." ".$value;
				$found = 1;
				last;
				}
			}
		}

# Add to end
	if (!$found) {
		push(@$lref, "$name $value");
		}
	}
else {
	# Comment out if set
	foreach my $l (@$lref) {
		if ($l =~ /^\s*(\S+)\s*/ && $1 eq $name) {
			$l = "# ".$l;
			}
		}
	}
&flush_file_lines($file);
}

# enable_dkim(&dkim, [force-new-key], [key-size])
# Perform all the steps needed to enable DKIM
sub enable_dkim
{
my ($dkim, $newkey, $size) = @_;
&foreign_require("webmin");
&foreign_require("init");

# Find domains that we can enable DKIM for (those with mail and DNS)
&$first_print($text{'dkim_domains'});
my @alldoms = grep { &indexof($_->{'dom'}, @{$dkim->{'exclude'}}) < 0 } &list_domains();
my @doms = grep { $_->{'dns'} && $_->{'mail'} } @alldoms;
if (@doms && @{$dkim->{'extra'}}) {
	&$second_print(&text('dkim_founddomains3', scalar(@doms),
			     scalar(@{$dkim->{'extra'}})));
	}
elsif (@doms) {
	&$second_print(&text('dkim_founddomains', scalar(@doms)));
	}
elsif (@{$dkim->{'extra'}}) {
	&$second_print(&text('dkim_founddomains2',
			     scalar(@{$dkim->{'extra'}})));
	}
else {
	&$second_print($text{'dkim_nodomains'});
	return 0;
	}

# Generate private key
if (!$dkim->{'keyfile'} || !-r $dkim->{'keyfile'} || $newkey) {
	$size ||= 2048;
	$dkim->{'keyfile'} ||= "/etc/dkim.key";
	&$first_print(&text('dkim_newkey', "<tt>$dkim->{'keyfile'}</tt>"));
	my ($ok, $out) = &generate_dkim_key($size);
	if (!$ok) {
		&$second_print(&text('dkim_enewkey',
				"<tt>".&html_escape($out)."</tt>"));
		return 0;
		}
	&open_lock_tempfile(KEY, ">$dkim->{'keyfile'}");
	&print_tempfile(KEY, $out);
	&close_tempfile(KEY);
	&$second_print($text{'setup_done'});
	}

# Make sure key has the right permissions
&set_dkim_keyfile_permissions($dkim->{'keyfile'});

# Get the public key
&$first_print(&text('dkim_pubkey', "<tt>$dkim->{'keyfile'}</tt>"));
my $pubkey = &get_dkim_dns_pubkey($dkim);
if (!$pubkey) {
	&$second_print($text{'dkim_epubkey'});
	return 0;
	}
&$second_print($text{'setup_done'});

# Add domain, key and selector to config file
&$first_print($text{'dkim_config'});
my $dkim_config = &get_dkim_config_file();
if ($dkim_config) {
	# Save domains and key file in config
	&lock_file($dkim_config);
	&save_open_dkim_config($dkim_config, 
		"Selector", $dkim->{'selector'});
	&save_open_dkim_config($dkim_config, 
		"KeyFile", $dkim->{'keyfile'});
	&save_open_dkim_config($dkim_config,
                "Syslog", "yes");

my $conf = &get_open_dkim_config($dkim_config);
	if (&get_dkim_type() eq 'ubuntu' || &get_dkim_type() eq 'freebsd' ||
	    &get_dkim_type() eq 'centos' || &get_dkim_type() eq 'gentoo') {
		# OpenDKIM version supplied with Ubuntu and Debian 6 supports
		# a domains file
		my $domfile = $conf->{'Domain'};
		if ($domfile !~ /^\//) {
			$domfile = $dkim_config;
			$domfile =~ s/\/[^\/]+$/\/dkim-domains.txt/;
			}
		my $newfile = !-r $domfile;
		&open_lock_tempfile(DOMAINS, ">$domfile");
		foreach my $dom ((map { $_->{'dom'} } @doms),
				 @{$dkim->{'extra'}}) {
			&print_tempfile(DOMAINS, "$dom\n");
			}
		&close_tempfile(DOMAINS);
		if ($newfile) {
			&set_ownership_permissions(undef, undef, 0755,$domfile);
			}
		&save_open_dkim_config($dkim_config,
					 "Domain", $domfile);
		
		# Set socket to listen on interface
		if (!$conf->{'Socket'} ||
		    $conf->{'Socket'} =~ /^local:/) {
		        &save_open_dkim_config($dkim_config,
			    "Socket", "inet:8891\@localhost");
			}
		}
	else {
		# Work out mapping file
		&save_open_dkim_config($dkim_config, 
			"Domain", undef);
		my $keylist = $conf->{'KeyList'};
		if (!$keylist) {
			$keylist = $dkim_config;
			$keylist =~ s/\/([^\/]+)$/\/keylist/;
			&save_open_dkim_config($dkim_config,
				"KeyList", $keylist);
			}

# Link key to same directory as mapping file, with selector
		# as filename
		my $selkeyfile = $keylist;
		$selkeyfile =~ s/\/([^\/]+)$/\/$dkim->{'selector'}/;
		if (-e $selkeyfile && !-l $selkeyfile) {
			&$second_print("<b>".&text('dkim_eselfile',
					   "<tt>$selkeyfile</tt>")."</b>");
			return 0;
			}
		&unlink_file($selkeyfile);
		&symlink_file($dkim->{'keyfile'}, $selkeyfile);

# Create key mapping file
		&create_key_mapping_file(\@doms, $keylist, $selkeyfile,
					 $dkim->{'extra'});
		}
		
	if (&get_dkim_type() eq 'freebsd' || &get_dkim_type() eq 'centos' || &get_dkim_type() eq 'gentoo') {
		# Set milter port to listen on
		if (!$conf->{'Socket'} ||
		    $conf->{'Socket'} =~ /^inet:port/ ||
		    $conf->{'Socket'} =~ /^local:/ &&
		      $config{'mail_system'} == 0) {
		        # Set socket if not set, or if a local file
		        # and Postfix is in use
		        &save_open_dkim_config($dkim_config,
			    "Socket", "inet:8891\@localhost");
		        $dkim->{'port'} = 8891;
			}
		elsif ($dkim->{'port'}) {
			# Fix up port if incorrect
			if ($conf->{'Socket'} =~ /^local:/ ||
			    $conf->{'Socket'} =~ /^inet:(\d+)/ &&
			    $1 != $dkim->{'port'}) {
				&save_open_dkim_config($dkim_config,
				  "Socket", "inet:$dkim->{'port'}\@localhost");
				}
			}
		elsif ($dkim->{'socket'}) {
			if ($conf->{'Socket'} =~ /^inet:/ ||
			    $conf->{'Socket'} =~ /^local:(\S+)/ &&
			    $1 ne $dkim->{'socket'}) {
				&save_open_dkim_config($dkim_config,
				  "Socket", "local:$dkim->{'socket'}");
				}
			}

# Save sign/verify mode flags
		my $mode = ($dkim->{'sign'} ? "s" : "").
			   ($dkim->{'verify'} ? "v" : "");
		
		&save_open_dkim_config($dkim_config,
			"Mode", $mode);
		}
	&unlock_file($dkim_config);

# Save list of extra domains
	$config{'dkim_extra'} = join(" ", @{$dkim->{'extra'}});
	$config{'dkim_exclude'} = join(" ", @{$dkim->{'exclude'}});
	&save_module_config();
	}

my $dkim_defaults = &get_dkim_defaults_file();
if (&get_dkim_type() eq 'debian' || &get_dkim_type() eq 'ubuntu') {
	# Set milter port to listen on
	&lock_file($dkim_defaults);
	my %def;
	&read_env_file($dkim_defaults, \%def);
	if (!$def{'SOCKET'} ||
	    $def{'SOCKET'} =~ /^local:/ && $config{'mail_system'} == 0) {
		# Set socket in defaults file if missing, or if a local file
		# and Postfix is in use
		$def{'SOCKET'} = "inet:8891\@localhost";
		$dkim->{'port'} = 8891;
		}

# Save sign/verify mode flags
	my $flags = $def{'DAEMON_OPTS'};
	my $mode = ($dkim->{'sign'} ? "s" : "").
		   ($dkim->{'verify'} ? "v" : "");
	($flags =~ s/-b\s*(\S+)/-b $mode/) ||
		($flags .= ($flags ? " " : "")."-b $mode");
	$def{'DAEMON_OPTS'} = $flags;

&write_env_file($dkim_defaults, \%def);
	&unlock_file($dkim_defaults);
	}
elsif (&get_dkim_type() eq 'centos') {
	# Save sign/verify mode flags
	&lock_file($dkim_defaults);
	my %def;
	my $flags = $def{'OPTIONS'};
	my $mode = ($dkim->{'sign'} ? "s" : "").
		   ($dkim->{'verify'} ? "v" : "");
	($flags =~ s/-b\s*(\S+)/-b $mode/) ||
		($flags .= ($flags ? " " : "")."-b $mode");
	$def{'OPTIONS'} = $flags;

&write_env_file($dkim_defaults, \%def);
	&unlock_file($dkim_defaults);
	}
elsif (&get_dkim_type() eq 'redhat') {
	# Set milter port to listen on
	&lock_file($dkim_defaults);
	my %def;
	&read_env_file($dkim_defaults, \%def);
	if ($config{'mail_system'} == 0 && $dkim->{'socket'}) {
		# Force use of tcp socket in defaults file for postfix
		$def{'SOCKET'} = "inet:8891\@localhost";
		$dkim->{'port'} = 8891;
		delete($dkim->{'socket'});
		}

# Save sign/verify mode flags
	my $flags = $def{'EXTRA_FLAGS'};
	my $mode = ($dkim->{'sign'} ? "s" : "").
		   ($dkim->{'verify'} ? "v" : "");
	($flags =~ s/-b\s*(\S+)/-b $mode/) ||
		($flags .= ($flags ? " " : "")."-b $mode");
	$def{'EXTRA_FLAGS'} = $flags;
	&write_env_file($dkim_defaults, \%def);
	&unlock_file($dkim_defaults);
	}
&$second_print($text{'setup_done'});

# Add public key to DNS zones for all domains that have DNS and email enabled,
# or are on the extra domains list
my %extra = map { $_, 1 } @{$dkim->{'extra'}};
my @dnsdoms = grep { $_->{'dns'} &&
		     ($_->{'mail'} || $extra{$_->{'dom'}}) } @alldoms;
&add_dkim_dns_records(\@dnsdoms, $dkim);

# Remove from excluded domains
my @exdoms = grep { &indexof($_->{'dom'}, @{$dkim->{'exclude'}}) >= 0 }
		  grep { $_->{'dns'} } &list_domains();
if (@exdoms) {
	&remove_dkim_dns_records(\@exdoms, $dkim);
	}

# Enable filter at boot time
&$first_print($text{'dkim_boot'});
my $init = &get_dkim_init_name();
&init::enable_at_boot($init);
&$second_print($text{'setup_done'});

# Re-start filter now
&$first_print($text{'dkim_start'});
&init::stop_action($init);
my ($ok, $out) = &init::start_action($init);
if (!$ok) {
	&$second_print(&text('dkim_estart',
			"<tt>".&html_escape($out)."</tt>"));
	return 0;
	}
&$second_print($text{'setup_done'});

&$first_print($text{'dkim_mailserver'});
&require_mail();
if ($config{'mail_system'} == 0) {
	# Configure Postfix to use filter
	my $newmilter = $dkim->{'port'} ? "inet:localhost:$dkim->{'port'}"
					: "local:$dkim->{'socket'}";
	&lock_file($postfix::config{'postfix_config_file'});
	&postfix::set_current_value("milter_default_action", "accept");
	if (!&postfix::get_current_value("milter_protocol")) {
		&postfix::set_current_value("milter_protocol", 2);
		}
	my $milters = &postfix::get_current_value("smtpd_milters");
	if ($milters !~ /\Q$newmilter\E/) {
		$milters = $milters ? $milters.",".$newmilter : $newmilter;
		&postfix::set_current_value("smtpd_milters", $milters);
		&postfix::set_current_value("non_smtpd_milters", $milters);
		}
	&unlock_file($postfix::config{'postfix_config_file'});

# Apply Postfix config
	&postfix::reload_postfix();
	}
elsif ($config{'mail_system'} == 1) {
	# Configure Sendmail to use filter
	my $newmilter = $dkim->{'port'} ? "inet:$dkim->{'port'}\@localhost"
					: "local:$dkim->{'socket'}";
	&lock_file($sendmail::config{'sendmail_mc'});
	my $changed = 0;
	my @feats = &sendmail::list_features();

# Check for filter definition
	my ($milter) = grep { $_->{'text'} =~ /INPUT_MAIL_FILTER/ &&
			      $_->{'text'} =~ /\Q$newmilter\E/ } @feats;
	if (!$milter) {
		# Add to .mc file
		&sendmail::create_feature({
			'type' => 0,
	    		'text' =>
			  "INPUT_MAIL_FILTER(`dkim-filter', `S=$newmilter')" });
		$changed++;
		}

# Check for config for filters to call
	my ($def) = grep { $_->{'type'} == 2 &&
			   $_->{'name'} eq 'confINPUT_MAIL_FILTERS' } @feats;
	if ($def) {
		my @filters = split(/,/, $def->{'value'});
		if (&indexof("dkim-filter", @filters) < 0) {
			# Add to existing define
			push(@filters, 'dkim-filter');
			$def->{'value'} = join(',', @filters);
			&sendmail::modify_feature($def);
			$changed++;
			}
		}
	else {
		# Add the define
		&sendmail::create_feature({
			'type' => 2,
			'name' => 'confINPUT_MAIL_FILTERS',
			'value' => 'dkim-filter' });
		$changed++;
		}

if ($changed) {
		&rebuild_sendmail_cf();
		}
	&unlock_file($sendmail::config{'sendmail_mc'});
	if ($changed) {
		&sendmail::restart_sendmail();
		}
	}
&$second_print($text{'setup_done'});

return 1;
}

# get_dkim_dns_pubkey(&dkim, &domain)
# Returns the public key in a format suitable for inclusion in a DNS record
sub get_dkim_dns_pubkey
{
my ($dkim, $d) = @_;
my $pubkey = &get_dkim_pubkey($dkim, $d);
return undef if (!$pubkey);
$pubkey =~ s/\-+(BEGIN|END)\s+PUBLIC\s+KEY\-+//g;
$pubkey =~ s/\s+//g;
return $pubkey;
}

# get_dkim_pubkey(&dkim, &domain)
# Returns the public key in PEM format
sub get_dkim_pubkey
{
my ($dkim, $d) = @_;
my $keyfile = &get_domain_dkim_key($d) ||
	      $dkim->{'keyfile'};
my $pubkey = &backquote_command(
        "openssl rsa -in ".quotemeta($keyfile).
        " -pubout -outform PEM 2>/dev/null");
if ($? || $pubkey !~ /BEGIN\s+PUBLIC\s+KEY/) {
	return undef;
        }
return $pubkey;
}

# get_dkim_privkey(&dkim, &domain)
# Returns the private key in PEM format
sub get_dkim_privkey
{
my ($dkim, $d) = @_;
my $keyfile = &get_domain_dkim_key($d) ||
	      $dkim->{'keyfile'};
return &read_file_contents($keyfile);
}

# disable_dkim(&dkim)
# Turn off the DKIM filter and mail server integration
sub disable_dkim
{
my ($dkim) = @_;
&foreign_require("init");

# Remove from DNS
my @doms = grep { $_->{'dns'} && $_->{'mail'} } &list_domains();
&remove_dkim_dns_records(\@doms, $dkim);

&$first_print($text{'dkim_unmailserver'});
&require_mail();
if ($config{'mail_system'} == 0) {
	# Configure Postfix to not use filter
	my $oldmilter = $dkim->{'port'} ? "inet:localhost:$dkim->{'port'}"
					: "local:$dkim->{'socket'}";
	&lock_file($postfix::config{'postfix_config_file'});
	my $milters = &postfix::get_current_value("smtpd_milters");
	if ($milters =~ /\Q$oldmilter\E/) {
		$milters = join(",", grep { $_ ne $oldmilter }
				split(/\s*,\s*/, $milters));
		&postfix::set_current_value("smtpd_milters", $milters);
		&postfix::set_current_value("non_smtpd_milters", $milters);
		}
	&unlock_file($postfix::config{'postfix_config_file'});

# Apply Postfix config
	&postfix::reload_postfix();
	}
elsif ($config{'mail_system'} == 1) {
	# Configure Sendmail to not use filter
	my $oldmilter = $dkim->{'port'} ? "inet:$dkim->{'port'}\@localhost"
					: "local:$dkim->{'socket'}";
	&lock_file($sendmail::config{'sendmail_mc'});
	my @feats = &sendmail::list_features();
	my $changed = 0;

# Remove from list of milter to call
	my ($def) = grep { $_->{'type'} == 2 &&
			   $_->{'name'} eq 'confINPUT_MAIL_FILTERS' } @feats;
	if ($def) {
		my @filters = split(/,/, $def->{'value'});
		@filters = grep { $_ ne 'dkim-filter' } @filters;
		if (@filters) {
			# Some still left, so update
			$def->{'value'} = join(',', @filters);
			&sendmail::modify_feature($def);
			}
		else {
			# Delete completely
			&sendmail::delete_feature($def);
			}
		$changed++;
		}

# Remove milter definition
	my ($milter) = grep { $_->{'text'} =~ /INPUT_MAIL_FILTER/ &&
			      $_->{'text'} =~ /\Q$oldmilter\E/ } @feats;
	if ($milter) {
		&sendmail::delete_feature($milter);
		$changed++;
		}

if ($changed) {
		&rebuild_sendmail_cf();
		}
	&unlock_file($sendmail::config{'sendmail_mc'});
	if ($changed) {
		&sendmail::restart_sendmail();
		}
	}
&$second_print($text{'setup_done'});

# Stop filter now
&$first_print($text{'dkim_stop'});
my $init = &get_dkim_init_name();
&init::stop_action($init);
&$second_print($text{'setup_done'});

# Disable filter at boot time
&$first_print($text{'dkim_unboot'});
&init::disable_at_boot($init);
&$second_print($text{'setup_done'});

return 1;
}

# update_dkim_domains(&domain, action, [no-dns])
# Updates the list of domains to sign mail for, if needed
sub update_dkim_domains
{
my ($d, $action, $nodns) = @_;
return if (&check_dkim());
&lock_file(&get_dkim_config_file());
my $dkim = &get_dkim_config();
return if (!$dkim || !$dkim->{'enabled'});

# Enable DKIM for all domains with mail
my @doms = grep { $_->{'mail'} && $_->{'dns'} } &list_domains();
if (($action eq 'setup' || $action eq 'modify')) {
	push(@doms, $d);
	}
elsif ($action eq 'delete') {
	@doms = grep { $_->{'id'} ne $d->{'id'} } @doms;
	}
my %done;
@doms = grep { !$done{$_->{'id'}}++ } @doms;
@doms = grep { &indexof($_->{'dom'}, @{$dkim->{'exclude'}}) < 0 } @doms;
&set_dkim_domains(\@doms, $dkim);
&unlock_file(&get_dkim_config_file());

# Add or remove DNS records
if ($d->{'dns'} && !$nodns) {
	if ($action eq 'setup' || $action eq 'modify') {
		&add_dkim_dns_records([ $d ], $dkim);
		}
	elsif ($action eq 'delete') {
		&remove_dkim_dns_records([ $d ], $dkim);
		}
	}
}

# create_key_mapping_file(&domains, mapping-file, key-file, &extra-domains)
# Write out a file of all domains to perform DKIM on
sub create_key_mapping_file
{
my ($doms, $keylist, $keyfile, $extra) = @_;

# Build a list of existing domains with their own keys
my $lref = &read_file_lines($keylist, 1);
my %keymap;
foreach my $l (@$lref) {
	my ($pat, $dom, $file) = split(/:/, $l);
	if (!&same_file($file, $keyfile)) {
		$keymap{$dom} = $file;
		}
	}

# Re-write the whole mapping file
&open_lock_tempfile(KEYLIST, ">$keylist");
foreach my $d (@$doms) {
	&print_tempfile(KEYLIST,
		"*\@".$d->{'dom'}.":".$d->{'dom'}.":".
		($keymap{$d->{'dom'}} || $keyfile)."\n");
	}
foreach my $dname (@$extra) {
	&print_tempfile(KEYLIST,
		"*\@".$dname.":".$dname.":".($keymap{$dname} || $keyfile)."\n");
	}
&close_tempfile(KEYLIST);
&set_ownership_permissions(undef, undef, 0755, $keylist);
}

# set_dkim_domains(&domains, &dkim)
# Configure the DKIM filter to sign mail for the given list of domaisn
sub set_dkim_domains
{
my ($doms, $dkim) = @_;
my $dkim_config = &get_dkim_config_file();
my $init = &get_dkim_init_name();
my $dkim = &get_dkim_config();
if ($dkim_config) {
	my $conf = &get_open_dkim_config($dkim_config);
	my $keylist = $conf->{'KeyList'};
	if ($keylist) {
		# Update key to domain map
		&save_open_dkim_config($dkim_config, 
			"Domain", undef);
		my $selector = $conf->{'Selector'};
		my $keylist = $conf->{'KeyList'};
		my $selkeyfile = $keylist;
		$selkeyfile =~ s/\/([^\/]+)$/\/$selector/;
		&create_key_mapping_file($doms, $keylist, $selkeyfile,
					 $dkim->{'extra'});
		}
	else {
		# Just set list of domains
		my $domfile = $conf->{'Domain'};
		if ($domfile !~ /^\//) {
			$domfile = $dkim_config;
			$domfile =~ s/\/[^\/]+$/\/dkim-domains.txt/;
			}
		&open_lock_tempfile(DOMAINS, ">$domfile");
		foreach my $dom ((map { $_->{'dom'} } @$doms),
				 @{$dkim->{'extra'}}) {
			&print_tempfile(DOMAINS, "$dom\n");
			}
		&close_tempfile(DOMAINS);
		&save_open_dkim_config($dkim_config,
					 "Domain", $domfile);
		}

# Restart milter
	&foreign_require("init");
	if (&init::action_status($init)) {
		&init::restart_action($init);
		}
	}
}

# get_dkim_domains(&dkim)
# Returns the list of all domains currently being signed for
sub get_dkim_domains
{
my ($dkim) = @_;
my $dkim_config = &get_dkim_config_file();
return ( ) if (!$dkim_config);
my $conf = &get_open_dkim_config($dkim_config);
my $keylist = $conf->{'KeyList'};
my @rv;
if ($keylist) {
	# Use the key mapping file
	my $lref = &read_file_lines($keylist, 1);
	foreach my $l (@$lref) {
		my @w = split(/:/, $l);
		push(@rv, $w[1]);
		}
	}
else {
	# Use a domains file
	my $file = $conf->{'Domain'};
	if ($file && -r $file) {
		my $lref = &read_file_lines($file, 1);
		@rv = grep { !/^#/ && /\S/ } @$lref;
		}
	}
return @rv;
}

# add_dkim_dns_records(&domains, &dkim)
# Add DKIM DNS records to the given list of domains
sub add_dkim_dns_records
{
my ($doms, $dkim) = @_;
my $anychanged = 0;
foreach my $d (@$doms) {
	&$first_print(&text('dkim_dns', "<tt>$d->{'dom'}</tt>"));
	if (&indexof($d->{'dom'}, @{$dkim->{'exclude'}}) >= 0) {
		&$second_print($text{'dkim_ednsexclude'});
		next;
		}
	&pre_records_change($d);
	my ($recs, $file) = &get_domain_dns_records_and_file($d);
	if (!$file) {
		&after_records_change($d);
		&$second_print($text{'dkim_ednszone'});
		next;
		}
	&obtain_lock_dns($d);
	my $changed = &add_domain_dkim_record($d, $dkim, $recs, $file);
	if ($changed) {
		my $err = &post_records_change($d, $recs, $file);
		if ($err) {
			&$second_print(&text('dkim_ednsadded', $err));
			}
		else {
			&$second_print($text{'dkim_dnsadded'});
			}
		$anychanged++;
		}
	else {
		&after_records_change($d);
		&$second_print($text{'dkim_dnsalready'});
		}
	&release_lock_dns($d);
	}
&register_post_action(\&restart_bind) if ($anychanged);
}

# add_domain_dkim_record(&domain, &dkim, &recs, file)
# Add the DKIM record for a single domain to its zone file
sub add_domain_dkim_record
{
my ($d, $dkim, $recs, $file) = @_;
my $withdot = $d->{'dom'}.'.';
my $dkname = '_domainkey.'.$withdot;
my $changed = 0;
my $selname = $dkim->{'selector'}.'.'.$dkname;
my ($selrec) = grep { $_->{'name'} eq $selname && 
		      $_->{'type'} eq 'TXT' } @$recs;
my $pubkey = &get_dkim_dns_pubkey($dkim, $d);
if (!$selrec) {
	# Add new record
	my $selrec = { 'name' => $selname,
		       'type' => 'TXT',
		       'values' => [ 'v=DKIM1; k=rsa; t=s; p='.
				     $pubkey ] };
	&create_dns_record($recs, $file, $selrec);
	$changed++;
	}
elsif ($selrec && join("", @{$selrec->{'values'}}) !~ /p=\Q$pubkey\E/) {
	# Fix existing record
	my $val = join("", @{$selrec->{'values'}});
	if ($val !~ s/p=([^;]+)/p=$pubkey/) {
		$val = 'k=rsa; t=s; p='.$pubkey;
		}
	$selrec->{'values'} = [ $val ];
	$changed++;
	}
return $changed;
}

# remove_dkim_dns_records(&domains, &dkim)
# Delete all DKIM TXT records from the given DNS domains
sub remove_dkim_dns_records
{
my ($doms, $dkim) = @_;
my $anychanged = 0;
foreach my $d (@$doms) {
	&$first_print(&text('dkim_undns', "<tt>$d->{'dom'}</tt>"));
	&pre_records_change($d);
	my ($recs, $file) = &get_domain_dns_records_and_file($d);
	if (!$file) {
		&after_records_change($d);
		&$second_print($text{'dkim_ednszone'});
		next;
		}
	&obtain_lock_dns($d);
	my $changed = &remove_domain_dkim_record($d, $dkim, $recs, $file);
	if ($changed) {
		&post_records_change($d, $recs, $file);
		&$second_print($text{'dkim_dnsremoved'});
		$anychanged++;
		}
	else {
		&after_records_change($d);
		&$second_print($text{'dkim_dnsalreadygone'});
		}
	&release_lock_dns($d);
	}
&register_post_action(\&restart_bind) if ($anychanged);
}

# remove_domain_dkim_record(&domain, &dkim, &recs, file)
# Remove the DKIM records for a single domain from its zone file
sub remove_domain_dkim_record
{
my ($d, $dkim, $recs, $file) = @_;
my $withdot = $d->{'dom'}.'.';
my $dkname = '_domainkey.'.$withdot;
my ($dkrec) = grep { $_->{'name'} eq $dkname &&
		     $_->{'type'} eq 'TXT' } @$recs;
my $selname = $dkim->{'selector'}.'.'.$dkname;
my ($selrec) = grep { $_->{'name'} eq $selname &&
		      $_->{'type'} eq 'TXT' } @$recs;
my $changed = 0;
if ($selrec) {
	&delete_dns_record($recs, $selrec->{'file'}, $selrec);
	$changed++;
	}
if ($dkrec) {
	&delete_dns_record($recs, $dkrec->{'file'}, $dkrec);
	$changed++;
	}
return $changed;
}

# rebuild_sendmail_cf()
# Rebuild sendmail's .cf file from the .mc file
sub rebuild_sendmail_cf
{
my $cmd = "cd $sendmail::config{'sendmail_features'}/m4 ; ".
	  "m4 $sendmail::config{'sendmail_features'}/m4/cf.m4 ".
	  "$sendmail::config{'sendmail_mc'}";
&lock_file($sendmail::config{'sendmail_cf'});
&system_logged("$cmd 2>/dev/null >$sendmail::config{'sendmail_cf'} ".
	       "</dev/null");
&unlock_file($sendmail::config{'sendmail_cf'});
}

# get_domain_dkim_key(&domain)
# Returns the DKIM private key file for a domain
sub get_domain_dkim_key
{
my ($d) = @_;
my $dkim_config = &get_dkim_config_file();
return undef if (!-r $dkim_config);
my $conf = &get_open_dkim_config($dkim_config);
if ($conf->{'KeyList'}) {
	# Old-style file mapping domains to key files
	my $keyfile = $conf->{'KeyFile'};
	my $lref = &read_file_lines($conf->{'KeyList'}, 1);
	foreach my $l (@$lref) {
		my ($pat, $dom, $file) = split(/:/, $l);
		if ($dom eq $d->{'dom'} && !&same_file($file, $keyfile)) {
			# Has it's own key
			return $file;
			}
		}
	}
elsif ($conf->{'SigningTable'} && $conf->{'KeyTable'}) {
	# New style mapping domains to key names, and key names to files
	my $signingfile = $conf->{'SigningTable'};
	$signingfile =~ s/^[a-z]+://;
	my $slref = &read_file_lines($signingfile, 1);
	my $keyname;
	foreach my $l (@$slref) {
		my ($re, $name) = split(/\s+/, $l);
		if ($re eq "*\@$d->{'dom'}") {
			$keyname = $name;
			last;
			}
		}
	return undef if (!$keyname);
	my $keyfile = $conf->{'KeyTable'};
	$keyfile =~ s/^[a-z]+://;
	my $klref = &read_file_lines($keyfile, 1);
	foreach my $l (@$klref) {
		my ($name, $kdom, $ksel, $kfile) = split(/\s+|:/, $l);
		if ($name eq $keyname) {
			return $kfile;
			}
		}
	}
return undef;
}

# save_domain_dkim_key(&domain, [key-text])
# Updates the private key for a domain (also in DNS)
sub save_domain_dkim_key
{
my ($d, $key) = @_;
&$first_print($key ? $text{'domdkim_setkey'} : $text{'domdkim_clearkey'});
my $dkim = &get_dkim_config();
my $dkim_config = &get_dkim_config_file();
if (!-r $dkim_config) {
	&$second_print($text{'domdkim_econfig'});
	return 0;
	}
my $conf = &get_open_dkim_config($dkim_config);
if (&get_dkim_type() ne 'ubuntu' && &get_dkim_type() ne 'centos') {
	# Old style which supports a single key list file
	if (!$conf->{'KeyList'}) {
		&$second_print($text{'domdkim_ekeylist'});
		return 0;
		}
	my $keyfile = $conf->{'KeyFile'};
	&lock_file($conf->{'KeyList'});
	my $lref = &read_file_lines($conf->{'KeyList'});
	my $selkeyfile = $conf->{'KeyList'};
	$selkeyfile =~ s/\/([^\/]+)$/\/$dkim->{'selector'}/;
	foreach my $l (@$lref) {
		my ($pat, $dom, $file) = split(/:/, $l);
		if ($dom eq $d->{'dom'}) {
			# Found the domain's line
			if ($key) {
				# Use a custom key file. The suffix is used as
				# the selector name by dkim-milter
				my $dir = $conf->{'KeyList'};
				$dir =~ s/\/([^\/]+)$/\/$d->{'id'}/;
				if (-f $dir) {
					&unlink_file($dir);
					}
				&make_dir($dir, 0755);
				$file = "$dir/$dkim->{'selector'}";
				&open_lock_tempfile(PRIVKEY, ">$file");
				&print_tempfile(PRIVKEY, $key);
				&close_tempfile(PRIVKEY);
				&set_dkim_keyfile_permissions($file);
				}
			else {
				# Revert to default (which is a link to the
				# actual key)
				$file = $selkeyfile;
				}
			$l = join(":", $pat, $dom, $file);
			}
		}
	&flush_file_lines($conf->{'KeyList'});
	&unlock_file($conf->{'KeyList'});
	}
else {
	# New style with SigningTable and KeyTable options

# Add missing directives if needed
	if (!$conf->{'SigningTable'}) {
		$conf->{'SigningTable'} = "refile:".$dkim_config;
		$conf->{'SigningTable'} =~ s/\/([^\/]+)$/\/dkim-signingtable/;
		&save_open_dkim_config($dkim_config,
			"SigningTable", $conf->{'SigningTable'});
		}
	if (!$conf->{'KeyTable'}) {
		$conf->{'KeyTable'} = $dkim_config;
		$conf->{'KeyTable'} =~ s/\/([^\/]+)$/\/dkim-keytable/;
		&save_open_dkim_config($dkim_config,
			"KeyTable", $conf->{'KeyTable'});
		}

# Find domain's entry in signing table
	my $signingfile = $conf->{'SigningTable'};
	$signingfile =~ s/^[a-z]+://;
	my $newfile = !-r $signingfile;
	&lock_file($signingfile);
	my $slref = &read_file_lines($signingfile);
	if (!@$slref) {
		# Add entry for the default key
		push(@$slref, "*\tdefault");
		}
	my $i = 0;
	my $sidx = -1;
	foreach my $l (@$slref) {
		my ($re, $name) = split(/\s+/, $l);
		if ($re eq "*\@$d->{'dom'}") {
			$sidx = $i;
			last;
			}
		$i++;
		}
	if ($sidx < 0 && $key) {
		# Need to add (at the start, so it matches first)
		splice(@$slref, 0, 0, "*\@$d->{'dom'}\t$d->{'id'}");
		}
	elsif ($sidx >= 0 && !$key) {
		# Need to remove
		splice(@$slref, $sidx, 1);
		}
	&flush_file_lines($signingfile);
	&unlock_file($signingfile);
	if ($newfile) {
		&set_ownership_permissions(undef, undef, 0755, $signingfile);
		}

# Find domain's entry in key table
	my $keytablefile = $conf->{'KeyTable'};
	$keytablefile =~ s/^[a-z]+://;
	$newfile = !-r $keytablefile;
	&lock_file($keytablefile);
	my $klref = &read_file_lines($keytablefile);
	if (!@$klref) {
		# Add entry for the default key
		push(@$klref, "default\t%:$dkim->{'selector'}:".
			      $dkim->{'keyfile'});
		}
	$i = 0;
	my $kidx = -1;
	foreach my $l (@$klref) {
		my ($name, $kdom, $ksel, $kfile) = split(/\s+|:/, $l);
		if ($name eq $d->{'id'}) {
			$kidx = $i;
			last;
			}
		$i++;
		}
	my $keyfile = $dkim_config;
	$keyfile =~ s/\/([^\/]+)$/\/$d->{'id'}.dkim-key/;
	my $keyline = "$d->{'id'}\t$d->{'dom'}:$dkim->{'selector'}:$keyfile";
	if ($kidx < 0 && $key) {
		# Need to add
		&open_lock_tempfile(PRIVKEY, ">$keyfile");
		&print_tempfile(PRIVKEY, $key);
		&close_tempfile(PRIVKEY);
		&set_dkim_keyfile_permissions($keyfile);
		push(@$klref, $keyline);
		}
	elsif ($kidx >= 0 && !$key) {
		# Need to remove
		splice(@$klref, $kidx, 1);
		}
	elsif ($kidx >= 0 && $key) {
		# Need to update
		$klref->[$kidx] = $keyline;
		}
	&flush_file_lines($keytablefile);
	&unlock_file($keytablefile);
	if ($newfile) {
		&set_ownership_permissions(undef, undef, 0755, $keytablefile);
		}
	}
&$second_print($text{'setup_done'});

if ($d->{'dns'}) {
	&add_dkim_dns_records([ $d ], $dkim);
	}

# Restart milter
my $init = &get_dkim_init_name();
&foreign_require("init");
if (&init::action_status($init)) {
	&init::restart_action($init);
	}

return 1;
}

# generate_dkim_key([size])
# Generate a new DKIM PEM format key of the given size. Returns either 0 and
# an error message, or 1 and the key text
sub generate_dkim_key
{
my ($size) = @_;
$size ||= 2048;
my $temp = &transname();
my $out = &backquote_logged("openssl genrsa -out ".
	quotemeta($temp)." $size 2>&1 </dev/null");
my $ex = $?;
my $key = &read_file_contents($temp);
&unlink_file($temp);
if ($ex) {
	return (0, $out);
	}
else {
	return (1, $key);
	}
}

# set_dkim_keyfile_permissions(keyfile)
# Set the ownership and perms on a key file
sub set_dkim_keyfile_permissions
{
my ($keyfile) = @_;
if (&get_dkim_type() eq 'ubuntu' || &get_dkim_type() eq 'centos') {
	&set_ownership_permissions("opendkim", undef, 0700, $keyfile);
	}
elsif (&get_dkim_type() eq 'debian') {
	&set_ownership_permissions("dkim-filter", undef, 0700, $keyfile);
	}
elsif (&get_dkim_type() eq 'redhat') {
	&set_ownership_permissions("dkim-milter", undef, 0700, $keyfile);
	}
elsif (&get_dkim_type() eq 'gentoo') {
	&set_ownership_permissions("milter", undef, 0700, $keyfile);
	}
elsif (&get_dkim_type() eq 'freebsd') {
	&set_ownership_permissions("opendkim", undef, 0700, $keyfile);
	}
}

# get_default_dkim_selector()
# Returns a default selector based on the current month and year
sub get_default_dkim_selector
{
my @tm = localtime(time());
return sprintf "%4.4d%2.2d", $tm[5] + 1900, $tm[4];
}

${this.title}

Code Editor : dkim-lib.pl