2757f15a9285e4d56bedf7d1004991aebe1b46f7 jcasper Mon Feb 3 20:46:04 2025 -0800 s-nail wants spaces instead of commas in the recipient list, no ticket diff --git src/utils/qa/weeklybld/sendLogEmail.pl src/utils/qa/weeklybld/sendLogEmail.pl index 1a2fff9a3cd..b32e515d1c8 100755 --- src/utils/qa/weeklybld/sendLogEmail.pl +++ src/utils/qa/weeklybld/sendLogEmail.pl @@ -1,31 +1,31 @@ #!/usr/bin/env perl use strict; use warnings; my $argc = scalar(@ARGV); if ($argc != 2) { printf STDERR "usage: sendLogEmail.pl \$LASTNN \$BRANCHNN\n"; exit 255; } my $lastNN = shift; my $branchNN = shift; my $buildMeisterOnly = $ENV{'BUILDMEISTEREMAIL'}; -my $buildMeisterEtc = $buildMeisterOnly . ',clayfischer@ucsc.edu,lrnassar@ucsc.edu'; +my $buildMeisterEtc = $buildMeisterOnly . ' clayfischer@ucsc.edu lrnassar@ucsc.edu'; # the bounceEmail address needs to be in the ucsc.edu domain to work correctly my $bounceEmail = $buildMeisterOnly; my $returnEmail = ' lrnassar@ucsc.edu'; my @victims; my %victimEmail; my $authorFilter = `getent group kentcommit | cut -d':' -f4 | tr ',' '|'`; chomp $authorFilter; open (FH, "git log v${lastNN}_base..v${branchNN}_base --name-status | grep Author | egrep -i \"${authorFilter}\" | sort -u |") or die "can not git log v${lastNN}_base..v${branchNN}_base --name-status"; while (my $line = <FH>) { chomp $line; if ($line =~ m/^Author:/) { $line =~ s/Author: //;