home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / cvs-1.8.7-bin.lha / lib / cvs / contrib / mfpipe < prev    next >
Text File  |  1996-10-12  |  2KB  |  89 lines
  1. #! /bin/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. #      $Id: mfpipe.pl,v 1.2 1995/07/10 02:01:57 kfogel Exp $
  16. #
  17. #
  18. #    File:        mfpipe
  19. #
  20. #    Author:        John Clyne
  21. #            National Center for Atmospheric Research
  22. #            PO 3000, Boulder, Colorado
  23. #
  24. #    Date:        Wed Feb 26 18:34:53 MST 1992
  25. #
  26. #    Description:    Tee standard input to mail a list of users and to
  27. #            a file. Used by CVS logging.
  28. #
  29. #    Usage:        mfpipe [-f file] [user@host...]
  30. #
  31. #    Environment:    CVSROOT    
  32. #                Path to CVS root.
  33. #
  34. #    Files:
  35. #
  36. #
  37. #    Options:    -f file    
  38. #                Capture output to 'file'
  39. #            
  40.  
  41. $header = "Log Message:\n";
  42.  
  43. $mailcmd = "| mail -s  'CVS update notice'";
  44. $whoami = `whoami`;
  45. chop $whoami;
  46. $date = `date`;
  47. chop $date;
  48.  
  49. $cvsroot = $ENV{'CVSROOT'};
  50.  
  51. while (@ARGV) {
  52.         $arg = shift @ARGV;
  53.  
  54.     if ($arg eq '-f') {
  55.                 $file = shift @ARGV;
  56.     }
  57.     else {
  58.         $users = "$users $arg";
  59.     }
  60. }
  61.  
  62. if ($users) {
  63.     $mailcmd = "$mailcmd $users";
  64.     open(MAIL, $mailcmd) || die "Execing $mail: $!\n";
  65. }
  66.  
  67. if ($file) {
  68.     $logfile = "$cvsroot/LOG/$file";
  69.     open(FILE, ">> $logfile") || die "Opening $logfile: $!\n";
  70. }
  71.  
  72. print FILE "$whoami $date--------BEGIN LOG ENTRY-------------\n" if ($logfile);
  73.  
  74. while (<>) {
  75.     print FILE $log if ($log && $logfile);
  76.  
  77.     print FILE $_ if ($logfile);
  78.     print MAIL $_ if ($users);
  79.  
  80.     $log = "log: " if ($_ eq $header);
  81. }
  82.  
  83. close FILE;
  84. die "Write failed" if $?;
  85. close MAIL;
  86. die "Mail failed" if $?;
  87.  
  88. exit 0;
  89.