[- use strict; use PVE::ConfigServer; if ($udat{AM} ne 'w') { print OUT PVE::HTMLUtils::msg('nowr'); return; } my $cinfo = $fdat{__cinfo}; my $veid = $fdat{veid}; my $cid = $fdat{cid}; if (!(defined ($veid) && defined ($cid))) { print OUT "undefined vm data"; return; } my $conn = PVE::ConfigClient::connect (); my $vzinfo = PVE::Cluster::load_vmconfig ($cinfo, $cid, $veid, 'qemu'); my $res = $conn->create_vnc_proxy($cid, $veid, $udat{auth_username})->result; my $port = $res->{port}; my $ticket = $res->{ticket}; my $out = ''; my $name = $vzinfo->{vzlist}->{"VEID_$veid"}->{name}; $out .= "$name - Proxmox Console"; $out .= <<__EOJS; __EOJS $out .= "\n"; $out .= "
"; $out .= "\n"; $out .= "\n"; $out .= "\n"; $out .= "\n"; $out .= "\n"; $out .= "
"; print OUT $out; -]