From e1e1538b89be0b775d811c35aadcbfcf0a28682f Mon Sep 17 00:00:00 2001
From: Eric Bollengier <eric@eb.homelinux.org>
Date: Mon, 5 Feb 2007 09:15:38 +0000
Subject: [PATCH] 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
---
 gui/brestore/brestore.pl | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/gui/brestore/brestore.pl b/gui/brestore/brestore.pl
index 64bfb8692a..768bafe36a 100755
--- 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});
     }
-- 
2.39.5