Mailing List Archive

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
#
#
# 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
#
#
# 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);
# $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 {