| Line 50... |
Line 50... |
| 50 |
push @return, "\tUpdates capabilities on one or more domains, default is all domains";
|
50 |
push @return, "\tUpdates capabilities on one or more domains, default is all domains";
|
| 51 |
push @return, "domain list [--format|-f screen|tsv]";
|
51 |
push @return, "domain list [--format|-f screen|tsv]";
|
| 52 |
push @return, "\tLists all domains with some statistics about them as screen or tsv (default screen)";
|
52 |
push @return, "\tLists all domains with some statistics about them as screen or tsv (default screen)";
|
| 53 |
push @return, "domain start domainname [node]";
|
53 |
push @return, "domain start domainname [node]";
|
| 54 |
push @return, "\tstarts domainname on node. If node not set, will pick a node.";
|
54 |
push @return, "\tstarts domainname on node. If node not set, will pick a node.";
|
| - |
|
55 |
push @return, "domain shutdown domainname";
|
| - |
|
56 |
push @return, "\tInitiates a shutdown on a running domain and puts it in to manual mode";
|
| - |
|
57 |
push @return, "domain migrate domainname [node]";
|
| - |
|
58 |
push @return, "\tmigrates domain from current node to target. If target node not specified";
|
| - |
|
59 |
push @return, "\twill be automatically selected";
|
| 55 |
return join( "\n", @return ) . "\n";
|
60 |
return join( "\n", @return ) . "\n";
|
| 56 |
}
|
61 |
}
|
| 57 |
|
62 |
|
| 58 |
|
63 |
|
| 59 |
sub list {
|
64 |
sub list {
|
| Line 163... |
Line 168... |
| 163 |
die "I do not have a definition for $virt\n" unless exists( $main::statusDB->{'virt'}->{$virt} );
|
168 |
die "I do not have a definition for $virt\n" unless exists( $main::statusDB->{'virt'}->{$virt} );
|
| 164 |
print Dumper( $main::statusDB->{'nodePopulation'} ) if $main::DEBUG > 2;
|
169 |
print Dumper( $main::statusDB->{'nodePopulation'} ) if $main::DEBUG > 2;
|
| 165 |
my $filename = "$main::confDir/$virt.xml";
|
170 |
my $filename = "$main::confDir/$virt.xml";
|
| 166 |
return "ssh $node 'virsh create $filename'\n";
|
171 |
return "ssh $node 'virsh create $filename'\n";
|
| 167 |
}
|
172 |
}
|
| - |
|
173 |
|
| - |
|
174 |
sub shutdown {
|
| - |
|
175 |
my $virt = shift;
|
| - |
|
176 |
return "This code not written yet\n";
|
| - |
|
177 |
}
|
| - |
|
178 |
|
| - |
|
179 |
sub migrate {
|
| - |
|
180 |
my ( $virt, $target ) = @_;
|
| - |
|
181 |
return "I don't know how to migrate yet\n";
|
| - |
|
182 |
}
|
| 168 |
|
183 |
|