[PATCH http-server 1/2] fix #8021: websocket: check length of close payload

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

before unpacking the contained status code, otherwise the debug log might print
a warning.

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

diff --git a/src/PVE/APIServer/AnyEvent.pm b/src/PVE/APIServer/AnyEvent.pm
index 915d678..12701aa 100644
--- a/src/PVE/APIServer/AnyEvent.pm
+++ b/src/PVE/APIServer/AnyEvent.pm
@@ -674,8 +674,12 @@ sub websocket_proxy {
                     if ($opcode == 1 || $opcode == 2) {
                         $reqstate->{proxyhdl}->push_write($payload) if $reqstate->{proxyhdl};
                     } elsif ($opcode == 8) {
-                        my $statuscode = unpack("n", $payload);
-                        $self->dprint("websocket received close. status code: '$statuscode'");
+                        if ($payload_len < 2) {
+                            $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'");
+                        }
                         if (my $proxyhdl = $reqstate->{proxyhdl}) {
                             $proxyhdl->{block_disconnect} = 1 if length $proxyhdl->{wbuf};
 
-- 
2.47.3