1#!/usr/local/bin/perl
2
3#
4# Authentic Theme (https://github.com/authentic-theme/authentic-theme)
5# Copyright Ilia Rostovtsev <programming@rostovtsev.io>
6# Licensed under MIT (https://github.com/authentic-theme/authentic-theme/blob/master/LICENSE)
7#
8use strict;
9
10my %email;
11our (%in);
12
13do("$ENV{'THEME_ROOT'}/extensions/mail/mail-lib.pl");
14
15my @folders = list_folders_sorted();
16my ($folder) = grep {$_->{'index'} == $in{'folder'}} @folders;
17my @messages = sort {$a <=> $b} split(/\0/, $in{'d'});
18
19# Mark message as read
20if ($in{'mark'} eq 'read') {
21    foreach my $message (@messages) {
22        message_mark_read($message, $folder);
23    }
24}
25
26# Mark message as unread
27if ($in{'mark'} eq 'unread') {
28    foreach my $message (@messages) {
29        message_mark_unread($message, $folder);
30    }
31}
32
33# Mark message as starred (special)
34if ($in{'mark'} eq 'starred') {
35    foreach my $message (@messages) {
36        message_mark_starred($message, $folder, $in{'state'});
37    }
38}
39
40print_json(\%email);
41