Dothem: build 'pu' last
[git] / ProjectContact
1 #!/bin/sh
2
3 header=
4 while :
5 do
6         case $# in 0) break ;; esac
7         case "$1" in
8         -b)     header=Bcc ;;
9         -c)     header=Cc ;;
10         -*)     echo >&2 "Unknown option $1"
11                 exit 1 ;;
12         *)      break ;;
13         esac
14         shift
15 done
16
17 case $# in
18 0) match='*' ;;
19 1) match="*$1*"; shift ;;
20 esac
21 for p
22 do
23         match="$match|*$p*"
24 done
25
26 {
27 iis=
28 iis2=',
29  '
30 while read address name
31 do
32         case "$address" in
33         '#'*)   continue ;;
34         esac
35         case "$name" in
36         $match) ;;
37         *)      continue ;;
38         esac
39         item="$name <$address>"
40         if test -z "$header"
41         then
42                 echo "$iis$item"
43         elif test -z "$iis"
44         then
45                 printf "$header: $item"
46                 iis="$iis2"
47         else
48                 printf "$iis$item"
49         fi
50 done
51 if test -n "$header"
52 then
53         printf '\n'
54 fi
55 } <<\EOF
56 linux-kernel@vger.kernel.org    Linux Kernel
57 info@lwn.net                    LWN.NET
58 ask@perl.org                    Perl5-porters at perl
59 EOF