%PDF- %PDF-
Direktori : /usr/share/webmin/authentic-theme/extensions/mail/ |
Current File : //usr/share/webmin/authentic-theme/extensions/mail/message.cgi |
#!/usr/bin/perl # # Authentic Theme (https://github.com/authentic-theme/authentic-theme) # Copyright Ilia Rostovtsev <programming@rostovtsev.io> # Licensed under MIT (https://github.com/authentic-theme/authentic-theme/blob/master/LICENSE) # use strict; use File::Basename; use lib (dirname(__FILE__) . '/../../lib'); my %email; our (%in); require(dirname(__FILE__) . '/mail-lib.pm'); my @folders = 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);