[! use strict; use PVE::I18N; use PVE::Cluster; use PVE::ConfigServer; use PVE::HTMLUtils; use PVE::HTMLControls; use IO::File; !] [- use strict; if ($udat{AM} ne 'w') { print OUT PVE::HTMLUtils::msg('nowr'); return; } my $cinfo = $fdat{__cinfo}; my $conn = PVE::ConfigClient::connect ($udat{auth_cookie}); my $veid = $fdat{veid}; my $cid = $fdat{cid}; my $res = $conn->create_vnc_console($cid, $veid, 'qemu', undef)->result; my $port = $udat{vncport} = $res->{port}; my $ticket = $udat{vncticket} = $res->{ticket}; my $out = ''; $out .= "
"; $out .= "\n"; $out .= "\n"; $out .= "\n"; $out .= "\n"; $out .= "
"; print OUT $out; -]