| Server IP : 49.231.201.246 / Your IP : 216.73.216.149 Web Server : Apache/2.4.18 (Ubuntu) System : User : root ( 0) PHP Version : 7.0.33-0ubuntu0.16.04.16 Disable Function : exec,passthru,mail,shell_exec,system,proc_open,popen,ini_alter,dl,proc_close,curl_exec,curl_multi_exec,readfile,parse_ini_file,escapeshellarg,escapeshellcmd,show_source,pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals,pcntl_unshare,mail,php_uname,phpinfo MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/share/webmin/filter/ |
Upload File : |
#!/usr/bin/perl
# Apply a filter to email in some folder
require './filter-lib.pl';
&ReadParse();
&error_setup($text{'move_err'});
# Get the filter
@filters = &list_filters();
($filter) = grep { $_->{'index'} == $in{'idx'} } @filters;
$filter || &error($text{'save_egone'});
# Get the source and destination folders
@folders = &mailbox::list_folders();
$src = &mailbox::find_named_folder($in{'movefrom'}, \@folders);
$src || &error(&text('move_esrc', $in{'movefrom'}));
$dest = &file_to_folder($filter->{'action'}, \@folders);
$dest || &error(&text('move_edest', $filter->{'action'}));
&mailbox::folder_name($src) eq &mailbox::folder_name($dest) &&
&error($text{'move_esame'});
&ui_print_unbuffered_header(undef, $text{'move_title'}, "");
# Find matching messages
if ($filter->{'condspam'}) {
@fields = ( [ "X-Spam-Status", "Yes" ] );
}
elsif ($filter->{'condlevel'}) {
$stars = "*" x $filter->{'condlevel'};
@fields = ( [ "X-Spam-Level", $stars ] );
}
else {
@fields = ( [ lc($filter->{'condheader'}),
$filter->{'condvalue'}, 1 ] );
}
print &text('move_finding', &mailbox::folder_name($src)),"<br>\n";
@mails = &mailbox::mailbox_search_mail(\@fields, 1, $src, undef, 1);
if (!@mails) {
print $text{'move_none'},"<p>\n";
}
else {
print &text('move_found', scalar(@mails)),"<p>\n";
print &text('move_moving', scalar(@mails),
&mailbox::folder_name($dest)),"<br>\n";
&mailbox::mailbox_move_mail($src, $dest, reverse(@mails));
print $text{'move_done'},"<p>\n";
}
if (defined(&theme_post_save_folder)) {
&theme_post_save_folder($src);
&theme_post_save_folder($dest);
}
&ui_print_footer("", $text{'index_return'});