Subversion Repositories havirt

Rev

Rev 4 | Rev 6 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4 Rev 5
Line 259... Line 259...
259 
if ( $version ) { use File::Basename; print basename($0) . " v$VERSION\n"; exit; }
 259 
if ( $version ) { use File::Basename; print basename($0) . " v$VERSION\n"; exit; }
260 
 
 260 
 
261 
my $command = shift; # the first one is the actual subsection
 261 
my $command = shift; # the first one is the actual subsection
262 
my $action = shift; # second is action to run
 262 
my $action = shift; # second is action to run
263 
 
 263 
 
264 
#print "Parameters are\nreportFormat\t$reportFormat\ntargetNode\t$targetNode\ndryRun\t$dryRun\nDEBUG\t$DEBUG\n";
 264 
print "Parameters are\nreportFormat\t$reportFormat\ntargetNode\t$targetNode\ndryRun\t$dryRun\nDEBUG\t$DEBUG\n" if $DEBUG;
265 
#print "Command = $command\nAction = $action\n";
 265 
print "Command = $command\nAction = $action\n" if $DEBUG;
266 
#die;
 - 
 
267 
 
 266 
 
268 
if ( $command eq 'node' ) {
 267 
if ( $command eq 'node' ) {
269 
   require node;
 268 
   require node;
270 
   Module->import( qw/node/ );
 269 
   Module->import( qw/node/ );
271 
#   print &node::list( $action, @ARGV );
 - 
 
272 
   print &{\&{"node::$action"}}();
 270 
   print &{\&{"node::$action"}}();
273 
} elsif ( $command eq 'domain' ) {
 271 
} elsif ( $command eq 'domain' ) {
274 
   print &domain( $action, @ARGV );
 272 
   print &domain( $action, @ARGV );
275 
} elsif ( $command eq 'cluster' ) {
 273 
} elsif ( $command eq 'cluster' ) {
276 
   print &cluster( $action, @ARGV );
 274 
   print &cluster( $action, @ARGV );