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 {