Capitalize SMTP auth command for broader compatibility.

This commit is contained in:
Maarten Kossen (mpkossen)
2024-03-31 07:42:03 -05:00
parent 56abe45e64
commit b3350f5b37

View File

@@ -965,7 +965,7 @@ elsif ($sm) {
'pass' => $pass } );
&error("Failed to create Authen::SASL object") if (!$sasl);
local $conn = $sasl->client_new("smtp", &get_system_hostname());
local $arv = &smtp_command($h, "auth $auth\r\n", 1);
local $arv = &smtp_command($h, uc "auth $auth\r\n", 1);
if ($arv =~ /^(334)(\-\S+)?\s+(.*)/) {
# Server says to go ahead
$extra = $3;