diff --git a/Changes b/Changes index 42e4b20..e602d79 100644 --- a/Changes +++ b/Changes @@ -3,6 +3,7 @@ - Pass '--action' through macro parsing (Github issue #42) - Workaround for glitch in KDE where windows can become unmoveable (Github issue #46) (thanks to Brandon Perkins) - Add in '--quiet | -Q ' option to reduce output in certian scenarios +- Add in 'csftp' command 4.04 2015-11-03 Duncan Ferguson - Include bash completion script in distribution (Github issue #29) diff --git a/MANIFEST b/MANIFEST index dfad77e..e008556 100644 --- a/MANIFEST +++ b/MANIFEST @@ -4,6 +4,7 @@ bin_PL/ccon bin_PL/clusterssh_bash_completion.dist bin_PL/crsh bin_PL/cscp.x +bin_PL/csftp bin_PL/cssh bin_PL/ctel Build.PL diff --git a/bin_PL/csftp b/bin_PL/csftp new file mode 100755 index 0000000..82a9b78 --- /dev/null +++ b/bin_PL/csftp @@ -0,0 +1,16 @@ +#!/usr/bin/env perl +use strict; +use warnings; + +use FindBin; +use lib $FindBin::Bin. '/../lib'; +use lib $FindBin::Bin. '/../lib/perl5'; +use App::ClusterSSH; + +my $app = App::ClusterSSH->new(); + +$app->options->add_common_ssh_options; +$app->options->add_common_session_options; +$app->run(); + +1; diff --git a/lib/App/ClusterSSH/Config.pm b/lib/App/ClusterSSH/Config.pm index cc68c85..30c788c 100644 --- a/lib/App/ClusterSSH/Config.pm +++ b/lib/App/ClusterSSH/Config.pm @@ -71,6 +71,8 @@ my %default_config = ( telnet_args => "", ssh => 'ssh', ssh_args => "", + sftp => 'sftp', + sftp_args => "", extra_cluster_file => '', external_cluster_command => '', @@ -113,9 +115,10 @@ sub new { $comms = 'telnet' if ( $comms eq 'tel' ); $comms = 'console' if ( $comms eq 'con' ); $comms = 'ssh' if ( $comms eq 'lusterssh' ); + $comms = 'sftp' if ( $comms eq 'sftp' ); # list of allowed comms methods - if ( 'ssh rsh telnet console' !~ m/\b$comms\b/ ) { + if ( 'ssh rsh telnet sftp console' !~ m/\b$comms\b/ ) { $self->{comms} = 'ssh'; } else {