[- use strict; use PVE::Cluster; use PVE::ConfigServer; my $cinfo = $fdat{__cinfo}; my $veid = $fdat{veid}; my $cid = $fdat{cid}; if ($udat{AM} ne 'w') { print OUT PVE::HTMLUtils::msg('nowr'); return; } if (!(defined ($veid) && defined ($cid))) { print OUT "undefined vm data"; return; } my $conn = PVE::ConfigClient::connect ($udat{auth_cookie}); my $vzinfo = PVE::Cluster::load_vmconfig ($cinfo, $cid, $veid, 'openvz', $udat{auth_cookie}); my $status = $vzinfo->{vzlist}->{"VEID_$veid"}->{status}; my $res = $conn->create_vnc_console($cid, $veid, 'openvz', $status)->result; my $vncport = $res->{port}; my $vncticket = $res->{ticket}; my $out = ''; my $name = $vzinfo->{vzlist}->{"VEID_$veid"}->{name}; $out .= "