Plesk n日以前の既読メールを削除

カテゴリー：Plesk

記事作成日：2018-05-21

Plesk 17.8.11 メールの運用で「サーバーにメッセージを残さない」または「5日後に既読メールを削除」などと利用者に設定お願いしている場合でも、最近のメーラーのデフォルトは「サーバーにメッセージを残す」のため、うまく設定できない方のメールボックスには数か月前の既読メールが残ってしまい、ディスク容量を消費する。IMAP運用をご遠慮頂いている場合は、古い既読メールをサーバーから自動削除したい。

## /var/qmail/mailnames/ のメールを条件検索して削除？

単純に該当するファイルを rm すると言う記事も見つけたが、一時的にインデックスファイルとの整合性が取れずに正しい数値が表示されない。ユーザーがログインすればインデックスは更新されるらしいがあまり気持ちいいものではない。

## doveadm で削除する

Dovecot の標準ツールがあったのでこれを使用する。

見つけた情報とDovecot公式サイトの情報を組み合わせると以下の通り。
```
(30日以前の既読メールを表示)
doveadm -Dv search mailbox INBOX before 30d SEEN -u info@example.com
(30日以前の既読メールを削除)
doveadm -Dv expunge mailbox INBOX before 30d SEEN -u info@example.com
```

## 何やらエラーメッセージ？いや、デバッグ情報

-Dv というオプションはデバック情報その他の出力のため、これは不要。詳しくはDovecotの公式サイトを見てほしい。

## -A オプションは使えない？

```
Error: Failed to iterate through some users
```
サーバー内のすべてのメールボックスを対象にする -A オプションではエラーが発生。 
ワイルドカード指定も同じエラー。

doveadm が参照するリストの指定を行う必要があるらしい。今回はどのような削除が行われたかのログも欲しかったため、一括処理ではなくアカウントごとの処理を行うことにした。

## まずはアカウントのリストを作成

```sql
SELECT CONCAT(mail.mail_name,'@',domains.name) AS username
FROM mail
INNER JOIN domains ON mail.dom_id=domains.id
INNER JOIN DomainServices ON mail.dom_id=DomainServices.dom_id
AND DomainServices.type='mail'
AND DomainServices.status=0
WHERE mail.postbox='true'
ORDER BY domains.id;
```
PleskのデータベースpsaにSELECT文を発行してアカウントリストを出力する。

mailテーブルとdomainsテーブルはデータベースを覗けばすぐに関連はわかるが、DomainServicesテーブルを参照しないと、メールサービス停止中のドメインもリストアップされてしまい、doveadmがユーザーが見つからないというエラーを吐く。

メールサービス停止中ドメインか否かはDomainServices.statusを見る。statusは以下参照。
```
status value          value   binary desсription
STATUS_ACTIVE          0     00000000 active
STATUS_STATUS          1     00000001 suspended
STATUS_WITH_PARENT     2     00000010 suspended because of parent object
STATUS_BACKUP_RESTORE  4     00000100 suspended because of backup/restore
STATUS_ADMIN           16    00001000 suspended by administrator
STATUS_RESELLER        32    00010000 suspended by reseller
STATUS_CLIENT          64    00100000 suspended by client
STATUS_EXPIRED         256  100000000 suspended due to expiration
```

## ユーザーリスト出力コマンド

```
mysql -uadmin -p`cat /etc/psa/.psa.shadow` -Dpsa -N -B -e "SELECT CONCAT(mail.mail_name,'@',domains.name) FROM mail INNER JOIN domains ON mail.dom_id=domains.id INNER JOIN DomainServices ON mail.dom_id=DomainServices.dom_id AND DomainServices.type='mail' AND DomainServices.status=0 WHERE mail.postbox='true';"
```
実際は ORDER BY は不要なので削除して、 
-N でカラム名非表示、 
-B でタブ区切り出力(枠を表示しない) 
これで、
```
info@example.com
sales@example.com
info@example.co.jp
admin@example.co.jp
```
の様なアカウントのみのリストが出力される。

## 出力されたリストを doveadm に渡す

リストは while do で doveadm に渡す。 
.sh 拡張子のファイルにしてパーミッションを設定。CRONで定期的に呼び出せばOK。

```
#!/bin/bash

mysql -uadmin -p`cat /etc/psa/.psa.shadow` -Dpsa -N -B -e "SELECT CONCAT(mail.mail_name,'@',domains.name) FROM mail INNER JOIN domains ON mail.dom_id=domains.id INNER JOIN DomainServices ON mail.dom_id=DomainServices.dom_id AND DomainServices.type='mail' AND DomainServices.status=0 WHERE mail.postbox='true';" | while read line
do
	doveadm expunge mailbox INBOX before 30d SEEN -u $line
done
```

この状態では正常終了した場合に何も出力されない。削除したファイルリストや処理したアカウントを含めたい場合はループ内に付け足せばよい。

## もうちょっときれいに書き直す

```
#!/bin/bash

sql=$(cat <<'EOT'
SELECT CONCAT(mail.mail_name,'@',domains.name)
 FROM mail
 INNER JOIN domains ON mail.dom_id=domains.id
 INNER JOIN DomainServices ON mail.dom_id=DomainServices.dom_id
 AND DomainServices.type='mail'
 AND DomainServices.status=0
 WHERE mail.postbox='true';
EOT
)
echo $sql | mysql -uadmin -p`cat /etc/psa/.psa.shadow` -Dpsa -N -B | while read line
do
	doveadm expunge mailbox INBOX before 30d SEEN -u $line
done
```

## このトピックは非公式

Pleskの公式サイトに書かれていた手法ではないため、保証はできない。ただ当方ではこの運用で問題は発生していない。期待された効果も確認できている。

## その他のメール

```
# doveadm mailbox list -u info@example.com
INBOX
INBOX.Trash
INBOX.Drafts
INBOX.Sent
INBOX.Spam
```

CONTENTS

Plesk

PleskでクエリパラメータでのSQLインジェクション試行をブロックする

JavaScript

PWAの基本コード

Plesk

PleskでWordpressへのアクセス試行をブロックする

Plesk