Subversion Repositories havirt

Rev

Rev 39 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 39 Rev 42
Line 28... Line 28...
28 
# Added some code to migrate domains if node placed in maintenance mode
 28 
# Added some code to migrate domains if node placed in maintenance mode
29 
# Added a lot of 'verbose' print lines, and modified for new flag structure
 29 
# Added a lot of 'verbose' print lines, and modified for new flag structure
30 
#
 30 
#
31 
# v1.2.1 20240828 RWR
 31 
# v1.2.1 20240828 RWR
32 
# force rescan after domain migrate (pulled out of havirt.pm:scan)
 32 
# force rescan after domain migrate (pulled out of havirt.pm:scan)
- 
 
 33 
#
- 
 
 34 
# v1.2.2 20250511 RWR
- 
 
 35 
# Do not force rescan on migrate if dryrun or testing are set
33 
 
 36 
 
34 
 
 37 
 
35 
package domain;
 38 
package domain;
36 
 
 39 
 
37 
use warnings;
 40 
use warnings;
38 
use strict;
41 
use strict;
39 
 
 42 
 
40 
# define the version number
 43 
# define the version number
41 
# see https://metacpan.org/pod/release/JPEACOCK/version-0.97/lib/version.pod
 44 
# see https://metacpan.org/pod/release/JPEACOCK/version-0.97/lib/version.pod
42 
use version;
 45 
use version;
43 
our $VERSION = version->declare("1.2.1");
 46 
our $VERSION = version->declare("1.2.2");
44 
 
 47 
 
45 
 
 48 
 
46 
use Data::Dumper;
 49 
use Data::Dumper;
47 
 
 50 
 
48 
use Exporter;
 51 
use Exporter;
Line 272... Line 275...
272 
   my ( $domain, $target ) = @_;
 275 
   my ( $domain, $target ) = @_;
273 
   if ( my $error = &main::validateResources( $target, $domain ) ) {
 276 
   if ( my $error = &main::validateResources( $target, $domain ) ) {
274 
      die $error;
 277 
      die $error;
275 
   }
 278 
   }
276 
   my $return = &main::migrate( $domain, $target );
 279 
   my $return = &main::migrate( $domain, $target );
277 
   &main::forceScan();
 280 
   &main::forceScan() unless $main::config->{'flags'}->{'dryrun'} || $main::config->{'flags'}->{'testing'};
278 
   return $return;
 281 
   return $return;
279 
}
 282 
}
280 
 
 283 
 
281 
# find an unused VNC port
 284 
# find an unused VNC port
282 
sub findVNCPort {
 285 
sub findVNCPort {
Line 368... Line 371...
368 
   while ( my $node = shift ) {
 371 
   while ( my $node = shift ) {
369 
      $main::statusDB->{'virt'}->{$domain}->{'pin'}->{$node} = 1;
 372 
      $main::statusDB->{'virt'}->{$domain}->{'pin'}->{$node} = 1;
370 
   }
 373 
   }
371 
   &main::writeDB();
 374 
   &main::writeDB();
372 
   return "domain pin functionality not yet implemented\n";
 375 
   return "domain pin functionality not yet implemented\n";
373 
}
 - 
 
374 
 
 376 
}
- 
 
 377