WebSVN – havirt – Diff – /trunk/domain.pm

 # find node a domain is on
 # first parameter is the domain name
 # rest of @_ is list of nodes to search
 # if no nodes passed in, will search all known nodes
 # returns first node found with the domain, or an empty string if not found
+# possibly not being used??
 sub findDomain {
    my $domainName = shift;
    my @node = @_;
    my $foundNode = '';
    unless ( @node ) {
 } # sub getVirtConfig
 # start a domain
 sub start {
    my ( $virt, $node ) = @_;
+   my $return;
    $node = `hostname` unless $node;
    chomp $node;
    &main::forceScan();
-   #if ( my $alreadyRunning = &findDomain( $node ) ) {
-   #   die "$virt already running on $alreadyRunning; not starting\n";
-   #}
    &main::readDB();
    for my $myNode ( keys %{$main::statusDB->{'nodePopulation'} } ) {
       die "$virt already running on $myNode, not starting\n" if ( $main::statusDB->{'nodePopulation'}->{$myNode}->{'running'}->{$virt} );
+   }
    die "I do not have a definition for $virt\n" unless exists( $main::statusDB->{'virt'}->{$virt} );
    print Dumper( $main::statusDB->{'nodePopulation'} ) if $main::DEBUG > 2;
    my $filename = "$main::confDir/$virt.xml";
-   return "ssh $node 'virsh create $filename'\n";
+   my $command = &main::makeCommand( $node, "virsh create $filename" );
+   if ( $main::force ) { # we'll actually do it
+      $return = ( &main::executeAndWait( $command, $node, $virt, 1 ) ? 'Success' : 'Can not start');
+      &main::forceScan();
+   } else {
+      $return =  $command;;
+   }
+   return "$return\n";
+}
 sub shutdown {
    my $virt = shift;
    my $node = '';

Subversion Repositories havirt

(root)/trunk/domain.pm – Rev 15 → 16