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
# mail_search.cgi
# Find mail messages matching some pattern

require './mailboxes-lib.pl';
&ReadParse();
&can_user($in{'user'}) || &error($text{'mail_ecannot'});
@folders = &list_user_folders($in{'user'});
$uuser = &urlize($in{'user'});

if ($in{'simple'}) {
	# Make sure a search was entered
	$in{'search'} || &error($text{'search_ematch'});
	$ofolder = $folders[$in{'folder'}];
	}
else {
	# Validate search fields
	for($i=0; defined($in{"field_$i"}); $i++) {
		if ($in{"field_$i"}) {
			$in{"what_$i"} || &error(&text('search_ewhat', $i+1));
			$neg = $in{"neg_$i"} ? "!" : "";
			push(@fields, [ $neg.$in{"field_$i"}, $in{"what_$i"} ]);
			}
		}
	@fields || &error($text{'search_enone'});
	$ofolder = $folders[$in{'ofolder'}];
	}

if ($in{'folder'} == -2) {
	$desc = $text{'search_local'};
	}
elsif ($in{'folder'} == -1) {
	$desc = $text{'search_all'};
	}
else {
	$folder = $folders[$in{'folder'}];
	$desc = &text('mail_for', $folder->{'name'});
	}
&ui_print_header($desc, $text{'search_title'}, "", undef, 0, 0, undef,
	&folder_link($in{'user'}, $ofolder));

if ($in{'simple'}) {
	if ($in{'search'} =~ /^(\S+):\s*(.*)$/) {
		# A specific field was entered
		local ($field, $what) = ($1, $2);
		@searchlist = ( [ $field, $what ] );
		@rv = &mailbox_search_mail(\@searchlist, 0, $folder);
		print "",&text('search_results5', scalar(@rv),
			 "<tt>$field</tt>", "<tt>$what</tt>")," ..\n";
		}
	else {
		# Just search by Subject and From in one folder
		($mode, $words) = &parse_boolean($in{'search'});
		if ($mode == 0) {
			# Can just do a single 'or' search
			@searchlist = map { ( [ 'subject', $_ ],
					 [ 'from', $_ ] ) } @$words;
			@rv = &mailbox_search_mail(\@searchlist, 0, $folder);
			}
		elsif ($mode == 1) {
			# Need to do two 'and' searches and combine
			@searchlist1 = map { ( [ 'subject', $_ ] ) } @$words;
			@rv1 = &mailbox_search_mail(\@searchlist1, 1, $folder);
			@searchlist2 = map { ( [ 'from', $_ ] ) } @$words;
			@rv2 = &mailbox_search_mail(\@searchlist2, 1, $folder);
			@rv = @rv1;
			%gotidx = map { $_->{'idx'}, 1 } @rv;
			foreach $mail (@rv2) {
				push(@rv, $mail) if (!$gotidx{$mail->{'idx'}});
				}
			}
		else {
			&error($text{'search_eboolean'});
			}
		print "",&text('search_results2', scalar(@rv),
				 "<tt>$in{'search'}</tt>")," ..\n";
		}
	foreach $mail (@rv) {
		$mail->{'folder'} = $folder;
		}
	}
else {
	# Complex search, perhaps over multiple folders!
	if ($in{'folder'} == -2) {
		@sfolders = grep { !$_->{'remote'} } @folders;
		$multi_folder = 1;
		}
	elsif ($in{'folder'} == -1) {
		@sfolders = @folders;
		$multi_folder = 1;
		}
	else {
		@sfolders = ( $folder );
		}
	foreach $sf (@sfolders) {
		local @frv = &mailbox_search_mail(\@fields, $in{'and'}, $sf);
		foreach $mail (@frv) {
			$mail->{'folder'} = $sf;
			}
		push(@rv, @frv);
		}
	print "",&text('search_results4', scalar(@rv))," ..\n";
	}
@rv = reverse(@rv);

# Show list of messages, with form
if (@rv) {
	print &ui_form_start("delete_mail.cgi", "post");
	print &ui_hidden("user", $in{'user'});
	print &ui_hidden("dom", $in{'dom'});
	print &ui_hidden("folder", $in{'folder'});
	if ($config{'top_buttons'} && !$multi_folder) {
		&show_buttons(1, \@folders, $folder, \@rv, $in{'user'}, 1);
		}
	&show_mail_table(\@rv, $multi_folder ? undef : $ofolder, 0);
	if (!$multi_folder) {
		&show_buttons(2, \@folders, $folder, \@rv, $in{'user'}, 1);
		}
	print &ui_form_end();
	}
else {
	print "$text{'search_none'} \n";
	}

&ui_print_footer($in{'simple'} ? ( ) : ( "search_form.cgi?folder=$in{'folder'}",
				$text{'sform_return'} ),
	"list_mail.cgi?user=$in{'user'}&folder=$in{'folder'}&dom=$in{'dom'}",
	  $text{'mail_return'},
	&user_list_link(), $text{'index_return'});