Merge from vendor branch GCC:
[dragonfly.git] / contrib / cvs-1.12.11 / contrib / mfpipe.in
1 #! @PERL@
2 # -*-Perl-*-
3 #
4 # From: clyne@niwot.scd.ucar.EDU (John Clyne)
5 # Date: Fri, 28 Feb 92 09:54:21 MST
6
7 # BTW, i wrote a perl script that is similar to 'nfpipe' except that in
8 # addition to logging to a file it provides a command line option for mailing
9 # change notices to a group of users. Obviously you probably wouldn't want
10 # to mail every change. But there may be certain directories that are commonly
11 # accessed by a group of users who would benefit from an email notice. 
12 # Especially if they regularly beat on the same directory. Anyway if you 
13 # think anyone would be interested here it is. 
14 #
15 #       File:           mfpipe
16 #
17 #       Author:         John Clyne
18 #                       National Center for Atmospheric Research
19 #                       PO 3000, Boulder, Colorado
20 #
21 #       Date:           Wed Feb 26 18:34:53 MST 1992
22 #
23 #       Description:    Tee standard input to mail a list of users and to
24 #                       a file. Used by CVS logging.
25 #
26 #       Usage:          mfpipe [-f file] [user@host...]
27 #
28 #       Environment:    CVSROOT 
29 #                               Path to CVS root.
30 #
31 #       Files:
32 #
33 #
34 #       Options:        -f file 
35 #                               Capture output to 'file'
36 #                       
37
38 $header = "Log Message:\n";
39
40 $mailcmd = "| mail -s  'CVS update notice'";
41 $whoami = `whoami`;
42 chop $whoami;
43 $date = `date`;
44 chop $date;
45
46 $cvsroot = $ENV{'CVSROOT'};
47
48 while (@ARGV) {
49         $arg = shift @ARGV;
50
51         if ($arg eq '-f') {
52                 $file = shift @ARGV;
53         }
54         else {
55                 $users = "$users $arg";
56         }
57 }
58
59 if ($users) {
60         $mailcmd = "$mailcmd $users";
61         open(MAIL, $mailcmd) || die "Execing $mail: $!\n";
62 }
63  
64 if ($file) {
65         $logfile = "$cvsroot/LOG/$file";
66         open(FILE, ">> $logfile") || die "Opening $logfile: $!\n";
67 }
68
69 print FILE "$whoami $date--------BEGIN LOG ENTRY-------------\n" if ($logfile);
70
71 while (<>) {
72         print FILE $log if ($log && $logfile);
73
74         print FILE $_ if ($logfile);
75         print MAIL $_ if ($users);
76
77         $log = "log: " if ($_ eq $header);
78 }
79
80 close FILE;
81 die "Write failed" if $?;
82 close MAIL;
83 die "Mail failed" if $?;
84
85 exit 0;