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
# delete_mail.cgi
# Delete, mark, move or copy multiple messages
use strict;
use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
our (%text, %in, %userconfig, %gconfig);

require './mailbox-lib.pl';
&ReadParse();
my @ids = sort { $a <=> $b } split(/\0/, $in{'d'});
my @folders = &list_folders_sorted();
my ($folder) = grep { $_->{'index'} == $in{'folder'} } @folders;
$folder || &error($text{'view_efolder'});
my $r = time().$$;

my @delmail;
my $mark; # XXX I think the use of $mark below will never be defined.
if (!$in{'new'}) {
	# Get the messages. We only need the headers when marking, or when
	# deleting unless moving to the trash
	my $headersonly = defined($mark) ||
		       $in{'delete'} && $userconfig{'delete_mode'} != 1;
	@delmail = &mailbox_select_mails($folder, \@ids, $headersonly);
	}

$mark = $in{'markas0'} ? 0 : $in{'markas1'} ? 1 : $in{'markas2'} ? 2 : undef;
if (defined($mark)) {
	# Marking emails with some status
	@ids || &error($text{'delete_emnone'});
	foreach my $mail (@delmail) {
		my $oldread = &get_mail_read($folder, $mail);
		&set_mail_read($folder, $mail, ($oldread&4)+$mark);
		}
	my $perpage = $folder->{'perpage'} || $userconfig{'perpage'};
	&redirect("index.cgi?start=$in{'start'}&folder=$in{'folder'}&refresh=$r");
	}
elsif ($in{'move1'} || $in{'move2'}) {
	# Moving mails to some other folder
	&error_setup($text{'delete_errm'});
	@delmail || &error($text{'delete_emnone'});
	my ($mfolder) = grep { $_->{'index'} == ($in{'move1'} ? $in{'mfolder1'} : $in{'mfolder2'}) } @folders;
	$mfolder || &error($text{'view_efolder'});
	$mfolder->{'noadd'} && &error($text{'delete_enoadd'});
	&lock_folder($folder);
	&lock_folder($mfolder);
	&mailbox_move_mail($folder, $mfolder, @delmail);
	&unlock_folder($mfolder);
	&unlock_folder($folder);
	&redirect("index.cgi?start=$in{'start'}&folder=$in{'folder'}&refresh=$r");
	}
elsif ($in{'copy1'} || $in{'copy2'}) {
	# Copying mails to some other folder
	&error_setup($text{'delete_errc'});
	@delmail || &error($text{'delete_emnone'});
	my ($cfolder) = grep { $_->{'index'} == ($in{'copy1'} ? $in{'mfolder1'} : $in{'mfolder2'}) } @folders;
	$cfolder || &error($text{'view_efolder'});
	my $qerr = &would_exceed_quota($cfolder, @delmail);
	&error($qerr) if ($qerr);
	&lock_folder($cfolder);
	&mailbox_copy_mail($folder, $cfolder, @delmail);
	&unlock_folder($cfolder);
	&redirect("index.cgi?start=$in{'start'}&folder=$in{'folder'}&refresh=$r");
	}
elsif ($in{'forward'}) {
	# Forwarding selected mails .. redirect
	@delmail || &error($text{'delete_efnone'});
	&redirect("reply_mail.cgi?folder=$in{'folder'}&".
		  join("&", map { "mailforward=".&urlize($_) } @ids));
	}
elsif ($in{'new'}) {
	# Need to redirect to compose form
	&redirect("reply_mail.cgi?new=1&folder=$in{'folder'}");
	}
elsif ($in{'black'} || $in{'white'}) {
	# Deny or allow all senders
	my $dir = $in{'black'} ? "blacklist_from" : "whitelist_from";
	@delmail || &error($in{'black'} ? $text{'delete_ebnone'}
				       : $text{'delete_ewnone'});
	my @addrs;
	foreach my $mail (@delmail) {
		push(@addrs, map { $_->[0] } &split_addresses($mail->{'header'}->{'from'}));
		}
	&foreign_require("spam", "spam-lib.pl");
	my $conf = &spam::get_config();
	my @from = map { @{$_->{'words'}} }
			  &spam::find($dir, $conf);
	my %already = map { $_, 1 } @from;
	my @newaddrs = grep { !$already{$_} && /\@/ } &unique(@addrs);
	push(@from, @newaddrs);
	&spam::save_directives($conf, $dir, \@from, 1);
	&flush_file_lines();

# Also move messages to inbox
	my $inbox = &get_spam_inbox_folder();
	if ($userconfig{'white_move'} && $folder->{'spam'} && $in{'white'}) {
		&mailbox_move_mail($folder, $inbox, @delmail);
		}
	&redirect("index.cgi?folder=$in{'folder'}");
	}
elsif ($in{'razor'} || $in{'ham'}) {
	# Report as ham or spam all messages
	@delmail || &error($in{'razor'} ? $text{'delete_ebnone'}
				       : $text{'delete_ehnone'});

&ui_print_header(undef, $in{'razor'} ? $text{'razor_title'}
					 : $text{'razor_title2'}, "");
	if ($in{'razor'}) {
		print "$text{'razor_report2'}\n";
		}
	else {
		print "$text{'razor_report3'}\n";
		}
	print "<pre>";

# Write all messages to a temp file
	my $temp = &transname();
	my $cmd = $in{'razor'} ? &spam_report_cmd() : &ham_report_cmd();
	foreach my $mail (@delmail) {
		&send_mail($mail, $temp);
		}

if ($userconfig{'spam_del'} && $in{'razor'}) {
		# Delete spam too
		&lock_folder($folder);
		&mailbox_delete_mail($folder, @delmail);
		&unlock_folder($folder);
		}

# Call reporting command on them
	no strict "subs";
	&open_execute_command(OUT, "$cmd <$temp 2>&1", 1);
	my $error;
	while(<OUT>) {
		print &html_escape($_);
		$error++ if (/failed/i);
		}
	close(OUT);
	use strict "subs";
	unlink($temp);
	print "</pre>\n";
	if ($? || $error) {
		print "$text{'razor_err'}\n";
		}
	else {
		my $inbox = &get_spam_inbox_folder();
		if ($userconfig{'spam_del'} && $in{'razor'}) {
			# Tell user it was deleted
			print "$text{'razor_deleted'}\n";
			}
		elsif ($userconfig{'ham_move'} &&
		 $folder->{'spam'} && $in{'ham'}) {
			# Move mail to inbox and tell user
			&mailbox_move_mail($folder, $inbox, @delmail);
			print "",&text('razor_moved', $inbox->{'name'}),
			 "\n";
			}
		else {
			# Tell user it was done
			print "$text{'razor_done'}\n";
			}
		}
	&ui_print_footer("index.cgi?folder=$in{'folder'}",
			 $text{'mail_return'});
	}
elsif ($in{'delete'}) {
	# Just deleting emails
	@delmail || $in{'all'} || &error($text{'delete_enone'});
	if (!$in{'confirm'} && (&need_delete_warn($folder) || $in{'all'})) {
		# Need to ask for confirmation before deleting
		&ui_print_header(undef, $text{'confirm_title'}, "");
		print &ui_confirmation_form(
			"delete_mail.cgi",
			($in{'all'} ?
				&text('confirm_warnallf', $folder->{'name'}) :
				&text('confirm_warnf', scalar(@delmail),
						 $folder->{'name'})).
			" ".
			($userconfig{'delete_warn'} ne 'y' ?
				$text{'confirm_warn2'}."" :
			 $folder->{'type'} == 0 ?
				$text{'confirm_warn4'}."" : ""),
			[ &inputs_to_hiddens(\%in) ],
			[ [ 'confirm', $text{'confirm_ok'} ] ],
			);
		&ui_print_footer("index.cgi?start=$in{'start'}&".
				 "folder=$in{'folder'}", $text{'index'});
		}
	else {
		# Go ahead and delete
		$gconfig{'logfiles'} = 0;
		&lock_folder($folder);
		my @mail;
		if ($in{'all'}) {
			# Clear the whole folder, unless the first email
			# is non-editable
			@mail = &mailbox_list_mails_sorted(0, 0, $folder);
			if (&editable_mail($mail[0])) {
				# Trash the lot
				&mailbox_empty_folder($folder);
				}
			else {
				# Delete all mail except the first
				my $fsz = &mailbox_folder_size($folder);
				@mail = &mailbox_list_mails_sorted(1,
					$fsz-1, $folder);
				my @delmailrest = @mail[0..$#mail];
				&mailbox_delete_mail($folder, @delmailrest);
				}
			}
		else {
			# Just delete selected messages
			&mailbox_delete_mail($folder, @delmail);
			}
		&unlock_folder($folder);
		&redirect("index.cgi?start=$in{'start'}&folder=$in{'folder'}&refresh=$r");
		}
	}
else {
	&error("No button clicked!");
	}
&pop3_logout_all();