amassivus/clusterssh
1
0
Fork 0
mirror of https://github.com/duncs/clusterssh.git synced 2025-07-03 01:43:25 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Start using new cluster module

Browse source
This commit is contained in:
Duncan Ferguson 2011-11-21 22:03:54 +00:00
parent cd4c59b12e
commit 015e130d77
3 changed files with 70 additions and 130 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lib/App/ClusterSSH/Config.pm
View file

@ -12,8 +12,9 @@ use Try::Tiny;
use FindBin qw($Script);
use base qw/ App::ClusterSSH::Base /;
use App::ClusterSSH::Cluster;
my %clusters;
my $clusters;
my @app_specific = (qw/ command title comms method ssh rsh telnet ccon /);
my %default_config = (
terminal => "xterm",
@ -94,6 +95,8 @@ sub new {
$self->{title} = uc($Script);
$clusters=App::ClusterSSH::Cluster->new();
return $self->validate_args(%args);
}
@ -175,10 +178,12 @@ sub parse_config_file {
# grab any clusters from the config before validating it
if ( $read_config{clusters} ) {
carp("TODO: deal with clusters");
$self->debug( 3, "Picked up clusters defined in $config_file" );
foreach my $cluster ( sort split / /, $read_config{clusters} ) {
if($read_config{$cluster}) {
$clusters->register_tag($cluster,$read_config{$cluster});
delete( $read_config{$cluster} );
}
}
delete( $read_config{clusters} );
}