Subversion Repositories havirt

Rev

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

Rev 6 Rev 7
Line 273... Line 273...
273 
if ( $command eq 'node' ) {
 273 
if ( $command eq 'node' ) {
274 
   require node;
 274 
   require node;
275 
   Module->import( qw/node/ );
 275 
   Module->import( qw/node/ );
276 
   print &{\&{"node::$action"}}();
 276 
   print &{\&{"node::$action"}}();
277 
} elsif ( $command eq 'domain' ) {
 277 
} elsif ( $command eq 'domain' ) {
- 
 
 278 
   require domain;
- 
 
 279 
   Module->import( qw/domain/ );
278 
   print &domain( $action, @ARGV );
 280 
   print &{\&{"domain::$action"}}();
279 
} elsif ( $command eq 'cluster' ) {
 281 
} elsif ( $command eq 'cluster' ) {
280 
   print &cluster( $action, @ARGV );
 282 
   print &cluster( $action, @ARGV );
281 
} else {
 283 
} else {
282 
   &help();
 284 
   &help();
283 
}
 285 
}