| Line 112... |
Line 112... |
| 112 |
'target|t=s',
|
112 |
'target|t=s',
|
| 113 |
'verbose|v+',# integer, can be incremented like -vv
|
113 |
'verbose|v+',# integer, can be incremented like -vv
|
| 114 |
'version|V' # note, the short form is a capital 'V'
|
114 |
'version|V' # note, the short form is a capital 'V'
|
| 115 |
) or die "Error parsing command line\n";
|
115 |
) or die "Error parsing command line\n";
|
| 116 |
|
116 |
|
| 117 |
# die Dumper( $config );
|
117 |
die Dumper( $config );
|
| 118 |
|
118 |
|
| 119 |
#$config->{'flags'}->{'debug'} = 2;
|
119 |
#$config->{'flags'}->{'debug'} = 2;
|
| 120 |
#die Dumper( &getAvailableResources( 'dd-103' ) ) . "\n";
|
120 |
#die Dumper( &getAvailableResources( 'dd-103' ) ) . "\n";
|
| 121 |
|
121 |
|
| 122 |
my $command = shift; # the first one is the actual subsection
|
122 |
my $command = shift; # the first one is the actual subsection
|
| Line 128... |
Line 128... |
| 128 |
|
128 |
|
| 129 |
|
129 |
|
| 130 |
print "Parameters are " . Dumper( $config ) . "\n" if $config->{'flags'}->{'debug'};
|
130 |
print "Parameters are " . Dumper( $config ) . "\n" if $config->{'flags'}->{'debug'};
|
| 131 |
print "Command = $command\nAction = $action\n" if $config->{'flags'}->{'debug'};
|
131 |
print "Command = $command\nAction = $action\n" if $config->{'flags'}->{'debug'};
|
| 132 |
|
132 |
|
| 133 |
#die;
|
133 |
die;
|
| 134 |
|
134 |
|
| 135 |
# we allow a three part command for some actions on a domain, ie start, shutdown, migrate and destroy
|
135 |
# we allow a three part command for some actions on a domain, ie start, shutdown, migrate and destroy
|
| 136 |
# for simplicity, if the command is one of the above, allow the user to enter like that, but we will
|
136 |
# for simplicity, if the command is one of the above, allow the user to enter like that, but we will
|
| 137 |
# restructure the command as if they had used the full, three part (ie, with domain as the command)
|
137 |
# restructure the command as if they had used the full, three part (ie, with domain as the command)
|
| 138 |
# so, the following are equivilent
|
138 |
# so, the following are equivilent
|