From 85cea59fce57efd9b65c43147f52ac5c323ffb01 Mon Sep 17 00:00:00 2001
From: Ricardo Signes <rjbs@semiotic.systems>
Date: Sun, 11 Jul 2021 21:05:26 -0400
Subject: [PATCH] when upgrading to SSL, log!

this way, we can tell who is authenticating in the clear
---
 lib/Net/FTPServer.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lib/Net/FTPServer.pm b/lib/Net/FTPServer.pm
index 28c31f4..8e890c7 100644
--- a/lib/Net/FTPServer.pm
+++ b/lib/Net/FTPServer.pm
@@ -4503,6 +4503,7 @@ sub _AUTH_command
       {
 	$self->{tls_control} = 1;
 	$self->{tls_type} = $ucr;
+	$self->log("notice", "connection upgraded to secure socket");
       }
     else
       {