File: tattle

package info (click to toggle)
freeswan 2.04-11.3
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 23,340 kB
  • ctags: 12,260
  • sloc: ansic: 72,499; sh: 14,497; asm: 3,312; perl: 3,153; xml: 2,961; makefile: 2,702; tcl: 620; exp: 612; pascal: 228; sed: 206; awk: 124; lisp: 3
file content (33 lines) | stat: -rwxr-xr-x 480 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
#! /bin/sh
# tattle [-f] subject address ...
# report a freeswan CVS change made by someone other than "owner" of files

PATH=/bin:/usr/bin ; export PATH

noself=yes			# don't mail to person making change
case "$1" in
-f)	noself= ; shift	;;
esac

msg="freeswan commit: $1"
shift

them=
if test "$noself"
then
	iam="`id -un`"
	for who
	do
		if test " $who" != " $iam"
		then
			them="$them $who"
		fi
	done
else
	them="$*"
fi

if test " $them" != " "
then
	mail -s "$msg" $them
fi