Add search_spammer_in_mailq script
Benjamin Renard commited on 2016-01-20 09:34:03
Showing 1 changed files, with 31 additions and 0 deletions.
- scripts/search_spammer_in_mailq 0000000..f46703c
| ... | ... |
@@ -0,0 +1,31 @@ |
| 1 |
+#!/bin/bash |
|
| 2 |
+ |
|
| 3 |
+IFS=" |
|
| 4 |
+" |
|
| 5 |
+for line in $( top_sender ) |
|
| 6 |
+do |
|
| 7 |
+ count=$( echo "$line"|awk '{print $1}' )
|
|
| 8 |
+ mail=$( echo "$line"|awk '{print $2}' )
|
|
| 9 |
+ while true |
|
| 10 |
+ do |
|
| 11 |
+ echo -n "-> $mail ($count mails) (i = inspect mail from / d = delete mail from / K = keap / q = quit ) ? " |
|
| 12 |
+ read a |
|
| 13 |
+ case $a in |
|
| 14 |
+ i) |
|
| 15 |
+ inspect_mail_from_sender "$mail" |
|
| 16 |
+ ;; |
|
| 17 |
+ d) |
|
| 18 |
+ drop_mail_from "$mail" |
|
| 19 |
+ break |
|
| 20 |
+ ;; |
|
| 21 |
+ k|"") |
|
| 22 |
+ break |
|
| 23 |
+ ;; |
|
| 24 |
+ q) |
|
| 25 |
+ exit 0 |
|
| 26 |
+ ;; |
|
| 27 |
+ *) |
|
| 28 |
+ echo "Bad choice !" |
|
| 29 |
+ esac |
|
| 30 |
+ done |
|
| 31 |
+done |
|
| 0 | 32 |