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 "<li>comment: '%s'</li>\n", $incoming{"comment"}; printf "</ul>\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 "</body></html>\n";