diff options
| author | Christian Pointner <equinox@helsinki.at> | 2010-04-13 14:01:00 (GMT) |
|---|---|---|
| committer | Christian Pointner <equinox@helsinki.at> | 2010-04-13 14:01:00 (GMT) |
| commit | 43f607c3ba9b94109fdadf304c2a22087731f540 (patch) | |
| tree | bb86e7f19ccae4c68de0ead5b8bc708fc4442321 /rhimport.pm | |
| parent | a6894836ae5f83dd9074b1f872a270fee8fdbde8 (diff) | |
fixed Batchmode
git-svn-id: https://svn.helsinki.at/rhimport/trunk@49 7c65635b-ec39-4f67-a626-873dbafdd612
Diffstat (limited to 'rhimport.pm')
| -rw-r--r-- | rhimport.pm | 4 |
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'; |