%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /usr/share/webmin/authentic-theme/extensions/mail/
Upload File :
Create Path :
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);

Zerion Mini Shell 1.0