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

Alternative IPv6 address port

Browse source 
Allow for parsing ports from 'xxxx:xxxx:xxxx:xxxx/pppp' style IPv6 addresses
This commit is contained in:
Duncan Ferguson 2014-07-02 18:48:06 +01:00
parent d439a777b3
commit 0853d8fee6
3 changed files with 117 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -216,16 +216,16 @@ sub parse_host_string {
$username = $1 || q{};
}
# Cannot check for a port with this type of IPv6 string
#if ( $host_string =~ s/\A(?::(\d+)\A)// ) {
# $port = $1 || q{};
#}
# check for any geometry settings
if ( $host_string =~ s/(?:=(.*?)$)// ) {
$geometry = $1 || q{};
}
# Check for a '/nnnn' port definition
if ( $host_string =~ s!(?:/(\d+)$)!! ) {
$port = $1 || q{};
}
# use number of colons as a possible indicator
my $colon_count = $host_string =~ tr/://;
@ -277,7 +277,7 @@ sub parse_host_string {
type => 'ipv6',
);
}
else {
elsif ( $colon_count == 9 ) {
if ( $host_string =~ s/:(\d+)\A// ) {
$port = $1;
}
@ -302,8 +302,6 @@ sub parse_host_string {
);
}
# Due to above rules, we'll never get this far anyhow
# if we got this far, we didnt parse the host_string properly
croak(
App::ClusterSSH::Exception->throw(