Subversion Repositories sysadmin_scripts

Rev

Rev 114 | Rev 116 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 114 Rev 115
Line 76... Line 76...
76 
 
 76 
 
77 
while ( my $domain = shift @toProcess ) {
 77 
while ( my $domain = shift @toProcess ) {
78 
   my $domainName = &checkVirtual( $running, $domain );
 78 
   my $domainName = &checkVirtual( $running, $domain );
79 
   print "\n==Migrating $domainName to $target\n";
 79 
   print "\n==Migrating $domainName to $target\n";
80 
   print "\tvirsh migrate --live --persistent --verbose  $domain qemu+ssh://$target/system\n";
 80 
   print "\tvirsh migrate --live --persistent --verbose  $domain qemu+ssh://$target/system\n";
81 
   #`virsh migrate --live --persistent --verbose  $domain qemu+ssh://$target/system`
 81 
   `virsh migrate --live --persistent --verbose  $domain qemu+ssh://$target/system`
82 
}
 82 
}