Add in csftp command

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 <duncan_ferguson@user.sf.net>
 - Include bash completion script in distribution (Github issue #29)

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

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;

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 {