amassivus/clusterssh
1
0
Fork 0
mirror of https://github.com/duncs/clusterssh.git synced 2025-07-02 09:31:15 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Improve Cluster module functionality

Browse source 
Add in extra functionality to load in and record tags and their hosts
This commit is contained in:
Duncan Ferguson 2011-11-24 21:47:37 +00:00
parent 7acdf5da79
commit 23483ce362
2 changed files with 32 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -104,12 +104,6 @@ sub list_tags {
return keys(%$self);
}
sub resolve_all_tags {
my ($self) = @_;
return $self;
}
#use overload (
# q{""} => sub {
# my ($self) = @_;
@ -136,10 +130,30 @@ Object representing application configuration
=over 4
=item $host=ClusterSSH::Cluster->new();
=item $cluster=ClusterSSH::Cluster->new();
Create a new object. Object should be common across all invocations.
=item $cluster->get_clusters($filename);
Read in /etc/clusters and any other given file name and register the tags found.
=item $cluster->read_cluster_file($filename);
Read in the given cluster file and register the tags found
=item $cluster->register_tag($tag,@hosts);
Register the given tag name with the given host names.
=item @entries = $cluster->get_tag('tag');
Retrieve all entries for the given tag
=item @tags = $cluster->list_tags();
Return an array of all available tag names
=back
=head1 AUTHOR