| Server IP : 14.207.165.8 / Your IP : 216.73.216.144 Web Server : Apache/2.4.18 (Ubuntu) System : Linux 246 4.4.0-210-generic #242-Ubuntu SMP Fri Apr 16 09:57:56 UTC 2021 x86_64 User : root ( 0) PHP Version : 7.0.33-0ubuntu0.16.04.16 Disable Function : exec,passthru,shell_exec,system,proc_open,popen,pcntl_exec MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /proc/thread-self/root/proc/self/root/usr/share/webmin/authentic-theme/extensions/mail/ |
Upload File : |
#!/usr/bin/perl
#
# Authentic Theme (https://github.com/authentic-theme/authentic-theme)
# Copyright Ilia Rostovtsev <ilia@virtualmin.com>
# Licensed under MIT (https://github.com/authentic-theme/authentic-theme/blob/master/LICENSE)
#
use strict;
my %email;
our (%in);
do($ENV{'THEME_ROOT'} . "/extensions/mail/mail-lib.pl");
my @folders = mailbox::list_folders_sorted();
my ($folder) = grep {$_->{'index'} == $in{'folder'}} @folders;
my @messages = sort {$a <=> $b} split(/\0/, $in{'d'});
# Mark message as read
if ($in{'mark'} eq 'read') {
foreach my $message (@messages) {
message_mark_read($message, $folder);
}
}
# Mark message as unread
if ($in{'mark'} eq 'unread') {
foreach my $message (@messages) {
message_mark_unread($message, $folder);
}
}
# Mark message as starred (special)
if ($in{'mark'} eq 'starred') {
foreach my $message (@messages) {
message_mark_starred($message, $folder, $in{'state'});
}
}
print_json(\%email);