← Back
Editing: message.cgi
#!/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);
Save File
Cancel