8cb00e70bc6a533345d30c0456cd7f43e53a6f40
braney
  Wed Sep 2 11:34:55 2026 -0700
weeklybld: default the authorEmail.pl fallback to the current buildmeister

Fall back to braney rather than hiram when a login is not found in the
git-reports authors.html.

diff --git src/utils/qa/weeklybld/authorEmail.pl src/utils/qa/weeklybld/authorEmail.pl
index 918b897f7d9..1c07fa1314c 100755
--- src/utils/qa/weeklybld/authorEmail.pl
+++ src/utils/qa/weeklybld/authorEmail.pl
@@ -1,37 +1,37 @@
 #!/usr/bin/env perl
 
 use strict;
 use warnings;
 
 my $argc = scalar(@ARGV);
 
 if ($argc != 2) {
   printf STDERR "usage: ./authorEmail.pl authorLogname /path/to/git-reports/.../user/authors.html\n";
   printf STDERR "answer printed to STDOUT is: <authorLogname\@correct.email> Full Name\n";
   exit 255;
 }
 
 my $logname = shift;
 my $authorsFile = shift;
 
 open (FH, "<$authorsFile") or die "can not read $authorsFile";
 my $inAuthors = 0;
 while (my $line = <FH>) {
   if ($line =~ m/^<ul>/) {
     $inAuthors = 1;
   } elsif ($line =~ m#^</ul>#) {
     $inAuthors = 0;
   } elsif ($inAuthors) {
     chomp $line;
     my ($name, $email) = split(' &lt;', $line);
     $email =~ s/&gt;.*//;
     my ($login, $domain) = split('@', $email);
     if ($login eq $logname) {
       printf "<%s> %s", $email, $name;
       exit 0;
     }
   }
 }
 close (FH);
-printf "<hiram\@soe.ucsc.edu> Hiram Clawson";
+printf "<braney\@soe.ucsc.edu> Brian Raney";