Skip to content

bugzilla
bugzilla
Commit 2b9f5bf8 authored by lpsolit%gmail.com's avatar lpsolit%gmail.com
Browse files
Options

Bug 339862: Move Bugzilla::BugMail::MessageToMTA() in a separate module - Patch…

Bug 339862: Move Bugzilla::BugMail::MessageToMTA() in a separate module - Patch by Frédéric Buclin <LpSolit@gmail.com> r=mkanat a=justdave
parent 24a02ebf
Hide whitespace changes
Inline Side-by-side
Showing with 234 additions and 187 deletions
Bugzilla/BugMail.pm
View file @ 2b9f5bf8
...@@ -39,15 +39,10 @@ use Bugzilla::Config qw(:DEFAULT $datadir); ...@@ -39,15 +39,10 @@ use Bugzilla::Config qw(:DEFAULT $datadir);
use Bugzilla::Util; use Bugzilla::Util;
use Bugzilla::Bug; use Bugzilla::Bug;
use Bugzilla::Component; use Bugzilla::Component;
use Bugzilla::Mailer;
use Date::Parse; use Date::Parse;
use Date::Format; use Date::Format;
use Mail::Mailer;
use Mail::Header;
use MIME::Base64;
use MIME::QuotedPrint;
use MIME::Parser;
use Mail::Address;
use constant BIT_DIRECT => 1; use constant BIT_DIRECT => 1;
use constant BIT_WATCHING => 2; use constant BIT_WATCHING => 2;
...@@ -670,166 +665,6 @@ sub sendMail { ...@@ -670,166 +665,6 @@ sub sendMail {
return 1; return 1;
} }
sub MessageToMTA {
my ($msg) = (@_);
return if (Param('mail_delivery_method') eq "none");
my ($header, $body) = $msg =~ /(.*?\n)\n(.*)/s ? ($1, $2) : ('', $msg);
my $headers;
if (Param('utf8') and (!is_7bit_clean($header) or !is_7bit_clean($body))) {
($headers, $body) = encode_message($msg);
} else {
my @header_lines = split(/\n/, $header);
$headers = new Mail::Header \@header_lines, Modify => 0;
}
# Use trim to remove any whitespace (incl. newlines)
my $from = trim($headers->get('from'));
if (Param("mail_delivery_method") eq "sendmail" && $^O =~ /MSWin32/i) {
my $cmd = '|' . SENDMAIL_EXE . ' -t -i';
if ($from) {
# We're on Windows, thus no danger of command injection
# via $from. In other words, it is safe to embed $from.
$cmd .= qq# -f"$from"#;
}
open(SENDMAIL, $cmd) ||
die "Failed to execute " . SENDMAIL_EXE . ": $!\n";
print SENDMAIL $headers->as_string;
print SENDMAIL "\n";
print SENDMAIL $body;
close SENDMAIL;
return;
}
my @args;
if (Param("mail_delivery_method") eq "sendmail") {
push @args, "-i";
if ($from) {
push(@args, "-f$from");
}
}
if (Param("mail_delivery_method") eq "sendmail" && !Param("sendmailnow")) {
push @args, "-ODeliveryMode=deferred";
}
if (Param("mail_delivery_method") eq "smtp") {
push @args, Server => Param("smtpserver");
if ($from) {
$ENV{'MAILADDRESS'} = $from;
}
}
my $mailer = new Mail::Mailer Param("mail_delivery_method"), @args;
if (Param("mail_delivery_method") eq "testfile") {
$Mail::Mailer::testfile::config{outfile} = "$datadir/mailer.testfile";
}
$mailer->open($headers->header_hashref);
print $mailer $body;
$mailer->close;
}
sub encode_qp_words {
my ($line) = (@_);
my @encoded;
foreach my $word (split / /, $line) {
if (!is_7bit_clean($word)) {
push @encoded, '=?UTF-8?Q?_' . encode_qp($word, '') . '?=';
} else {
push @encoded, $word;
}
}
return join(' ', @encoded);
}
sub encode_message {
my ($msg) = @_;
my $parser = MIME::Parser->new;
$parser->output_to_core(1);
$parser->tmp_to_core(1);
my $entity = $parser->parse_data($msg);
$entity = encode_message_entity($entity);
my @header_lines = split(/\n/, $entity->header_as_string);
my $head = new Mail::Header \@header_lines, Modify => 0;
my $body = $entity->body_as_string;
return ($head, $body);
}
sub encode_message_entity {
my ($entity) = @_;
my $head = $entity->head;
# encode the subject
my $subject = $head->get('subject');
if (defined $subject && !is_7bit_clean($subject)) {
$subject =~ s/[\r\n]+$//;
$head->replace('subject', encode_qp_words($subject));
}
# encode addresses
foreach my $field (qw(from to cc reply-to sender errors-to)) {
my $high = $head->count($field) - 1;
foreach my $index (0..$high) {
my $value = $head->get($field, $index);
my @addresses;
my $changed = 0;
foreach my $addr (Mail::Address->parse($value)) {
my $phrase = $addr->phrase;
if (is_7bit_clean($phrase)) {
push @addresses, $addr->format;
} else {
push @addresses, encode_qp_phrase($phrase) .
' <' . $addr->address . '>';
$changed = 1;
}
}
$changed && $head->replace($field, join(', ', @addresses), $index);
}
}
# process the body
if (scalar($entity->parts)) {
my $newparts = [];
foreach my $part ($entity->parts) {
my $newpart = encode_message_entity($part);
push @$newparts, $newpart;
}
$entity->parts($newparts);
}
else {
# Extract the body from the entity, for examination
# At this point, we can rely on MIME::Tools to do our encoding for us!
my $bodyhandle = $entity->bodyhandle;
my $body = $bodyhandle->as_string;
if (!is_7bit_clean($body)) {
# count number of 7-bit chars, and use quoted-printable if more
# than half the message is 7-bit clean
my $count = ($body =~ tr/\x20-\x7E\x0A\x0D//);
if ($count > length($body) / 2) {
$head->mime_attr('Content-Transfer-Encoding' => 'quoted-printable');
} else {
$head->mime_attr('Content-Transfer-Encoding' => 'base64');
}
}
# Set the content/type and charset of the part, if not set
$head->mime_attr('Content-Type' => 'text/plain')
unless defined $head->mime_attr('content-type');
$head->mime_attr('Content-Type.charset' => 'UTF-8');
}
$head->fold(75);
return $entity;
}
# Send the login name and password of the newly created account to the user. # Send the login name and password of the newly created account to the user.
sub MailPassword { sub MailPassword {
my ($login, $password) = (@_); my ($login, $password) = (@_);
......
Bugzilla/Flag.pm
View file @ 2b9f5bf8
...@@ -65,7 +65,7 @@ use Bugzilla::Config; ...@@ -65,7 +65,7 @@ use Bugzilla::Config;
use Bugzilla::Util; use Bugzilla::Util;
use Bugzilla::Error; use Bugzilla::Error;
use Bugzilla::Attachment; use Bugzilla::Attachment;
use Bugzilla::BugMail; use Bugzilla::Mailer;
use Bugzilla::Constants; use Bugzilla::Constants;
use Bugzilla::Field; use Bugzilla::Field;
...@@ -903,7 +903,7 @@ sub notify { ...@@ -903,7 +903,7 @@ sub notify {
ThrowTemplateError($template->error()); ThrowTemplateError($template->error());
} }
Bugzilla::BugMail::MessageToMTA($message); MessageToMTA($message);
} }
} }
......
Bugzilla/Mailer.pm 0 → 100644
View file @ 2b9f5bf8
# -*- Mode: perl; indent-tabs-mode: nil -*-
#
# The contents of this file are subject to the Mozilla Public
# License Version 1.1 (the "License"); you may not use this file
# except in compliance with the License. You may obtain a copy of
# the License at http://www.mozilla.org/MPL/
#
# Software distributed under the License is distributed on an "AS
# IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
# implied. See the License for the specific language governing
# rights and limitations under the License.
#
# The Original Code is the Bugzilla Bug Tracking System.
#
# The Initial Developer of the Original Code is Netscape Communications
# Corporation. Portions created by Netscape are
# Copyright (C) 1998 Netscape Communications Corporation. All
# Rights Reserved.
#
# Contributor(s): Terry Weissman <terry@mozilla.org>,
# Bryce Nesbitt <bryce-mozilla@nextbus.com>
# Dan Mosedale <dmose@mozilla.org>
# Alan Raetz <al_raetz@yahoo.com>
# Jacob Steenhagen <jake@actex.net>
# Matthew Tuck <matty@chariot.net.au>
# Bradley Baetz <bbaetz@student.usyd.edu.au>
# J. Paul Reed <preed@sigkill.com>
# Gervase Markham <gerv@gerv.net>
# Byron Jones <bugzilla@glob.com.au>
# Frédéric Buclin <LpSolit@gmail.com>
package Bugzilla::Mailer;
use strict;
use base qw(Exporter);
@Bugzilla::Mailer::EXPORT = qw(MessageToMTA);
use Bugzilla::Constants;
use Bugzilla::Config qw(:DEFAULT $datadir);
use Bugzilla::Util;
use Mail::Header;
use Mail::Mailer;
use Mail::Address;
use MIME::Parser;
use MIME::QuotedPrint;
use MIME::Base64;
sub MessageToMTA {
my ($msg) = (@_);
return if (Param('mail_delivery_method') eq "none");
my ($header, $body) = $msg =~ /(.*?\n)\n(.*)/s ? ($1, $2) : ('', $msg);
my $headers;
if (Param('utf8') and (!is_7bit_clean($header) or !is_7bit_clean($body))) {
($headers, $body) = encode_message($msg);
} else {
my @header_lines = split(/\n/, $header);
$headers = new Mail::Header \@header_lines, Modify => 0;
}
# Use trim to remove any whitespace (incl. newlines)
my $from = trim($headers->get('from'));
if (Param("mail_delivery_method") eq "sendmail" && $^O =~ /MSWin32/i) {
my $cmd = '|' . SENDMAIL_EXE . ' -t -i';
if ($from) {
# We're on Windows, thus no danger of command injection
# via $from. In other words, it is safe to embed $from.
$cmd .= qq# -f"$from"#;
}
open(SENDMAIL, $cmd) ||
die "Failed to execute " . SENDMAIL_EXE . ": $!\n";
print SENDMAIL $headers->as_string;
print SENDMAIL "\n";
print SENDMAIL $body;
close SENDMAIL;
return;
}
my @args;
if (Param("mail_delivery_method") eq "sendmail") {
push @args, "-i";
if ($from) {
push(@args, "-f$from");
}
}
if (Param("mail_delivery_method") eq "sendmail" && !Param("sendmailnow")) {
push @args, "-ODeliveryMode=deferred";
}
if (Param("mail_delivery_method") eq "smtp") {
push @args, Server => Param("smtpserver");
if ($from) {
$ENV{'MAILADDRESS'} = $from;
}
}
my $mailer = new Mail::Mailer Param("mail_delivery_method"), @args;
if (Param("mail_delivery_method") eq "testfile") {
$Mail::Mailer::testfile::config{outfile} = "$datadir/mailer.testfile";
}
$mailer->open($headers->header_hashref);
print $mailer $body;
$mailer->close;
}
sub encode_message {
my ($msg) = @_;
my $parser = MIME::Parser->new;
$parser->output_to_core(1);
$parser->tmp_to_core(1);
my $entity = $parser->parse_data($msg);
$entity = encode_message_entity($entity);
my @header_lines = split(/\n/, $entity->header_as_string);
my $head = new Mail::Header \@header_lines, Modify => 0;
my $body = $entity->body_as_string;
return ($head, $body);
}
sub encode_message_entity {
my ($entity) = @_;
my $head = $entity->head;
# encode the subject
my $subject = $head->get('subject');
if (defined $subject && !is_7bit_clean($subject)) {
$subject =~ s/[\r\n]+$//;
$head->replace('subject', encode_qp_words($subject));
}
# encode addresses
foreach my $field (qw(from to cc reply-to sender errors-to)) {
my $high = $head->count($field) - 1;
foreach my $index (0..$high) {
my $value = $head->get($field, $index);
my @addresses;
my $changed = 0;
foreach my $addr (Mail::Address->parse($value)) {
my $phrase = $addr->phrase;
if (is_7bit_clean($phrase)) {
push @addresses, $addr->format;
} else {
push @addresses, encode_qp_phrase($phrase) .
' <' . $addr->address . '>';
$changed = 1;
}
}
$changed && $head->replace($field, join(', ', @addresses), $index);
}
}
# process the body
if (scalar($entity->parts)) {
my $newparts = [];
foreach my $part ($entity->parts) {
my $newpart = encode_message_entity($part);
push @$newparts, $newpart;
}
$entity->parts($newparts);
}
else {
# Extract the body from the entity, for examination
# At this point, we can rely on MIME::Tools to do our encoding for us!
my $bodyhandle = $entity->bodyhandle;
my $body = $bodyhandle->as_string;
if (!is_7bit_clean($body)) {
# count number of 7-bit chars, and use quoted-printable if more
# than half the message is 7-bit clean
my $count = ($body =~ tr/\x20-\x7E\x0A\x0D//);
if ($count > length($body) / 2) {
$head->mime_attr('Content-Transfer-Encoding' => 'quoted-printable');
} else {
$head->mime_attr('Content-Transfer-Encoding' => 'base64');
}
}
# Set the content/type and charset of the part, if not set
$head->mime_attr('Content-Type' => 'text/plain')
unless defined $head->mime_attr('content-type');
$head->mime_attr('Content-Type.charset' => 'UTF-8');
}
$head->fold(75);
return $entity;
}
sub encode_qp_words {
my ($line) = (@_);
my @encoded;
foreach my $word (split / /, $line) {
if (!is_7bit_clean($word)) {
push @encoded, '=?UTF-8?Q?_' . encode_qp($word, '') . '?=';
} else {
push @encoded, $word;
}
}
return join(' ', @encoded);
}
1;
Bugzilla/Token.pm
View file @ 2b9f5bf8
...@@ -31,7 +31,7 @@ package Bugzilla::Token; ...@@ -31,7 +31,7 @@ package Bugzilla::Token;
use Bugzilla::Config; use Bugzilla::Config;
use Bugzilla::Error; use Bugzilla::Error;
use Bugzilla::BugMail; use Bugzilla::Mailer;
use Bugzilla::Util; use Bugzilla::Util;
use Date::Format; use Date::Format;
...@@ -76,7 +76,7 @@ sub IssueEmailChangeToken { ...@@ -76,7 +76,7 @@ sub IssueEmailChangeToken {
$template->process("account/email/change-old.txt.tmpl", $vars, \$message) $template->process("account/email/change-old.txt.tmpl", $vars, \$message)
|| ThrowTemplateError($template->error()); || ThrowTemplateError($template->error());
Bugzilla::BugMail::MessageToMTA($message); MessageToMTA($message);
$vars->{'token'} = $newtoken; $vars->{'token'} = $newtoken;
$vars->{'emailaddress'} = $new_email . Param('emailsuffix'); $vars->{'emailaddress'} = $new_email . Param('emailsuffix');
...@@ -85,7 +85,7 @@ sub IssueEmailChangeToken { ...@@ -85,7 +85,7 @@ sub IssueEmailChangeToken {
$template->process("account/email/change-new.txt.tmpl", $vars, \$message) $template->process("account/email/change-new.txt.tmpl", $vars, \$message)
|| ThrowTemplateError($template->error()); || ThrowTemplateError($template->error());
Bugzilla::BugMail::MessageToMTA($message); MessageToMTA($message);
} }
# Generates a random token, adds it to the tokens table, and sends it # Generates a random token, adds it to the tokens table, and sends it
...@@ -125,7 +125,7 @@ sub IssuePasswordToken { ...@@ -125,7 +125,7 @@ sub IssuePasswordToken {
$vars, \$message) $vars, \$message)
|| ThrowTemplateError($template->error()); || ThrowTemplateError($template->error());
Bugzilla::BugMail::MessageToMTA($message); MessageToMTA($message);
} }
sub IssueSessionToken { sub IssueSessionToken {
...@@ -213,7 +213,7 @@ sub Cancel { ...@@ -213,7 +213,7 @@ sub Cancel {
$template->process("account/cancel-token.txt.tmpl", $vars, \$message) $template->process("account/cancel-token.txt.tmpl", $vars, \$message)
|| ThrowTemplateError($template->error()); || ThrowTemplateError($template->error());
Bugzilla::BugMail::MessageToMTA($message); MessageToMTA($message);
# Delete the token from the database. # Delete the token from the database.
DeleteToken($token); DeleteToken($token);
......
editproducts.cgi
View file @ 2b9f5bf8
...@@ -39,7 +39,7 @@ require "globals.pl"; ...@@ -39,7 +39,7 @@ require "globals.pl";
use Bugzilla::Bug; use Bugzilla::Bug;
use Bugzilla::Series; use Bugzilla::Series;
use Bugzilla::Config qw(:DEFAULT $datadir); use Bugzilla::Config qw(:DEFAULT $datadir);
use Bugzilla::BugMail; use Bugzilla::Mailer;
use Bugzilla::Product; use Bugzilla::Product;
use Bugzilla::Classification; use Bugzilla::Classification;
use Bugzilla::Milestone; use Bugzilla::Milestone;
...@@ -905,7 +905,7 @@ if ($action eq 'update') { ...@@ -905,7 +905,7 @@ if ($action eq 'update') {
"has changed;\nyou had too many votes " . "has changed;\nyou had too many votes " .
"for a single bug."); "for a single bug.");
foreach my $msg (@$msgs) { foreach my $msg (@$msgs) {
Bugzilla::BugMail::MessageToMTA($msg); MessageToMTA($msg);
} }
my $name = DBID_to_name($who); my $name = DBID_to_name($who);
...@@ -958,7 +958,7 @@ if ($action eq 'update') { ...@@ -958,7 +958,7 @@ if ($action eq 'update') {
"too many\ntotal votes, so all " . "too many\ntotal votes, so all " .
"votes have been removed."); "votes have been removed.");
foreach my $msg (@$msgs) { foreach my $msg (@$msgs) {
Bugzilla::BugMail::MessageToMTA($msg); MessageToMTA($msg);
} }
my $name = DBID_to_name($who); my $name = DBID_to_name($who);
......
importxml.pl
View file @ 2b9f5bf8
...@@ -81,6 +81,7 @@ use Bugzilla::Milestone; ...@@ -81,6 +81,7 @@ use Bugzilla::Milestone;
use Bugzilla::FlagType; use Bugzilla::FlagType;
use Bugzilla::Config qw(:DEFAULT $datadir); use Bugzilla::Config qw(:DEFAULT $datadir);
use Bugzilla::BugMail; use Bugzilla::BugMail;
use Bugzilla::Mailer;
use Bugzilla::User; use Bugzilla::User;
use Bugzilla::Util; use Bugzilla::Util;
use Bugzilla::Constants; use Bugzilla::Constants;
...@@ -153,7 +154,7 @@ sub MailMessage { ...@@ -153,7 +154,7 @@ sub MailMessage {
$header .= "From: Bugzilla <$from>\n"; $header .= "From: Bugzilla <$from>\n";
$header .= "Subject: $subject\n\n"; $header .= "Subject: $subject\n\n";
my $sendmessage = $header . $message . "\n"; my $sendmessage = $header . $message . "\n";
Bugzilla::BugMail::MessageToMTA($sendmessage); MessageToMTA($sendmessage);
} }
} }
...@@ -1198,7 +1199,7 @@ Debug( "Reading xml", DEBUG_LEVEL ); ...@@ -1198,7 +1199,7 @@ Debug( "Reading xml", DEBUG_LEVEL );
local ($/); local ($/);
$xml = <>; $xml = <>;
# If the email was encoded (BugMail::MessageToMTA() does it when using UTF-8), # If the email was encoded (Mailer::MessageToMTA() does it when using UTF-8),
# we have to decode it first, else the XML parsing will fail. # we have to decode it first, else the XML parsing will fail.
my $parser = MIME::Parser->new; my $parser = MIME::Parser->new;
$parser->output_to_core(1); $parser->output_to_core(1);
......
process_bug.cgi
View file @ 2b9f5bf8
...@@ -52,7 +52,7 @@ require "globals.pl"; ...@@ -52,7 +52,7 @@ require "globals.pl";
use Bugzilla; use Bugzilla;
use Bugzilla::Constants; use Bugzilla::Constants;
use Bugzilla::Bug; use Bugzilla::Bug;
use Bugzilla::BugMail; use Bugzilla::Mailer;
use Bugzilla::User; use Bugzilla::User;
use Bugzilla::Util; use Bugzilla::Util;
use Bugzilla::Field; use Bugzilla::Field;
...@@ -743,7 +743,7 @@ if ($action eq Param('move-button-text')) { ...@@ -743,7 +743,7 @@ if ($action eq Param('move-button-text')) {
|| ThrowTemplateError($template->error()); || ThrowTemplateError($template->error());
$msg .= "\n"; $msg .= "\n";
Bugzilla::BugMail::MessageToMTA($msg); MessageToMTA($msg);
# End the response page. # End the response page.
$template->process("bug/navigate.html.tmpl", $vars) $template->process("bug/navigate.html.tmpl", $vars)
...@@ -2137,7 +2137,7 @@ foreach my $id (@idlist) { ...@@ -2137,7 +2137,7 @@ foreach my $id (@idlist) {
# Now is a good time to send email to voters. # Now is a good time to send email to voters.
foreach my $msg (@$msgs) { foreach my $msg (@$msgs) {
Bugzilla::BugMail::MessageToMTA($msg); MessageToMTA($msg);
} }
if ($duplicate) { if ($duplicate) {
......
relogin.cgi
View file @ 2b9f5bf8
...@@ -28,7 +28,7 @@ use lib qw(.); ...@@ -28,7 +28,7 @@ use lib qw(.);
require "globals.pl"; require "globals.pl";
use Bugzilla; use Bugzilla;
use Bugzilla::BugMail; use Bugzilla::Mailer;
use Bugzilla::Constants; use Bugzilla::Constants;
use Bugzilla::Error; use Bugzilla::Error;
use Bugzilla::Token; use Bugzilla::Token;
...@@ -163,7 +163,7 @@ elsif ($action eq 'begin-sudo') { ...@@ -163,7 +163,7 @@ elsif ($action eq 'begin-sudo') {
$template->process('email/sudo.txt.tmpl', $template->process('email/sudo.txt.tmpl',
{ reason => $reason }, { reason => $reason },
\$message); \$message);
Bugzilla::BugMail::MessageToMTA($message); MessageToMTA($message);
$vars->{'message'} = 'sudo_started'; $vars->{'message'} = 'sudo_started';
$vars->{'target'} = $target_user->login; $vars->{'target'} = $target_user->login;
......
whine.pl
View file @ 2b9f5bf8
...@@ -33,7 +33,7 @@ use Bugzilla::Config qw(:DEFAULT $datadir); ...@@ -33,7 +33,7 @@ use Bugzilla::Config qw(:DEFAULT $datadir);
use Bugzilla::Constants; use Bugzilla::Constants;
use Bugzilla::Search; use Bugzilla::Search;
use Bugzilla::User; use Bugzilla::User;
use Bugzilla::BugMail; use Bugzilla::Mailer;
use Bugzilla::Util; use Bugzilla::Util;
# create some handles that we'll need # create some handles that we'll need
...@@ -406,7 +406,7 @@ sub mail { ...@@ -406,7 +406,7 @@ sub mail {
$template->process("whine/multipart-mime.txt.tmpl", $args, \$msg) $template->process("whine/multipart-mime.txt.tmpl", $args, \$msg)
or die($template->error()); or die($template->error());
Bugzilla::BugMail::MessageToMTA($msg); MessageToMTA($msg);
delete $args->{'boundary'}; delete $args->{'boundary'};
delete $args->{'alternatives'}; delete $args->{'alternatives'};
......
whineatnews.pl
View file @ 2b9f5bf8
...@@ -33,7 +33,7 @@ use lib '.'; ...@@ -33,7 +33,7 @@ use lib '.';
require "globals.pl"; require "globals.pl";
use Bugzilla; use Bugzilla;
use Bugzilla::BugMail; use Bugzilla::Mailer;
use Bugzilla::Util; use Bugzilla::Util;
# Whining is disabled if whinedays is zero # Whining is disabled if whinedays is zero
...@@ -83,7 +83,7 @@ foreach my $email (sort (keys %bugs)) { ...@@ -83,7 +83,7 @@ foreach my $email (sort (keys %bugs)) {
$msg .= " -> ${urlbase}show_bug.cgi?id=$i\n"; $msg .= " -> ${urlbase}show_bug.cgi?id=$i\n";
} }
Bugzilla::BugMail::MessageToMTA($msg); MessageToMTA($msg);
print "$email " . join(" ", @{$bugs{$email}}) . "\n"; print "$email " . join(" ", @{$bugs{$email}}) . "\n";
} }
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment