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

Add in 'ccon' command

Browse source 
Thanks for Brandon Perkins for the patch
This commit is contained in:
Duncan Ferguson 2011-06-30 11:12:59 +01:00
parent e58a20de24
commit f04b4040ae
10 changed files with 65 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lib/App/ClusterSSH/Host.pm
View file

@ -83,6 +83,17 @@ sub set_port {
return $self;
}
sub get_master {
my ($self) = @_;
return $self->{master} || q{};
}
sub set_master {
my ( $self, $new_master ) = @_;
$self->{master} = $new_master;
return $self;
}
sub get_realname {
my ($self) = @_;
@ -277,12 +288,16 @@ Create a new host object. 'hostname' is a required arg, 'username' and
=item $host->get_port
=item $host->get_master
Return specific details about the host
=item $host->set_username
=item $host->set_port
=item $host->set_master
Set specific details about the host after its been created.
=item get_realname