[PATCH http-server 2/2] websocket: include close reason in debug log

["Fabian Grünbichler" <f.gruenbichler@proxmox.com>]

if given by the client.

Signed-off-by: Fabian Grünbichler <f.gruenbichler@proxmox.com>
---
 src/PVE/APIServer/AnyEvent.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/PVE/APIServer/AnyEvent.pm b/src/PVE/APIServer/AnyEvent.pm
index 12701aa..44e4568 100644
--- a/src/PVE/APIServer/AnyEvent.pm
+++ b/src/PVE/APIServer/AnyEvent.pm
@@ -678,7 +678,9 @@ sub websocket_proxy {
                             $self->dprint("websocket received close with too short payload: $payload_len");
                         } else {
                             my $statuscode = unpack("n", $payload);
-                            $self->dprint("websocket received close. status code: '$statuscode'");
+                            my $reason = substr($payload, 2, $payload_len - 2);
+                            $reason = '-' if !$reason;
+                            $self->dprint("websocket received close. status code: '$statuscode', reason: '$reason'");
                         }
                         if (my $proxyhdl = $reqstate->{proxyhdl}) {
                             $proxyhdl->{block_disconnect} = 1 if length $proxyhdl->{wbuf};
-- 
2.47.3