ebl add error message in status bar when brestore can't write to .brestore.conf

git-svn-id: https://bacula.svn.sourceforge.net/svnroot/bacula/trunk@4101 91ce42f0-d328-0410-95d8-f526ca767f89

diff --git a/gui/brestore/brestore.pl b/gui/brestore/brestore.pl
index 64bfb8692aad304c6a157c2a5b6fcaaea058796d..768bafe36a72b047c39f4a4ce51c7077609ac6e0 100755 (executable)
--- a/gui/brestore/brestore.pl
+++ b/gui/brestore/brestore.pl
@@ -137,6 +137,7 @@ sub write_config
 {
     my ($self) = @_;
     
+    $self->{error} = '';
     my %parameters;
 
     for my $k (@{ $self->{entry_keyword} }) { 
@@ -154,8 +155,9 @@ sub write_config
     }
     else
     {
-       # TODO : Display a message
+       $self->{error} = "Can't write configuration $!";
     }
+    return $self->{error};
 }
 
 sub connect_db
@@ -365,11 +367,11 @@ sub on_applybutton_clicked
        $pref->{$k} = $w->get_active();
     }
 
-    $pref->write_config();
-    if ($pref->connect_db()) {
+    if (!$pref->write_config() && $pref->connect_db()) {
         $self->{dlgresto}->set_status('Preferences updated');
        $self->{dlgresto}->init_server_backup_combobox();
        $self->{dlgresto}->set_status($pref->{error});
+
     } else {
        $self->{dlgresto}->set_status($pref->{error});
     }