File Manager

X7ROOT File Manager

Current Path: /usr/libexec/webmin/mailboxes

📁 ..
📄 CHANGELOG(5.7 KB)
📄 Makefile(125 B)
📄 acl_security.pl(3 KB)
📄 boxes-lib.pl(80.12 KB)
📄 cgi_args.pl(520 B)
📄 config(757 B)
📄 config.info(4.92 KB)
📄 config.info.ca(5.77 KB)
📄 config.info.cs(5.18 KB)
📄 config.info.de(6.25 KB)
📄 config.info.el(8.13 KB)
📄 config.info.fi(0 B)
📄 config.info.fr(6.41 KB)
📄 config.info.hu(0 B)
📄 config.info.it(5.96 KB)
📄 config.info.ja(5.96 KB)
📄 config.info.ko(5.28 KB)
📄 config.info.nl(5.46 KB)
📄 config.info.no(5.24 KB)
📄 config.info.pt_BR(0 B)
📄 config_info.pl(389 B)
📄 defaultacl(50 B)
📄 delete_all.cgi(1.25 KB)
📄 delete_mail.cgi(7 KB)
📄 detach.cgi(3.19 KB)
📄 detachall.cgi(1.72 KB)
📄 find.cgi(731 B)
📄 folders-lib.pl(102.93 KB)
📁 images
📄 index.cgi(2.73 KB)
📁 lang
📄 list_mail.cgi(5.15 KB)
📄 log_parser.pl(1.02 KB)
📄 mail_search.cgi(3.68 KB)
📄 mailboxes-lib.pl(33.57 KB)
📄 makelang.pl(1.35 KB)
📄 module.info(137 B)
📄 module.info.af(0 B)
📄 module.info.af.auto(82 B)
📄 module.info.ar(0 B)
📄 module.info.ar.auto(145 B)
📄 module.info.be(0 B)
📄 module.info.be.auto(185 B)
📄 module.info.bg(0 B)
📄 module.info.bg.auto(167 B)
📄 module.info.ca(97 B)
📄 module.info.cs(37 B)
📄 module.info.cs.auto(75 B)
📄 module.info.da(0 B)
📄 module.info.da.auto(72 B)
📄 module.info.de(77 B)
📄 module.info.el(0 B)
📄 module.info.el.auto(232 B)
📄 module.info.es(38 B)
📄 module.info.es.auto(72 B)
📄 module.info.eu(0 B)
📄 module.info.eu.auto(110 B)
📄 module.info.fa(0 B)
📄 module.info.fa.auto(141 B)
📄 module.info.fi(27 B)
📄 module.info.fi.auto(61 B)
📄 module.info.fr(40 B)
📄 module.info.fr.auto(76 B)
📄 module.info.he(0 B)
📄 module.info.he.auto(117 B)
📄 module.info.hr(0 B)
📄 module.info.hr.auto(108 B)
📄 module.info.hu(38 B)
📄 module.info.hu.auto(72 B)
📄 module.info.it(27 B)
📄 module.info.it.auto(76 B)
📄 module.info.ja(39 B)
📄 module.info.ja.auto(79 B)
📄 module.info.ko(29 B)
📄 module.info.ko.auto(65 B)
📄 module.info.lt(0 B)
📄 module.info.lt.auto(110 B)
📄 module.info.lv(0 B)
📄 module.info.lv.auto(85 B)
📄 module.info.ms(73 B)
📄 module.info.mt(0 B)
📄 module.info.mt.auto(81 B)
📄 module.info.nl(30 B)
📄 module.info.nl.auto(57 B)
📄 module.info.no(27 B)
📄 module.info.no.auto(47 B)
📄 module.info.pl(38 B)
📄 module.info.pl.auto(67 B)
📄 module.info.pt(0 B)
📄 module.info.pt.auto(94 B)
📄 module.info.pt_BR(34 B)
📄 module.info.pt_BR.auto(65 B)
📄 module.info.ro(0 B)
📄 module.info.ro.auto(116 B)
📄 module.info.ru(63 B)
📄 module.info.ru.auto(99 B)
📄 module.info.sk(0 B)
📄 module.info.sk.auto(120 B)
📄 module.info.sl(0 B)
📄 module.info.sl.auto(97 B)
📄 module.info.sv(0 B)
📄 module.info.sv.auto(78 B)
📄 module.info.th(0 B)
📄 module.info.th.auto(154 B)
📄 module.info.tr(104 B)
📄 module.info.uk(0 B)
📄 module.info.uk.auto(193 B)
📄 module.info.ur(0 B)
📄 module.info.ur.auto(117 B)
📄 module.info.vi(0 B)
📄 module.info.vi.auto(99 B)
📄 module.info.zh(0 B)
📄 module.info.zh.auto(79 B)
📄 module.info.zh_TW(33 B)
📄 module.info.zh_TW.auto(55 B)
📄 prefs.info(225 B)
📄 reply_mail.cgi(16.15 KB)
📄 safeacl(32 B)
📄 search_form.cgi(1.86 KB)
📄 send_mail.cgi(9.56 KB)
📄 slideshow.cgi(1.63 KB)
📄 useradmin_update.pl(2.33 KB)
📄 view_mail.cgi(10.43 KB)
📁 xinha

Editing: mail_search.cgi

#!/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'});

X7ROOT File Manager

Editing: mail_search.cgi

Upload File

Create Folder