my $rport;
- my $spice_port;
my $nodename = PVE::INotify::nodename();
## start on remote node
my $cmd = [@{$self->{rem_ssh}}];
- if($conf->{vga} eq 'qxl'){
+ if (PVE::QemuServer::vga_conf_has_spice($conf->{vga})) {
my $res = PVE::QemuServer::vm_mon_cmd($vmid, 'query-spice');
push @$cmd, 'SPICETICKET='.$res->{ticket} if $res->{ticket};
}
push @$cmd, '--machine', $self->{forcemachine};
}
+ my $spice_port;
+
PVE::Tools::run_command($cmd, outfunc => sub {
my $line = shift;
if ($line =~ m/^migration listens on port (\d+)$/) {
- $rport = $1;
+ $rport = int($1);
}elsif ($line =~ m/^spice listens on port (\d+)$/) {
- $spice_port = $1;
+ $spice_port = int($1);
}
}, errfunc => sub {
my $line = shift;
eval {
PVE::QemuServer::vm_mon_cmd_nocheck($vmid, "migrate-set-cache-size", value => $cachesize);
};
-
- if($conf->{vga} eq 'qxl'){
+
+ if (PVE::QemuServer::vga_conf_has_spice($conf->{vga})) {
my $rpcenv = PVE::RPCEnvironment::get();
my $authuser = $rpcenv->get_user();
- my ($ticket, $proxyticket) = PVE::AccessControl::assemble_spice_ticket($authuser, $vmid, $self->{node});
+ my (undef, $proxyticket) = PVE::AccessControl::assemble_spice_ticket($authuser, $vmid, $self->{node});
- my $filename = "/etc/pve/nodes/".$self->{node}."/pve-ssl.pem";
+ my $filename = "/etc/pve/nodes/$self->{node}/pve-ssl.pem";
my $subject = PVE::QemuServer::read_x509_subject_spice($filename);
$self->log('info', "spice client_migrate_info");
eval {
- PVE::QemuServer::vm_mon_cmd_nocheck($vmid, "client_migrate_info", protocol => 'spice', hostname => $proxyticket, 'tls-port' => int($spice_port), 'cert-subject' => $subject);
+ PVE::QemuServer::vm_mon_cmd_nocheck($vmid, "client_migrate_info", protocol => 'spice',
+ hostname => $proxyticket, 'tls-port' => $spice_port,
+ 'cert-subject' => $subject);
};
$self->log('info', "client_migrate_info error: $@") if $@;
}
my $timer = 0;
- if($conf->{vga} eq 'qxl'){
+ if (PVE::QemuServer::vga_conf_has_spice($conf->{vga})) {
$self->log('info', "Waiting for spice server migration");
while (1) {
my $res = PVE::QemuServer::vm_mon_cmd_nocheck($vmid, 'query-spice');
}
}
+sub vga_conf_has_spice {
+ my ($vga) = @_;
+
+ return $vga && ($vga eq 'qxl');
+}
+
sub config_to_command {
my ($storecfg, $vmid, $conf, $defaults, $forcemachine) = @_;
$tablet = $conf->{tablet};
} else {
$tablet = $defaults->{tablet};
- $tablet = 0 if $vga eq 'qxl'; # disable for spice because it is not needed
+ $tablet = 0 if vga_conf_has_spice($vga); # disable for spice because it is not needed
}
push @$devices, '-device', 'usb-tablet,id=tablet,bus=uhci.0,port=1' if $tablet;
}
my $spice_port;
- if ($vga eq 'qxl') {
+ if (vga_conf_has_spice($vga)) {
my $pciaddr = print_pci_addr("spice", $bridges);
$spice_port = PVE::Tools::next_unused_port(61000, 61099);