Gecko [ contributie.vriendennsm.nl ]

Name	Size	Permission	Date
images	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
lang	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
CHANGELOG	1.49 KB	-rw-r--r--	2026-07-17 21:17
apply.cgi	199 B	-rwxr-xr-x	2026-07-17 21:22
backup_config.pl	735 B	-rwxr-xr-x	2026-07-17 21:17
bootup.cgi	416 B	-rwxr-xr-x	2026-07-17 21:22
cgi_args.pl	150 B	-rwxr-xr-x	2026-07-17 21:17
config	135 B	-rw-r--r--	2026-07-17 21:17
config-AlmaLinux-7.0-ALL	128 B	-rw-r--r--	2026-07-17 21:17
config-Amazon-Linux	124 B	-rw-r--r--	2026-07-17 21:17
config-CentOS-Stream-Linux-8.0-ALL	128 B	-rw-r--r--	2026-07-17 21:17
config-CloudLinux-8.0-ALL	128 B	-rw-r--r--	2026-07-17 21:17
config-Oracle-Linux-8.0-ALL	128 B	-rw-r--r--	2026-07-17 21:17
config-Rocky-Linux-7.0-ALL	128 B	-rw-r--r--	2026-07-17 21:17
config-debian-linux	124 B	-rw-r--r--	2026-07-17 21:17
config-freebsd-8.0-8.9	150 B	-rw-r--r--	2026-07-17 21:17
config-freebsd-9-ALL	142 B	-rw-r--r--	2026-07-17 21:17
config-gentoo-linux	104 B	-rw-r--r--	2026-07-17 21:17
config-mandrake-linux	116 B	-rw-r--r--	2026-07-17 21:17
config-openSUSE-Linux-15.0-ALL	124 B	-rw-r--r--	2026-07-17 21:17
config-openmamba-linux	116 B	-rw-r--r--	2026-07-17 21:17
config-pardus-linux	104 B	-rw-r--r--	2026-07-17 21:17
config-redhat-linux-11.0-23.0	142 B	-rw-r--r--	2026-07-17 21:17
config-redhat-linux-24.0-ALL	146 B	-rw-r--r--	2026-07-17 21:17
config-suse-linux	124 B	-rw-r--r--	2026-07-17 21:17
config-syno-linux	162 B	-rw-r--r--	2026-07-17 21:17
config.info	240 B	-rw-r--r--	2026-07-17 21:17
config.info.bg	306 B	-rw-r--r--	2026-07-17 21:17
config.info.ca	225 B	-rw-r--r--	2026-07-17 21:17
config.info.cs	208 B	-rw-r--r--	2026-07-17 21:17
config.info.de	187 B	-rw-r--r--	2026-07-17 21:17
config.info.es	218 B	-rw-r--r--	2026-07-17 21:17
config.info.fr	0 B	-rw-r--r--	2026-07-17 21:17
config.info.hr	0 B	-rw-r--r--	2026-07-17 21:17
config.info.hu	0 B	-rw-r--r--	2026-07-17 21:17
config.info.it	185 B	-rw-r--r--	2026-07-17 21:17
config.info.nl	186 B	-rw-r--r--	2026-07-17 21:17
config.info.no	179 B	-rw-r--r--	2026-07-17 21:17
config.info.pl	189 B	-rw-r--r--	2026-07-17 21:17
config.info.zh_TW	192 B	-rw-r--r--	2026-07-17 21:17
config_info.pl	371 B	-rw-r--r--	2026-07-17 21:17
dovecot-lib.pl	15.84 KB	-rwxr-xr-x	2026-07-17 21:17
edit_login.cgi	7.87 KB	-rwxr-xr-x	2026-07-17 21:22
edit_mail.cgi	5.29 KB	-rwxr-xr-x	2026-07-17 21:22
edit_manual.cgi	928 B	-rwxr-xr-x	2026-07-17 21:22
edit_net.cgi	1.87 KB	-rwxr-xr-x	2026-07-17 21:22
edit_ssl.cgi	2.84 KB	-rwxr-xr-x	2026-07-17 21:22
index.cgi	1.96 KB	-rwxr-xr-x	2026-07-17 21:22
install_check.pl	370 B	-rwxr-xr-x	2026-07-17 21:17
log_parser.pl	424 B	-rwxr-xr-x	2026-07-17 21:17
module.info	168 B	-rw-r--r--	2026-07-17 21:17
module.info.ar	0 B	-rw-r--r--	2026-07-17 21:17
module.info.ar.auto	120 B	-rw-r--r--	2026-07-17 21:17
module.info.bg	0 B	-rw-r--r--	2026-07-17 21:17
module.info.bg.auto	178 B	-rw-r--r--	2026-07-17 21:17
module.info.ca	116 B	-rw-r--r--	2026-07-17 21:17
module.info.cs	33 B	-rw-r--r--	2026-07-17 21:17
module.info.cs.auto	80 B	-rw-r--r--	2026-07-17 21:17
module.info.da	0 B	-rw-r--r--	2026-07-17 21:17
module.info.da.auto	94 B	-rw-r--r--	2026-07-17 21:17
module.info.de	102 B	-rw-r--r--	2026-07-17 21:17
module.info.el	0 B	-rw-r--r--	2026-07-17 21:17
module.info.el.auto	200 B	-rw-r--r--	2026-07-17 21:17
module.info.es	39 B	-rw-r--r--	2026-07-17 21:17
module.info.es.auto	82 B	-rw-r--r--	2026-07-17 21:17
module.info.eu	0 B	-rw-r--r--	2026-07-17 21:17
module.info.eu.auto	121 B	-rw-r--r--	2026-07-17 21:17
module.info.fa	0 B	-rw-r--r--	2026-07-17 21:17
module.info.fa.auto	135 B	-rw-r--r--	2026-07-17 21:17
module.info.fi	0 B	-rw-r--r--	2026-07-17 21:17
module.info.fi.auto	111 B	-rw-r--r--	2026-07-17 21:17
module.info.fr	0 B	-rw-r--r--	2026-07-17 21:17
module.info.fr.auto	122 B	-rw-r--r--	2026-07-17 21:17
module.info.hr	0 B	-rw-r--r--	2026-07-17 21:17
module.info.hr.auto	127 B	-rw-r--r--	2026-07-17 21:17
module.info.hu	36 B	-rw-r--r--	2026-07-17 21:17
module.info.hu.auto	74 B	-rw-r--r--	2026-07-17 21:17
module.info.it	33 B	-rw-r--r--	2026-07-17 21:17
module.info.it.auto	73 B	-rw-r--r--	2026-07-17 21:17
module.info.ja	0 B	-rw-r--r--	2026-07-17 21:17
module.info.ja.auto	126 B	-rw-r--r--	2026-07-17 21:17
module.info.ko	0 B	-rw-r--r--	2026-07-17 21:17
module.info.ko.auto	119 B	-rw-r--r--	2026-07-17 21:17
module.info.ms	113 B	-rw-r--r--	2026-07-17 21:17
module.info.nl	33 B	-rw-r--r--	2026-07-17 21:17
module.info.nl.auto	69 B	-rw-r--r--	2026-07-17 21:17
module.info.no	33 B	-rw-r--r--	2026-07-17 21:17
module.info.no.auto	54 B	-rw-r--r--	2026-07-17 21:17
module.info.pl	116 B	-rw-r--r--	2026-07-17 21:17
module.info.pt	0 B	-rw-r--r--	2026-07-17 21:17
module.info.pt.auto	119 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR	0 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR.auto	125 B	-rw-r--r--	2026-07-17 21:17
module.info.ru	41 B	-rw-r--r--	2026-07-17 21:17
module.info.ru.auto	98 B	-rw-r--r--	2026-07-17 21:17
module.info.sk	0 B	-rw-r--r--	2026-07-17 21:17
module.info.sk.auto	108 B	-rw-r--r--	2026-07-17 21:17
module.info.sv	0 B	-rw-r--r--	2026-07-17 21:17
module.info.sv.auto	105 B	-rw-r--r--	2026-07-17 21:17
module.info.tr	0 B	-rw-r--r--	2026-07-17 21:17
module.info.tr.auto	109 B	-rw-r--r--	2026-07-17 21:17
module.info.uk	0 B	-rw-r--r--	2026-07-17 21:17
module.info.uk.auto	135 B	-rw-r--r--	2026-07-17 21:17
module.info.zh	0 B	-rw-r--r--	2026-07-17 21:17
module.info.zh.auto	99 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW	0 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW.auto	105 B	-rw-r--r--	2026-07-17 21:17
save_login.cgi	6.19 KB	-rwxr-xr-x	2026-07-17 21:22
save_mail.cgi	3.47 KB	-rwxr-xr-x	2026-07-17 21:22
save_manual.cgi	520 B	-rwxr-xr-x	2026-07-17 21:22
save_net.cgi	1.77 KB	-rwxr-xr-x	2026-07-17 21:22
save_ssl.cgi	2.62 KB	-rwxr-xr-x	2026-07-17 21:22
start.cgi	194 B	-rwxr-xr-x	2026-07-17 21:22
stop.cgi	190 B	-rwxr-xr-x	2026-07-17 21:22

Rename

#!/usr/bin/perl
# Show mail file options

require './dovecot-lib.pl';
&ui_print_header(undef, $text{'mail_title'}, "");
$conf = &get_config();

print &ui_form_start("save_mail.cgi", "post");
print &ui_table_start($text{'mail_header'}, "width=100%", 4);

# Mail file location. Old versions used default_mail_env, new uses mail_location
$envmode = 4;
if (&find("default_mail_env", $conf, 2)) {
	$env = &find_value("default_mail_env", $conf);
	}
elsif (&find("mail_path", $conf, 2)) {
	$env = &find_value("mail_path", $conf);
	}
else {
	$env = &find_value("mail_location", $conf);
	}
if ($env =~ s/:INDEX=([^:]+)//) {
	$index = $1;
	}
elsif (&find("mail_index_path", $conf, 2)) {
	$index = &find_value("mail_index_path", $conf);
	}
if ($env =~ s/:CONTROL=([^:]+)//) {
	$control = $1;
	}
elsif (&find("mail_control_path", $conf, 2)) {
	$control = &find_value("mail_control_path", $conf);
	}
for($i=0; $i<@mail_envs; $i++) {
	$envmode = $i if ($mail_envs[$i] eq $env);
	}
print &ui_table_row($text{'mail_env'},
	&ui_radio("envmode", $envmode,
		[ ( map { [ $_, $text{'mail_env'.$_}." " ] } (
			&version_atleast("2.4") ? (0) : (0 .. 3)) ),
		 [ 4, &text('mail_env4',
			&ui_textbox("other", $envmode == 4 ? $env : undef, 40)) ] ],
		), 3);

# Mail file format
if (&version_atleast("2.4")) {
	$driver = &find_value("mail_driver", $conf);
	print &ui_table_row($text{'mail_driver'},
		&ui_radio("driver", $driver,
			   [ [ "", $text{'mail_driver_def'} ],
			     [ "auto", $text{'mail_driver_auto'} ],
			     [ "mbox", $text{'mail_driver_mbox'} ],
			     [ "maildir", $text{'mail_driver_maildir'} ],
			     [ "dbox", $text{'mail_driver_dbox'} ],
			     [ "imapc", $text{'mail_driver_imapc'} ],
			     [ "pop3c", $text{'mail_driver_auto'} ] ]));
	}

# Index files location
$indexmode = $index eq 'MEMORY' ? 1 :
	 $index ? 2 : 0;
print &ui_table_row($text{'mail_index'},
	&ui_radio("indexmode", $indexmode,
	 [ [ 0, $text{'mail_index0'}." " ],
	 [ 1, $text{'mail_index1'}." " ],
	 [ 2, &text('mail_index2',
		 &ui_textbox("index", $indexmode == 2 ? $index : "", 40)) ]
	 ]), 3);

# Control files location
print &ui_table_row($text{'mail_control'},
	&ui_radio("controlmode", $control ? 1 : 0,
	 [ [ 0, $text{'mail_index0'}." " ],
	 [ 1, &text('mail_index2',
		 &ui_textbox("control", $control, 40)) ] ]), 3);

print &ui_table_hr();

# Idle interval
$idle = &find_value("mailbox_idle_check_interval", $conf);
$idle_never = $idle =~ /520\s+weeks/;
print &ui_table_row($text{'mail_idle'},
	&ui_radio("idle", $idle eq '' ? 0 : $idle_never ? 1 : 2,
		  [ [ 1, $text{'mail_never'} ],
		    [ 2, &ui_textbox("idlei", $idle && !$idle_never ? int($idle) : "", 10).
			 " ".$text{'mail_secs'} ],
		    [ 0, &getdef("mailbox_idle_check_interval",
				 [ [ 0, $text{'mail_never'} ] ]) ] ]), 3);

# Full FS access
@opts = ( [ "yes", $text{'yes'} ], [ "no", $text{'no'} ] );
$full = &find_value("mail_full_filesystem_access", $conf);
print &ui_table_row($text{'mail_full'},
	&ui_radio("full", $full,
	  [ @opts,
	    [ "", &getdef("mail_full_filesystem_access", \@opts) ] ]), 3);

# CRLF save mode
$crlf = &find_value("mail_save_crlf", $conf);
@opts = ( [ "yes", $text{'yes'} ], [ "no", $text{'no'} ] );
print &ui_table_row($text{'mail_crlf'},
	&ui_radio("crlf", $crlf,
	  [ @opts,
	    [ "", &getdef("mail_save_crlf", \@opts) ] ]), 3);

# Allow changing of files
$dirty = &find("mbox_dirty_syncs", $conf, 2) ?
		"mbox_dirty_syncs" : "maildir_check_content_changes";
$change = &find_value($dirty, $conf);
print &ui_table_row($text{'mail_change'},
	&ui_radio("change", $change,
	  [ @opts,
	    [ "", &getdef($dirty, \@opts) ] ]), 3);

# Permissions on files
if (&version_below("2")) {
	$umask = &find_value("umask", $conf);
	print &ui_table_row($text{'mail_umask'},
		&ui_opt_textbox("umask", $umask, 5, &getdef("umask")), 3);
	}

# Allow POP3 last command
if (&find("pop3_enable_last", $conf, 2)) {
	$last = &find_value("pop3_enable_last", $conf);
	@opts = ( [ 'yes', $text{'yes'} ], [ 'no', $text{'no'} ] );
	print &ui_table_row($text{'mail_last'},
		&ui_radio("pop3_enable_last", $last,
		  [ [ '', &getdef("pop3_enable_last", \@opts) ],
		    @opts ]), 3);
	}

# Index lock method
if (&find("lock_method", $conf, 2)) {
	$method = &find_value("lock_method", $conf);
	@opts = map { [ $_, $text{'mail_'.$_} ] } &list_lock_methods(1);
	print &ui_table_row($text{'mail_lock'},
		&ui_select("lock_method", $method,
			   [ @opts,
			     [ '', &getdef("lock_method", \@opts) ] ],
			   1, 0, 1), 3);
	}

# Mailbox lock methods
@opts = map { [ $_, $text{'mail_'.$_} ] } &list_lock_methods(0);
foreach $l ("mbox_read_locks", "mbox_write_locks") {
	next if (!&find($l, $conf, 2));
	$def = &find_value($l, $conf, 1);
	$defmsg = join(", ", map { $text{'mail_'.$_} || $_ }
				 split(/\s+/, $def));
	$defmsg = " ($defmsg)" if ($defmsg);
	$method = &find_value($l, $conf);
	$defsel = &ui_radio($l."_def", $method ? 0 : 1,
			 [ [ 1, $text{'default'}.$defmsg ],
			 [ 0, $text{'mail_sel'} ] ]);
	$methsel = "";
	@methods = split(/\s+/, $method);
	for(my $i=0; $i<@opts; $i++) {
		$methsel .= &ui_select($l."_".$i, $methods[$i],
				 [ [ '', "&lt;$text{'mail_none'}&gt;" ],
					 @opts ], 1, 0, 1);
		}
	print &ui_table_row($text{'mail_'.$l},
			 $defsel." \n".$methsel, 3);
	}

print &ui_table_end();
print &ui_form_end([ [ "save", $text{'save'} ] ]);

&ui_print_footer("", $text{'index_return'});