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
xinha	[ DIR ]	drwxr-xr-x	2025-02-07 09:25
CHANGELOG	5.7 KB	-rw-r--r--	2026-07-17 21:17
Makefile	125 B	-rw-r--r--	2026-07-17 21:17
acl_security.pl	3.02 KB	-rwxr-xr-x	2026-07-17 21:17
boxes-lib.pl	85.02 KB	-rwxr-xr-x	2026-07-17 21:17
cgi_args.pl	520 B	-rwxr-xr-x	2026-07-17 21:17
config	794 B	-rw-r--r--	2026-07-17 21:17
config.info	5.38 KB	-rw-r--r--	2026-07-17 21:17
config.info.ca	5.8 KB	-rw-r--r--	2026-07-17 21:17
config.info.cs	5.21 KB	-rw-r--r--	2026-07-17 21:17
config.info.de	6.28 KB	-rw-r--r--	2026-07-17 21:17
config.info.el	8.15 KB	-rw-r--r--	2026-07-17 21:17
config.info.fi	0 B	-rw-r--r--	2026-07-17 21:17
config.info.fr	6.42 KB	-rw-r--r--	2026-07-17 21:17
config.info.hu	0 B	-rw-r--r--	2026-07-17 21:17
config.info.it	5.98 KB	-rw-r--r--	2026-07-17 21:17
config.info.ja	5.98 KB	-rw-r--r--	2026-07-17 21:17
config.info.ko	5.3 KB	-rw-r--r--	2026-07-17 21:17
config.info.nl	5.49 KB	-rw-r--r--	2026-07-17 21:17
config.info.no	5.26 KB	-rw-r--r--	2026-07-17 21:17
config.info.pt_BR	0 B	-rw-r--r--	2026-07-17 21:17
config_info.pl	389 B	-rwxr-xr-x	2026-07-17 21:17
defaultacl	50 B	-rw-r--r--	2026-07-17 21:17
delete_all.cgi	1.25 KB	-rwxr-xr-x	2026-07-17 21:22
delete_mail.cgi	7 KB	-rwxr-xr-x	2026-07-17 21:22
detach.cgi	3.65 KB	-rwxr-xr-x	2026-07-17 21:22
detachall.cgi	1.84 KB	-rwxr-xr-x	2026-07-17 21:22
find.cgi	731 B	-rwxr-xr-x	2026-07-17 21:22
folders-lib.pl	133.18 KB	-rwxr-xr-x	2026-07-17 21:17
index.cgi	2.73 KB	-rwxr-xr-x	2026-07-17 21:22
list_mail.cgi	5.24 KB	-rwxr-xr-x	2026-07-17 21:22
log_parser.pl	1.02 KB	-rwxr-xr-x	2026-07-17 21:17
mail_search.cgi	3.68 KB	-rwxr-xr-x	2026-07-17 21:22
mailboxes-lib.pl	33.71 KB	-rwxr-xr-x	2026-07-17 21:17
makelang.pl	1.35 KB	-rwxr-xr-x	2026-07-17 21:22
module.info	137 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	145 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	167 B	-rw-r--r--	2026-07-17 21:17
module.info.ca	97 B	-rw-r--r--	2026-07-17 21:17
module.info.cs	37 B	-rw-r--r--	2026-07-17 21:17
module.info.cs.auto	75 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	72 B	-rw-r--r--	2026-07-17 21:17
module.info.de	77 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	232 B	-rw-r--r--	2026-07-17 21:17
module.info.es	38 B	-rw-r--r--	2026-07-17 21:17
module.info.es.auto	72 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	110 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	141 B	-rw-r--r--	2026-07-17 21:17
module.info.fi	27 B	-rw-r--r--	2026-07-17 21:17
module.info.fi.auto	61 B	-rw-r--r--	2026-07-17 21:17
module.info.fr	40 B	-rw-r--r--	2026-07-17 21:17
module.info.fr.auto	76 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	108 B	-rw-r--r--	2026-07-17 21:17
module.info.hu	38 B	-rw-r--r--	2026-07-17 21:17
module.info.hu.auto	72 B	-rw-r--r--	2026-07-17 21:17
module.info.it	27 B	-rw-r--r--	2026-07-17 21:17
module.info.it.auto	76 B	-rw-r--r--	2026-07-17 21:17
module.info.ja	39 B	-rw-r--r--	2026-07-17 21:17
module.info.ja.auto	79 B	-rw-r--r--	2026-07-17 21:17
module.info.ko	29 B	-rw-r--r--	2026-07-17 21:17
module.info.ko.auto	65 B	-rw-r--r--	2026-07-17 21:17
module.info.ms	73 B	-rw-r--r--	2026-07-17 21:17
module.info.nl	30 B	-rw-r--r--	2026-07-17 21:17
module.info.nl.auto	57 B	-rw-r--r--	2026-07-17 21:17
module.info.no	27 B	-rw-r--r--	2026-07-17 21:17
module.info.no.auto	47 B	-rw-r--r--	2026-07-17 21:17
module.info.pl	118 B	-rw-r--r--	2026-07-17 21:17
module.info.pl.auto	67 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	94 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR	34 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR.auto	65 B	-rw-r--r--	2026-07-17 21:17
module.info.ru	63 B	-rw-r--r--	2026-07-17 21:17
module.info.ru.auto	99 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	120 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	78 B	-rw-r--r--	2026-07-17 21:17
module.info.tr	104 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	193 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	79 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW	33 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW.auto	55 B	-rw-r--r--	2026-07-17 21:17
prefs.info	240 B	-rw-r--r--	2026-07-17 21:17
reply_mail.cgi	16.74 KB	-rwxr-xr-x	2026-07-17 21:22
safeacl	32 B	-rw-r--r--	2026-07-17 21:17
search_form.cgi	1.86 KB	-rwxr-xr-x	2026-07-17 21:22
send_mail.cgi	11.9 KB	-rwxr-xr-x	2026-07-17 21:22
slideshow.cgi	1.63 KB	-rwxr-xr-x	2026-07-17 21:22
useradmin_update.pl	2.33 KB	-rwxr-xr-x	2026-07-17 21:17
view_mail.cgi	11.24 KB	-rwxr-xr-x	2026-07-17 21:22
xhr-lib.pl	2.34 KB	-rw-r--r--	2026-07-17 21:22
xhr.cgi	351 B	-rwxr-xr-x	2026-07-17 21:22

Rename

do 'mailboxes-lib.pl';

# useradmin_create_user(&details)
# Create a new empty mail file
sub useradmin_create_user
{
if ($config{'sync_create'} && !&test_mail_system()) {
	local ($dir, $style, $mailbox, $maildir) = &get_mail_style();
	if ($dir && -d $dir) {
		# Create mail file like /var/mail/USERNAME
		local $mf = &mail_file_style($_[0]->{'user'}, $dir, $style);
		if (!-e $mf) {
			&create_mail_file($_[0], $mf);
			}
		}
	if ($mailbox && !-e "$_[0]->{'home'}/$mailbox") {
		# Create mail file ~USERNAME/Mailbox
		&create_mail_file($_[0], "$_[0]->{'home'}/$mailbox");
		}
	if ($maildir && !-e "$_[0]->{'home'}/$maildir") {
		# Create mail directory like ~USERNAME/Maildir
		&create_mail_dir($_[0], "$_[0]->{'home'}/$maildir");
		}
	}
}

# create_mail_file(&user, file)
sub create_mail_file
{
open(TOUCH, ">$_[1]");
close(TOUCH);
if ($config{'sync_perms'}) {
	system("chmod ".
	       quotemeta($config{'sync_perms'})." ".
	       quotemeta($_[1]));
	}
chown($_[0]->{'uid'}, $_[0]->{'gid'}, $_[1]);
}

# create_mail_dir(&user, dir)
sub create_mail_dir
{
local $d;
foreach $d ($_[1], "$_[0]/cur", "$_[1]/tmp", "$_[1]/new") {
	&make_dir($d, 0700);
	if ($config{'sync_perms'}) {
		system("chmod ".
		       quotemeta($config{'sync_perms'})." ".
		       quotemeta($d));
		}
	chown($_[0]->{'uid'}, $_[0]->{'gid'}, $d);
	}
}

# useradmin_delete_user(&details)
# Delete the user's mail file
sub useradmin_delete_user
{
if ($config{'sync_delete'} && !&test_mail_system()) {
	local ($dir, $style, $mailbox, $maildir) = &get_mail_style();
	if ($dir && -d $dir) {
		local $mf = &mail_file_style($_[0]->{'user'}, $dir, $style);
		unlink($mf);
		unlink($mf.".pop");
		}
	&delete_user_index_files($_[0]->{'user'});
	}
}

# useradmin_modify_user(&details, &old)
# Rename the user's mail file if necessary, and change it's UID
sub useradmin_modify_user
{
if ($config{'sync_modify'} && !&test_mail_system() &&
    ($_[0]->{'user'} ne $_[1]->{'user'} || $_[0]->{'uid'} != $_[1]->{'uid'})) {
	local ($dir, $style, $mailbox, $maildir) = &get_mail_style();
	if ($dir && -d $dir) {
		local $omf = &mail_file_style($_[0]->{'olduser'}, $dir, $style);
		local $nmf = &mail_file_style($_[0]->{'user'}, $dir, $style);
		local @st = stat($omf);
		if ($st[4] != $_[0]->{'uid'}) {
			chown($_[0]->{'uid'}, $st[5], $omf);
			}
		if ($omf ne $nmf && -e $omf) {
			&rename_logged($omf, $nmf);
			}
		}
	}
}