File: tattle

package info (click to toggle)
openswan 1%3A2.4.6%2Bdfsg.2-1.1%2Betch2
  • links: PTS
  • area: main
  • in suites: etch
  • size: 25,000 kB
  • ctags: 16,877
  • sloc: ansic: 121,112; sh: 19,782; xml: 9,699; asm: 4,422; perl: 4,087; makefile: 3,367; tcl: 713; exp: 657; yacc: 396; pascal: 328; lex: 289; sed: 265; 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