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
# address_chooser.cgi
# Display a list of entries from the address book
use strict;
use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
our (%text, %in, %uconfig);

our $trust_unknown_referers = 1;
require './mailbox-lib.pl';
&ReadParse();

&popup_header($text{'address_choose'}, undef,
	"onLoad='document.forms[0].search.focus()'");
print <<EOF;
<script>
function makeaddress(a, n)
{
if (n == "") {
	// An address without a name
	return "<"+a+">";
	}
else if (n.indexOf(",") != -1) {
	// A name with a comma in it
	return "\\""+n+"\\" <"+a+">";
	}
else {
	// A name without a comma
	return n+" <"+a+">";
	}
}

// Add an address to the list
function newaddress(a, n)
{
av = makeaddress(a, n);
if (top.opener.ifield.value == "") {
	top.opener.ifield.value = av;
	}
else {
	top.opener.ifield.value += ","+av;
	}
}

// Remove an address from the list
function oldaddress(a, n)
{
av = makeaddress(a, n);
curr = top.opener.ifield.value;
idx1 = curr.indexOf(av+",");
idx2 = curr.indexOf(","+av);
if (curr == av) {
	// Address only!
	curr = "";
	}
else if (idx1 != -1) {
	// Found the address, in string
	curr = curr.substring(0, idx1)+curr.substring(idx1+av.length+1);
	}
else if (idx2 != -1) {
	// Found the ,address in string
	curr = curr.substring(0, idx2)+curr.substring(idx2+av.length+1);
	}
else {
	// Look for address only
	sp = curr.split(",");
	curr = "";
	for(j=0; j<sp.length; j++) {
		if (sp[j].indexOf(a) == -1) {
			if (curr == "") {
				curr = sp[j];
				}
			else {
				curr += ","+sp[j];
				}
			}
		}
	}
top.opener.ifield.value = curr;
}

// Called when an address has been clicked on
function clickaddress(a, n, f)
{
if (f.checked) {
	newaddress(a, n);
	}
else {
	oldaddress(a, n);
	}
}

# Find addresses and groups
my @addrs = &list_addresses();
my $addrs_count;
my @agroups;
my %mems;
if ($in{'search'}) {
	my $s = $in{'search'};
	@addrs = grep { $_->[0] =~ /\Q$s\E/i || $_->[1] =~ /\Q$s\E/i } @addrs;
	}
if ($in{'mode'}) {
	@addrs = grep { $_->[3] } @addrs;
	$addrs_count = scalar(@addrs);
	}
else {
	if (!$uconfig{'from_in_to'}) {
		@addrs = grep { !$_->[3] } @addrs;
		}
	$addrs_count = scalar(@addrs);
	@agroups = &list_address_groups();
	if ($in{'search'}) {
		my $s = $in{'search'};
		@agroups = grep { $_->[0] =~ /\Q$s\E/i ||
				  $_->[1] =~ /\Q$s\E/i } @agroups;
		}
	foreach my $a (@agroups) {
		push(@addrs, [ $a->[0] ]);
		$mems{$a->[0]} = [ &split_addresses($a->[1]) ];
		}
	}

# Show search form
if (@addrs || $in{'search'}) {
	print &ui_form_start("address_chooser.cgi", "post");
	print "<b>$text{'address_search'}</b>\n";
	print &ui_textbox("search", $in{'search'}, 20);
	print &ui_hidden("mode", $in{'mode'});
	print &ui_hidden("addr", $in{'addr'});
	print &ui_submit($text{'address_ok'});
	print &ui_form_end();
	}

# Show list of addresses
my %infield;
my $href;
if (@addrs) {
	my @sp = &split_addresses(&decode_mimewords($in{'addr'}));
	for(my $i=0; $i<@sp; $i++) {
		$infield{$sp[$i]->[0]} = $i;
		}
	print "<form><table width=100%>\n";
	print "<tr>\n";
	print "<td><br></td>\n" if (!$in{'mode'});
	print "<td><b>$text{'address_addr'}</b></td>\n";
	print "<td><b>$text{'address_name'}</b></td>\n";
	if ($in{'mode'} == 0) {
		print "<td></td>\n";
		}
	print "</tr>\n";
	my $i = 0;
	foreach my $a (@addrs) {
		if ($i == $addrs_count && $i) {
			print "<tr> <td><br></td>\n";
			print "<td><b>$text{'address_group'}</b></td>\n";
			print "<td><b>$text{'address_members'}</b></td></tr>\n";
			}
		print "<tr>\n";
		if ($in{'mode'} == 0) {
			printf "<td><input type=checkbox name=addr_$i value='%s' onClick='clickaddress(\"%s\", \"%s\", this)' %s>", &html_escape($a->[1]), &html_escape($a->[0]), &html_escape($a->[1]), defined($infield{$a->[0]}) ? "checked" : "";
			$href = "<a href='' onClick='cb = document.forms[1].addr_$i; cb.checked = !cb.checked; clickaddress(\"".&html_escape($a->[0])."\", \"".&html_escape($a->[1])."\", cb); return false'>";
			}
		else {
			$href = "<a href='' onClick='select(\"".&html_escape($a->[0])."\", \"".&html_escape($a->[1])."\"); return false'>";
			}
		if ($i >= $addrs_count) {
			print "<td>$href",$a->[0],"</a></td>\n";
			my $m = @{$mems{$a->[0]}};
			print "<td>$href",&text('address_m', $m),"</a></td>\n";
			}
		else {
			print "<td>$href$a->[0]</a></td>\n";
			print "<td>$href",($a->[1] ? $a->[1] : "<br>"),"</a></td>\n";
			}
		if ($in{'mode'} == 0) {
			# Show button to select just this one
			print "<td><a href='' onClick='select(\"".&html_escape($a->[0])."\", \"".&html_escape($a->[1])."\"); return false'><img src=images/ok.gif border=0></a></td>\n";

}
		print "</tr>\n";
		$i++;
		}
	print "</table></form>\n";
	}
elsif ($in{'search'}) {
	print "<b>$text{'address_none2'}</b> <p>\n";
	}
else {
	print "<b>$text{'address_none'}</b> <p>\n";
	}
&popup_footer();