| Line 224... |
Line 224... |
| 224 |
print "Scanning " . join( "\n", @targets ) . "\n" if $main::config->{'flags'}->{'debug'};
|
224 |
print "Scanning " . join( "\n", @targets ) . "\n" if $main::config->{'flags'}->{'debug'};
|
| 225 |
foreach my $node (@targets) {
|
225 |
foreach my $node (@targets) {
|
| 226 |
print "Scanning $node\n" if $main::config->{'flags'}->{'verbose'};
|
226 |
print "Scanning $node\n" if $main::config->{'flags'}->{'verbose'};
|
| 227 |
$main::statusDB->{'nodePopulation'}->{$node}->{'running'} = &getDomainsOnNode( $node );
|
227 |
$main::statusDB->{'nodePopulation'}->{$node}->{'running'} = &getDomainsOnNode( $node );
|
| 228 |
$main::statusDB->{'nodePopulation'}->{$node}->{'lastchecked'} = time;
|
228 |
$main::statusDB->{'nodePopulation'}->{$node}->{'lastchecked'} = time;
|
| 229 |
print "Found " . @{$main::statusDB->{'nodePopulation'}->{$node}->{'running'}} . " domains on node $node\n" if $main::config->{'flags'}->{'verbose'};
|
229 |
print "Found " . (keys %{$main::statusDB->{'nodePopulation'}->{$node}->{'running'}}) . " domains on node $node\n" if $main::config->{'flags'}->{'verbose'};
|
| 230 |
foreach my $domain ( keys %{$main::statusDB->{'nodePopulation'}->{$node}->{'running'}} ) {
|
230 |
foreach my $domain ( keys %{$main::statusDB->{'nodePopulation'}->{$node}->{'running'}} ) {
|
| 231 |
# make sure there is an entry for all of these domains
|
231 |
# make sure there is an entry for all of these domains
|
| 232 |
$main::statusDB->{'virt'}->{$domain} = {} unless exists( $main::statusDB->{'virt'}->{$domain} );
|
232 |
$main::statusDB->{'virt'}->{$domain} = {} unless exists( $main::statusDB->{'virt'}->{$domain} );
|
| 233 |
}
|
233 |
}
|
| 234 |
print Dumper( $main::statusDB->{'nodePopulation'}->{$node} ) if $main::config->{'flags'}->{'debug'} > 2;
|
234 |
print Dumper( $main::statusDB->{'nodePopulation'}->{$node} ) if $main::config->{'flags'}->{'debug'} > 2;
|