summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristian Pointner <equinox@helsinki.at>2010-04-13 12:36:54 (GMT)
committerChristian Pointner <equinox@helsinki.at>2010-04-13 12:36:54 (GMT)
commitc9635c2b0f74a639f33460cb933399684ef868ab (patch)
tree338fbd6b65e391880cc491e47ba911032708ecb1
parent77cbae3f63cc988741952ed0678a95f3774a905a (diff)
fixed ssh parameters
-rw-r--r--rhimport.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/rhimport.pm b/rhimport.pm
index dc08479..35f9f53 100644
--- a/rhimport.pm
+++ b/rhimport.pm
@@ -193,7 +193,7 @@ sub import_single
sub scp_put_file
{
my ($file) = @_;
- my @cmd = ( 'scp', '-prqB' , '-i', $ssh_key_file, $file, "$ssh_user\@$ssh_host:$ssh_dir/" );
+ my @cmd = ( 'scp', '-prqB', '-i', $ssh_key_file, $file, "$ssh_user\@$ssh_host:$ssh_dir/" );
my ($reader, $writer, $error ) = ( new IO::Handle, new IO::Handle, new IO::Handle );
$writer->autoflush(1);
local $SIG{CHLD} = 'DEFAULT';
@@ -209,7 +209,7 @@ sub scp_put_file
sub ssh_exec_command
{
my ($command) = @_;
- my @cmd = ( 'ssh' , '-i', $ssh_key_file, "$ssh_user\@$ssh_host" , $command );
+ my @cmd = ( 'ssh' , '-q', '-o', 'BatchMode', '-i', $ssh_key_file, "$ssh_user\@$ssh_host" , $command );
my ($reader, $writer, $error ) = ( new IO::Handle, new IO::Handle, new IO::Handle );
$writer->autoflush(1);
local $SIG{CHLD} = 'DEFAULT';