| … | |
… | |
| 252 | my $lauth; |
252 | my $lauth; |
| 253 | |
253 | |
| 254 | if ($tls) { |
254 | if ($tls) { |
| 255 | $self->{tls} = $lgreeting2 lt $rgreeting2 ? "connect" : "accept"; |
255 | $self->{tls} = $lgreeting2 lt $rgreeting2 ? "connect" : "accept"; |
| 256 | $self->{hdl}->starttls ($self->{tls}, $self->{tls_ctx}); |
256 | $self->{hdl}->starttls ($self->{tls}, $self->{tls_ctx}); |
|
|
257 | return unless $self->{hdl}; # starttls might destruct us |
| 257 | |
258 | |
| 258 | $lauth = |
259 | $lauth = |
| 259 | $s_auth eq "tls_anon" ? "" |
260 | $s_auth eq "tls_anon" ? "" |
| 260 | : $s_auth eq "tls_md6_64_256" ? Digest::MD6::md6_hex "$lgreeting1\012$lgreeting2\012$rgreeting1\012$rgreeting2\012" |
261 | : $s_auth eq "tls_md6_64_256" ? Digest::MD6::md6_hex "$lgreeting1\012$lgreeting2\012$rgreeting1\012$rgreeting2\012" |
| 261 | : return $self->error ("$s_auth: fatal, selected unsupported snd auth method"); |
262 | : return $self->error ("$s_auth: fatal, selected unsupported snd auth method"); |
