| Line 123... |
Line 123... |
| 123 |
print "Updating $nodename\n" if $main::config->{'flags'}->{'debug'} || $main::config->{'flags'}->{'verbose'};
|
123 |
print "Updating $nodename\n" if $main::config->{'flags'}->{'debug'} || $main::config->{'flags'}->{'verbose'};
|
| 124 |
my $command = &main::makeCommand($nodename, "virsh nodeinfo" );
|
124 |
my $command = &main::makeCommand($nodename, "virsh nodeinfo" );
|
| 125 |
if ( $main::config->{'flags'}->{'dryrun'} ) {
|
125 |
if ( $main::config->{'flags'}->{'dryrun'} ) {
|
| 126 |
push @return, $command;
|
126 |
push @return, $command;
|
| 127 |
} else {
|
127 |
} else {
|
| 128 |
my $return, `$command`;
|
128 |
my $return= `$command`;
|
| 129 |
print "Output of [$command] is\n" . $return if $main::config->{'flags'}->{'debug'};
|
129 |
print "Output of [$command] is\n" . $return if $main::config->{'flags'}->{'debug'};
|
| 130 |
my @nodeinfo = split( "\n", $return );
|
130 |
my @nodeinfo = split( "\n", $return );
|
| 131 |
for ( my $i = 0; $i < @nodeinfo; $i++ ) {
|
131 |
for ( my $i = 0; $i < @nodeinfo; $i++ ) {
|
| 132 |
my ($key, $value) = split( /:\s+/, $nodeinfo[$i] );
|
132 |
my ($key, $value) = split( /:\s+/, $nodeinfo[$i] );
|
| 133 |
if ( $value =~ m/^(\d+)\s+[a-z]+$/i ) {
|
133 |
if ( $value =~ m/^(\d+)\s+[a-z]+$/i ) {
|