diff options
author | Steve Holme <steve_holme@hotmail.com> | 2020-02-08 00:37:03 +0000 |
---|---|---|
committer | Steve Holme <steve_holme@hotmail.com> | 2020-02-26 11:02:38 +0000 |
commit | 2aa6c1735a84f6df11b5f5863a704034b820c925 (patch) | |
tree | 15598b3ed7640e57fc6392b9382ecc213a052259 /tests/ftpserver.pl | |
parent | e7959c280c0361d2e448776d9ea11305e2f026bc (diff) |
smtp: Support UTF-8 based host names in the VRFY command
Diffstat (limited to 'tests/ftpserver.pl')
-rwxr-xr-x | tests/ftpserver.pl | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/tests/ftpserver.pl b/tests/ftpserver.pl index 6709769d7..59a1665bd 100755 --- a/tests/ftpserver.pl +++ b/tests/ftpserver.pl @@ -1040,7 +1040,13 @@ sub VRFY_smtp { my @data = getreplydata($smtp_client); if(!@data) { - push @data, "250 <$username\@example.com>\r\n" + if ($username !~ + /^([a-zA-Z0-9._%+-]+)\@(([a-zA-Z0-9-]+)\.)+([a-zA-Z]{2,4})$/) { + push @data, "250 <$username\@example.com>\r\n" + } + else { + push @data, "250 <$username>\r\n" + } } for my $d (@data) { |