proxmox-mirrors/qemu-server
1
0
Fork 0
mirror of https://git.proxmox.com/git/qemu-server synced 2025-10-04 17:30:20 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

add migratedfrom param to start vm with conf file an another node

Browse Source 
Signed-off-by: Alexandre Derumier <aderumier@odiso.com>
This commit is contained in:
Alexandre Derumier 2012-08-21 12:21:51 +02:00 committed by Dietmar Maurer
parent c04b5b04de
commit 7e8dcf2cb0
3 changed files with 18 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
PVE/API2/Qemu.pm
View File

@ -1194,6 +1194,8 @@ __PACKAGE__->register_method({
vmid => get_standard_option('pve-vmid'),
skiplock => get_standard_option('skiplock'),
stateuri => get_standard_option('pve-qm-stateuri'),
migratedfrom => get_standard_option('pve-node',{ optional => 1 }),
},
},
returns => {
@ -1218,6 +1220,10 @@ __PACKAGE__->register_method({
raise_param_exc({ skiplock => "Only root may use this option." })
if $skiplock && $authuser ne 'root@pam';
my $migratedfrom = extract_param($param, 'migratedfrom');
raise_param_exc({ migratedfrom => "Only root may use this option." })
if $migratedfrom && $authuser ne 'root@pam';
my $storecfg = PVE::Storage::config();
if (&$vm_is_ha_managed($vmid) && !$stateuri &&
@ -1246,7 +1252,7 @@ __PACKAGE__->register_method({
syslog('info', "start VM $vmid: $upid\n");
PVE::QemuServer::vm_start($storecfg, $vmid, $stateuri, $skiplock);
PVE::QemuServer::vm_start($storecfg, $vmid, $stateuri, $skiplock, $migratedfrom);
return;
};

6
PVE/QemuMigrate.pm
View File

@ -298,9 +298,11 @@ sub phase2 {
my $rport;
my $nodename = PVE::INotify::nodename();
## start on remote node
my $cmd = [@{$self->{rem_ssh}}, 'qm', 'start',
$vmid, '--stateuri', 'tcp', '--skiplock'];
my $cmd = [@{$self->{rem_ssh}}, 'qm', 'start',
$vmid, '--stateuri', 'tcp', '--skiplock', '--migratedfrom', $nodename];
PVE::Tools::run_command($cmd, outfunc => sub {
my $line = shift;

14
PVE/QemuServer.pm
View File

@ -1499,9 +1499,9 @@ sub destroy_vm {
}
sub load_config {
my ($vmid) = @_;
my ($vmid, $node) = @_;
my $cfspath = cfs_config_path($vmid);
my $cfspath = cfs_config_path($vmid, $node);
my $conf = PVE::Cluster::cfs_read_file($cfspath);
@ -1757,9 +1757,9 @@ sub check_cmdline {
}
sub check_running {
my ($vmid, $nocheck) = @_;
my ($vmid, $nocheck, $node) = @_;
my $filename = config_file($vmid);
my $filename = config_file($vmid, $node);
die "unable to find configuration file for VM $vmid - no such machine\n"
if !$nocheck && ! -f $filename;
@ -2708,14 +2708,14 @@ sub qemu_block_resize {
}
sub vm_start {
my ($storecfg, $vmid, $statefile, $skiplock) = @_;
my ($storecfg, $vmid, $statefile, $skiplock, $migratedfrom) = @_;
lock_config($vmid, sub {
my $conf = load_config($vmid);
my $conf = load_config($vmid, $migratedfrom);
check_lock($conf) if !$skiplock;
die "VM $vmid already running\n" if check_running($vmid);
die "VM $vmid already running\n" if check_running($vmid, undef, $migratedfrom);
my $migrate_uri;
my $migrate_port = 0;