4888af47a6dceb9a40e20276c1acf861edf02479
hiram
Tue Jan 14 07:02:55 2025 -0800
more useful to have the mail subject say assembly request rather than asr request refs #32596
diff --git src/hg/gar/asr.cgi.pl src/hg/gar/asr.cgi.pl
index fdf908d..7ced936 100755
--- src/hg/gar/asr.cgi.pl
+++ src/hg/gar/asr.cgi.pl
@@ -92,49 +92,49 @@
printf "
comment: '%s'\n", $incoming{"comment"};
printf "\n";
my $DS=`date "+%F %T"`;
chomp $DS;
my $cleanEmail = $incoming{"email"};
$cleanEmail =~ s/@/ at /;
$cleanEmail =~ s/\./ dot /g;
open (FH, "|/usr/sbin/sendmail -f \"${bounceAddr}\" -t -oi");
printf FH "To: %s
Reply-to: %s
Return-path: %s
Cc: %s
-Subject: asr request: %s
+Subject: assembly request: %s
name: '%s'
email: '%s'
asmId: '%s'
betterName: '%s'
comment: '%s'
date: '%s'
", $sendTo, $incoming{"email"}, $legitimateFrom, $Cc, $incoming{"asmId"}, decode_entities($incoming{"name"}), decode_entities($cleanEmail), decode_entities($incoming{"asmId"}), decode_entities($incoming{"betterName"}), decode_entities($incoming{"comment"}), ${DS};
close (FH);
# and then send the email to the google group with the cleanEmail in text
if ( $genArkRequestGroup ne $myAddr ) { # debugging do not send mail twice
open (FH, "|/usr/sbin/sendmail -f \"${bounceAddr}\" -t -oi");
printf FH "To: %s
Reply-to: %s
Return-path: %s
-Subject: asr request: %s
+Subject: assembly request: %s
name: '%s'
email: '%s'
asmId: '%s'
betterName: '%s'
comment: '%s'
date: '%s'
", $genArkRequestGroup, $legitimateFrom, $legitimateFrom, $incoming{"asmId"}, decode_entities($incoming{"name"}), decode_entities($cleanEmail), decode_entities($incoming{"asmId"}), decode_entities($incoming{"betterName"}), decode_entities($incoming{"comment"}), ${DS};
close (FH);
}
print "