Gecko [ 167.86.127.34 ]

Name	Size	Permission
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
CHANGELOG	1.49 KB	-rw-r--r--
apply.cgi	199 B	-rwxr-xr-x
backup_config.pl	735 B	-rwxr-xr-x
bootup.cgi	416 B	-rwxr-xr-x
cgi_args.pl	150 B	-rwxr-xr-x
config	135 B	-rw-r--r--
config-AlmaLinux-7.0-ALL	128 B	-rw-r--r--
config-Amazon-Linux	124 B	-rw-r--r--
config-CentOS-Stream-Linux-8.0...	128 B	-rw-r--r--
config-CloudLinux-8.0-ALL	128 B	-rw-r--r--
config-Oracle-Linux-8.0-ALL	128 B	-rw-r--r--
config-Rocky-Linux-7.0-ALL	128 B	-rw-r--r--
config-debian-linux	124 B	-rw-r--r--
config-freebsd-8.0-8.9	150 B	-rw-r--r--
config-freebsd-9-ALL	142 B	-rw-r--r--
config-gentoo-linux	104 B	-rw-r--r--
config-mandrake-linux	116 B	-rw-r--r--
config-openSUSE-Linux-15.0-ALL	124 B	-rw-r--r--
config-openmamba-linux	116 B	-rw-r--r--
config-pardus-linux	104 B	-rw-r--r--
config-redhat-linux-11.0-23.0	142 B	-rw-r--r--
config-redhat-linux-24.0-ALL	146 B	-rw-r--r--
config-suse-linux	124 B	-rw-r--r--
config-syno-linux	162 B	-rw-r--r--
config.info	240 B	-rw-r--r--
config.info.bg	306 B	-rw-r--r--
config.info.ca	225 B	-rw-r--r--
config.info.cs	208 B	-rw-r--r--
config.info.de	187 B	-rw-r--r--
config.info.es	218 B	-rw-r--r--
config.info.fr	0 B	-rw-r--r--
config.info.hr	0 B	-rw-r--r--
config.info.hu	0 B	-rw-r--r--
config.info.it	185 B	-rw-r--r--
config.info.nl	186 B	-rw-r--r--
config.info.no	179 B	-rw-r--r--
config.info.pl	189 B	-rw-r--r--
config.info.zh_TW	192 B	-rw-r--r--
dovecot-lib.pl	14.9 KB	-rwxr-xr-x
edit_login.cgi	7.75 KB	-rwxr-xr-x
edit_mail.cgi	5.13 KB	-rwxr-xr-x
edit_manual.cgi	928 B	-rwxr-xr-x
edit_net.cgi	1.67 KB	-rwxr-xr-x
edit_ssl.cgi	2.1 KB	-rwxr-xr-x
index.cgi	1.96 KB	-rwxr-xr-x
install_check.pl	370 B	-rwxr-xr-x
log_parser.pl	424 B	-rwxr-xr-x
module.info	168 B	-rw-r--r--
module.info.af	0 B	-rw-r--r--
module.info.af.auto	103 B	-rw-r--r--
module.info.ar	0 B	-rw-r--r--
module.info.ar.auto	120 B	-rw-r--r--
module.info.be	0 B	-rw-r--r--
module.info.be.auto	125 B	-rw-r--r--
module.info.bg	0 B	-rw-r--r--
module.info.bg.auto	178 B	-rw-r--r--
module.info.ca	116 B	-rw-r--r--
module.info.cs	33 B	-rw-r--r--
module.info.cs.auto	80 B	-rw-r--r--
module.info.da	0 B	-rw-r--r--
module.info.da.auto	94 B	-rw-r--r--
module.info.de	102 B	-rw-r--r--
module.info.el	0 B	-rw-r--r--
module.info.el.auto	200 B	-rw-r--r--
module.info.es	39 B	-rw-r--r--
module.info.es.auto	82 B	-rw-r--r--
module.info.eu	0 B	-rw-r--r--
module.info.eu.auto	121 B	-rw-r--r--
module.info.fa	0 B	-rw-r--r--
module.info.fa.auto	135 B	-rw-r--r--
module.info.fi	0 B	-rw-r--r--
module.info.fi.auto	111 B	-rw-r--r--
module.info.fr	0 B	-rw-r--r--
module.info.fr.auto	122 B	-rw-r--r--
module.info.he	0 B	-rw-r--r--
module.info.he.auto	139 B	-rw-r--r--
module.info.hr	0 B	-rw-r--r--
module.info.hr.auto	127 B	-rw-r--r--
module.info.hu	36 B	-rw-r--r--
module.info.hu.auto	74 B	-rw-r--r--
module.info.it	33 B	-rw-r--r--
module.info.it.auto	73 B	-rw-r--r--
module.info.ja	0 B	-rw-r--r--
module.info.ja.auto	126 B	-rw-r--r--
module.info.ko	0 B	-rw-r--r--
module.info.ko.auto	119 B	-rw-r--r--
module.info.lt	0 B	-rw-r--r--
module.info.lt.auto	122 B	-rw-r--r--
module.info.lv	0 B	-rw-r--r--
module.info.lv.auto	108 B	-rw-r--r--
module.info.ms	113 B	-rw-r--r--
module.info.mt	0 B	-rw-r--r--
module.info.mt.auto	118 B	-rw-r--r--
module.info.nl	33 B	-rw-r--r--
module.info.nl.auto	69 B	-rw-r--r--
module.info.no	33 B	-rw-r--r--
module.info.no.auto	54 B	-rw-r--r--
module.info.pl	116 B	-rw-r--r--
module.info.pt	0 B	-rw-r--r--
module.info.pt.auto	119 B	-rw-r--r--
module.info.pt_BR	0 B	-rw-r--r--
module.info.pt_BR.auto	125 B	-rw-r--r--
module.info.ro	0 B	-rw-r--r--
module.info.ro.auto	117 B	-rw-r--r--
module.info.ru	41 B	-rw-r--r--
module.info.ru.auto	98 B	-rw-r--r--
module.info.sk	0 B	-rw-r--r--
module.info.sk.auto	108 B	-rw-r--r--
module.info.sl	0 B	-rw-r--r--
module.info.sl.auto	117 B	-rw-r--r--
module.info.sv	0 B	-rw-r--r--
module.info.sv.auto	105 B	-rw-r--r--
module.info.th	0 B	-rw-r--r--
module.info.th.auto	196 B	-rw-r--r--
module.info.tr	0 B	-rw-r--r--
module.info.tr.auto	109 B	-rw-r--r--
module.info.uk	0 B	-rw-r--r--
module.info.uk.auto	135 B	-rw-r--r--
module.info.ur	0 B	-rw-r--r--
module.info.ur.auto	131 B	-rw-r--r--
module.info.vi	0 B	-rw-r--r--
module.info.vi.auto	122 B	-rw-r--r--
module.info.zh	0 B	-rw-r--r--
module.info.zh.auto	99 B	-rw-r--r--
module.info.zh_TW	0 B	-rw-r--r--
module.info.zh_TW.auto	105 B	-rw-r--r--
save_login.cgi	5.91 KB	-rwxr-xr-x
save_mail.cgi	2.77 KB	-rwxr-xr-x
save_manual.cgi	520 B	-rwxr-xr-x
save_net.cgi	960 B	-rwxr-xr-x
save_ssl.cgi	1.89 KB	-rwxr-xr-x
start.cgi	194 B	-rwxr-xr-x
stop.cgi	190 B	-rwxr-xr-x

Code Editor : save_login.cgi

#!/usr/bin/perl
# Update login options

require './dovecot-lib.pl';
&ReadParse();
&error_setup($text{'login_err'});
$conf = &get_config();
&lock_dovecot_files($conf);

# Allowed and default realm
&save_directive($conf, "auth_realms",
		$in{'realms_def'} ? undef : $in{'realms'});
&save_directive($conf, "auth_default_realm",
		$in{'realm_def'} ? undef : $in{'realm'});

# Authentication mechanisms
if (&find("auth_mechanisms", $conf, 2)) {
	&save_directive($conf, "auth_mechanisms",
			join(" ", split(/\0/, $in{'mechs'})));
	}
else {
	&save_directive($conf, "mechanisms",
			join(" ", split(/\0/, $in{'mechs'})), "auth","default");
	}

# User database
$userdb = $in{'usermode'};
if ($in{'usermode'} eq 'passwd-file') {
	-r $in{'passwdfile'} || &error($text{'login_epasswdfile'});
	$userdb .= " ".$in{'passwdfile'};
	}
elsif ($in{'usermode'} eq 'static') {
	$in{'uid'} =~ /^\d+$/ || &error($text{'login_euid'});
	$in{'gid'} =~ /^\d+$/ || &error($text{'login_egid'});
	$in{'home'} || &error($text{'login_ehome'});
	$userdb .= " uid=".$in{'uid'}." gid=".$in{'gid'}.
		   " home=".$in{'home'};
	}
elsif ($in{'usermode'} eq 'ldap') {
	-r $in{'ldap'} || &error($text{'login_eldap'});
	$userdb .= " ".$in{'ldap'};
	}
elsif ($in{'usermode'} eq 'pgsql') {
	-r $in{'pgsql'} || &error($text{'login_epgsql'});
	$userdb .= " ".$in{'pgsql'};
	}
elsif ($in{'usermode'} eq 'sql') {
	-r $in{'sql'} || &error($text{'login_esql'});
	$userdb .= " ".$in{'sql'};
	}
elsif ($in{'usermode'} eq '') {
	$userdb = $in{'other'};
	}
if ($usec = &find_section("userdb", $conf, undef, "auth", "default")) {
	# Version 1.0.alpha format, which has a userdb *section*
	($svalue, $args) = split(/\s+/, $userdb, 2);
	$usec->{'value'} = $svalue;
	$usec->{'members'} = [ grep { $_->{'name'} ne 'args' }
				    @{$usec->{'members'}} ];
	if ($args) {
		$usec->{'members'} = [ { 'name' => 'args',
					 'value' => $args } ];
		}
	&save_section($conf, $usec);
	}
elsif (&find("auth_userdb", $conf, 2)) {
	# Version 0.99 format
	&save_directive($conf, "auth_userdb", $userdb);
	}
elsif (&find_value("driver", $conf, 2, "userdb")) {
	# Version 2.0 format
	$args = $userdb =~ s/\s+(\S.*)$// ? $1 : undef;
	&save_directive($conf, "driver", $userdb, "userdb");
	&save_directive($conf, "args", $args, "userdb");
	}
else {
	# Version 1.0 format
	&save_directive($conf, "userdb", $userdb, "auth", "default");
	}

# Password mode
$passdb = $in{'passmode'};
if ($in{'passmode'} eq 'dpam') {
	$passdb = "pam";
	}
elsif ($in{'passmode'} eq 'pam') {
	$in{'ppam'} =~ /^\S+$/ || &error($text{'login_edpam'});
	if (defined($in{'ppam_ckey'}) && !$in{'ppam_ckey_def'}) {
		$ckey = $in{'ppam_ckey'};
		$ckey =~ /^\S+$/ || &error($text{'login_eckey'});
		}
	$passdb .= ($in{'ppam_session'} ? " -session" : "").
		   ($ckey ? " cache_key=$ckey" : "").
		   " ".$in{'ppam'};
	}
elsif ($in{'passmode'} eq 'passwd-file') {
	-r $in{'ppasswdfile'} || &error($text{'login_epasswdfile'});
	$passdb .= " ".$in{'ppasswdfile'};
	}
elsif ($in{'passmode'} eq 'ldap') {
	-r $in{'pldap'} || &error($text{'login_eldap'});
	$passdb .= " ".$in{'pldap'};
	}
elsif ($in{'passmode'} eq 'pgsql') {
	-r $in{'ppgsql'} || &error($text{'login_epgsql'});
	$passdb .= " ".$in{'ppgsql'};
	}
elsif ($in{'passmode'} eq 'sql') {
	-r $in{'psql'} || &error($text{'login_esql'});
	$passdb .= " ".$in{'psql'};
	}
elsif ($in{'passmode'} eq 'bsdauth') {
	$in{'bsdauth_ckey_def'} || $in{'bsdauth_ckey'} =~ /^\S+$/ ||
		&error($text{'login_eckey'});
	$passdb .= " cache_key=$in{'bsdauth_ckey'}"
		if (!$in{'bsdauth_ckey_def'});
	}
elsif ($in{'passmode'} eq 'checkpassword') {
	-x $in{'checkpassword'} || &error($text{'login_echeckpassword'});
	$passdb .= " ".$in{'checkpassword'};
	}
elsif ($in{'passmode'} eq '') {
	$passdb = $in{'other'};
	}
# XXX other modes
if ($psec = &find_section("passdb", $conf, undef, "auth", "default")) {
	# Version 1.0.alpha format
	($svalue, $args) = split(/\s+/, $passdb, 2);
	$psec->{'value'} = $svalue;
	$psec->{'members'} = [ grep { $_->{'name'} ne 'args' }
				    @{$psec->{'members'}} ];
	if ($args) {
		$psec->{'members'} = [ { 'name' => 'args',
					 'value' => $args } ];
		}
	&save_section($conf, $psec);
	}
elsif (&find("auth_passdb", $conf, 2)) {
	# Version 0.99 format
	&save_directive($conf, "auth_passdb", $passdb);
	}
elsif (&find_value("driver", $conf, 2, "passdb")) {
	# Version 2.0 format
	$args = $passdb =~ s/\s+(\S.*)$// ? $1 : undef;
	&save_directive($conf, "driver", $passdb, "passdb");
	&save_directive($conf, "args", $args, "passdb");
	}
else {
	# Version 1.0 format
	&save_directive($conf, "passdb", $passdb, "auth", "default");
	}

# Allowed UIDs and GIDs
$in{'fuid_def'} || $in{'fuid'} =~ /^\d+$/ || &error($text{'login_efuid'});
&save_directive($conf, "first_valid_uid",
		$in{'fuid_def'} ? undef : $in{'fuid'});

$in{'luid_def'} || $in{'luid'} =~ /^\d+$/ || &error($text{'login_eluid'});
&save_directive($conf, "last_valid_uid",
		$in{'luid_def'} ? undef : $in{'luid'});

$in{'fgid_def'} || $in{'fgid'} =~ /^\d+$/ || &error($text{'login_efgid'});
&save_directive($conf, "first_valid_gid",
		$in{'fgid_def'} ? undef : $in{'fgid'});

$in{'lgid_def'} || $in{'lgid'} =~ /^\d+$/ || &error($text{'login_elgid'});
&save_directive($conf, "last_valid_gid",
		$in{'lgid_def'} ? undef : $in{'lgid'});

&save_directive($conf, "mail_extra_groups",
		$in{'extra_def'} ? undef : $in{'extra'});

$in{'chroot_def'} || -d $in{'chroot'} || &error($text{'login_echroot'});
&save_directive($conf, "mail_chroot",
		$in{'chroot_def'} ? undef : $in{'chroot'});

if (&find("login_max_processes_count", $conf, 2)) {
	$in{'procs_def'} || $in{'procs'} =~ /^\d+$/ ||
		&error($text{'login_eprocs'});
	&save_directive($conf, "login_max_processes_count",
			$in{'procs_def'} ? undef : $in{'procs'});
	}

if (&find("login_processes_count", $conf, 2)) {
	$in{'count_def'} || $in{'count'} =~ /^\d+$/ ||
		&error($text{'login_ecount'});
	&save_directive($conf, "login_processes_count",
			$in{'count_def'} ? undef : $in{'count'});
	}

&flush_file_lines();
&unlock_dovecot_files($conf);
&webmin_log("login");
&redirect("");

${this.title}

Code Editor : save_login.cgi