Doh, that was my intent.
I went home sick from work today, so my brain must still be off.
Anyway, I'll apply a slightly tweaked version of that tomorrow. (No
reason to use a regex.)
-R
At Sat, 6 Jan 2007 02:11:40 -0500,
Michael C. Toren wrote:
>
> --- lib/Qpsmtpd/SMTP.pm.old 2007-01-06 01:57:54.000000000 -0500
> +++ lib/Qpsmtpd/SMTP.pm 2007-01-06 01:59:32.000000000 -0500
> @@ -663,12 +663,12 @@
>
> if (defined $self->connection->notes('tls_enabled')
> and $self->connection->notes('tls_enabled')) {
> - $smtp eq "ESMTP" and $smtp .= "S"; # RFC3848
> + $smtp =~ /^ESMTP/ and $smtp .= "S"; # RFC3848
> $sslheader = "(".$self->connection->notes('tls_socket')->get_cipher()."
> encrypted) ";
> }
>
> if (defined $self->{_auth} and $self->{_auth} == OK) {
> - $smtp eq "ESMTP" and $smtp .= "A"; # RFC3848
> + $smtp =~ /^ESMTP/ and $smtp .= "A"; # RFC3848
> $authheader = "(smtp-auth username $self->{_auth_user}, mechanism
> $self->{_auth_mechanism})\n";
> }
