cvs commit: CVSROOT log_accum.pl

[Brian Behlendorf <br...@hyperreal.com>]

brian       97/06/03 21:43:57

  Modified:    .         log_accum.pl
  Log:
  Fixed perl5 -w warnings.
  
  Revision  Changes    Path
  1.24      +7 -7      CVSROOT/log_accum.pl
  
  Index: log_accum.pl
  ===================================================================
  RCS file: /export/home/cvs/CVSROOT/log_accum.pl,v
  retrieving revision 1.23
  retrieving revision 1.24
  diff -C3 -r1.23 -r1.24
  *** log_accum.pl	1996/08/24 11:35:29	1.23
  --- log_accum.pl	1997/06/04 04:43:56	1.24
  ***************
  *** 1,6 ****
    #!/usr/bin/perl
    #
  ! # $Id: log_accum.pl,v 1.23 1996/08/24 11:35:29 ben Exp $
    #
    # Perl filter to handle the log messages from the checkin of files in
    # a directory.  This script will group the lists of files by log
  --- 1,6 ----
    #!/usr/bin/perl
    #
  ! # $Id: log_accum.pl,v 1.24 1997/06/04 04:43:56 brian Exp $
    #
    # Perl filter to handle the log messages from the checkin of files in
    # a directory.  This script will group the lists of files by log
  ***************
  *** 281,287 ****
        local($where) = @_;
        local($users,$repo,$who);
    
  !     dbmopen(MAILFILE, "$MAIL_FILE.$id", 0666);
        open(AVAIL, "<$AVAIL_FILE") || die("Cannot open $AVAIL_FILE.\n");
        while(<AVAIL>) {
    	if(/^avail\|([^|]*)\|(.*)$/) {
  --- 281,287 ----
        local($where) = @_;
        local($users,$repo,$who);
    
  !     dbmopen(%MAILFILE, "$MAIL_FILE.$id", 0666);
        open(AVAIL, "<$AVAIL_FILE") || die("Cannot open $AVAIL_FILE.\n");
        while(<AVAIL>) {
    	if(/^avail\|([^|]*)\|(.*)$/) {
  ***************
  *** 299,305 ****
    	}
        }
        close(AVAIL);
  !     dbmclose(MAILFILE);
    }
    
    sub add_cc {
  --- 299,305 ----
    	}
        }
        close(AVAIL);
  !     dbmclose(%MAILFILE);
    }
    
    sub add_cc {
  ***************
  *** 313,328 ****
        $who =~ s/^/"/;
        $who =~ s/$/"/;
    
  !     dbmopen(MAILFILE, "$MAIL_FILE.$id", 0666);
        $MAILFILE{$who} = 1;
  !     dbmclose(MAILFILE);
    }
    
    
    sub mail_notification {
        local(@text) = @_;
        local($names);
  !     local($mailing_lists); 
    #    $committers = "CVS-committers"; 
        print "Mailing the commit message...\n";
    #    dbmopen(MAILFILE, "$MAIL_FILE.$id", 0666);
  --- 313,328 ----
        $who =~ s/^/"/;
        $who =~ s/$/"/;
    
  !     dbmopen(%MAILFILE, "$MAIL_FILE.$id", 0666);
        $MAILFILE{$who} = 1;
  !     dbmclose(%MAILFILE);
    }
    
    
    sub mail_notification {
        local(@text) = @_;
        local($names);
  ! #    local($mailing_lists); 
    #    $committers = "CVS-committers"; 
        print "Mailing the commit message...\n";
    #    dbmopen(MAILFILE, "$MAIL_FILE.$id", 0666);
  ***************
  *** 353,359 ****
    $login = $ENV{'USER'} || getlogin || (getpwuid($<))[0] || sprintf("uid#%d",$<);
    @files = split(' ', $ARGV[0]);
    @path = split('/', $files[0]);
  ! $repository = @path[0];
    if ($#path == 0) {
        $dir = ".";
    } else {
  --- 353,359 ----
    $login = $ENV{'USER'} || getlogin || (getpwuid($<))[0] || sprintf("uid#%d",$<);
    @files = split(' ', $ARGV[0]);
    @path = split('/', $files[0]);
  ! $repository = $path[0];
    if ($#path == 0) {
        $dir = ".";
    } else {