This repository has no description
905 B
39 lines
1{ pkgs }: let
2
3 review = pkgs.writers.writeBash "review-mail" ''
4 mail="$1"
5 ${pkgs.exim}/bin/exim -Mvc "$mail" | grep -E 'Subject:|To:'
6 ${pkgs.exim}/bin/exim -Mvl "$mail"
7 while :; do
8 read -p 'delete?' key
9 case "$key" in
10 v*)
11 ${pkgs.exim}/bin/exim -Mvc "$mail"
12 ;;
13 d*)
14 ${pkgs.exim}/bin/exim -Mrm "$mail"
15 break
16 ;;
17 r*)
18 ${pkgs.exim}/bin/exim -Mt "$mail"
19 break
20 ;;
21 n*)
22 break
23 ;;
24 esac
25 done
26 echo '-------------------'
27 echo '-------------------'
28 echo '-------------------'
29 echo '-------------------'
30 echo '-------------------'
31 '';
32
33in pkgs.writers.writeBashBin "review-mail" ''
34 for mail in $(${pkgs.exim}/bin/exim -bp \
35 | ${pkgs.gnugrep}/bin/grep frozen \
36 | ${pkgs.gawk}/bin/awk '{print $3}'); do
37 ${review} "$mail"
38 done
39''