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
ulang	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
CHANGELOG	15.09 KB	-rw-r--r--	2026-07-19 16:26
add_address.cgi	611 B	-rwxr-xr-x	2026-07-19 16:28
address_chooser.cgi	5.09 KB	-rwxr-xr-x	2026-07-19 16:28
auto.pl	1.94 KB	-rwxr-xr-x	2026-07-19 16:28
boxes-lib.pl	85.02 KB	-rwxr-xr-x	2026-07-19 16:26
classlinks.sh	160 B	-rwxr-xr-x	2026-07-19 16:26
config-ALL-linux	503 B	-rw-r--r--	2026-07-19 16:26
config-aix	482 B	-rw-r--r--	2026-07-19 16:26
config-freebsd	478 B	-rw-r--r--	2026-07-19 16:26
config-hpux	478 B	-rw-r--r--	2026-07-19 16:26
config-irix	477 B	-rw-r--r--	2026-07-19 16:26
config-macos	478 B	-rw-r--r--	2026-07-19 16:26
config-msc-linux	495 B	-rw-r--r--	2026-07-19 16:26
config-netbsd	478 B	-rw-r--r--	2026-07-19 16:26
config-openbsd	478 B	-rw-r--r--	2026-07-19 16:26
config-openserver	483 B	-rw-r--r--	2026-07-19 16:26
config-osf1	484 B	-rw-r--r--	2026-07-19 16:26
config-qnx	499 B	-rw-r--r--	2026-07-19 16:26
config-solaris	477 B	-rw-r--r--	2026-07-19 16:26
config-unixware	477 B	-rw-r--r--	2026-07-19 16:26
config.info	3.23 KB	-rw-r--r--	2026-07-19 16:26
config.info.ca	3.54 KB	-rwxr-xr-x	2026-07-19 16:26
config.info.de	1.59 KB	-rw-r--r--	2026-07-19 16:26
config.info.el	4.76 KB	-rw-r--r--	2026-07-19 16:26
config.info.hu	0 B	-rw-r--r--	2026-07-19 16:26
config.info.nl	2.9 KB	-rwxr-xr-x	2026-07-19 16:26
config.info.no	3.09 KB	-rw-r--r--	2026-07-19 16:26
copy.cgi	848 B	-rwxr-xr-x	2026-07-19 16:28
copy_form.cgi	1.13 KB	-rwxr-xr-x	2026-07-19 16:28
defaultuconfig	763 B	-rw-r--r--	2026-07-19 16:26
delete_folders.cgi	1.32 KB	-rwxr-xr-x	2026-07-19 16:28
delete_mail.cgi	6.94 KB	-rwxr-xr-x	2026-07-19 16:28
detach.cgi	3.12 KB	-rwxr-xr-x	2026-07-19 16:28
detachall.cgi	1.96 KB	-rwxr-xr-x	2026-07-19 16:28
edit_auto.cgi	1.81 KB	-rwxr-xr-x	2026-07-19 16:28
edit_comp.cgi	1.58 KB	-rwxr-xr-x	2026-07-19 16:28
edit_folder.cgi	2.67 KB	-rwxr-xr-x	2026-07-19 16:28
edit_ifolder.cgi	1.05 KB	-rwxr-xr-x	2026-07-19 16:28
edit_imap.cgi	1.86 KB	-rwxr-xr-x	2026-07-19 16:28
edit_pop3.cgi	1.69 KB	-rwxr-xr-x	2026-07-19 16:28
edit_sig.cgi	552 B	-rwxr-xr-x	2026-07-19 16:28
edit_virt.cgi	1.25 KB	-rwxr-xr-x	2026-07-19 16:28
export.cgi	1.32 KB	-rwxr-xr-x	2026-07-19 16:28
folders-lib.pl	133.18 KB	-rwxr-xr-x	2026-07-19 16:26
import.cgi	3.02 KB	-rwxr-xr-x	2026-07-19 16:28
inbox_login.cgi	1.41 KB	-rwxr-xr-x	2026-07-19 16:28
inbox_login_error.cgi	1.17 KB	-rwxr-xr-x	2026-07-19 16:28
inbox_logout.cgi	503 B	-rwxr-xr-x	2026-07-19 16:28
index.cgi	12.29 KB	-rwxr-xr-x	2026-07-19 16:28
list_addresses.cgi	8.52 KB	-rwxr-xr-x	2026-07-19 16:28
list_folders.cgi	5.24 KB	-rwxr-xr-x	2026-07-19 16:28
list_ifolders.cgi	3.02 KB	-rwxr-xr-x	2026-07-19 16:28
mail_search.cgi	7.48 KB	-rwxr-xr-x	2026-07-19 16:28
mailbox-lib.pl	66.15 KB	-rwxr-xr-x	2026-07-19 16:26
module.info	296 B	-rw-r--r--	2026-07-19 16:26
module.info.ar	0 B	-rw-r--r--	2026-07-19 16:26
module.info.ar.auto	256 B	-rw-r--r--	2026-07-19 16:26
module.info.bg	0 B	-rw-r--r--	2026-07-19 16:26
module.info.bg.auto	305 B	-rw-r--r--	2026-07-19 16:26
module.info.ca	26 B	-rw-r--r--	2026-07-19 16:26
module.info.ca.auto	168 B	-rw-r--r--	2026-07-19 16:26
module.info.cs	25 B	-rw-r--r--	2026-07-19 16:26
module.info.cs.auto	142 B	-rw-r--r--	2026-07-19 16:26
module.info.da	0 B	-rw-r--r--	2026-07-19 16:26
module.info.da.auto	159 B	-rw-r--r--	2026-07-19 16:26
module.info.de	119 B	-rw-r--r--	2026-07-19 16:26
module.info.el	0 B	-rw-r--r--	2026-07-19 16:26
module.info.el.auto	357 B	-rw-r--r--	2026-07-19 16:26
module.info.es	26 B	-rw-r--r--	2026-07-19 16:26
module.info.es.auto	163 B	-rw-r--r--	2026-07-19 16:26
module.info.eu	0 B	-rw-r--r--	2026-07-19 16:26
module.info.eu.auto	166 B	-rw-r--r--	2026-07-19 16:26
module.info.fa	0 B	-rw-r--r--	2026-07-19 16:26
module.info.fa.auto	242 B	-rw-r--r--	2026-07-19 16:26
module.info.fi	0 B	-rw-r--r--	2026-07-19 16:26
module.info.fi.auto	149 B	-rw-r--r--	2026-07-19 16:26
module.info.fr	26 B	-rw-r--r--	2026-07-19 16:26
module.info.fr.auto	167 B	-rw-r--r--	2026-07-19 16:26
module.info.hr	0 B	-rw-r--r--	2026-07-19 16:26
module.info.hr.auto	167 B	-rw-r--r--	2026-07-19 16:26
module.info.hu	38 B	-rw-r--r--	2026-07-19 16:26
module.info.hu.auto	173 B	-rw-r--r--	2026-07-19 16:26
module.info.it	0 B	-rw-r--r--	2026-07-19 16:26
module.info.it.auto	151 B	-rw-r--r--	2026-07-19 16:26
module.info.ja	0 B	-rw-r--r--	2026-07-19 16:26
module.info.ja.auto	213 B	-rw-r--r--	2026-07-19 16:26
module.info.ko	0 B	-rw-r--r--	2026-07-19 16:26
module.info.ko.auto	177 B	-rw-r--r--	2026-07-19 16:26
module.info.ms	0 B	-rw-r--r--	2026-07-19 16:26
module.info.ms.auto	137 B	-rw-r--r--	2026-07-19 16:26
module.info.nl	29 B	-rw-r--r--	2026-07-19 16:26
module.info.nl.auto	137 B	-rw-r--r--	2026-07-19 16:26
module.info.no	19 B	-rw-r--r--	2026-07-19 16:26
module.info.no.auto	122 B	-rw-r--r--	2026-07-19 16:26
module.info.pl	179 B	-rw-r--r--	2026-07-19 16:26
module.info.pl.auto	170 B	-rw-r--r--	2026-07-19 16:26
module.info.pt	0 B	-rw-r--r--	2026-07-19 16:26
module.info.pt.auto	159 B	-rw-r--r--	2026-07-19 16:26
module.info.pt_BR	0 B	-rw-r--r--	2026-07-19 16:26
module.info.pt_BR.auto	165 B	-rw-r--r--	2026-07-19 16:26
module.info.ru	55 B	-rw-r--r--	2026-07-19 16:26
module.info.ru.auto	264 B	-rw-r--r--	2026-07-19 16:26
module.info.sk	0 B	-rw-r--r--	2026-07-19 16:26
module.info.sk.auto	162 B	-rw-r--r--	2026-07-19 16:26
module.info.sv	0 B	-rw-r--r--	2026-07-19 16:26
module.info.sv.auto	150 B	-rw-r--r--	2026-07-19 16:26
module.info.tr	0 B	-rw-r--r--	2026-07-19 16:26
module.info.tr.auto	172 B	-rw-r--r--	2026-07-19 16:26
module.info.uk	0 B	-rw-r--r--	2026-07-19 16:26
module.info.uk.auto	298 B	-rw-r--r--	2026-07-19 16:26
module.info.zh	0 B	-rw-r--r--	2026-07-19 16:26
module.info.zh.auto	141 B	-rw-r--r--	2026-07-19 16:26
module.info.zh_TW	0 B	-rw-r--r--	2026-07-19 16:26
module.info.zh_TW.auto	147 B	-rw-r--r--	2026-07-19 16:26
newfolder.cgi	223 B	-rwxr-xr-x	2026-07-19 16:28
print_mail.cgi	1.33 KB	-rwxr-xr-x	2026-07-19 16:28
quotacheck.pl	3.18 KB	-rwxr-xr-x	2026-07-19 16:28
reply_mail.cgi	26.61 KB	-rwxr-xr-x	2026-07-19 16:28
save_address.cgi	1.01 KB	-rwxr-xr-x	2026-07-19 16:28
save_allow.cgi	761 B	-rwxr-xr-x	2026-07-19 16:28
save_auto.cgi	1.13 KB	-rwxr-xr-x	2026-07-19 16:28
save_comp.cgi	1.24 KB	-rwxr-xr-x	2026-07-19 16:28
save_folder.cgi	3.91 KB	-rwxr-xr-x	2026-07-19 16:28
save_group.cgi	797 B	-rwxr-xr-x	2026-07-19 16:28
save_ifolder.cgi	1.78 KB	-rwxr-xr-x	2026-07-19 16:28
save_imap.cgi	1.85 KB	-rwxr-xr-x	2026-07-19 16:28
save_pop3.cgi	1.63 KB	-rwxr-xr-x	2026-07-19 16:28
save_sig.cgi	648 B	-rwxr-xr-x	2026-07-19 16:28
save_virt.cgi	1.01 KB	-rwxr-xr-x	2026-07-19 16:28
search_form.cgi	2.58 KB	-rwxr-xr-x	2026-07-19 16:28
send_mail.cgi	18.99 KB	-rwxr-xr-x	2026-07-19 16:28
slideshow.cgi	1.78 KB	-rwxr-xr-x	2026-07-19 16:28
sort.cgi	1.14 KB	-rwxr-xr-x	2026-07-19 16:28
specialsync.cgi	1.2 KB	-rwxr-xr-x	2026-07-19 16:28
system_info.pl	1.6 KB	-rw-r--r--	2026-07-19 16:26
uconfig.info	5.31 KB	-rw-r--r--	2026-07-19 16:26
uconfig.info.ca	5.59 KB	-rwxr-xr-x	2026-07-19 16:26
uconfig.info.cs	4.97 KB	-rw-r--r--	2026-07-19 16:26
uconfig.info.da	0 B	-rw-r--r--	2026-07-19 16:26
uconfig.info.de	5.86 KB	-rw-r--r--	2026-07-19 16:26
uconfig.info.el	7.3 KB	-rw-r--r--	2026-07-19 16:26
uconfig.info.es	0 B	-rw-r--r--	2026-07-19 16:26
uconfig.info.fr	145 B	-rw-r--r--	2026-07-19 16:26
uconfig.info.hu	0 B	-rw-r--r--	2026-07-19 16:26
uconfig.info.it	3.27 KB	-rw-r--r--	2026-07-19 16:26
uconfig.info.nl	5.21 KB	-rw-r--r--	2026-07-19 16:26
uconfig.info.no	4.96 KB	-rw-r--r--	2026-07-19 16:26
uconfig.info.pl	0 B	-rwxr-xr-x	2026-07-19 16:26
uconfig.info.pt_BR	4.95 KB	-rw-r--r--	2026-07-19 16:26
uconfig_info.pl	317 B	-rwxr-xr-x	2026-07-19 16:26
view_mail.cgi	17.66 KB	-rwxr-xr-x	2026-07-19 16:28
virtualize.cgi	753 B	-rwxr-xr-x	2026-07-19 16:28
webmin_menu.pl	4.67 KB	-rw-r--r--	2026-07-19 16:26
xhr-lib.pl	2.34 KB	-rw-r--r--	2026-07-19 16:28
xhr.cgi	351 B	-rwxr-xr-x	2026-07-19 16:28

Rename

#!/usr/bin/perl
# Display contents of the user's address book, and allowed and denied addresses
use strict;
use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
our (%text, %in, %config, %userconfig);

require './mailbox-lib.pl';
&ReadParse();
&ui_print_header(undef, $text{'address_title'}, "");

# Build tabs
my $prog = "list_addresses.cgi?mode=";
my @tabs = ( [ "users", $text{'address_users'}, $prog."users" ],
	  [ "groups", $text{'address_groups'}, $prog."groups" ] );
if (&foreign_installed("spam")) {
	if (!$userconfig{'white_rec'}) {
		push(@tabs, [ "allow", $text{'address_allow'}, $prog."allow" ]);
		}
	push(@tabs, [ "deny", $text{'address_deny'}, $prog."deny" ]);
	}
push(@tabs, [ "import", $text{'address_import'}, $prog."import" ]);
push(@tabs, [ "export", $text{'address_export'}, $prog."export" ]);

# Start tabs for users and groups, and maybe spam addresses
print &ui_tabs_start(\@tabs, "mode", $in{'mode'} || "users", 1);

print &ui_tabs_start_tab("mode", "users");
my @addrs = &list_addresses();
print "$text{'address_desc'}<p>\n";
if (@addrs || $in{'add'}) {
	if ($in{'add'} || $in{'edit'} ne '') {
		print "<form action=save_address.cgi>\n";
		print "<input type=hidden name=add value='$in{'add'}'>\n";
		print "<input type=hidden name=edit value='$in{'edit'}'>\n";
		}
	print "<table width=100%>\n";
	print "<tr> <td colspan=2 width=10%></td> ",
	      "<td width=40%><b>$text{'address_addr'}</b></td> ",
	      "<td width=40%><b>$text{'address_name'}</b></td> ",
	      $config{'edit_from'} ? "<td width=10% nowrap><b>$text{'address_from'}</b></td> " : "",
	      "</tr>\n";
	foreach my $a (@addrs) {
		next if (!defined($a->[2]));
		print "<tr> <td width=5%>\n";
		if ($in{'edit'} ne $a->[2]) {
			print "<a href='list_addresses.cgi?",
			      "mode=users&edit=$a->[2]#editing'>",
			      "$text{'address_edit'}</a>\n";
			}
		else {
			print "<a href=list_addresses.cgi?mode=users>",
			      "$text{'cancel'}</a>\n";
			}
		print "</td> <td width=5%>\n";
		print "<a href='save_address.cgi?delete=$a->[2]'>",
		      "$text{'address_delete'}</a></td>\n";

if ($in{'edit'} eq $a->[2]) {
			# Editing this row
			print "<td width=40%><input name=addr size=30 value='",
				&html_escape($a->[0]),"'><a name=editing></td>\n";
			print "<td width=40%><input name=name size=30 value='",
				&html_escape($a->[1]),"'></td>\n";
			if ($config{'edit_from'}) {
				&from_sel($a->[3]);
				}
			else {
				print "<input type=hidden name=from value='$a->[3]'>\n";
				}
			print "<td><input type=submit value='$text{'save'}'></td>\n";
			}
		else {
			# Just showing this row
			print "<td width=40%>$a->[0]</td>\n";
			print "<td width=40%>",$a->[1] ? &html_escape($a->[1]) : "<br>","</td>\n";
			print "<td>",$a->[3] == 1 ? $text{'yes'} :
				     $a->[3] == 2 ? $text{'address_yd'} :
					     	    $text{'no'},"</td>\n"
				if ($config{'edit_from'});
			}
		print "</tr>\n";
		}
	if ($in{'add'}) {
		print "<tr> <td width=5%><a href='list_addresses.cgi?",
		      "mode=users'>$text{'cancel'}</a></td>\n";
		print "<td width=5%><a name=adding></td>\n";
		print "<td width=40%><input name=addr size=30></td>\n";
		print "<td width=40%><input name=name size=30></td>\n";
		&from_sel() if ($config{'edit_from'});
		print "<td><input type=submit value='$text{'save'}'></td>\n";
		print "</tr>\n";
		}
	print "</table>\n";
	if ($in{'add'} || $in{'edit'} ne '') {
		print "</form>\n";
		}
	}
else {
	print "<b>$text{'address_none'}</b> <p>\n";
	}
print "<a href='list_addresses.cgi?mode=users&add=1#adding'>",
      "$text{'address_add'}</a> \n"
	if (!$in{'add'});
print &ui_tabs_end_tab();

print &ui_tabs_start_tab("mode", "groups");
my @gaddrs = grep { defined($_->[2]) } &list_address_groups();
print "$text{'address_gdesc'}<p>\n";
if (@gaddrs || $in{'gadd'}) {
	if ($in{'gadd'} || $in{'gedit'} ne '') {
		print "<form action=save_group.cgi ",
		      "method=post enctype=multipart/form-data>\n";
		print "<input type=hidden name=gadd value='$in{'gadd'}'>\n";
		print "<input type=hidden name=gedit value='$in{'gedit'}'>\n";
		}
	print "<table width=100%>\n";
	print "<tr> <td colspan=2 width=10%></td> ",
	      "<td width=20%><b>$text{'address_group'}</b></td> ",
	      "<td width=70%><b>$text{'address_members'}</b></td> ",
	      "</tr>\n";
	foreach my $a (@gaddrs) {
		print "<tr> <td width=5% valign=top>\n";
		if ($in{'gedit'} ne $a->[2]) {
			print "<a href='list_addresses.cgi?mode=groups&",
			      "gedit=$a->[2]#editing'>",
			      "$text{'address_edit'}</a>\n";
			}
		else {
			print "<a href=list_addresses.cgi?mode=groups>",
			      "$text{'cancel'}</a>\n";
			}
		print "</td> <td width=5% valign=top>\n";
		print "<a href='save_group.cgi?gdelete=$a->[2]'>",
		      "$text{'address_delete'}</a></td>\n";

if ($in{'gedit'} eq $a->[2]) {
			# Editing a group
			print "<td width=20% valign=top>",
			      &ui_textbox("group", $a->[0], 20),"</td>\n";
			print "<td width=70% valign=top>",
			      &ui_textarea("members", $a->[1], 5, 60),
			      " ",&address_button("members", 0, 0, 0, 1)," ",
			      &ui_submit($text{'save'}),"</td>\n";
			}
		else {
			# Just show group
			print "<td width=20% valign=top>",
			      &html_escape($a->[0]),"</td>\n";
			print "<td width=70% valign=top>",
			      &html_escape($a->[1]),"</td>\n";
			}
		print "</tr>\n";
		}
	if ($in{'gadd'}) {
		# Adding a group
		print "<tr> <td width=5% valign=top>",
		      "<a href='list_addresses.cgi?mode=groups'>",
		      "$text{'cancel'}</a></td>\n";
		print "<td width=5% valign=top><a name=adding></td>\n";
		print "<td width=20% valign=top>",
		      &ui_textbox("group", undef, 20),
		      "</td>\n";
		print "<td width=70% valign=top>",
		      &ui_textarea("members", undef, 5, 60),
		      " ",&address_button("members", 0, 0, 0, 1)," ",
		      &ui_submit($text{'save'}),"</td>\n";
		print "</tr>\n";
		}
	print "</table>\n";
	if ($in{'gadd'} || $in{'gedit'} ne '') {
		print "</form>\n";
		}
	}
else {
	print "<b>$text{'address_gnone'}</b> <p>\n";
	}
print "<a href='list_addresses.cgi?mode=groups&gadd=1#adding'>",
      "$text{'address_gadd'}</a> \n"
	if (!$in{'gadd'});
print &ui_tabs_end_tab();

# Show allowed / denied addresses tabs
if (&foreign_installed("spam")) {
	&foreign_require("spam", "spam-lib.pl");
	my $conf = &spam::get_config();

foreach my $m ($userconfig{'white_rec'} ? ( ) :
			( [ "allow", "whitelist_from" ] ),
	 	    [ "deny", "blacklist_from" ]) {
		my ($mode, $opt) = @$m;

print &ui_tabs_start_tab("mode", $mode);
		print $text{'address_'.$mode.'desc'},"<p>\n";
		print &ui_form_start("save_allow.cgi", "post");
		print &ui_hidden("mode", $mode);

@addrs = map { @{$_->{'words'}} } &spam::find($opt, $conf);
		print &ui_textarea("addrs", join("\n", @addrs)."\n", 20, 80,
				   undef, 0, "style='width:90%'");

print &ui_form_end([ [ undef, $text{'save'} ] ]);
		print &ui_tabs_end_tab();
		}
	}

# Show import tab
print &ui_tabs_start_tab("mode", "import");

print $text{'address_importdesc'},"<p>\n";
print &ui_form_start("import.cgi", "form-data");
print &ui_table_start(undef, undef, 2);

# Import source
print &ui_table_row($text{'address_importsrc'},
	&ui_radio_table("src", 0,
		[ [ 0, $text{'address_importsrc0'}, &ui_upload("upload") ],
		  [ 1, $text{'address_importsrc1'},
		    &ui_textarea("paste", undef, 5, 60) ] ])."<br>\n".
	$text{'address_importformat'});

# Import format
print &ui_table_row($text{'address_importfmt'},
	&ui_radio("fmt", "csv", [ [ 'csv', $text{'address_importcsv'} ],
				  [ 'vcard', $text{'address_importvcard'} ] ]));

# Duplicate handling
print &ui_table_row($text{'address_importdup'},
	&ui_radio("dup", 0, [ [ 0, $text{'address_importdup0'} ],
			      [ 1, $text{'address_importdup1'} ] ]));

print &ui_table_end();
print &ui_form_end([ [ undef, $text{'address_importok'} ] ]);

print &ui_tabs_end_tab();

# Show export tab
print &ui_tabs_start_tab("mode", "export");

print $text{'address_exportdesc'},"<p>\n";
print &ui_form_start("export.cgi");
print &ui_table_start(undef, undef, 2);

# Import format
print &ui_table_row($text{'address_exportfmt'},
	&ui_radio("fmt", "csv", [ [ 'csv', $text{'address_importcsv'} ],
				  [ 'vcard', $text{'address_importvcard'} ] ]));

# Duplicate handling
print &ui_table_row($text{'address_exportdup'},
	&ui_radio("dup", 0, [ [ 0, $text{'address_exportdup0'} ],
			      [ 1, $text{'address_exportdup1'} ] ]));

print &ui_table_end();
print &ui_form_end([ [ undef, $text{'address_exportok'} ] ]);

print &ui_tabs_end_tab();

print &ui_tabs_end(1);
&ui_print_footer("", $text{'mail_return'});

sub from_sel
{
my ($f) = @_;
print "<td>".&ui_select("from", $f,
			[ [ 0, $text{'no'} ],
			  [ 1, $text{'yes'} ],
			  [ 2, $text{'address_yd'} ] ])."</td>\n";
}