sendEmail – patch para smtp auth

Já conhecia e usava esse carinha há algum tempo, é um script para envio de emails, e funciona com smtp autenticado (tanto plain quanto tls), bem útil para testes de servidores smtp.
Porém, ele tinha um problema, caso o email fosse no formato nome.sobrenome@dominio, ele falhava na autenticação.

Mas hoje consegui consertar isso alterando a linha do perl que gera o base64:

--- /usr/bin/sendEmail.orig     2008-05-12 12:54:30.000000000 -0300
+++ /usr/bin/sendEmail  2008-05-12 12:52:01.000000000 -0300
@@ -1914,7 +1914,8 @@
## SASL PLAIN authentication method
if ($conf{'SMTPchat_response'} =~ /\bPLAIN\b/i) {
printmsg("DEBUG => SMTP-AUTH: Using PLAIN authentication method", 1);
-                if (SMTPchat('AUTH PLAIN ' . base64_encode("$opt{'username'}$opt{'username'}$opt{'password'}"))) { quit($conf{'error'}, 1); }
+                ### if (SMTPchat('AUTH PLAIN ' . base64_encode("$opt{'username'}$opt{'username'}$opt{'password'}"))) { quit($conf{'error'}, 1); }
+                if (SMTPchat('AUTH PLAIN ' . base64_encode("$opt{'username'}$opt{'password'}"))) { quit($conf{'error'}, 1); }
printmsg("DEBUG => User authentication was successful", 1);
}

Link útil que me ajudou:
http://qmail.jms1.net/test-auth.shtml