e2210c09420d6cdfac88f9cbea58172fbeb1e236
hiram
  Mon May 13 10:27:44 2019 -0700
correct azweig email no redmine

diff --git src/utils/qa/weeklybld/sendLogEmail.pl src/utils/qa/weeklybld/sendLogEmail.pl
index df73a03..6d37c23 100755
--- src/utils/qa/weeklybld/sendLogEmail.pl
+++ src/utils/qa/weeklybld/sendLogEmail.pl
@@ -1,30 +1,30 @@
 #!/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 $buildMeisterEmail = $ENV{'BUILDMEISTEREMAIL'} . ',ann@soe.ucsc.edu,brianlee@soe.ucsc.edu';
+my $buildMeisterEmail = $ENV{'BUILDMEISTEREMAIL'} . ',azweig@ucsc.edu,brianlee@soe.ucsc.edu';
 my $returnEmail = ' brianlee@soe.ucsc.edu';
 
 my @victims;
 my %victimEmail;
 
 open (FH, "git log v${lastNN}_base..v${branchNN}_base --name-status | grep Author | sort | uniq|") 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: //;
     my @b = split('\s+', $line);
     my $sizeB = scalar(@b);
     my $email = $b[$sizeB-1];
     $email =~ s/<//;
     $email =~ s/@.*//;