From e876d31127ee13008e89cf4cee8e6419550960a4 Mon Sep 17 00:00:00 2001 From: Christian Pointner Date: Mon, 12 Apr 2010 14:29:31 +0000 Subject: fixed gui error callback diff --git a/rhimport b/rhimport index e25a1d3..ce4463c 100755 --- a/rhimport +++ b/rhimport @@ -199,7 +199,7 @@ my $gui_error_cb = sub { print STDERR "no GUI definition found!\n"; exit 2; } - $text . "\n\nVorgang abbrechen?"; + $text .= "\n\nVorgang abbrechen?"; my $parent_window = $guixml->get_widget('appwin'); my $dialog = Gtk2::MessageDialog->new ($parent_window, 'destroy-with-parent', 'error', 'yes-no', $text); diff --git a/rhimport.pm b/rhimport.pm index 2d2f190..9081b4c 100644 --- a/rhimport.pm +++ b/rhimport.pm @@ -33,7 +33,7 @@ my $ssh_host = "airplay"; my $ssh_user = "rhimport"; my $ssh_key_file = "id_dsa"; my $ssh_dir = "/programm/.rhimport"; -my $rdimport_wrapper = "/usr/local/bin/dropbox_newfile.pl1"; +my $rdimport_wrapper = "/usr/local/bin/dropbox_newfile.pl"; sub get_dropboxes { @@ -205,7 +205,7 @@ sub scp_put_file { sub ssh_exec_command { my ($command) = @_; - my @cmd = ( 'ssh', '-q' , '-i', $ssh_key_file, "$ssh_user\@$ssh_host" , $command ); + my @cmd = ( 'ssh' , '-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'; @@ -246,7 +246,7 @@ sub import_file print "Import Error\n"; delete_file($remote_file); if($error_cb) { - return $error_cb->($err); + return $error_cb->("Import Fehler: $error"); } return 0; } -- cgit v0.10.2