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

Resolving tags by external command

Browse source 
Start coding up resolving tags by an external command instead of a cluster or tag file
This commit is contained in:
Duncan Ferguson 2013-03-25 13:13:03 +00:00
parent 06a5f929ed
commit f1546a0d7d
7 changed files with 96 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lib/App/ClusterSSH/Cluster.pm
View file

@ -45,6 +45,23 @@ sub get_tag_entries {
return $self;
}
sub get_external_clusters {
my ( $self, $external_command, @tags ) = @_;
$self->debug(3, 'Running tags through external command');
$self->debug(4, 'External command: ', $external_command);
$self->debug(3, 'Tags: ', join(',',@tags));
############################
###########################
###########################
###########################
die "catchall while testing",$/;
return $self;
}
sub read_tag_file {
my ( $self, $filename ) = @_;
$self->debug( 2, 'Reading tags from file ', $filename );