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

#!/usr/bin/perl
# index.cgi
# Display all users on the system

require './mailboxes-lib.pl';

if ($config{'mail_system'} == 3) {
	# Need to detect mail server
	$ms = &detect_mail_system();
	if ($ms == 3) {
		&ui_print_header(undef, $text{'index_title'}, "", undef, 1, 1);
		&ui_print_endpage(&text('index_esystem',
					"../config.cgi?$module_name"));
		}
	else {
		$config{'mail_system'} = $ms;
		&save_module_config();
		}
	}
elsif (!$config{'send_mode'} || $config{'auto'}) {
	# Make sure mail system is valid
	local ($ms) = grep { $_->[1] == $config{'mail_system'} }
			   @mail_system_modules;
	if (!&check_mail_system($ms)) {
		&ui_print_header(undef, $text{'index_title'}, "", undef, 1, 1);
		&ui_print_endpage(&text('index_esystem2',
					"../config.cgi?$module_name"));
		}
	}

# Make sure mail system is running
$err = &test_mail_system();
if ($err) {
	&ui_print_header(undef, $text{'index_title'}, "", undef, 1, 1);
	&ui_print_endpage(&text('index_esystem3',
				"../config.cgi?$module_name", $err));
	}

# Show main page header
&ui_print_header(undef, $text{'index_title'}, "", undef, 1, 1, 0,
		 undef, undef, undef,
		 $text{'index_system'.$config{'mail_system'}});

# Check for Perl modules for SMTP authentication
if ($config{'smtp_user'}) {
	local @needed = ( "Authen::SASL" );
	local $smode = $config{'smtp_auth'} || "Cram-MD5";
	$smode = uc($smode);
	$smode =~ s/-/_/g;
	push(@needed, "Authen::SASL::Perl::$smode");
	foreach $n (@needed) {
		eval "use $n";
		if ($@) {
			&ui_print_endpage(
				"".&text('index_eperl', "<tt>$n</tt>",
				 "/cpan/download.cgi?source=3&cpan=$n&mode=2&".
				 "return=/$module_name/&returndesc=".
				 &urlize($text{'index_return'}))."\n".
				"$text{'index_eperl2'}\n".
				"<pre>$@</pre>\n");
			}
		}
	}

# Build a list of all available users
@users = &list_mail_users($config{'max_records'}, \&can_user);

$form = 0;
if (!@users) {
	# No users!
	print "$text{'index_none'} \n";
	}
elsif ($config{'max_records'} && @users > $config{'max_records'}) {
	# Show input for searching for a user
	print $text{'index_toomany'},"\n";
	print &ui_form_start("find.cgi");
	print &ui_submit($text{'index_find'}),"\n";
	print &ui_select("match", undef, [ [ "0", $text{'index_equals'} ],
					 [ "1", $text{'index_contains'} ] ]),"\n";
	print &ui_user_textbox("user"),"\n";
	print &ui_form_end();
	$form++;
	}
else {
	# Show using selected mode and sort
	&show_users_table(\@users, $config{'show_mail'});
	}

if (&allowed_directory()) {
	# Show form to view any mail file
	print &ui_hr();
	print &ui_form_start("list_mail.cgi");
	print &ui_submit($text{'index_file'}),"\n";
	print &ui_textbox("user", undef, 40),"\n",
	 &file_chooser_button("user", $form)," \n";
	print &ui_form_end();
	}

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