summaryrefslogtreecommitdiff
path: root/rhimport.pm
diff options
context:
space:
mode:
authorChristian Pointner <equinox@helsinki.at>2010-04-13 14:01:00 (GMT)
committerChristian Pointner <equinox@helsinki.at>2010-04-13 14:01:00 (GMT)
commitbfdf724b064785a3c73c423b54d755a9788736c3 (patch)
treebb86e7f19ccae4c68de0ead5b8bc708fc4442321 /rhimport.pm
parentfb62d1d3074984a47ed5cf9b34e85fc2a6daec35 (diff)
fixed Batchmode
Diffstat (limited to 'rhimport.pm')
-rw-r--r--rhimport.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/rhimport.pm b/rhimport.pm
index 35f9f53..7bc36cc 100644
--- a/rhimport.pm
+++ b/rhimport.pm
@@ -31,7 +31,7 @@ use File::Spec;
my $ssh_host = "airplay";
my $ssh_user = "rhimport";
-my $ssh_key_file = "~/.rhimport/import.key";
+my $ssh_key_file = "$ENV{'HOME'}/.rhimport/import.key";
my $ssh_dir = "/programm/.rhimport";
my $rdimport_wrapper = "/usr/local/bin/dropbox_newfile.pl";
@@ -209,7 +209,7 @@ sub scp_put_file
sub ssh_exec_command
{
my ($command) = @_;
- my @cmd = ( 'ssh' , '-q', '-o', 'BatchMode', '-i', $ssh_key_file, "$ssh_user\@$ssh_host" , $command );
+ my @cmd = ( 'ssh' , '-q', '-o', 'BatchMode=yes', '-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';