]> git.sur5r.net Git - bacula/bacula/commitdiff
projects / bacula / bacula / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: a0b048f)
ebl first commit
authorEric Bollengier <eric@eb.homelinux.org>
Tue, 8 Aug 2006 21:32:44 +0000 (21:32 +0000)
committerEric Bollengier <eric@eb.homelinux.org>
Tue, 8 Aug 2006 21:32:44 +0000 (21:32 +0000)
git-svn-id: https://bacula.svn.sourceforge.net/svnroot/bacula/trunk@3271 91ce42f0-d328-0410-95d8-f526ca767f89

gui/brestore/README [new file with mode: 0644] patch | blob
gui/brestore/brestore.glade [new file with mode: 0644] patch | blob
gui/brestore/brestore.pl [new file with mode: 0755] patch | blob

diff --git a/gui/brestore/README b/gui/brestore/README
new file mode 100644 (file)
index 0000000..aa91079
--- /dev/null
+++ b/gui/brestore/README
@@ -0,0 +1,110 @@
+################################################################
+#             brestore -- a bacula perl interface              #
+################################################################
+
+As we felt a need for a restoration GUI for bacula, we developed a simple
+Perl/GTK GUI.  
+It has the following features :
+
+    * Direct SQL access to the database for good performance
+
+    * Fast Time Navigation (switch almost instantaneously between the different
+      versions of a directory, by changing the date from a list)
+
+    * Possibility to choose a selected file, then browse all its available
+      versions, and see directly if these versions are online in a library or
+      not
+
+    * Simple restoration by the generation of a BSR file
+
+    * Works indifferently with postgresql and mysql 
+
+We have a working (if a bit unpolished) version ready, and think it is time for
+us to publish it and have user and Kern feedback.  
+
+What's missing :
+
+    * We want to add some other features such as : the user has selected a FD
+      and a date, we want to display the list of media requested and their
+      availability.
+
+    * Plenty of features. As we don't have lots of imagination. Don't hesitate
+      to suggest us your ideas ...
+
+For the moment, we want to concentrate on having a restoration interface. We
+don't care about seeing the restoration progress, or anything else.
+
+These tools are available with Bweb.
+
+################ INSTALL #######################################
+
+# you can put glade file on /usr/share/brestore or /usr/local/share/brestore
+mkdir -p /usr/share/brestore
+install -m 644 -o root -g root brestore.glade /usr/share/brestore
+install -m 755 -o root -g root brestore.pl    /usr/bin
+
+# you must get Bconsole.pm from bweb modules (bweb/lib/Bconsole.pm)
+install -m 644 -o root -g root Bconsole.pm /usr/share/perl5
+
+################ INSTALL MODULES ###############################
+
+Perl Modules
+The Debian Way
+
+apt-get install libgtk2-gladexml-perl
+apt-get install libdbd-mysql-perl
+apt-get install libdbd-pg-perl
+apt-get install libexpect-perl
+
+The Red Hat way
+Please contribute, neither of us have a Red Hat to test on :)
+Other distros/Unices
+Please contribute ...
+The generic Way, if those modules aren't packaged by your distro
+
+perl -MCPAN -e shell
+install Gtk2
+install Expect
+install Gtk2::GladeXML
+
+install DBD::mysql
+or
+install DBD::Pg
+
+################ BCONSOLE WITHOUT CONIO ########################
+
+For now, we have problems interfacing with bconsole when it's using conio. So
+you'll have to disable it.
+
+./configure <your-other-options> --disable-conio
+cd src/lib
+make
+cd ..
+cd console
+make
+cp bconsole <your_destination>
+
+Of course, you don't need to overwrite your current bconsole. You can put this
+one wherever you like and dedicate it to brestore.
+
+WARNING : You must be able to execute bconsole and able to read bconsole.conf !
+
+################ CONFIGURATION #################################
+
+You can make configuration from brestore himself (if brestore can find
+his glade file).
+
+Example :
+
+$parameters = {
+                'mozilla' => 'mozilla',
+                'bconsole' => '/usr/local/bin/bconsole.noconio -c /etc/bacula/bconsole.conf',
+                'bweb' => 'http://localhost/cgi-bin/bweb/bweb.pl',
+                'connection_string' => 'DBI:mysql:database=bacula;host=127.0.0.1;port=3306',
+                'username' => 'bacula',
+                'password' => 'xxxx',
+                'bsr_dest' => 'file://var/tmp',
+                'debug' => 0,
+                'use_ok_bkp_only' => 1,
+                'default_restore_job' => 'restore'
+              };
diff --git a/gui/brestore/brestore.glade b/gui/brestore/brestore.glade
new file mode 100644 (file)
index 0000000..d4be198
--- /dev/null
+++ b/gui/brestore/brestore.glade
@@ -0,0 +1,3049 @@
+<?xml version="1.0" standalone="no"?> <!--*- mode: xml -*-->
+<!DOCTYPE glade-interface SYSTEM "http://glade.gnome.org/glade-2.0.dtd">
+
+<glade-interface>
+
+<widget class="GtkWindow" id="dlg_resto">
+  <property name="visible">True</property>
+  <property name="title" translatable="yes">brestore</property>
+  <property name="type">GTK_WINDOW_TOPLEVEL</property>
+  <property name="window_position">GTK_WIN_POS_NONE</property>
+  <property name="modal">False</property>
+  <property name="default_width">1024</property>
+  <property name="default_height">768</property>
+  <property name="resizable">True</property>
+  <property name="destroy_with_parent">False</property>
+  <property name="decorated">True</property>
+  <property name="skip_taskbar_hint">False</property>
+  <property name="skip_pager_hint">False</property>
+  <property name="type_hint">GDK_WINDOW_TYPE_HINT_NORMAL</property>
+  <property name="gravity">GDK_GRAVITY_NORTH_WEST</property>
+  <property name="focus_on_map">True</property>
+  <property name="urgency_hint">False</property>
+  <signal name="delete_event" handler="on_delete_event" last_modification_time="Mon, 29 May 2006 21:05:23 GMT"/>
+  <signal name="destroy_event" handler="on_delete_event" last_modification_time="Mon, 29 May 2006 21:05:30 GMT"/>
+  <signal name="key_release_event" handler="on_forward_keypress" last_modification_time="Tue, 23 May 2006 11:46:50 GMT"/>
+
+  <child>
+    <widget class="GtkVBox" id="main_vbox">
+      <property name="visible">True</property>
+      <property name="homogeneous">False</property>
+      <property name="spacing">0</property>
+      <signal name="key_release_event" handler="on_forward_keypress" last_modification_time="Tue, 23 May 2006 11:46:43 GMT"/>
+
+      <child>
+       <widget class="GtkMenuBar" id="menubar">
+         <property name="visible">True</property>
+         <property name="pack_direction">GTK_PACK_DIRECTION_LTR</property>
+         <property name="child_pack_direction">GTK_PACK_DIRECTION_LTR</property>
+
+         <child>
+           <widget class="GtkMenuItem" id="file_menu">
+             <property name="visible">True</property>
+             <property name="label" translatable="yes">_File</property>
+             <property name="use_underline">True</property>
+
+             <child>
+               <widget class="GtkMenu" id="file_menu_menu">
+
+                 <child>
+                   <widget class="GtkMenuItem" id="separatormenuitem1">
+                     <property name="visible">True</property>
+                   </widget>
+                 </child>
+
+                 <child>
+                   <widget class="GtkImageMenuItem" id="quit">
+                     <property name="visible">True</property>
+                     <property name="label">gtk-quit</property>
+                     <property name="use_stock">True</property>
+                     <signal name="activate" handler="on_quit_activate" last_modification_time="Fri, 14 Nov 2003 04:03:01 GMT"/>
+                   </widget>
+                 </child>
+               </widget>
+             </child>
+           </widget>
+         </child>
+
+         <child>
+           <widget class="GtkMenuItem" id="tools_menu">
+             <property name="visible">True</property>
+             <property name="label" translatable="yes">_Tools</property>
+             <property name="use_underline">True</property>
+
+             <child>
+               <widget class="GtkMenu" id="tools_menu_menu">
+
+                 <child>
+                   <widget class="GtkMenuItem" id="preferences">
+                     <property name="visible">True</property>
+                     <property name="label" translatable="yes">_Preferences</property>
+                     <property name="use_underline">True</property>
+                     <signal name="activate" handler="on_preferences_activate" last_modification_time="Sun, 16 Nov 2003 04:05:31 GMT"/>
+                     <accelerator key="P" modifiers="GDK_MOD1_MASK" signal="activate"/>
+                   </widget>
+                 </child>
+               </widget>
+             </child>
+           </widget>
+         </child>
+
+         <child>
+           <widget class="GtkMenuItem" id="help_menu">
+             <property name="visible">True</property>
+             <property name="label" translatable="yes">_Help</property>
+             <property name="use_underline">True</property>
+
+             <child>
+               <widget class="GtkMenu" id="help_menu_menu">
+
+                 <child>
+                   <widget class="GtkMenuItem" id="about">
+                     <property name="visible">True</property>
+                     <property name="label" translatable="yes">_About</property>
+                     <property name="use_underline">True</property>
+                     <signal name="activate" handler="on_about_activate" last_modification_time="Sun, 16 Nov 2003 04:06:08 GMT"/>
+                   </widget>
+                 </child>
+               </widget>
+             </child>
+           </widget>
+         </child>
+       </widget>
+       <packing>
+         <property name="padding">0</property>
+         <property name="expand">False</property>
+         <property name="fill">False</property>
+       </packing>
+      </child>
+
+      <child>
+       <widget class="GtkToolbar" id="toolbar2">
+         <property name="visible">True</property>
+         <property name="orientation">GTK_ORIENTATION_HORIZONTAL</property>
+         <property name="toolbar_style">GTK_TOOLBAR_ICONS</property>
+         <property name="tooltips">True</property>
+         <property name="show_arrow">True</property>
+
+         <child>
+           <widget class="GtkToolButton" id="back_button">
+             <property name="visible">True</property>
+             <property name="stock_id">gtk-go-up</property>
+             <property name="visible_horizontal">True</property>
+             <property name="visible_vertical">True</property>
+             <property name="is_important">False</property>
+             <signal name="clicked" handler="on_back_button_clicked" last_modification_time="Sat, 15 Nov 2003 23:50:14 GMT"/>
+           </widget>
+           <packing>
+             <property name="expand">False</property>
+             <property name="homogeneous">True</property>
+           </packing>
+         </child>
+
+         <child>
+           <widget class="GtkSeparatorToolItem" id="separatortoolitem1">
+             <property name="visible">True</property>
+             <property name="draw">True</property>
+             <property name="visible_horizontal">True</property>
+             <property name="visible_vertical">True</property>
+           </widget>
+           <packing>
+             <property name="expand">False</property>
+             <property name="homogeneous">False</property>
+           </packing>
+         </child>
+
+         <child>
+           <widget class="GtkToolButton" id="prefs_button">
+             <property name="visible">True</property>
+             <property name="stock_id">gtk-preferences</property>
+             <property name="visible_horizontal">True</property>
+             <property name="visible_vertical">True</property>
+             <property name="is_important">False</property>
+             <signal name="clicked" handler="on_preferences_activate" last_modification_time="Sun, 11 Jun 2006 18:26:47 GMT"/>
+           </widget>
+           <packing>
+             <property name="expand">False</property>
+             <property name="homogeneous">True</property>
+           </packing>
+         </child>
+
+         <child>
+           <widget class="GtkToolButton" id="toolbutton1">
+             <property name="visible">True</property>
+             <property name="tooltip" translatable="yes">Go to Bweb</property>
+             <property name="stock_id">gtk-jump-to</property>
+             <property name="visible_horizontal">True</property>
+             <property name="visible_vertical">True</property>
+             <property name="is_important">False</property>
+             <signal name="clicked" handler="on_bweb_activate" last_modification_time="Tue, 08 Aug 2006 09:24:26 GMT"/>
+           </widget>
+           <packing>
+             <property name="expand">False</property>
+             <property name="homogeneous">True</property>
+           </packing>
+         </child>
+
+         <child>
+           <placeholder/>
+         </child>
+
+         <child>
+           <placeholder/>
+         </child>
+       </widget>
+       <packing>
+         <property name="padding">0</property>
+         <property name="expand">False</property>
+         <property name="fill">False</property>
+       </packing>
+      </child>
+
+      <child>
+       <widget class="GtkToolbar" id="toolbar">
+         <property name="visible">True</property>
+         <property name="orientation">GTK_ORIENTATION_HORIZONTAL</property>
+         <property name="toolbar_style">GTK_TOOLBAR_BOTH</property>
+         <property name="tooltips">True</property>
+         <property name="show_arrow">True</property>
+
+         <child>
+           <widget class="GtkToolItem" id="toolitem6">
+             <property name="visible">True</property>
+             <property name="visible_horizontal">True</property>
+             <property name="visible_vertical">True</property>
+             <property name="is_important">False</property>
+           </widget>
+           <packing>
+             <property name="expand">False</property>
+             <property name="homogeneous">False</property>
+           </packing>
+         </child>
+
+         <child>
+           <widget class="GtkToolItem" id="toolitem10">
+             <property name="visible">True</property>
+             <property name="visible_horizontal">True</property>
+             <property name="visible_vertical">True</property>
+             <property name="is_important">False</property>
+
+             <child>
+               <widget class="GtkComboBox" id="combo_client">
+                 <property name="visible">True</property>
+                 <property name="add_tearoffs">True</property>
+                 <property name="focus_on_click">True</property>
+                 <signal name="changed" handler="on_list_client_changed" last_modification_time="Sun, 11 Jun 2006 15:53:17 GMT"/>
+               </widget>
+             </child>
+           </widget>
+           <packing>
+             <property name="expand">False</property>
+             <property name="homogeneous">False</property>
+           </packing>
+         </child>
+
+         <child>
+           <widget class="GtkToolItem" id="toolitem9">
+             <property name="border_width">5</property>
+             <property name="visible">True</property>
+             <property name="visible_horizontal">True</property>
+             <property name="visible_vertical">True</property>
+             <property name="is_important">False</property>
+
+             <child>
+               <widget class="GtkVSeparator" id="vseparator2">
+                 <property name="visible">True</property>
+               </widget>
+             </child>
+           </widget>
+           <packing>
+             <property name="expand">False</property>
+             <property name="homogeneous">False</property>
+           </packing>
+         </child>
+
+         <child>
+           <widget class="GtkToolItem" id="toolitem8">
+             <property name="visible">True</property>
+             <property name="visible_horizontal">True</property>
+             <property name="visible_vertical">True</property>
+             <property name="is_important">False</property>
+
+             <child>
+               <widget class="GtkComboBox" id="combo_time">
+                 <property name="items" translatable="yes">Last 20 jobs
+This week
+This month
+This year</property>
+                 <property name="add_tearoffs">False</property>
+                 <property name="focus_on_click">True</property>
+                 <signal name="changed" handler="on_time_select_changed" last_modification_time="Sat, 10 Jun 2006 17:45:23 GMT"/>
+               </widget>
+             </child>
+           </widget>
+           <packing>
+             <property name="expand">False</property>
+             <property name="homogeneous">False</property>
+           </packing>
+         </child>
+
+         <child>
+           <widget class="GtkToolItem" id="toolitem7">
+             <property name="visible">True</property>
+             <property name="visible_horizontal">True</property>
+             <property name="visible_vertical">True</property>
+             <property name="is_important">False</property>
+
+             <child>
+               <widget class="GtkComboBox" id="combo_list_backups">
+                 <property name="visible">True</property>
+                 <property name="add_tearoffs">True</property>
+                 <property name="focus_on_click">True</property>
+                 <signal name="changed" handler="on_list_backups_changed" last_modification_time="Sun, 11 Jun 2006 15:52:45 GMT"/>
+               </widget>
+             </child>
+           </widget>
+           <packing>
+             <property name="expand">False</property>
+             <property name="homogeneous">False</property>
+           </packing>
+         </child>
+
+         <child>
+           <widget class="GtkToolItem" id="toolitem4">
+             <property name="border_width">5</property>
+             <property name="visible">True</property>
+             <property name="visible_horizontal">True</property>
+             <property name="visible_vertical">True</property>
+             <property name="is_important">False</property>
+
+             <child>
+               <widget class="GtkVSeparator" id="vseparator1">
+                 <property name="visible">True</property>
+               </widget>
+             </child>
+           </widget>
+           <packing>
+             <property name="expand">False</property>
+             <property name="homogeneous">False</property>
+           </packing>
+         </child>
+
+         <child>
+           <widget class="GtkToolItem" id="toolitem3">
+             <property name="visible">True</property>
+             <property name="visible_horizontal">True</property>
+             <property name="visible_vertical">True</property>
+             <property name="is_important">False</property>
+
+             <child>
+               <widget class="GtkLabel" id="label17">
+                 <property name="visible">True</property>
+                 <property name="label" translatable="yes"> Location : </property>
+                 <property name="use_underline">False</property>
+                 <property name="use_markup">False</property>
+                 <property name="justify">GTK_JUSTIFY_LEFT</property>
+                 <property name="wrap">False</property>
+                 <property name="selectable">False</property>
+                 <property name="xalign">0.5</property>
+                 <property name="yalign">0.5</property>
+                 <property name="xpad">0</property>
+                 <property name="ypad">0</property>
+                 <property name="ellipsize">PANGO_ELLIPSIZE_NONE</property>
+                 <property name="width_chars">-1</property>
+                 <property name="single_line_mode">False</property>
+                 <property name="angle">0</property>
+               </widget>
+             </child>
+           </widget>
+           <packing>
+             <property name="expand">False</property>
+             <property name="homogeneous">False</property>
+           </packing>
+         </child>
+
+         <child>
+           <widget class="GtkToolItem" id="toolitem2">
+             <property name="visible">True</property>
+             <property name="visible_horizontal">True</property>
+             <property name="visible_vertical">True</property>
+             <property name="is_important">False</property>
+
+             <child>
+               <widget class="GtkEntry" id="entry_location">
+                 <property name="visible">True</property>
+                 <property name="can_focus">True</property>
+                 <property name="editable">True</property>
+                 <property name="visibility">True</property>
+                 <property name="max_length">0</property>
+                 <property name="text" translatable="yes"></property>
+                 <property name="has_frame">True</property>
+                 <property name="invisible_char">*</property>
+                 <property name="activates_default">False</property>
+                 <signal name="key_release_event" handler="on_location_entry_key_release_event" last_modification_time="Sat, 15 Nov 2003 23:27:34 GMT"/>
+               </widget>
+             </child>
+           </widget>
+           <packing>
+             <property name="expand">False</property>
+             <property name="homogeneous">False</property>
+           </packing>
+         </child>
+
+         <child>
+           <widget class="GtkToolItem" id="toolitem1">
+             <property name="visible">True</property>
+             <property name="visible_horizontal">True</property>
+             <property name="visible_vertical">True</property>
+             <property name="is_important">False</property>
+
+             <child>
+               <widget class="GtkHButtonBox" id="hbuttonbox2">
+                 <property name="visible">True</property>
+                 <property name="layout_style">GTK_BUTTONBOX_DEFAULT_STYLE</property>
+                 <property name="spacing">0</property>
+
+                 <child>
+                   <widget class="GtkButton" id="button3">
+                     <property name="visible">True</property>
+                     <property name="can_default">True</property>
+                     <property name="can_focus">True</property>
+                     <property name="relief">GTK_RELIEF_NORMAL</property>
+                     <property name="focus_on_click">True</property>
+                     <signal name="clicked" handler="on_location_go_button_clicked" last_modification_time="Tue, 30 May 2006 22:47:59 GMT"/>
+
+                     <child>
+                       <widget class="GtkImage" id="image3">
+                         <property name="visible">True</property>
+                         <property name="stock">gtk-jump-to</property>
+                         <property name="icon_size">4</property>
+                         <property name="xalign">0.5</property>
+                         <property name="yalign">0.5</property>
+                         <property name="xpad">0</property>
+                         <property name="ypad">0</property>
+                       </widget>
+                     </child>
+                   </widget>
+                 </child>
+               </widget>
+             </child>
+           </widget>
+           <packing>
+             <property name="expand">False</property>
+             <property name="homogeneous">False</property>
+           </packing>
+         </child>
+       </widget>
+       <packing>
+         <property name="padding">0</property>
+         <property name="expand">False</property>
+         <property name="fill">False</property>
+       </packing>
+      </child>
+
+      <child>
+       <widget class="GtkVPaned" id="vpaned1">
+         <property name="visible">True</property>
+         <property name="can_focus">True</property>
+         <property name="position">430</property>
+
+         <child>
+           <widget class="GtkHPaned" id="hpaned1">
+             <property name="visible">True</property>
+             <property name="can_focus">True</property>
+             <property name="position">600</property>
+
+             <child>
+               <widget class="GtkFrame" id="frame3">
+                 <property name="border_width">3</property>
+                 <property name="visible">True</property>
+                 <property name="label_xalign">0</property>
+                 <property name="label_yalign">0.5</property>
+                 <property name="shadow_type">GTK_SHADOW_ETCHED_IN</property>
+
+                 <child>
+                   <widget class="GtkAlignment" id="alignment4">
+                     <property name="border_width">3</property>
+                     <property name="visible">True</property>
+                     <property name="xalign">0.5</property>
+                     <property name="yalign">0.5</property>
+                     <property name="xscale">1</property>
+                     <property name="yscale">1</property>
+                     <property name="top_padding">0</property>
+                     <property name="bottom_padding">0</property>
+                     <property name="left_padding">12</property>
+                     <property name="right_padding">0</property>
+
+                     <child>
+                       <widget class="GtkScrolledWindow" id="fileview_scroller">
+                         <property name="border_width">3</property>
+                         <property name="visible">True</property>
+                         <property name="can_focus">True</property>
+                         <property name="hscrollbar_policy">GTK_POLICY_AUTOMATIC</property>
+                         <property name="vscrollbar_policy">GTK_POLICY_AUTOMATIC</property>
+                         <property name="shadow_type">GTK_SHADOW_ETCHED_IN</property>
+                         <property name="window_placement">GTK_CORNER_TOP_LEFT</property>
+                         <signal name="key_release_event" handler="on_forward_keypress" last_modification_time="Tue, 23 May 2006 11:46:34 GMT"/>
+
+                         <child>
+                           <widget class="GtkTreeView" id="fileview">
+                             <property name="visible">True</property>
+                             <property name="can_focus">True</property>
+                             <property name="has_focus">True</property>
+                             <property name="headers_visible">True</property>
+                             <property name="rules_hint">True</property>
+                             <property name="reorderable">False</property>
+                             <property name="enable_search">True</property>
+                             <property name="fixed_height_mode">False</property>
+                             <property name="hover_selection">False</property>
+                             <property name="hover_expand">False</property>
+                             <signal name="row_activated" handler="on_fileview_row_activated" last_modification_time="Sun, 16 Nov 2003 00:04:27 GMT"/>
+                             <signal name="key_release_event" handler="on_fileview_key_release_event" last_modification_time="Sun, 16 Nov 2003 00:52:46 GMT"/>
+                             <signal name="key_press_event" handler="on_fileview_key_press_event" last_modification_time="Thu, 25 May 2006 15:45:56 GMT"/>
+                             <signal name="button_press_event" handler="on_fileview_button_press_event" last_modification_time="Sun, 28 May 2006 19:37:48 GMT"/>
+                             <signal name="drag_data_get" handler="fileview_data_get" last_modification_time="Mon, 29 May 2006 20:38:29 GMT"/>
+                           </widget>
+                         </child>
+                       </widget>
+                     </child>
+                   </widget>
+                 </child>
+
+                 <child>
+                   <widget class="GtkLabel" id="label18">
+                     <property name="visible">True</property>
+                     <property name="label" translatable="yes">&lt;b&gt;File list&lt;/b&gt;</property>
+                     <property name="use_underline">False</property>
+                     <property name="use_markup">True</property>
+                     <property name="justify">GTK_JUSTIFY_LEFT</property>
+                     <property name="wrap">False</property>
+                     <property name="selectable">False</property>
+                     <property name="xalign">0.5</property>
+                     <property name="yalign">0.5</property>
+                     <property name="xpad">0</property>
+                     <property name="ypad">0</property>
+                     <property name="ellipsize">PANGO_ELLIPSIZE_NONE</property>
+                     <property name="width_chars">-1</property>
+                     <property name="single_line_mode">False</property>
+                     <property name="angle">0</property>
+                   </widget>
+                   <packing>
+                     <property name="type">label_item</property>
+                   </packing>
+                 </child>
+               </widget>
+               <packing>
+                 <property name="shrink">True</property>
+                 <property name="resize">False</property>
+               </packing>
+             </child>
+
+             <child>
+               <widget class="GtkFrame" id="frame4">
+                 <property name="border_width">3</property>
+                 <property name="visible">True</property>
+                 <property name="label_xalign">0</property>
+                 <property name="label_yalign">0.5</property>
+                 <property name="shadow_type">GTK_SHADOW_ETCHED_IN</property>
+
+                 <child>
+                   <widget class="GtkAlignment" id="alignment5">
+                     <property name="border_width">3</property>
+                     <property name="visible">True</property>
+                     <property name="xalign">0.5</property>
+                     <property name="yalign">0.5</property>
+                     <property name="xscale">1</property>
+                     <property name="yscale">1</property>
+                     <property name="top_padding">0</property>
+                     <property name="bottom_padding">0</property>
+                     <property name="left_padding">12</property>
+                     <property name="right_padding">0</property>
+
+                     <child>
+                       <widget class="GtkScrolledWindow" id="scrolledwindow4">
+                         <property name="border_width">3</property>
+                         <property name="visible">True</property>
+                         <property name="can_focus">True</property>
+                         <property name="hscrollbar_policy">GTK_POLICY_AUTOMATIC</property>
+                         <property name="vscrollbar_policy">GTK_POLICY_AUTOMATIC</property>
+                         <property name="shadow_type">GTK_SHADOW_ETCHED_IN</property>
+                         <property name="window_placement">GTK_CORNER_TOP_LEFT</property>
+                         <signal name="key_release_event" handler="on_forward_keypress" last_modification_time="Tue, 23 May 2006 11:46:34 GMT"/>
+
+                         <child>
+                           <widget class="GtkTreeView" id="infoview">
+                             <property name="visible">True</property>
+                             <property name="can_focus">True</property>
+                             <property name="has_focus">True</property>
+                             <property name="headers_visible">True</property>
+                             <property name="rules_hint">True</property>
+                             <property name="reorderable">True</property>
+                             <property name="enable_search">True</property>
+                             <property name="fixed_height_mode">False</property>
+                             <property name="hover_selection">False</property>
+                             <property name="hover_expand">False</property>
+                             <signal name="drag_data_get" handler="fileinfo_data_get" last_modification_time="Fri, 02 Jun 2006 16:17:51 GMT"/>
+                           </widget>
+                         </child>
+                       </widget>
+                     </child>
+                   </widget>
+                 </child>
+
+                 <child>
+                   <widget class="GtkLabel" id="label19">
+                     <property name="visible">True</property>
+                     <property name="label" translatable="yes">&lt;b&gt;File revisions&lt;/b&gt;</property>
+                     <property name="use_underline">False</property>
+                     <property name="use_markup">True</property>
+                     <property name="justify">GTK_JUSTIFY_LEFT</property>
+                     <property name="wrap">False</property>
+                     <property name="selectable">False</property>
+                     <property name="xalign">0.5</property>
+                     <property name="yalign">0.5</property>
+                     <property name="xpad">0</property>
+                     <property name="ypad">0</property>
+                     <property name="ellipsize">PANGO_ELLIPSIZE_NONE</property>
+                     <property name="width_chars">-1</property>
+                     <property name="single_line_mode">False</property>
+                     <property name="angle">0</property>
+                   </widget>
+                   <packing>
+                     <property name="type">label_item</property>
+                   </packing>
+                 </child>
+               </widget>
+               <packing>
+                 <property name="shrink">True</property>
+                 <property name="resize">True</property>
+               </packing>
+             </child>
+           </widget>
+           <packing>
+             <property name="shrink">True</property>
+             <property name="resize">False</property>
+           </packing>
+         </child>
+
+         <child>
+           <widget class="GtkVBox" id="vbox6">
+             <property name="border_width">3</property>
+             <property name="visible">True</property>
+             <property name="homogeneous">False</property>
+             <property name="spacing">0</property>
+
+             <child>
+               <widget class="GtkHBox" id="hbox8">
+                 <property name="visible">True</property>
+                 <property name="homogeneous">False</property>
+                 <property name="spacing">0</property>
+
+                 <child>
+                   <widget class="GtkLabel" id="label10">
+                     <property name="visible">True</property>
+                     <property name="can_focus">True</property>
+                     <property name="label" translatable="yes">&lt;big&gt;&lt;b&gt;Restore items list&lt;/b&gt;&lt;/big&gt;</property>
+                     <property name="use_underline">False</property>
+                     <property name="use_markup">True</property>
+                     <property name="justify">GTK_JUSTIFY_CENTER</property>
+                     <property name="wrap">False</property>
+                     <property name="selectable">True</property>
+                     <property name="xalign">0.5</property>
+                     <property name="yalign">0.5</property>
+                     <property name="xpad">0</property>
+                     <property name="ypad">7</property>
+                     <property name="ellipsize">PANGO_ELLIPSIZE_NONE</property>
+                     <property name="width_chars">-1</property>
+                     <property name="single_line_mode">False</property>
+                     <property name="angle">0</property>
+                   </widget>
+                   <packing>
+                     <property name="padding">0</property>
+                     <property name="expand">False</property>
+                     <property name="fill">False</property>
+                   </packing>
+                 </child>
+
+                 <child>
+                   <widget class="GtkHButtonBox" id="hbuttonbox3">
+                     <property name="visible">True</property>
+                     <property name="layout_style">GTK_BUTTONBOX_END</property>
+                     <property name="spacing">0</property>
+
+                     <child>
+                       <widget class="GtkButton" id="button5">
+                         <property name="visible">True</property>
+                         <property name="can_default">True</property>
+                         <property name="can_focus">True</property>
+                         <property name="label">gtk-clear</property>
+                         <property name="use_stock">True</property>
+                         <property name="relief">GTK_RELIEF_NORMAL</property>
+                         <property name="focus_on_click">True</property>
+                         <signal name="clicked" handler="on_clear_clicked" last_modification_time="Sun, 04 Jun 2006 19:25:40 GMT"/>
+                       </widget>
+                     </child>
+
+                     <child>
+                       <widget class="GtkButton" id="button6">
+                         <property name="visible">True</property>
+                         <property name="can_default">True</property>
+                         <property name="can_focus">True</property>
+                         <property name="relief">GTK_RELIEF_NORMAL</property>
+                         <property name="focus_on_click">True</property>
+                         <signal name="clicked" handler="on_go_button_clicked" last_modification_time="Sun, 04 Jun 2006 19:25:17 GMT"/>
+
+                         <child>
+                           <widget class="GtkAlignment" id="alignment6">
+                             <property name="visible">True</property>
+                             <property name="xalign">0.5</property>
+                             <property name="yalign">0.5</property>
+                             <property name="xscale">0</property>
+                             <property name="yscale">0</property>
+                             <property name="top_padding">0</property>
+                             <property name="bottom_padding">0</property>
+                             <property name="left_padding">0</property>
+                             <property name="right_padding">0</property>
+
+                             <child>
+                               <widget class="GtkHBox" id="hbox10">
+                                 <property name="visible">True</property>
+                                 <property name="homogeneous">False</property>
+                                 <property name="spacing">2</property>
+
+                                 <child>
+                                   <widget class="GtkImage" id="image4">
+                                     <property name="visible">True</property>
+                                     <property name="stock">gtk-revert-to-saved</property>
+                                     <property name="icon_size">4</property>
+                                     <property name="xalign">0.5</property>
+                                     <property name="yalign">0.5</property>
+                                     <property name="xpad">0</property>
+                                     <property name="ypad">0</property>
+                                   </widget>
+                                   <packing>
+                                     <property name="padding">0</property>
+                                     <property name="expand">False</property>
+                                     <property name="fill">False</property>
+                                   </packing>
+                                 </child>
+
+                                 <child>
+                                   <widget class="GtkLabel" id="label20">
+                                     <property name="visible">True</property>
+                                     <property name="label" translatable="yes">Restore</property>
+                                     <property name="use_underline">True</property>
+                                     <property name="use_markup">False</property>
+                                     <property name="justify">GTK_JUSTIFY_LEFT</property>
+                                     <property name="wrap">False</property>
+                                     <property name="selectable">False</property>
+                                     <property name="xalign">0.5</property>
+                                     <property name="yalign">0.5</property>
+                                     <property name="xpad">0</property>
+                                     <property name="ypad">0</property>
+                                     <property name="ellipsize">PANGO_ELLIPSIZE_NONE</property>
+                                     <property name="width_chars">-1</property>
+                                     <property name="single_line_mode">False</property>
+                                     <property name="angle">0</property>
+                                   </widget>
+                                   <packing>
+                                     <property name="padding">0</property>
+                                     <property name="expand">False</property>
+                                     <property name="fill">False</property>
+                                   </packing>
+                                 </child>
+                               </widget>
+                             </child>
+                           </widget>
+                         </child>
+                       </widget>
+                     </child>
+                   </widget>
+                   <packing>
+                     <property name="padding">0</property>
+                     <property name="expand">True</property>
+                     <property name="fill">True</property>
+                     <property name="pack_type">GTK_PACK_END</property>
+                   </packing>
+                 </child>
+               </widget>
+               <packing>
+                 <property name="padding">0</property>
+                 <property name="expand">False</property>
+                 <property name="fill">True</property>
+               </packing>
+             </child>
+
+             <child>
+               <widget class="GtkScrolledWindow" id="scrolledwindow2">
+                 <property name="visible">True</property>
+                 <property name="can_focus">True</property>
+                 <property name="hscrollbar_policy">GTK_POLICY_NEVER</property>
+                 <property name="vscrollbar_policy">GTK_POLICY_AUTOMATIC</property>
+                 <property name="shadow_type">GTK_SHADOW_IN</property>
+                 <property name="window_placement">GTK_CORNER_TOP_LEFT</property>
+                 <signal name="key_release_event" handler="on_forward_keypress" last_modification_time="Tue, 23 May 2006 11:47:04 GMT"/>
+
+                 <child>
+                   <widget class="GtkTreeView" id="restorelist">
+                     <property name="visible">True</property>
+                     <property name="can_focus">True</property>
+                     <property name="headers_visible">True</property>
+                     <property name="rules_hint">False</property>
+                     <property name="reorderable">False</property>
+                     <property name="enable_search">False</property>
+                     <property name="fixed_height_mode">False</property>
+                     <property name="hover_selection">False</property>
+                     <property name="hover_expand">False</property>
+                     <signal name="key_release_event" handler="on_restore_list_keypress" last_modification_time="Tue, 23 May 2006 11:47:11 GMT"/>
+                     <signal name="drag_data_received" handler="restore_list_data_received" last_modification_time="Mon, 29 May 2006 20:40:29 GMT"/>
+                   </widget>
+                 </child>
+               </widget>
+               <packing>
+                 <property name="padding">0</property>
+                 <property name="expand">True</property>
+                 <property name="fill">True</property>
+               </packing>
+             </child>
+
+             <child>
+               <widget class="GtkStatusbar" id="statusbar">
+                 <property name="border_width">1</property>
+                 <property name="visible">True</property>
+                 <property name="has_resize_grip">False</property>
+               </widget>
+               <packing>
+                 <property name="padding">0</property>
+                 <property name="expand">False</property>
+                 <property name="fill">False</property>
+               </packing>
+             </child>
+           </widget>
+           <packing>
+             <property name="shrink">True</property>
+             <property name="resize">True</property>
+           </packing>
+         </child>
+       </widget>
+       <packing>
+         <property name="padding">0</property>
+         <property name="expand">True</property>
+         <property name="fill">True</property>
+       </packing>
+      </child>
+    </widget>
+  </child>
+</widget>
+
+<widget class="GtkDialog" id="dlg_about">
+  <property name="title" translatable="yes">About</property>
+  <property name="type">GTK_WINDOW_TOPLEVEL</property>
+  <property name="window_position">GTK_WIN_POS_MOUSE</property>
+  <property name="modal">False</property>
+  <property name="resizable">False</property>
+  <property name="destroy_with_parent">True</property>
+  <property name="decorated">True</property>
+  <property name="skip_taskbar_hint">False</property>
+  <property name="skip_pager_hint">False</property>
+  <property name="type_hint">GDK_WINDOW_TYPE_HINT_DIALOG</property>
+  <property name="gravity">GDK_GRAVITY_NORTH_WEST</property>
+  <property name="focus_on_map">True</property>
+  <property name="urgency_hint">False</property>
+  <property name="has_separator">True</property>
+  <signal name="delete_event" handler="on_dialog_delete_event" last_modification_time="Sun, 16 Nov 2003 05:41:24 GMT"/>
+  <signal name="destroy_event" handler="on_dialog_delete_event" last_modification_time="Sun, 16 Nov 2003 05:40:53 GMT"/>
+
+  <child internal-child="vbox">
+    <widget class="GtkVBox" id="dialog-vbox1">
+      <property name="visible">True</property>
+      <property name="homogeneous">False</property>
+      <property name="spacing">0</property>
+
+      <child internal-child="action_area">
+       <widget class="GtkHButtonBox" id="dialog-action_area1">
+         <property name="visible">True</property>
+         <property name="layout_style">GTK_BUTTONBOX_END</property>
+
+         <child>
+           <widget class="GtkButton" id="okbutton1">
+             <property name="visible">True</property>
+             <property name="can_default">True</property>
+             <property name="can_focus">True</property>
+             <property name="label">gtk-ok</property>
+             <property name="use_stock">True</property>
+             <property name="relief">GTK_RELIEF_NORMAL</property>
+             <property name="focus_on_click">True</property>
+             <property name="response_id">-5</property>
+             <signal name="clicked" handler="on_about_okbutton_clicked" last_modification_time="Sun, 16 Nov 2003 05:59:35 GMT"/>
+           </widget>
+         </child>
+       </widget>
+       <packing>
+         <property name="padding">0</property>
+         <property name="expand">False</property>
+         <property name="fill">True</property>
+         <property name="pack_type">GTK_PACK_END</property>
+       </packing>
+      </child>
+
+      <child>
+       <widget class="GtkVBox" id="vbox1">
+         <property name="border_width">4</property>
+         <property name="visible">True</property>
+         <property name="homogeneous">False</property>
+         <property name="spacing">0</property>
+
+         <child>
+           <widget class="GtkLabel" id="name_label">
+             <property name="visible">True</property>
+             <property name="can_focus">True</property>
+             <property name="label" translatable="yes">&lt;big&gt;&lt;b&gt;brestore a Perl/GTK interface for bacula&lt;/b&gt;&lt;/big&gt;</property>
+             <property name="use_underline">False</property>
+             <property name="use_markup">True</property>
+             <property name="justify">GTK_JUSTIFY_CENTER</property>
+             <property name="wrap">False</property>
+             <property name="selectable">True</property>
+             <property name="xalign">0.5</property>
+             <property name="yalign">0.5</property>
+             <property name="xpad">0</property>
+             <property name="ypad">7</property>
+             <property name="ellipsize">PANGO_ELLIPSIZE_NONE</property>
+             <property name="width_chars">-1</property>
+             <property name="single_line_mode">False</property>
+             <property name="angle">0</property>
+           </widget>
+           <packing>
+             <property name="padding">0</property>
+             <property name="expand">False</property>
+             <property name="fill">False</property>
+           </packing>
+         </child>
+
+         <child>
+           <widget class="GtkLabel" id="copyright_lable">
+             <property name="visible">True</property>
+             <property name="label" translatable="yes">&lt;small&gt;Bacula Copyright ©2000-2006 Kern Sibbald &lt;/small&gt;
+&lt;small&gt;brestore Copyright ©2006 Marc Cousin and Eric Bollengier&lt;/small&gt;
+</property>
+             <property name="use_underline">False</property>
+             <property name="use_markup">True</property>
+             <property name="justify">GTK_JUSTIFY_LEFT</property>
+             <property name="wrap">False</property>
+             <property name="selectable">False</property>
+             <property name="xalign">0.5</property>
+             <property name="yalign">0.5</property>
+             <property name="xpad">0</property>
+             <property name="ypad">4</property>
+             <property name="ellipsize">PANGO_ELLIPSIZE_NONE</property>
+             <property name="width_chars">-1</property>
+             <property name="single_line_mode">False</property>
+             <property name="angle">0</property>
+           </widget>
+           <packing>
+             <property name="padding">0</property>
+             <property name="expand">False</property>
+             <property name="fill">False</property>
+           </packing>
+         </child>
+       </widget>
+       <packing>
+         <property name="padding">0</property>
+         <property name="expand">True</property>
+         <property name="fill">True</property>
+       </packing>
+      </child>
+    </widget>
+  </child>
+</widget>
+
+<widget class="GtkDialog" id="dlg_pref">
+  <property name="title" translatable="yes">Preferences</property>
+  <property name="type">GTK_WINDOW_TOPLEVEL</property>
+  <property name="window_position">GTK_WIN_POS_MOUSE</property>
+  <property name="modal">False</property>
+  <property name="resizable">True</property>
+  <property name="destroy_with_parent">True</property>
+  <property name="decorated">True</property>
+  <property name="skip_taskbar_hint">False</property>
+  <property name="skip_pager_hint">False</property>
+  <property name="type_hint">GDK_WINDOW_TYPE_HINT_DIALOG</property>
+  <property name="gravity">GDK_GRAVITY_NORTH_WEST</property>
+  <property name="focus_on_map">True</property>
+  <property name="urgency_hint">False</property>
+  <property name="has_separator">True</property>
+  <signal name="delete_event" handler="on_dialog_delete_event" last_modification_time="Sun, 16 Nov 2003 05:41:08 GMT"/>
+  <signal name="destroy_event" handler="on_dialog_delete_event" last_modification_time="Sun, 16 Nov 2003 05:41:15 GMT"/>
+
+  <child internal-child="vbox">
+    <widget class="GtkVBox" id="dialog-vbox2">
+      <property name="visible">True</property>
+      <property name="homogeneous">False</property>
+      <property name="spacing">4</property>
+
+      <child internal-child="action_area">
+       <widget class="GtkHButtonBox" id="dialog-action_area2">
+         <property name="visible">True</property>
+         <property name="layout_style">GTK_BUTTONBOX_END</property>
+
+         <child>
+           <widget class="GtkButton" id="cancelbutton">
+             <property name="visible">True</property>
+             <property name="can_default">True</property>
+             <property name="can_focus">True</property>
+             <property name="label">gtk-cancel</property>
+             <property name="use_stock">True</property>
+             <property name="relief">GTK_RELIEF_NORMAL</property>
+             <property name="focus_on_click">True</property>
+             <property name="response_id">-6</property>
+             <signal name="clicked" handler="on_cancelbutton_clicked" last_modification_time="Mon, 29 May 2006 19:51:28 GMT"/>
+           </widget>
+         </child>
+
+         <child>
+           <widget class="GtkButton" id="applybutton">
+             <property name="visible">True</property>
+             <property name="can_default">True</property>
+             <property name="can_focus">True</property>
+             <property name="label">gtk-apply</property>
+             <property name="use_stock">True</property>
+             <property name="relief">GTK_RELIEF_NORMAL</property>
+             <property name="focus_on_click">True</property>
+             <property name="response_id">-10</property>
+             <signal name="clicked" handler="on_applybutton_clicked" last_modification_time="Mon, 29 May 2006 19:51:38 GMT"/>
+           </widget>
+         </child>
+
+         <child>
+           <widget class="GtkButton" id="okbutton">
+             <property name="visible">True</property>
+             <property name="can_default">True</property>
+             <property name="can_focus">True</property>
+             <property name="label">gtk-ok</property>
+             <property name="use_stock">True</property>
+             <property name="relief">GTK_RELIEF_NORMAL</property>
+             <property name="focus_on_click">True</property>
+             <property name="response_id">-5</property>
+             <signal name="clicked" handler="on_okbutton_clicked" last_modification_time="Mon, 29 May 2006 19:51:45 GMT"/>
+           </widget>
+         </child>
+       </widget>
+       <packing>
+         <property name="padding">0</property>
+         <property name="expand">False</property>
+         <property name="fill">True</property>
+         <property name="pack_type">GTK_PACK_END</property>
+       </packing>
+      </child>
+
+      <child>
+       <widget class="GtkNotebook" id="notebook1">
+         <property name="visible">True</property>
+         <property name="can_focus">True</property>
+         <property name="show_tabs">True</property>
+         <property name="show_border">True</property>
+         <property name="tab_pos">GTK_POS_TOP</property>
+         <property name="scrollable">False</property>
+         <property name="enable_popup">False</property>
+
+         <child>
+           <widget class="GtkVBox" id="vbox14">
+             <property name="visible">True</property>
+             <property name="homogeneous">False</property>
+             <property name="spacing">0</property>
+
+             <child>
+               <widget class="GtkFrame" id="frame11">
+                 <property name="visible">True</property>
+                 <property name="label_xalign">0</property>
+                 <property name="label_yalign">0.5</property>
+                 <property name="shadow_type">GTK_SHADOW_NONE</property>
+
+                 <child>
+                   <widget class="GtkAlignment" id="alignment14">
+                     <property name="visible">True</property>
+                     <property name="xalign">0.5</property>
+                     <property name="yalign">0.5</property>
+                     <property name="xscale">1</property>
+                     <property name="yscale">1</property>
+                     <property name="top_padding">0</property>
+                     <property name="bottom_padding">0</property>
+                     <property name="left_padding">12</property>
+                     <property name="right_padding">0</property>
+
+                     <child>
+                       <widget class="GtkVBox" id="vbox15">
+                         <property name="visible">True</property>
+                         <property name="homogeneous">False</property>
+                         <property name="spacing">0</property>
+
+                         <child>
+                           <widget class="GtkLabel" id="label11">
+                             <property name="visible">True</property>
+                             <property name="can_focus">True</property>
+                             <property name="label" translatable="yes">Example : DBI:mysql:database=bacula;host=192.168.0.2;port=3306
+Example : DBI:Pg:database=bacula;host=127.0.0.1;port=5432
+</property>
+                             <property name="use_underline">False</property>
+                             <property name="use_markup">False</property>
+                             <property name="justify">GTK_JUSTIFY_LEFT</property>
+                             <property name="wrap">False</property>
+                             <property name="selectable">True</property>
+                             <property name="xalign">0</property>
+                             <property name="yalign">0.5</property>
+                             <property name="xpad">0</property>
+                             <property name="ypad">0</property>
+                             <property name="ellipsize">PANGO_ELLIPSIZE_NONE</property>
+                             <property name="width_chars">-1</property>
+                             <property name="single_line_mode">False</property>
+                             <property name="angle">0</property>
+                           </widget>
+                           <packing>
+                             <property name="padding">0</property>
+                             <property name="expand">False</property>
+                             <property name="fill">False</property>
+                           </packing>
+                         </child>
+
+                         <child>
+                           <widget class="GtkTable" id="table2">
+                             <property name="border_width">5</property>
+                             <property name="visible">True</property>
+                             <property name="n_rows">3</property>
+                             <property name="n_columns">2</property>
+                             <property name="homogeneous">False</property>
+                             <property name="row_spacing">4</property>
+                             <property name="column_spacing">0</property>
+
+                             <child>
+                               <widget class="GtkLabel" id="label8">
+                                 <property name="visible">True</property>
+                                 <property name="label" translatable="yes">DBD Chain :</property>
+                                 <property name="use_underline">False</property>
+                                 <property name="use_markup">False</property>
+                                 <property name="justify">GTK_JUSTIFY_LEFT</property>
+                                 <property name="wrap">False</property>
+                                 <property name="selectable">False</property>
+                                 <property name="xalign">0.5</property>
+                                 <property name="yalign">0.5</property>
+                                 <property name="xpad">8</property>
+                                 <property name="ypad">0</property>
+                                 <property name="ellipsize">PANGO_ELLIPSIZE_NONE</property>
+                                 <property name="width_chars">-1</property>
+                                 <property name="single_line_mode">False</property>
+                                 <property name="angle">0</property>
+                               </widget>
+                               <packing>
+                                 <property name="left_attach">0</property>
+                                 <property name="right_attach">1</property>
+                                 <property name="top_attach">0</property>
+                                 <property name="bottom_attach">1</property>
+                                 <property name="x_options">fill</property>
+                                 <property name="y_options"></property>
+                               </packing>
+                             </child>
+
+                             <child>
+                               <widget class="GtkLabel" id="label13">
+                                 <property name="visible">True</property>
+                                 <property name="label" translatable="yes">Username : </property>
+                                 <property name="use_underline">False</property>
+                                 <property name="use_markup">False</property>
+                                 <property name="justify">GTK_JUSTIFY_LEFT</property>
+                                 <property name="wrap">False</property>
+                                 <property name="selectable">False</property>
+                                 <property name="xalign">0</property>
+                                 <property name="yalign">0.5</property>
+                                 <property name="xpad">0</property>
+                                 <property name="ypad">4</property>
+                                 <property name="ellipsize">PANGO_ELLIPSIZE_NONE</property>
+                                 <property name="width_chars">-1</property>
+                                 <property name="single_line_mode">False</property>
+                                 <property name="angle">0</property>
+                               </widget>
+                               <packing>
+                                 <property name="left_attach">0</property>
+                                 <property name="right_attach">1</property>
+                                 <property name="top_attach">1</property>
+                                 <property name="bottom_attach">2</property>
+                                 <property name="x_options">fill</property>
+                                 <property name="y_options"></property>
+                               </packing>
+                             </child>
+
+                             <child>
+                               <widget class="GtkLabel" id="label14">
+                                 <property name="visible">True</property>
+                                 <property name="label" translatable="yes">Password :</property>
+                                 <property name="use_underline">False</property>
+                                 <property name="use_markup">False</property>
+                                 <property name="justify">GTK_JUSTIFY_LEFT</property>
+                                 <property name="wrap">False</property>
+                                 <property name="selectable">False</property>
+                                 <property name="xalign">0</property>
+                                 <property name="yalign">0.5</property>
+                                 <property name="xpad">0</property>
+                                 <property name="ypad">4</property>
+                                 <property name="ellipsize">PANGO_ELLIPSIZE_NONE</property>
+                                 <property name="width_chars">-1</property>
+                                 <property name="single_line_mode">False</property>
+                                 <property name="angle">0</property>
+                               </widget>
+                               <packing>
+                                 <property name="left_attach">0</property>
+                                 <property name="right_attach">1</property>
+                                 <property name="top_attach">2</property>
+                                 <property name="bottom_attach">3</property>
+                                 <property name="x_options">fill</property>
+                                 <property name="y_options"></property>
+                               </packing>
+                             </child>
+
+                             <child>
+                               <widget class="GtkEntry" id="entry_connection_string">
+                                 <property name="visible">True</property>
+                                 <property name="can_focus">True</property>
+                                 <property name="has_focus">True</property>
+                                 <property name="editable">True</property>
+                                 <property name="visibility">True</property>
+                                 <property name="max_length">0</property>
+                                 <property name="text" translatable="yes"></property>
+                                 <property name="has_frame">True</property>
+                                 <property name="invisible_char">*</property>
+                                 <property name="activates_default">False</property>
+                               </widget>
+                               <packing>
+                                 <property name="left_attach">1</property>
+                                 <property name="right_attach">2</property>
+                                 <property name="top_attach">0</property>
+                                 <property name="bottom_attach">1</property>
+                                 <property name="y_options"></property>
+                               </packing>
+                             </child>
+
+                             <child>
+                               <widget class="GtkEntry" id="entry_password">
+                                 <property name="visible">True</property>
+                                 <property name="can_focus">True</property>
+                                 <property name="editable">True</property>
+                                 <property name="visibility">False</property>
+                                 <property name="max_length">40</property>
+                                 <property name="text" translatable="yes"></property>
+                                 <property name="has_frame">True</property>
+                                 <property name="invisible_char">*</property>
+                                 <property name="activates_default">False</property>
+                                 <property name="width_chars">40</property>
+                               </widget>
+                               <packing>
+                                 <property name="left_attach">1</property>
+                                 <property name="right_attach">2</property>
+                                 <property name="top_attach">2</property>
+                                 <property name="bottom_attach">3</property>
+                                 <property name="y_options"></property>
+                               </packing>
+                             </child>
+
+                             <child>
+                               <widget class="GtkEntry" id="entry_username">
+                                 <property name="visible">True</property>
+                                 <property name="can_focus">True</property>
+                                 <property name="editable">True</property>
+                                 <property name="visibility">True</property>
+                                 <property name="max_length">40</property>
+                                 <property name="text" translatable="yes"></property>
+                                 <property name="has_frame">True</property>
+                                 <property name="invisible_char">*</property>
+                                 <property name="activates_default">False</property>
+                                 <property name="width_chars">40</property>
+                               </widget>
+                               <packing>
+                                 <property name="left_attach">1</property>
+                                 <property name="right_attach">2</property>
+                                 <property name="top_attach">1</property>
+                                 <property name="bottom_attach">2</property>
+                                 <property name="y_options"></property>
+                               </packing>
+                             </child>
+                           </widget>
+                           <packing>
+                             <property name="padding">0</property>
+                             <property name="expand">False</property>
+                             <property name="fill">True</property>
+                           </packing>
+                         </child>
+                       </widget>
+                     </child>
+                   </widget>
+                 </child>
+
+                 <child>
+                   <widget class="GtkLabel" id="label44">
+                     <property name="visible">True</property>
+                     <property name="label" translatable="yes">&lt;b&gt;SQL connection&lt;/b&gt;</property>
+                     <property name="use_underline">False</property>
+                     <property name="use_markup">True</property>
+                     <property name="justify">GTK_JUSTIFY_LEFT</property>
+                     <property name="wrap">False</property>
+                     <property name="selectable">False</property>
+                     <property name="xalign">0.5</property>
+                     <property name="yalign">0.5</property>
+                     <property name="xpad">0</property>
+                     <property name="ypad">0</property>
+                     <property name="ellipsize">PANGO_ELLIPSIZE_NONE</property>
+                     <property name="width_chars">-1</property>
+                     <property name="single_line_mode">False</property>
+                     <property name="angle">0</property>
+                   </widget>
+                   <packing>
+                     <property name="type">label_item</property>
+                   </packing>
+                 </child>
+               </widget>
+               <packing>
+                 <property name="padding">0</property>
+                 <property name="expand">False</property>
+                 <property name="fill">True</property>
+               </packing>
+             </child>
+
+             <child>
+               <widget class="GtkFrame" id="frame12">
+                 <property name="visible">True</property>
+                 <property name="label_xalign">0</property>
+                 <property name="label_yalign">0.5</property>
+                 <property name="shadow_type">GTK_SHADOW_NONE</property>
+
+                 <child>
+                   <widget class="GtkAlignment" id="alignment15">
+                     <property name="visible">True</property>
+                     <property name="xalign">0.5</property>
+                     <property name="yalign">0.5</property>
+                     <property name="xscale">1</property>
+                     <property name="yscale">1</property>
+                     <property name="top_padding">0</property>
+                     <property name="bottom_padding">0</property>
+                     <property name="left_padding">12</property>
+                     <property name="right_padding">0</property>
+
+                     <child>
+                       <widget class="GtkCheckButton" id="chkbp_use_ok_bkp_only">
+                         <property name="visible">True</property>
+                         <property name="tooltip" translatable="yes">JobStatus is set to 'T'</property>
+                         <property name="can_focus">True</property>
+                         <property name="label" translatable="yes">Use only good ended backup</property>
+                         <property name="use_underline">True</property>
+                         <property name="relief">GTK_RELIEF_NORMAL</property>
+                         <property name="focus_on_click">True</property>
+                         <property name="active">False</property>
+                         <property name="inconsistent">False</property>
+                         <property name="draw_indicator">True</property>
+                       </widget>
+                     </child>
+                   </widget>
+                 </child>
+
+                 <child>
+                   <widget class="GtkLabel" id="label45">
+                     <property name="visible">True</property>
+                     <property name="label" translatable="yes">&lt;b&gt;Job selection&lt;/b&gt;</property>
+                     <property name="use_underline">False</property>
+                     <property name="use_markup">True</property>
+                     <property name="justify">GTK_JUSTIFY_LEFT</property>
+                     <property name="wrap">False</property>
+                     <property name="selectable">False</property>
+                     <property name="xalign">0.5</property>
+                     <property name="yalign">0.5</property>
+                     <property name="xpad">0</property>
+                     <property name="ypad">0</property>
+                     <property name="ellipsize">PANGO_ELLIPSIZE_NONE</property>
+                     <property name="width_chars">-1</property>
+                     <property name="single_line_mode">False</property>
+                     <property name="angle">0</property>
+                   </widget>
+                   <packing>
+                     <property name="type">label_item</property>
+                   </packing>
+                 </child>
+               </widget>
+               <packing>
+                 <property name="padding">0</property>
+                 <property name="expand">False</property>
+                 <property name="fill">True</property>
+               </packing>
+             </child>
+
+             <child>
+               <widget class="GtkFrame" id="frame13">
+                 <property name="visible">True</property>
+                 <property name="label_xalign">0</property>
+                 <property name="label_yalign">0.5</property>
+                 <property name="shadow_type">GTK_SHADOW_NONE</property>
+
+                 <child>
+                   <widget class="GtkAlignment" id="alignment16">
+                     <property name="visible">True</property>
+                     <property name="xalign">0.5</property>
+                     <property name="yalign">0.5</property>
+                     <property name="xscale">1</property>
+                     <property name="yscale">1</property>
+                     <property name="top_padding">0</property>
+                     <property name="bottom_padding">0</property>
+                     <property name="left_padding">12</property>
+                     <property name="right_padding">0</property>
+
+                     <child>
+                       <widget class="GtkCheckButton" id="chkbp_debug">
+                         <property name="visible">True</property>
+                         <property name="can_focus">True</property>
+                         <property name="label" translatable="yes">Display debug message</property>
+                         <property name="use_underline">True</property>
+                         <property name="relief">GTK_RELIEF_NORMAL</property>
+                         <property name="focus_on_click">True</property>
+                         <property name="active">False</property>
+                         <property name="inconsistent">False</property>
+                         <property name="draw_indicator">True</property>
+                       </widget>
+                     </child>
+                   </widget>
+                 </child>
+
+                 <child>
+                   <widget class="GtkLabel" id="label46">
+                     <property name="visible">True</property>
+                     <property name="label" translatable="yes">&lt;b&gt;Debug&lt;/b&gt;</property>
+                     <property name="use_underline">False</property>
+                     <property name="use_markup">True</property>
+                     <property name="justify">GTK_JUSTIFY_LEFT</property>
+                     <property name="wrap">False</property>
+                     <property name="selectable">False</property>
+                     <property name="xalign">0.5</property>
+                     <property name="yalign">0.5</property>
+                     <property name="xpad">0</property>
+                     <property name="ypad">0</property>
+                     <property name="ellipsize">PANGO_ELLIPSIZE_NONE</property>
+                     <property name="width_chars">-1</property>
+                     <property name="single_line_mode">False</property>
+                     <property name="angle">0</property>
+                   </widget>
+                   <packing>
+                     <property name="type">label_item</property>
+                   </packing>
+                 </child>
+               </widget>
+               <packing>
+                 <property name="padding">0</property>
+                 <property name="expand">False</property>
+                 <property name="fill">True</property>
+               </packing>
+             </child>
+
+             <child>
+               <widget class="GtkFrame" id="frame15">
+                 <property name="visible">True</property>
+                 <property name="label_xalign">0</property>
+                 <property name="label_yalign">0.5</property>
+                 <property name="shadow_type">GTK_SHADOW_NONE</property>
+
+                 <child>
+                   <widget class="GtkAlignment" id="alignment18">
+                     <property name="visible">True</property>
+                     <property name="xalign">0.5</property>
+                     <property name="yalign">0.5</property>
+                     <property name="xscale">1</property>
+                     <property name="yscale">1</property>
+                     <property name="top_padding">0</property>
+                     <property name="bottom_padding">0</property>
+                     <property name="left_padding">12</property>
+                     <property name="right_padding">0</property>
+
+                     <child>
+                       <widget class="GtkTable" id="table4">
+                         <property name="visible">True</property>
+                         <property name="n_rows">1</property>
+                         <property name="n_columns">1</property>
+                         <property name="homogeneous">False</property>
+                         <property name="row_spacing">0</property>
+                         <property name="column_spacing">0</property>
+
+                         <child>
+                           <widget class="GtkVBox" id="vbox16">
+                             <property name="border_width">6</property>
+                             <property name="visible">True</property>
+                             <property name="homogeneous">False</property>
+                             <property name="spacing">0</property>
+
+                             <child>
+                               <widget class="GtkEntry" id="entry_glade_file">
+                                 <property name="visible">True</property>
+                                 <property name="tooltip" translatable="yes">/path/to/brestore.glade</property>
+                                 <property name="can_focus">True</property>
+                                 <property name="editable">True</property>
+                                 <property name="visibility">True</property>
+                                 <property name="max_length">0</property>
+                                 <property name="text" translatable="yes"></property>
+                                 <property name="has_frame">True</property>
+                                 <property name="invisible_char">●</property>
+                                 <property name="activates_default">False</property>
+                               </widget>
+                               <packing>
+                                 <property name="padding">0</property>
+                                 <property name="expand">False</property>
+                                 <property name="fill">False</property>
+                               </packing>
+                             </child>
+                           </widget>
+                           <packing>
+                             <property name="left_attach">0</property>
+                             <property name="right_attach">1</property>
+                             <property name="top_attach">0</property>
+                             <property name="bottom_attach">1</property>
+                           </packing>
+                         </child>
+                       </widget>
+                     </child>
+                   </widget>
+                 </child>
+
+                 <child>
+                   <widget class="GtkLabel" id="label50">
+                     <property name="visible">True</property>
+                     <property name="label" translatable="yes">&lt;b&gt;Glade file&lt;/b&gt;</property>
+                     <property name="use_underline">False</property>
+                     <property name="use_markup">True</property>
+                     <property name="justify">GTK_JUSTIFY_LEFT</property>
+                     <property name="wrap">False</property>
+                     <property name="selectable">False</property>
+                     <property name="xalign">0.5</property>
+                     <property name="yalign">0.5</property>
+                     <property name="xpad">0</property>
+                     <property name="ypad">0</property>
+                     <property name="ellipsize">PANGO_ELLIPSIZE_NONE</property>
+                     <property name="width_chars">-1</property>
+                     <property name="single_line_mode">False</property>
+                     <property name="angle">0</property>
+                   </widget>
+                   <packing>
+                     <property name="type">label_item</property>
+                   </packing>
+                 </child>
+               </widget>
+               <packing>
+                 <property name="padding">0</property>
+                 <property name="expand">False</property>
+                 <property name="fill">True</property>
+               </packing>
+             </child>
+           </widget>
+           <packing>
+             <property name="tab_expand">False</property>
+             <property name="tab_fill">True</property>
+           </packing>
+         </child>
+
+         <child>
+           <widget class="GtkLabel" id="label21">
+             <property name="visible">True</property>
+             <property name="label" translatable="yes">General options</property>
+             <property name="use_underline">False</property>
+             <property name="use_markup">False</property>
+             <property name="justify">GTK_JUSTIFY_LEFT</property>
+             <property name="wrap">False</property>
+             <property name="selectable">False</property>
+             <property name="xalign">0.5</property>
+             <property name="yalign">0.5</property>
+             <property name="xpad">0</property>
+             <property name="ypad">0</property>
+             <property name="ellipsize">PANGO_ELLIPSIZE_NONE</property>
+             <property name="width_chars">-1</property>
+             <property name="single_line_mode">False</property>
+             <property name="angle">0</property>
+           </widget>
+           <packing>
+             <property name="type">tab</property>
+           </packing>
+         </child>
+
+         <child>
+           <widget class="GtkVBox" id="vbox9">
+             <property name="visible">True</property>
+             <property name="homogeneous">False</property>
+             <property name="spacing">0</property>
+
+             <child>
+               <widget class="GtkLabel" id="label25">
+                 <property name="visible">True</property>
+                 <property name="label" translatable="yes">To launch restore, brestore have to speak with bconsole.</property>
+                 <property name="use_underline">False</property>
+                 <property name="use_markup">False</property>
+                 <property name="justify">GTK_JUSTIFY_LEFT</property>
+                 <property name="wrap">True</property>
+                 <property name="selectable">False</property>
+                 <property name="xalign">0.5</property>
+                 <property name="yalign">0.5</property>
+                 <property name="xpad">0</property>
+                 <property name="ypad">6</property>
+                 <property name="ellipsize">PANGO_ELLIPSIZE_NONE</property>
+                 <property name="width_chars">-1</property>
+                 <property name="single_line_mode">False</property>
+                 <property name="angle">0</property>
+               </widget>
+               <packing>
+                 <property name="padding">0</property>
+                 <property name="expand">False</property>
+                 <property name="fill">False</property>
+               </packing>
+             </child>
+
+             <child>
+               <widget class="GtkFrame" id="frame5">
+                 <property name="visible">True</property>
+                 <property name="label_xalign">0</property>
+                 <property name="label_yalign">0.5</property>
+                 <property name="shadow_type">GTK_SHADOW_NONE</property>
+
+                 <child>
+                   <widget class="GtkAlignment" id="alignment7">
+                     <property name="border_width">4</property>
+                     <property name="visible">True</property>
+                     <property name="xalign">0.5</property>
+                     <property name="yalign">0.5</property>
+                     <property name="xscale">1</property>
+                     <property name="yscale">1</property>
+                     <property name="top_padding">0</property>
+                     <property name="bottom_padding">0</property>
+                     <property name="left_padding">12</property>
+                     <property name="right_padding">5</property>
+
+                     <child>
+                       <widget class="GtkVBox" id="vbox10">
+                         <property name="border_width">3</property>
+                         <property name="visible">True</property>
+                         <property name="homogeneous">False</property>
+                         <property name="spacing">3</property>
+
+                         <child>
+                           <widget class="GtkLabel" id="label24">
+                             <property name="visible">True</property>
+                             <property name="label" translatable="yes">BSR file must be local to director, so
+
+if director is local, put something like : 
+&lt;b&gt; file://path/to/bacula/work/dir&lt;/b&gt;
+or if director is on other host
+&lt;b&gt; scp://bacula@hostdir:/path/to/bsr &lt;/b&gt;
+or if director works with the http connector
+&lt;b&gt; http://bacula:mdp@hostdir/cgi-bin/bweb/bput.pl&lt;/b&gt;</property>
+                             <property name="use_underline">False</property>
+                             <property name="use_markup">True</property>
+                             <property name="justify">GTK_JUSTIFY_LEFT</property>
+                             <property name="wrap">False</property>
+                             <property name="selectable">False</property>
+                             <property name="xalign">0.129999995232</property>
+                             <property name="yalign">0.5</property>
+                             <property name="xpad">0</property>
+                             <property name="ypad">3</property>
+                             <property name="ellipsize">PANGO_ELLIPSIZE_NONE</property>
+                             <property name="width_chars">-1</property>
+                             <property name="single_line_mode">False</property>
+                             <property name="angle">0</property>
+                           </widget>
+                           <packing>
+                             <property name="padding">0</property>
+                             <property name="expand">False</property>
+                             <property name="fill">False</property>
+                           </packing>
+                         </child>
+
+                         <child>
+                           <widget class="GtkEntry" id="entry_bsr_dest">
+                             <property name="visible">True</property>
+                             <property name="tooltip" translatable="yes">BSR destination string</property>
+                             <property name="can_focus">True</property>
+                             <property name="editable">True</property>
+                             <property name="visibility">True</property>
+                             <property name="max_length">0</property>
+                             <property name="text" translatable="yes">file://tmp</property>
+                             <property name="has_frame">True</property>
+                             <property name="invisible_char">*</property>
+                             <property name="activates_default">False</property>
+                           </widget>
+                           <packing>
+                             <property name="padding">0</property>
+                             <property name="expand">False</property>
+                             <property name="fill">False</property>
+                           </packing>
+                         </child>
+                       </widget>
+                     </child>
+                   </widget>
+                 </child>
+
+                 <child>
+                   <widget class="GtkLabel" id="label27">
+                     <property name="visible">True</property>
+                     <property name="label" translatable="yes">&lt;b&gt;BSR destination string&lt;/b&gt;</property>
+                     <property name="use_underline">False</property>
+                     <property name="use_markup">True</property>
+                     <property name="justify">GTK_JUSTIFY_LEFT</property>
+                     <property name="wrap">False</property>
+                     <property name="selectable">False</property>
+                     <property name="xalign">0.5</property>
+                     <property name="yalign">0.5</property>
+                     <property name="xpad">0</property>
+                     <property name="ypad">0</property>
+                     <property name="ellipsize">PANGO_ELLIPSIZE_NONE</property>
+                     <property name="width_chars">-1</property>
+                     <property name="single_line_mode">False</property>
+                     <property name="angle">0</property>
+                   </widget>
+                   <packing>
+                     <property name="type">label_item</property>
+                   </packing>
+                 </child>
+               </widget>
+               <packing>
+                 <property name="padding">0</property>
+                 <property name="expand">False</property>
+                 <property name="fill">False</property>
+               </packing>
+             </child>
+
+             <child>
+               <widget class="GtkFrame" id="frame6">
+                 <property name="visible">True</property>
+                 <property name="label_xalign">0</property>
+                 <property name="label_yalign">0.5</property>
+                 <property name="shadow_type">GTK_SHADOW_NONE</property>
+
+                 <child>
+                   <widget class="GtkAlignment" id="alignment8">
+                     <property name="border_width">8</property>
+                     <property name="visible">True</property>
+                     <property name="xalign">0.5</property>
+                     <property name="yalign">0.5</property>
+                     <property name="xscale">1</property>
+                     <property name="yscale">1</property>
+                     <property name="top_padding">0</property>
+                     <property name="bottom_padding">0</property>
+                     <property name="left_padding">12</property>
+                     <property name="right_padding">5</property>
+
+                     <child>
+                       <widget class="GtkVBox" id="vbox11">
+                         <property name="visible">True</property>
+                         <property name="homogeneous">False</property>
+                         <property name="spacing">0</property>
+
+                         <child>
+                           <widget class="GtkEntry" id="entry_bconsole">
+                             <property name="visible">True</property>
+                             <property name="can_focus">True</property>
+                             <property name="editable">True</property>
+                             <property name="visibility">True</property>
+                             <property name="max_length">0</property>
+                             <property name="text" translatable="yes">/usr/local/bacula/etc/bconsole</property>
+                             <property name="has_frame">True</property>
+                             <property name="invisible_char">*</property>
+                             <property name="activates_default">False</property>
+                           </widget>
+                           <packing>
+                             <property name="padding">0</property>
+                             <property name="expand">False</property>
+                             <property name="fill">False</property>
+                           </packing>
+                         </child>
+                       </widget>
+                     </child>
+                   </widget>
+                 </child>
+
+                 <child>
+                   <widget class="GtkLabel" id="label28">
+                     <property name="visible">True</property>
+                     <property name="label" translatable="yes">&lt;b&gt;bconsole command&lt;/b&gt;</property>
+                     <property name="use_underline">False</property>
+                     <property name="use_markup">True</property>
+                     <property name="justify">GTK_JUSTIFY_LEFT</property>
+                     <property name="wrap">False</property>
+                     <property name="selectable">False</property>
+                     <property name="xalign">0.5</property>
+                     <property name="yalign">0.5</property>
+                     <property name="xpad">0</property>
+                     <property name="ypad">0</property>
+                     <property name="ellipsize">PANGO_ELLIPSIZE_NONE</property>
+                     <property name="width_chars">-1</property>
+                     <property name="single_line_mode">False</property>
+                     <property name="angle">0</property>
+                   </widget>
+                   <packing>
+                     <property name="type">label_item</property>
+                   </packing>
+                 </child>
+               </widget>
+               <packing>
+                 <property name="padding">0</property>
+                 <property name="expand">True</property>
+                 <property name="fill">True</property>
+               </packing>
+             </child>
+
+             <child>
+               <widget class="GtkFrame" id="frame9">
+                 <property name="visible">True</property>
+                 <property name="label_xalign">0</property>
+                 <property name="label_yalign">0.5</property>
+                 <property name="shadow_type">GTK_SHADOW_NONE</property>
+
+                 <child>
+                   <widget class="GtkAlignment" id="alignment12">
+                     <property name="border_width">8</property>
+                     <property name="visible">True</property>
+                     <property name="xalign">0.5</property>
+                     <property name="yalign">0.5</property>
+                     <property name="xscale">1</property>
+                     <property name="yscale">1</property>
+                     <property name="top_padding">0</property>
+                     <property name="bottom_padding">0</property>
+                     <property name="left_padding">12</property>
+                     <property name="right_padding">5</property>
+
+                     <child>
+                       <widget class="GtkEntry" id="entry_default_restore_job">
+                         <property name="visible">True</property>
+                         <property name="can_focus">True</property>
+                         <property name="editable">True</property>
+                         <property name="visibility">True</property>
+                         <property name="max_length">0</property>
+                         <property name="text" translatable="yes">RestoreFiles</property>
+                         <property name="has_frame">True</property>
+                         <property name="invisible_char">●</property>
+                         <property name="activates_default">False</property>
+                       </widget>
+                     </child>
+                   </widget>
+                 </child>
+
+                 <child>
+                   <widget class="GtkLabel" id="label41">
+                     <property name="visible">True</property>
+                     <property name="label" translatable="yes">&lt;b&gt;Default restore job&lt;/b&gt;</property>
+                     <property name="use_underline">False</property>
+                     <property name="use_markup">True</property>
+                     <property name="justify">GTK_JUSTIFY_LEFT</property>
+                     <property name="wrap">False</property>
+                     <property name="selectable">False</property>
+                     <property name="xalign">0.5</property>
+                     <property name="yalign">0.5</property>
+                     <property name="xpad">0</property>
+                     <property name="ypad">0</property>
+                     <property name="ellipsize">PANGO_ELLIPSIZE_NONE</property>
+                     <property name="width_chars">-1</property>
+                     <property name="single_line_mode">False</property>
+                     <property name="angle">0</property>
+                   </widget>
+                   <packing>
+                     <property name="type">label_item</property>
+                   </packing>
+                 </child>
+               </widget>
+               <packing>
+                 <property name="padding">0</property>
+                 <property name="expand">True</property>
+                 <property name="fill">True</property>
+               </packing>
+             </child>
+
+             <child>
+               <widget class="GtkFrame" id="frame14">
+                 <property name="visible">True</property>
+                 <property name="label_xalign">0</property>
+                 <property name="label_yalign">0.5</property>
+                 <property name="shadow_type">GTK_SHADOW_NONE</property>
+
+                 <child>
+                   <widget class="GtkAlignment" id="alignment17">
+                     <property name="visible">True</property>
+                     <property name="xalign">0.5</property>
+                     <property name="yalign">0.5</property>
+                     <property name="xscale">1</property>
+                     <property name="yscale">1</property>
+                     <property name="top_padding">0</property>
+                     <property name="bottom_padding">0</property>
+                     <property name="left_padding">12</property>
+                     <property name="right_padding">0</property>
+
+                     <child>
+                       <widget class="GtkTable" id="table3">
+                         <property name="visible">True</property>
+                         <property name="n_rows">2</property>
+                         <property name="n_columns">2</property>
+                         <property name="homogeneous">False</property>
+                         <property name="row_spacing">3</property>
+                         <property name="column_spacing">3</property>
+
+                         <child>
+                           <widget class="GtkLabel" id="label48">
+                             <property name="visible">True</property>
+                             <property name="label" translatable="yes">Bweb url :</property>
+                             <property name="use_underline">False</property>
+                             <property name="use_markup">False</property>
+                             <property name="justify">GTK_JUSTIFY_LEFT</property>
+                             <property name="wrap">False</property>
+                             <property name="selectable">False</property>
+                             <property name="xalign">0</property>
+                             <property name="yalign">0.5</property>
+                             <property name="xpad">0</property>
+                             <property name="ypad">0</property>
+                             <property name="ellipsize">PANGO_ELLIPSIZE_NONE</property>
+                             <property name="width_chars">-1</property>
+                             <property name="single_line_mode">False</property>
+                             <property name="angle">0</property>
+                           </widget>
+                           <packing>
+                             <property name="left_attach">0</property>
+                             <property name="right_attach">1</property>
+                             <property name="top_attach">0</property>
+                             <property name="bottom_attach">1</property>
+                             <property name="x_options">fill</property>
+                             <property name="y_options"></property>
+                           </packing>
+                         </child>
+
+                         <child>
+                           <widget class="GtkLabel" id="label49">
+                             <property name="visible">True</property>
+                             <property name="label" translatable="yes">Mozilla path :</property>
+                             <property name="use_underline">False</property>
+                             <property name="use_markup">False</property>
+                             <property name="justify">GTK_JUSTIFY_LEFT</property>
+                             <property name="wrap">False</property>
+                             <property name="selectable">False</property>
+                             <property name="xalign">0</property>
+                             <property name="yalign">0.5</property>
+                             <property name="xpad">0</property>
+                             <property name="ypad">0</property>
+                             <property name="ellipsize">PANGO_ELLIPSIZE_NONE</property>
+                             <property name="width_chars">-1</property>
+                             <property name="single_line_mode">False</property>
+                             <property name="angle">0</property>
+                           </widget>
+                           <packing>
+                             <property name="left_attach">0</property>
+                             <property name="right_attach">1</property>
+                             <property name="top_attach">1</property>
+                             <property name="bottom_attach">2</property>
+                             <property name="x_options">fill</property>
+                             <property name="y_options"></property>
+                           </packing>
+                         </child>
+
+                         <child>
+                           <widget class="GtkEntry" id="entry_bweb">
+                             <property name="visible">True</property>
+                             <property name="tooltip" translatable="yes">http://bacula-dir/cgi-bin/bweb/bweb.pl</property>
+                             <property name="can_focus">True</property>
+                             <property name="editable">True</property>
+                             <property name="visibility">True</property>
+                             <property name="max_length">0</property>
+                             <property name="text" translatable="yes"></property>
+                             <property name="has_frame">True</property>
+                             <property name="invisible_char">●</property>
+                             <property name="activates_default">False</property>
+                           </widget>
+                           <packing>
+                             <property name="left_attach">1</property>
+                             <property name="right_attach">2</property>
+                             <property name="top_attach">0</property>
+                             <property name="bottom_attach">1</property>
+                             <property name="y_options"></property>
+                           </packing>
+                         </child>
+
+                         <child>
+                           <widget class="GtkEntry" id="entry_mozilla">
+                             <property name="visible">True</property>
+                             <property name="tooltip" translatable="yes">/path/to/mozilla</property>
+                             <property name="can_focus">True</property>
+                             <property name="editable">True</property>
+                             <property name="visibility">True</property>
+                             <property name="max_length">0</property>
+                             <property name="text" translatable="yes"></property>
+                             <property name="has_frame">True</property>
+                             <property name="invisible_char">●</property>
+                             <property name="activates_default">False</property>
+                           </widget>
+                           <packing>
+                             <property name="left_attach">1</property>
+                             <property name="right_attach">2</property>
+                             <property name="top_attach">1</property>
+                             <property name="bottom_attach">2</property>
+                             <property name="y_options"></property>
+                           </packing>
+                         </child>
+                       </widget>
+                     </child>
+                   </widget>
+                 </child>
+
+                 <child>
+                   <widget class="GtkLabel" id="label47">
+                     <property name="visible">True</property>
+                     <property name="label" translatable="yes">&lt;b&gt;Follow  restoration&lt;/b&gt;</property>
+                     <property name="use_underline">False</property>
+                     <property name="use_markup">True</property>
+                     <property name="justify">GTK_JUSTIFY_LEFT</property>
+                     <property name="wrap">False</property>
+                     <property name="selectable">False</property>
+                     <property name="xalign">0.5</property>
+                     <property name="yalign">0.5</property>
+                     <property name="xpad">0</property>
+                     <property name="ypad">0</property>
+                     <property name="ellipsize">PANGO_ELLIPSIZE_NONE</property>
+                     <property name="width_chars">-1</property>
+                     <property name="single_line_mode">False</property>
+                     <property name="angle">0</property>
+                   </widget>
+                   <packing>
+                     <property name="type">label_item</property>
+                   </packing>
+                 </child>
+               </widget>
+               <packing>
+                 <property name="padding">0</property>
+                 <property name="expand">True</property>
+                 <property name="fill">True</property>
+               </packing>
+             </child>
+           </widget>
+           <packing>
+             <property name="tab_expand">False</property>
+             <property name="tab_fill">True</property>
+           </packing>
+         </child>
+
+         <child>
+           <widget class="GtkLabel" id="label22">
+             <property name="visible">True</property>
+             <property name="label" translatable="yes">Bacula connection</property>
+             <property name="use_underline">False</property>
+             <property name="use_markup">False</property>
+             <property name="justify">GTK_JUSTIFY_LEFT</property>
+             <property name="wrap">False</property>
+             <property name="selectable">False</property>
+             <property name="xalign">0.5</property>
+             <property name="yalign">0.5</property>
+             <property name="xpad">0</property>
+             <property name="ypad">0</property>
+             <property name="ellipsize">PANGO_ELLIPSIZE_NONE</property>
+             <property name="width_chars">-1</property>
+             <property name="single_line_mode">False</property>
+             <property name="angle">0</property>
+           </widget>
+           <packing>
+             <property name="type">tab</property>
+           </packing>
+         </child>
+       </widget>
+       <packing>
+         <property name="padding">0</property>
+         <property name="expand">True</property>
+         <property name="fill">True</property>
+       </packing>
+      </child>
+    </widget>
+  </child>
+</widget>
+
+<widget class="GtkWindow" id="dlg_version">
+  <property name="title" translatable="yes">Versions</property>
+  <property name="type">GTK_WINDOW_TOPLEVEL</property>
+  <property name="window_position">GTK_WIN_POS_NONE</property>
+  <property name="modal">False</property>
+  <property name="default_width">650</property>
+  <property name="default_height">270</property>
+  <property name="resizable">True</property>
+  <property name="destroy_with_parent">False</property>
+  <property name="decorated">True</property>
+  <property name="skip_taskbar_hint">False</property>
+  <property name="skip_pager_hint">False</property>
+  <property name="type_hint">GDK_WINDOW_TYPE_HINT_NORMAL</property>
+  <property name="gravity">GDK_GRAVITY_NORTH_WEST</property>
+  <property name="focus_on_map">True</property>
+  <property name="urgency_hint">False</property>
+
+  <child>
+    <widget class="GtkVBox" id="vbox7">
+      <property name="visible">True</property>
+      <property name="homogeneous">False</property>
+      <property name="spacing">0</property>
+
+      <child>
+       <widget class="GtkFrame" id="frame2">
+         <property name="visible">True</property>
+         <property name="label_xalign">0</property>
+         <property name="label_yalign">0.5</property>
+         <property name="shadow_type">GTK_SHADOW_NONE</property>
+
+         <child>
+           <widget class="GtkAlignment" id="alignment3">
+             <property name="visible">True</property>
+             <property name="xalign">0.5</property>
+             <property name="yalign">0.5</property>
+             <property name="xscale">1</property>
+             <property name="yscale">1</property>
+             <property name="top_padding">0</property>
+             <property name="bottom_padding">0</property>
+             <property name="left_padding">12</property>
+             <property name="right_padding">0</property>
+
+             <child>
+               <widget class="GtkVBox" id="vbox8">
+                 <property name="visible">True</property>
+                 <property name="homogeneous">False</property>
+                 <property name="spacing">3</property>
+
+                 <child>
+                   <widget class="GtkScrolledWindow" id="scrolledwindow3">
+                     <property name="visible">True</property>
+                     <property name="can_focus">True</property>
+                     <property name="hscrollbar_policy">GTK_POLICY_AUTOMATIC</property>
+                     <property name="vscrollbar_policy">GTK_POLICY_AUTOMATIC</property>
+                     <property name="shadow_type">GTK_SHADOW_ETCHED_IN</property>
+                     <property name="window_placement">GTK_CORNER_TOP_LEFT</property>
+                     <signal name="key_release_event" handler="on_forward_keypress" last_modification_time="Tue, 23 May 2006 11:46:34 GMT"/>
+
+                     <child>
+                       <widget class="GtkTreeView" id="version_fileview">
+                         <property name="visible">True</property>
+                         <property name="can_focus">True</property>
+                         <property name="has_focus">True</property>
+                         <property name="headers_visible">True</property>
+                         <property name="rules_hint">True</property>
+                         <property name="reorderable">False</property>
+                         <property name="enable_search">True</property>
+                         <property name="fixed_height_mode">False</property>
+                         <property name="hover_selection">False</property>
+                         <property name="hover_expand">False</property>
+                         <signal name="drag_data_get" handler="fileview_data_get" last_modification_time="Wed, 31 May 2006 19:57:12 GMT"/>
+                       </widget>
+                     </child>
+                   </widget>
+                   <packing>
+                     <property name="padding">0</property>
+                     <property name="expand">True</property>
+                     <property name="fill">True</property>
+                   </packing>
+                 </child>
+               </widget>
+             </child>
+           </widget>
+         </child>
+
+         <child>
+           <widget class="GtkLabel" id="version_label">
+             <property name="visible">True</property>
+             <property name="label" translatable="yes">&lt;b&gt;File revisions&lt;/b&gt;</property>
+             <property name="use_underline">False</property>
+             <property name="use_markup">True</property>
+             <property name="justify">GTK_JUSTIFY_LEFT</property>
+             <property name="wrap">False</property>
+             <property name="selectable">False</property>
+             <property name="xalign">0.5</property>
+             <property name="yalign">0.5</property>
+             <property name="xpad">0</property>
+             <property name="ypad">0</property>
+             <property name="ellipsize">PANGO_ELLIPSIZE_NONE</property>
+             <property name="width_chars">-1</property>
+             <property name="single_line_mode">False</property>
+             <property name="angle">0</property>
+           </widget>
+           <packing>
+             <property name="type">label_item</property>
+           </packing>
+         </child>
+       </widget>
+       <packing>
+         <property name="padding">0</property>
+         <property name="expand">True</property>
+         <property name="fill">True</property>
+       </packing>
+      </child>
+
+      <child>
+       <widget class="GtkHSeparator" id="hseparator3">
+         <property name="visible">True</property>
+       </widget>
+       <packing>
+         <property name="padding">0</property>
+         <property name="expand">False</property>
+         <property name="fill">True</property>
+       </packing>
+      </child>
+
+      <child>
+       <widget class="GtkHButtonBox" id="hbuttonbox1">
+         <property name="border_width">3</property>
+         <property name="visible">True</property>
+         <property name="layout_style">GTK_BUTTONBOX_END</property>
+         <property name="spacing">3</property>
+
+         <child>
+           <widget class="GtkButton" id="button2">
+             <property name="visible">True</property>
+             <property name="can_default">True</property>
+             <property name="can_focus">True</property>
+             <property name="label">gtk-close</property>
+             <property name="use_stock">True</property>
+             <property name="relief">GTK_RELIEF_NORMAL</property>
+             <property name="focus_on_click">True</property>
+             <signal name="clicked" handler="on_versions_close_clicked" last_modification_time="Sun, 28 May 2006 21:08:14 GMT"/>
+           </widget>
+         </child>
+       </widget>
+       <packing>
+         <property name="padding">0</property>
+         <property name="expand">False</property>
+         <property name="fill">True</property>
+       </packing>
+      </child>
+    </widget>
+  </child>
+</widget>
+
+<widget class="GtkMenu" id="filelist_file_menu">
+
+  <child>
+    <widget class="GtkMenuItem" id="add__to_the_restore_list1">
+      <property name="visible">True</property>
+      <property name="label" translatable="yes">Add to the restore list</property>
+      <property name="use_underline">True</property>
+      <signal name="activate" handler="context_add_to_filelist" last_modification_time="Tue, 30 May 2006 19:21:52 GMT"/>
+    </widget>
+  </child>
+
+  <child>
+    <widget class="GtkMenuItem" id="see_all_versions1">
+      <property name="visible">True</property>
+      <property name="label" translatable="yes">See all versions</property>
+      <property name="use_underline">True</property>
+      <signal name="activate" handler="on_see_all_version" last_modification_time="Tue, 30 May 2006 19:21:52 GMT"/>
+    </widget>
+  </child>
+</widget>
+
+<widget class="GtkMenu" id="filelist_dir_menu">
+
+  <child>
+    <widget class="GtkMenuItem" id="add_to_restore_list1">
+      <property name="visible">True</property>
+      <property name="label" translatable="yes">Add to restore list</property>
+      <property name="use_underline">True</property>
+      <signal name="activate" handler="context_add_to_filelist" last_modification_time="Tue, 30 May 2006 19:23:17 GMT"/>
+    </widget>
+  </child>
+</widget>
+
+<widget class="GtkDialog" id="dlg_launch">
+  <property name="visible">True</property>
+  <property name="title" translatable="yes">Ready to submit to bacula ?</property>
+  <property name="type">GTK_WINDOW_TOPLEVEL</property>
+  <property name="window_position">GTK_WIN_POS_NONE</property>
+  <property name="modal">False</property>
+  <property name="resizable">False</property>
+  <property name="destroy_with_parent">False</property>
+  <property name="decorated">True</property>
+  <property name="skip_taskbar_hint">False</property>
+  <property name="skip_pager_hint">False</property>
+  <property name="type_hint">GDK_WINDOW_TYPE_HINT_DIALOG</property>
+  <property name="gravity">GDK_GRAVITY_NORTH_WEST</property>
+  <property name="focus_on_map">True</property>
+  <property name="urgency_hint">False</property>
+  <property name="has_separator">True</property>
+
+  <child internal-child="vbox">
+    <widget class="GtkVBox" id="dialog-vbox4">
+      <property name="visible">True</property>
+      <property name="homogeneous">False</property>
+      <property name="spacing">0</property>
+
+      <child internal-child="action_area">
+       <widget class="GtkHButtonBox" id="dialog-action_area4">
+         <property name="visible">True</property>
+         <property name="layout_style">GTK_BUTTONBOX_END</property>
+
+         <child>
+           <widget class="GtkButton" id="cancelbutton2">
+             <property name="visible">True</property>
+             <property name="can_default">True</property>
+             <property name="can_focus">True</property>
+             <property name="label">gtk-cancel</property>
+             <property name="use_stock">True</property>
+             <property name="relief">GTK_RELIEF_NORMAL</property>
+             <property name="focus_on_click">True</property>
+             <property name="response_id">-6</property>
+             <signal name="clicked" handler="on_cancel_resto_clicked" last_modification_time="Sun, 11 Jun 2006 15:08:51 GMT"/>
+           </widget>
+         </child>
+
+         <child>
+           <widget class="GtkButton" id="okbutton3">
+             <property name="visible">True</property>
+             <property name="can_default">True</property>
+             <property name="can_focus">True</property>
+             <property name="label">gtk-ok</property>
+             <property name="use_stock">True</property>
+             <property name="relief">GTK_RELIEF_NORMAL</property>
+             <property name="focus_on_click">True</property>
+             <property name="response_id">-5</property>
+             <signal name="clicked" handler="on_submit_resto_clicked" last_modification_time="Sun, 11 Jun 2006 15:08:32 GMT"/>
+           </widget>
+         </child>
+       </widget>
+       <packing>
+         <property name="padding">0</property>
+         <property name="expand">False</property>
+         <property name="fill">True</property>
+         <property name="pack_type">GTK_PACK_END</property>
+       </packing>
+      </child>
+
+      <child>
+       <widget class="GtkVBox" id="vbox13">
+         <property name="visible">True</property>
+         <property name="homogeneous">False</property>
+         <property name="spacing">0</property>
+
+         <child>
+           <widget class="GtkFrame" id="frame8">
+             <property name="visible">True</property>
+             <property name="label_xalign">0</property>
+             <property name="label_yalign">0.5</property>
+             <property name="shadow_type">GTK_SHADOW_NONE</property>
+
+             <child>
+               <widget class="GtkAlignment" id="alignment11">
+                 <property name="visible">True</property>
+                 <property name="xalign">0.5</property>
+                 <property name="yalign">0.5</property>
+                 <property name="xscale">1</property>
+                 <property name="yscale">1</property>
+                 <property name="top_padding">0</property>
+                 <property name="bottom_padding">0</property>
+                 <property name="left_padding">12</property>
+                 <property name="right_padding">0</property>
+
+                 <child>
+                   <widget class="GtkHBox" id="hbox11">
+                     <property name="visible">True</property>
+                     <property name="homogeneous">False</property>
+                     <property name="spacing">0</property>
+
+                     <child>
+                       <widget class="GtkLabel" id="label33">
+                         <property name="visible">True</property>
+                         <property name="label" translatable="yes">This job will use following volume(s) : </property>
+                         <property name="use_underline">False</property>
+                         <property name="use_markup">False</property>
+                         <property name="justify">GTK_JUSTIFY_LEFT</property>
+                         <property name="wrap">False</property>
+                         <property name="selectable">False</property>
+                         <property name="xalign">0.5</property>
+                         <property name="yalign">0.5</property>
+                         <property name="xpad">0</property>
+                         <property name="ypad">10</property>
+                         <property name="ellipsize">PANGO_ELLIPSIZE_NONE</property>
+                         <property name="width_chars">-1</property>
+                         <property name="single_line_mode">False</property>
+                         <property name="angle">0</property>
+                       </widget>
+                       <packing>
+                         <property name="padding">0</property>
+                         <property name="expand">False</property>
+                         <property name="fill">False</property>
+                       </packing>
+                     </child>
+
+                     <child>
+                       <widget class="GtkScrolledWindow" id="scrolledwindow6">
+                         <property name="border_width">3</property>
+                         <property name="visible">True</property>
+                         <property name="can_focus">True</property>
+                         <property name="hscrollbar_policy">GTK_POLICY_NEVER</property>
+                         <property name="vscrollbar_policy">GTK_POLICY_NEVER</property>
+                         <property name="shadow_type">GTK_SHADOW_IN</property>
+                         <property name="window_placement">GTK_CORNER_TOP_LEFT</property>
+
+                         <child>
+                           <widget class="GtkTreeView" id="volumeview">
+                             <property name="visible">True</property>
+                             <property name="headers_visible">True</property>
+                             <property name="rules_hint">False</property>
+                             <property name="reorderable">False</property>
+                             <property name="enable_search">False</property>
+                             <property name="fixed_height_mode">False</property>
+                             <property name="hover_selection">False</property>
+                             <property name="hover_expand">False</property>
+                           </widget>
+                         </child>
+                       </widget>
+                       <packing>
+                         <property name="padding">0</property>
+                         <property name="expand">True</property>
+                         <property name="fill">True</property>
+                       </packing>
+                     </child>
+                   </widget>
+                 </child>
+               </widget>
+             </child>
+
+             <child>
+               <widget class="GtkLabel" id="label35">
+                 <property name="visible">True</property>
+                 <property name="label" translatable="yes">&lt;b&gt;Informations&lt;/b&gt;</property>
+                 <property name="use_underline">False</property>
+                 <property name="use_markup">True</property>
+                 <property name="justify">GTK_JUSTIFY_LEFT</property>
+                 <property name="wrap">False</property>
+                 <property name="selectable">False</property>
+                 <property name="xalign">0.5</property>
+                 <property name="yalign">0.5</property>
+                 <property name="xpad">0</property>
+                 <property name="ypad">0</property>
+                 <property name="ellipsize">PANGO_ELLIPSIZE_NONE</property>
+                 <property name="width_chars">-1</property>
+                 <property name="single_line_mode">False</property>
+                 <property name="angle">0</property>
+               </widget>
+               <packing>
+                 <property name="type">label_item</property>
+               </packing>
+             </child>
+           </widget>
+           <packing>
+             <property name="padding">0</property>
+             <property name="expand">True</property>
+             <property name="fill">True</property>
+           </packing>
+         </child>
+
+         <child>
+           <widget class="GtkFrame" id="frame7">
+             <property name="visible">True</property>
+             <property name="label_xalign">0</property>
+             <property name="label_yalign">0.5</property>
+             <property name="shadow_type">GTK_SHADOW_NONE</property>
+
+             <child>
+               <widget class="GtkAlignment" id="alignment10">
+                 <property name="border_width">3</property>
+                 <property name="visible">True</property>
+                 <property name="xalign">0.5</property>
+                 <property name="yalign">0.5</property>
+                 <property name="xscale">1</property>
+                 <property name="yscale">1</property>
+                 <property name="top_padding">5</property>
+                 <property name="bottom_padding">0</property>
+                 <property name="left_padding">20</property>
+                 <property name="right_padding">30</property>
+
+                 <child>
+                   <widget class="GtkHBox" id="hbox12">
+                     <property name="visible">True</property>
+                     <property name="homogeneous">False</property>
+                     <property name="spacing">10</property>
+
+                     <child>
+                       <widget class="GtkComboBox" id="combo_launch_client">
+                         <property name="visible">True</property>
+                         <property name="add_tearoffs">True</property>
+                         <property name="focus_on_click">True</property>
+                       </widget>
+                       <packing>
+                         <property name="padding">0</property>
+                         <property name="expand">False</property>
+                         <property name="fill">True</property>
+                       </packing>
+                     </child>
+
+                     <child>
+                       <widget class="GtkEntry" id="entry_launch_where">
+                         <property name="visible">True</property>
+                         <property name="tooltip" translatable="yes">Where to restore</property>
+                         <property name="can_focus">True</property>
+                         <property name="editable">True</property>
+                         <property name="visibility">True</property>
+                         <property name="max_length">0</property>
+                         <property name="text" translatable="yes">/tmp/bacula-restore</property>
+                         <property name="has_frame">True</property>
+                         <property name="invisible_char">*</property>
+                         <property name="activates_default">False</property>
+                       </widget>
+                       <packing>
+                         <property name="padding">0</property>
+                         <property name="expand">True</property>
+                         <property name="fill">True</property>
+                       </packing>
+                     </child>
+                   </widget>
+                 </child>
+               </widget>
+             </child>
+
+             <child>
+               <widget class="GtkLabel" id="label34">
+                 <property name="visible">True</property>
+                 <property name="label" translatable="yes">&lt;b&gt;Destination&lt;/b&gt;</property>
+                 <property name="use_underline">False</property>
+                 <property name="use_markup">True</property>
+                 <property name="justify">GTK_JUSTIFY_LEFT</property>
+                 <property name="wrap">False</property>
+                 <property name="selectable">False</property>
+                 <property name="xalign">0.5</property>
+                 <property name="yalign">0.5</property>
+                 <property name="xpad">0</property>
+                 <property name="ypad">0</property>
+                 <property name="ellipsize">PANGO_ELLIPSIZE_NONE</property>
+                 <property name="width_chars">-1</property>
+                 <property name="single_line_mode">False</property>
+                 <property name="angle">0</property>
+               </widget>
+               <packing>
+                 <property name="type">label_item</property>
+               </packing>
+             </child>
+           </widget>
+           <packing>
+             <property name="padding">0</property>
+             <property name="expand">False</property>
+             <property name="fill">True</property>
+           </packing>
+         </child>
+
+         <child>
+           <widget class="GtkExpander" id="expander1">
+             <property name="border_width">3</property>
+             <property name="visible">True</property>
+             <property name="can_focus">True</property>
+             <property name="expanded">False</property>
+             <property name="spacing">0</property>
+
+             <child>
+               <widget class="GtkAlignment" id="alignment9">
+                 <property name="visible">True</property>
+                 <property name="xalign">0.5</property>
+                 <property name="yalign">0.5</property>
+                 <property name="xscale">1</property>
+                 <property name="yscale">1</property>
+                 <property name="top_padding">3</property>
+                 <property name="bottom_padding">3</property>
+                 <property name="left_padding">12</property>
+                 <property name="right_padding">5</property>
+
+                 <child>
+                   <widget class="GtkTable" id="table1">
+                     <property name="visible">True</property>
+                     <property name="n_rows">4</property>
+                     <property name="n_columns">2</property>
+                     <property name="homogeneous">False</property>
+                     <property name="row_spacing">5</property>
+                     <property name="column_spacing">15</property>
+
+                     <child>
+                       <widget class="GtkCheckButton" id="chkbp_launch_replace">
+                         <property name="visible">True</property>
+                         <property name="can_focus">True</property>
+                         <property name="label" translatable="yes">Replace</property>
+                         <property name="use_underline">True</property>
+                         <property name="relief">GTK_RELIEF_NORMAL</property>
+                         <property name="focus_on_click">True</property>
+                         <property name="active">False</property>
+                         <property name="inconsistent">False</property>
+                         <property name="draw_indicator">True</property>
+                       </widget>
+                       <packing>
+                         <property name="left_attach">0</property>
+                         <property name="right_attach">1</property>
+                         <property name="top_attach">0</property>
+                         <property name="bottom_attach">1</property>
+                         <property name="x_options">fill</property>
+                         <property name="y_options"></property>
+                       </packing>
+                     </child>
+
+                     <child>
+                       <widget class="GtkLabel" id="label38">
+                         <property name="visible">True</property>
+                         <property name="label" translatable="yes">Storage</property>
+                         <property name="use_underline">False</property>
+                         <property name="use_markup">False</property>
+                         <property name="justify">GTK_JUSTIFY_LEFT</property>
+                         <property name="wrap">False</property>
+                         <property name="selectable">False</property>
+                         <property name="xalign">0</property>
+                         <property name="yalign">0.5</property>
+                         <property name="xpad">0</property>
+                         <property name="ypad">0</property>
+                         <property name="ellipsize">PANGO_ELLIPSIZE_NONE</property>
+                         <property name="width_chars">-1</property>
+                         <property name="single_line_mode">False</property>
+                         <property name="angle">0</property>
+                       </widget>
+                       <packing>
+                         <property name="left_attach">1</property>
+                         <property name="right_attach">2</property>
+                         <property name="top_attach">1</property>
+                         <property name="bottom_attach">2</property>
+                         <property name="x_options">fill</property>
+                         <property name="y_options"></property>
+                       </packing>
+                     </child>
+
+                     <child>
+                       <widget class="GtkLabel" id="label39">
+                         <property name="visible">True</property>
+                         <property name="label" translatable="yes">FileSet</property>
+                         <property name="use_underline">False</property>
+                         <property name="use_markup">False</property>
+                         <property name="justify">GTK_JUSTIFY_LEFT</property>
+                         <property name="wrap">False</property>
+                         <property name="selectable">False</property>
+                         <property name="xalign">0</property>
+                         <property name="yalign">0.5</property>
+                         <property name="xpad">0</property>
+                         <property name="ypad">0</property>
+                         <property name="ellipsize">PANGO_ELLIPSIZE_NONE</property>
+                         <property name="width_chars">-1</property>
+                         <property name="single_line_mode">False</property>
+                         <property name="angle">0</property>
+                       </widget>
+                       <packing>
+                         <property name="left_attach">1</property>
+                         <property name="right_attach">2</property>
+                         <property name="top_attach">2</property>
+                         <property name="bottom_attach">3</property>
+                         <property name="x_options">fill</property>
+                         <property name="y_options"></property>
+                       </packing>
+                     </child>
+
+                     <child>
+                       <widget class="GtkLabel" id="label40">
+                         <property name="visible">True</property>
+                         <property name="label" translatable="yes">Job</property>
+                         <property name="use_underline">False</property>
+                         <property name="use_markup">False</property>
+                         <property name="justify">GTK_JUSTIFY_LEFT</property>
+                         <property name="wrap">False</property>
+                         <property name="selectable">False</property>
+                         <property name="xalign">0</property>
+                         <property name="yalign">0.5</property>
+                         <property name="xpad">0</property>
+                         <property name="ypad">0</property>
+                         <property name="ellipsize">PANGO_ELLIPSIZE_NONE</property>
+                         <property name="width_chars">-1</property>
+                         <property name="single_line_mode">False</property>
+                         <property name="angle">0</property>
+                       </widget>
+                       <packing>
+                         <property name="left_attach">1</property>
+                         <property name="right_attach">2</property>
+                         <property name="top_attach">3</property>
+                         <property name="bottom_attach">4</property>
+                         <property name="x_options">fill</property>
+                         <property name="y_options"></property>
+                       </packing>
+                     </child>
+
+                     <child>
+                       <widget class="GtkComboBox" id="combo_launch_storage">
+                         <property name="visible">True</property>
+                         <property name="add_tearoffs">False</property>
+                         <property name="focus_on_click">True</property>
+                       </widget>
+                       <packing>
+                         <property name="left_attach">0</property>
+                         <property name="right_attach">1</property>
+                         <property name="top_attach">1</property>
+                         <property name="bottom_attach">2</property>
+                         <property name="x_options">fill</property>
+                       </packing>
+                     </child>
+
+                     <child>
+                       <widget class="GtkComboBox" id="combo_launch_fileset">
+                         <property name="visible">True</property>
+                         <property name="add_tearoffs">True</property>
+                         <property name="focus_on_click">True</property>
+                       </widget>
+                       <packing>
+                         <property name="left_attach">0</property>
+                         <property name="right_attach">1</property>
+                         <property name="top_attach">2</property>
+                         <property name="bottom_attach">3</property>
+                         <property name="x_options">fill</property>
+                       </packing>
+                     </child>
+
+                     <child>
+                       <widget class="GtkComboBox" id="combo_launch_job">
+                         <property name="visible">True</property>
+                         <property name="add_tearoffs">True</property>
+                         <property name="focus_on_click">True</property>
+                       </widget>
+                       <packing>
+                         <property name="left_attach">0</property>
+                         <property name="right_attach">1</property>
+                         <property name="top_attach">3</property>
+                         <property name="bottom_attach">4</property>
+                         <property name="x_options">fill</property>
+                       </packing>
+                     </child>
+
+                     <child>
+                       <widget class="GtkHBox" id="hbox13">
+                         <property name="visible">True</property>
+                         <property name="homogeneous">False</property>
+                         <property name="spacing">3</property>
+
+                         <child>
+                           <widget class="GtkSpinButton" id="spin_launch_priority">
+                             <property name="visible">True</property>
+                             <property name="can_focus">True</property>
+                             <property name="climb_rate">1</property>
+                             <property name="digits">0</property>
+                             <property name="numeric">True</property>
+                             <property name="update_policy">GTK_UPDATE_ALWAYS</property>
+                             <property name="snap_to_ticks">False</property>
+                             <property name="wrap">False</property>
+                             <property name="adjustment">10 1 100 1 10 10</property>
+                           </widget>
+                           <packing>
+                             <property name="padding">0</property>
+                             <property name="expand">True</property>
+                             <property name="fill">True</property>
+                           </packing>
+                         </child>
+
+                         <child>
+                           <widget class="GtkLabel" id="label42">
+                             <property name="visible">True</property>
+                             <property name="label" translatable="yes">Priority</property>
+                             <property name="use_underline">False</property>
+                             <property name="use_markup">False</property>
+                             <property name="justify">GTK_JUSTIFY_LEFT</property>
+                             <property name="wrap">False</property>
+                             <property name="selectable">False</property>
+                             <property name="xalign">0.5</property>
+                             <property name="yalign">0.5</property>
+                             <property name="xpad">0</property>
+                             <property name="ypad">0</property>
+                             <property name="ellipsize">PANGO_ELLIPSIZE_NONE</property>
+                             <property name="width_chars">-1</property>
+                             <property name="single_line_mode">False</property>
+                             <property name="angle">0</property>
+                           </widget>
+                           <packing>
+                             <property name="padding">0</property>
+                             <property name="expand">False</property>
+                             <property name="fill">False</property>
+                           </packing>
+                         </child>
+                       </widget>
+                       <packing>
+                         <property name="left_attach">1</property>
+                         <property name="right_attach">2</property>
+                         <property name="top_attach">0</property>
+                         <property name="bottom_attach">1</property>
+                         <property name="x_options">fill</property>
+                         <property name="y_options">fill</property>
+                       </packing>
+                     </child>
+                   </widget>
+                 </child>
+               </widget>
+             </child>
+
+             <child>
+               <widget class="GtkLabel" id="label32">
+                 <property name="visible">True</property>
+                 <property name="label" translatable="yes">&lt;b&gt;More Options&lt;/b&gt;</property>
+                 <property name="use_underline">False</property>
+                 <property name="use_markup">True</property>
+                 <property name="justify">GTK_JUSTIFY_LEFT</property>
+                 <property name="wrap">False</property>
+                 <property name="selectable">False</property>
+                 <property name="xalign">0.5</property>
+                 <property name="yalign">0.5</property>
+                 <property name="xpad">0</property>
+                 <property name="ypad">0</property>
+                 <property name="ellipsize">PANGO_ELLIPSIZE_NONE</property>
+                 <property name="width_chars">-1</property>
+                 <property name="single_line_mode">False</property>
+                 <property name="angle">0</property>
+               </widget>
+               <packing>
+                 <property name="type">label_item</property>
+               </packing>
+             </child>
+           </widget>
+           <packing>
+             <property name="padding">0</property>
+             <property name="expand">True</property>
+             <property name="fill">True</property>
+           </packing>
+         </child>
+       </widget>
+       <packing>
+         <property name="padding">0</property>
+         <property name="expand">True</property>
+         <property name="fill">True</property>
+       </packing>
+      </child>
+    </widget>
+  </child>
+</widget>
+
+<widget class="GtkDialog" id="dlg_info">
+  <property name="title" translatable="yes">Informations</property>
+  <property name="type">GTK_WINDOW_TOPLEVEL</property>
+  <property name="window_position">GTK_WIN_POS_NONE</property>
+  <property name="modal">True</property>
+  <property name="resizable">True</property>
+  <property name="destroy_with_parent">False</property>
+  <property name="decorated">True</property>
+  <property name="skip_taskbar_hint">False</property>
+  <property name="skip_pager_hint">False</property>
+  <property name="type_hint">GDK_WINDOW_TYPE_HINT_DIALOG</property>
+  <property name="gravity">GDK_GRAVITY_NORTH_WEST</property>
+  <property name="focus_on_map">True</property>
+  <property name="urgency_hint">False</property>
+  <property name="has_separator">True</property>
+
+  <child internal-child="vbox">
+    <widget class="GtkVBox" id="dialog-vbox5">
+      <property name="visible">True</property>
+      <property name="homogeneous">False</property>
+      <property name="spacing">0</property>
+
+      <child internal-child="action_area">
+       <widget class="GtkHButtonBox" id="dialog-action_area5">
+         <property name="visible">True</property>
+         <property name="layout_style">GTK_BUTTONBOX_END</property>
+
+         <child>
+           <widget class="GtkButton" id="okbutton4">
+             <property name="visible">True</property>
+             <property name="can_default">True</property>
+             <property name="can_focus">True</property>
+             <property name="label">gtk-ok</property>
+             <property name="use_stock">True</property>
+             <property name="relief">GTK_RELIEF_NORMAL</property>
+             <property name="focus_on_click">True</property>
+             <property name="response_id">-5</property>
+             <signal name="clicked" handler="on_info_ok_clicked" last_modification_time="Mon, 12 Jun 2006 18:54:17 GMT"/>
+           </widget>
+         </child>
+       </widget>
+       <packing>
+         <property name="padding">0</property>
+         <property name="expand">False</property>
+         <property name="fill">True</property>
+         <property name="pack_type">GTK_PACK_END</property>
+       </packing>
+      </child>
+
+      <child>
+       <widget class="GtkFrame" id="frame10">
+         <property name="visible">True</property>
+         <property name="label_xalign">0</property>
+         <property name="label_yalign">0.5</property>
+         <property name="shadow_type">GTK_SHADOW_NONE</property>
+
+         <child>
+           <widget class="GtkAlignment" id="alignment13">
+             <property name="visible">True</property>
+             <property name="xalign">0.5</property>
+             <property name="yalign">0.5</property>
+             <property name="xscale">1</property>
+             <property name="yscale">1</property>
+             <property name="top_padding">0</property>
+             <property name="bottom_padding">0</property>
+             <property name="left_padding">12</property>
+             <property name="right_padding">0</property>
+
+             <child>
+               <widget class="GtkScrolledWindow" id="scrolledwindow7">
+                 <property name="border_width">3</property>
+                 <property name="visible">True</property>
+                 <property name="can_focus">True</property>
+                 <property name="hscrollbar_policy">GTK_POLICY_NEVER</property>
+                 <property name="vscrollbar_policy">GTK_POLICY_NEVER</property>
+                 <property name="shadow_type">GTK_SHADOW_IN</property>
+                 <property name="window_placement">GTK_CORNER_TOP_LEFT</property>
+
+                 <child>
+                   <widget class="GtkTextView" id="text_info">
+                     <property name="visible">True</property>
+                     <property name="can_focus">True</property>
+                     <property name="editable">False</property>
+                     <property name="overwrite">False</property>
+                     <property name="accepts_tab">True</property>
+                     <property name="justification">GTK_JUSTIFY_LEFT</property>
+                     <property name="wrap_mode">GTK_WRAP_NONE</property>
+                     <property name="cursor_visible">True</property>
+                     <property name="pixels_above_lines">0</property>
+                     <property name="pixels_below_lines">0</property>
+                     <property name="pixels_inside_wrap">0</property>
+                     <property name="left_margin">0</property>
+                     <property name="right_margin">0</property>
+                     <property name="indent">0</property>
+                     <property name="text" translatable="yes"></property>
+                   </widget>
+                 </child>
+               </widget>
+             </child>
+           </widget>
+         </child>
+
+         <child>
+           <widget class="GtkLabel" id="label43">
+             <property name="visible">True</property>
+             <property name="label" translatable="yes">&lt;b&gt;Past this in your bconsole&lt;/b&gt;</property>
+             <property name="use_underline">False</property>
+             <property name="use_markup">True</property>
+             <property name="justify">GTK_JUSTIFY_LEFT</property>
+             <property name="wrap">False</property>
+             <property name="selectable">False</property>
+             <property name="xalign">0.5</property>
+             <property name="yalign">0.5</property>
+             <property name="xpad">0</property>
+             <property name="ypad">0</property>
+             <property name="ellipsize">PANGO_ELLIPSIZE_NONE</property>
+             <property name="width_chars">-1</property>
+             <property name="single_line_mode">False</property>
+             <property name="angle">0</property>
+           </widget>
+           <packing>
+             <property name="type">label_item</property>
+           </packing>
+         </child>
+       </widget>
+       <packing>
+         <property name="padding">0</property>
+         <property name="expand">True</property>
+         <property name="fill">True</property>
+       </packing>
+      </child>
+    </widget>
+  </child>
+</widget>
+
+<widget class="GtkDialog" id="dlg_warn">
+  <property name="title" translatable="yes">Warning</property>
+  <property name="type">GTK_WINDOW_TOPLEVEL</property>
+  <property name="window_position">GTK_WIN_POS_NONE</property>
+  <property name="modal">True</property>
+  <property name="default_width">200</property>
+  <property name="resizable">True</property>
+  <property name="destroy_with_parent">True</property>
+  <property name="decorated">True</property>
+  <property name="skip_taskbar_hint">False</property>
+  <property name="skip_pager_hint">False</property>
+  <property name="type_hint">GDK_WINDOW_TYPE_HINT_DIALOG</property>
+  <property name="gravity">GDK_GRAVITY_NORTH_WEST</property>
+  <property name="focus_on_map">True</property>
+  <property name="urgency_hint">False</property>
+  <property name="has_separator">True</property>
+
+  <child internal-child="vbox">
+    <widget class="GtkVBox" id="dialog-vbox6">
+      <property name="visible">True</property>
+      <property name="homogeneous">False</property>
+      <property name="spacing">0</property>
+
+      <child internal-child="action_area">
+       <widget class="GtkHButtonBox" id="dialog-action_area6">
+         <property name="visible">True</property>
+         <property name="layout_style">GTK_BUTTONBOX_END</property>
+
+         <child>
+           <widget class="GtkButton" id="closebutton1">
+             <property name="visible">True</property>
+             <property name="can_default">True</property>
+             <property name="can_focus">True</property>
+             <property name="label">gtk-close</property>
+             <property name="use_stock">True</property>
+             <property name="relief">GTK_RELIEF_NORMAL</property>
+             <property name="focus_on_click">True</property>
+             <property name="response_id">-7</property>
+             <signal name="clicked" handler="on_close_clicked" last_modification_time="Mon, 12 Jun 2006 19:32:17 GMT"/>
+           </widget>
+         </child>
+       </widget>
+       <packing>
+         <property name="padding">0</property>
+         <property name="expand">False</property>
+         <property name="fill">True</property>
+         <property name="pack_type">GTK_PACK_END</property>
+       </packing>
+      </child>
+
+      <child>
+       <widget class="GtkHBox" id="hbox14">
+         <property name="visible">True</property>
+         <property name="homogeneous">False</property>
+         <property name="spacing">0</property>
+
+         <child>
+           <widget class="GtkImage" id="image5">
+             <property name="visible">True</property>
+             <property name="stock">gtk-dialog-warning</property>
+             <property name="icon_size">6</property>
+             <property name="xalign">0.5</property>
+             <property name="yalign">0.5</property>
+             <property name="xpad">5</property>
+             <property name="ypad">0</property>
+           </widget>
+           <packing>
+             <property name="padding">0</property>
+             <property name="expand">False</property>
+             <property name="fill">False</property>
+           </packing>
+         </child>
+
+         <child>
+           <widget class="GtkLabel" id="label_warn">
+             <property name="visible">True</property>
+             <property name="can_focus">True</property>
+             <property name="label" translatable="yes"></property>
+             <property name="use_underline">False</property>
+             <property name="use_markup">True</property>
+             <property name="justify">GTK_JUSTIFY_LEFT</property>
+             <property name="wrap">False</property>
+             <property name="selectable">True</property>
+             <property name="xalign">0.5</property>
+             <property name="yalign">0.5</property>
+             <property name="xpad">0</property>
+             <property name="ypad">0</property>
+             <property name="ellipsize">PANGO_ELLIPSIZE_NONE</property>
+             <property name="width_chars">-1</property>
+             <property name="single_line_mode">False</property>
+             <property name="angle">0</property>
+           </widget>
+           <packing>
+             <property name="padding">0</property>
+             <property name="expand">True</property>
+             <property name="fill">True</property>
+           </packing>
+         </child>
+       </widget>
+       <packing>
+         <property name="padding">0</property>
+         <property name="expand">True</property>
+         <property name="fill">True</property>
+       </packing>
+      </child>
+    </widget>
+  </child>
+</widget>
+
+</glade-interface>
diff --git a/gui/brestore/brestore.pl b/gui/brestore/brestore.pl
new file mode 100755 (executable)
index 0000000..ff107a4
--- /dev/null
+++ b/gui/brestore/brestore.pl
@@ -0,0 +1,2799 @@
+#!/usr/bin/perl -w
+use strict ;
+
+# path to your brestore.glade
+my $glade_file = 'brestore.glade' ;
+
+=head1 NAME
+
+    brestore.pl - A Perl/Gtk console for Bacula
+
+=head1 VERSION
+
+    $Id$
+
+=head1 INSTALL
+  
+  Setup ~/.brestore.conf to find your brestore.glade
+
+  On debian like system, you need :
+    - libgtk2-gladexml-perl
+    - libdbd-mysql-perl or libdbd-pg-perl
+    - libexpect-perl
+
+  To speed up database query you have to create theses indexes
+    - CREATE INDEX file_pathid on File(PathId);
+    - ...
+
+  To follow restore job, you must have a running Bweb installation.
+
+=head1 COPYRIGHT
+
+  Copyright (C) 2006 Marc Cousin and Eric Bollengier
+
+  This library is free software; you can redistribute it and/or
+  modify it under the terms of the GNU Lesser General Public
+  License as published by the Free Software Foundation; either
+  version 2 of the License, or (at your option) any later version.
+ 
+  This library is distributed in the hope that it will be useful,
+  but WITHOUT ANY WARRANTY; without even the implied warranty of
+  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+  Lesser General Public License for more details.
+  
+  You should have received a copy of the GNU Lesser General Public
+  License along with this library; if not, write to the
+  Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+  Boston, MA 02111-1307, USA.
+  
+  Base 64 functions from Karl Hakimian <hakimian@aha.com>
+  Integrally copied from recover.pl from bacula source distribution.
+
+=cut
+
+use File::Spec;                        # portable path manipulations
+use Gtk2 '-init';              # auto-initialize Gtk2
+use Gtk2::GladeXML;
+use Gtk2::SimpleList;          # easy wrapper for list views
+use Gtk2::Gdk::Keysyms;                # keyboard code constants
+use Data::Dumper qw/Dumper/;
+use DBI;
+my $debug=0;                   # can be on brestore.conf
+
+################################################################
+
+package DlgFileVersion;
+
+sub on_versions_close_clicked
+{
+    my ($self, $widget)=@_;
+    $self->{version}->destroy();
+}
+
+sub on_selection_button_press_event
+{
+    print "on_selection_button_press_event()\n";
+}
+
+sub fileview_data_get
+{
+    my ($self, $widget, $context, $data, $info, $time,$string) = @_;
+
+    DlgResto::drag_set_info($widget, 
+                           $self->{cwd},
+                           $data);
+}
+
+sub new
+{
+    my ($class, $dbh, $client, $path, $file) = @_;
+    my $self = bless {
+       cwd       => $path,
+       version   => undef, # main window
+       };
+
+    # we load version widget of $glade_file
+    my $glade_box = Gtk2::GladeXML->new($glade_file, "dlg_version");
+
+    # Connect signals magically
+    $glade_box->signal_autoconnect_from_package($self);
+
+    $glade_box->get_widget("version_label")
+       ->set_markup("<b>File revisions : $client:$path/$file</b>");
+
+    my $widget = $glade_box->get_widget('version_fileview');
+    my $fileview = Gtk2::SimpleList->new_from_treeview(
+                  $widget,
+                  'h_name'        => 'hidden',
+                   'h_jobid'       => 'hidden',
+                   'h_type'        => 'hidden',
+
+                  'InChanger'     => 'pixbuf',
+                  'Volume'        => 'text',
+                  'JobId'         => 'text',
+                  'Size'          => 'text',
+                  'Date'          => 'text',
+                  'MD5'           => 'text',
+                                                      );
+    DlgResto::init_drag_drop($fileview);
+
+    my @v = DlgResto::get_all_file_versions($dbh, 
+                                           "$path/", 
+                                           $file,
+                                           $client);
+    for my $ver (@v) {
+       my (undef,$fn,$jobid,$fileindex,$mtime,$size,$inchanger,$md5,$volname)
+           = @{$ver};
+       my $icon = ($inchanger)?$DlgResto::yesicon:$DlgResto::noicon;
+
+       DlgResto::listview_push($fileview,
+                               $file, $jobid, 'file', 
+                               $icon, $volname, $jobid, $size,
+                               scalar(localtime($mtime)), $md5);
+    }
+
+    $self->{version} = $glade_box->get_widget('dlg_version');
+    $self->{version}->show();
+    
+    return $self;
+}
+1;
+################################################################
+package DlgWarn;
+
+sub new
+{
+    my ($package, $text) = @_;
+
+    my $self = bless {};
+
+    my $glade = Gtk2::GladeXML->new($glade_file, "dlg_warn");
+
+    # Connect signals magically
+    $glade->signal_autoconnect_from_package($self);
+    $glade->get_widget('label_warn')->set_text($text);
+
+    print "$text\n";
+
+    $self->{window} = $glade->get_widget('dlg_warn');
+    $self->{window}->show_all();
+    return $self;
+}
+
+sub on_close_clicked
+{
+    my ($self) = @_;
+    $self->{window}->destroy();
+}
+1;
+
+################################################################
+
+package DlgLaunch;
+
+use Bconsole;
+
+# %arg = (bsr_file => '/path/to/bsr',       # on director
+#         volumes  => [ '00001', '00004']
+#         pref     => ref Pref
+#         );
+
+sub new
+{
+    my ($class, %arg) = @_;
+
+    my $self = bless {
+       bsr_file => $arg{bsr_file}, # /path/to/bsr on director
+       pref     => $arg{pref}, # Pref ref
+       glade => undef,         # GladeXML ref
+       bconsole => undef,      # Bconsole ref
+    };
+
+    # we load launch widget of $glade_file
+    my $glade = $self->{glade} = Gtk2::GladeXML->new($glade_file, 
+                                                    "dlg_launch");
+
+    # Connect signals magically
+    $glade->signal_autoconnect_from_package($self);
+
+    my $widget = $glade->get_widget('volumeview');
+    my $volview = Gtk2::SimpleList->new_from_treeview(
+                  $widget,
+                  'InChanger'     => 'pixbuf',
+                   'Volume'        => 'text', 
+                  );       
+
+    my $infos = get_volume_inchanger($arg{pref}->{dbh}, $arg{volumes}) ;
+    
+    # we replace 0 and 1 by $noicon and $yesicon
+    for my $i (@{$infos}) {
+       if ($i->[0] == 0) {
+           $i->[0] = $DlgResto::noicon;
+       } else {
+           $i->[0] = $DlgResto::yesicon;
+       }
+    }
+
+    # fill volume view
+    push @{ $volview->{data} }, @{$infos} ;
+
+    my $console = $self->{bconsole} = new Bconsole(pref => $arg{pref});
+
+    # fill client combobox (with director defined clients
+    my @clients = $console->list_client() ; # get from bconsole
+    if ($console->{error}) {
+       new DlgWarn("Can't use bconsole:\n$arg{pref}->{bconsole}: $console->{error}") ;
+    }
+    my $w = $self->{combo_client} = $glade->get_widget('combo_launch_client') ;
+    $self->{list_client} = DlgResto::init_combo($w, 'text');
+    DlgResto::fill_combo($self->{list_client}, 
+                        $DlgResto::client_list_empty,
+                        @clients);
+    $w->set_active(0);
+
+    # fill fileset combobox
+    my @fileset = $console->list_fileset() ;
+    $w = $self->{combo_fileset} = $glade->get_widget('combo_launch_fileset') ;
+    $self->{list_fileset} = DlgResto::init_combo($w, 'text');
+    DlgResto::fill_combo($self->{list_fileset}, '', @fileset); 
+
+    # fill job combobox
+    my @job = $console->list_job() ;
+    $w = $self->{combo_job} = $glade->get_widget('combo_launch_job') ;
+    $self->{list_job} = DlgResto::init_combo($w, 'text');
+    DlgResto::fill_combo($self->{list_job}, '', @job);
+    
+    # find default_restore_job in jobs list
+    my $default_restore_job = $arg{pref}->{default_restore_job} ;
+    my $index=0;
+    my $i=1;                   # 0 is ''
+    for my $j (@job) {
+       if ($j =~ /$default_restore_job/io) {
+           $index=$i;
+           last;
+       }
+       $i++;
+    }
+    $w->set_active($index);
+
+    # fill storage combobox
+    my @storage = $console->list_storage() ;
+    $w = $self->{combo_storage} = $glade->get_widget('combo_launch_storage') ;
+    $self->{list_storage} = DlgResto::init_combo($w, 'text');
+    DlgResto::fill_combo($self->{list_storage}, '', @storage);
+
+    $glade->get_widget('dlg_launch')->show_all();
+
+    return $self;
+}
+
+sub show_job
+{
+    my ($self, $client, $jobid) = @_;
+
+    $self->{pref}->go_bweb("?action=dsp_cur_job;jobid=$jobid;client=$client", "view job status");
+    $self->on_cancel_resto_clicked();
+}
+
+sub on_cancel_resto_clicked
+{
+    my ($self) = @_ ;
+    $self->{glade}->get_widget('dlg_launch')->destroy();
+}
+
+sub on_submit_resto_clicked
+{
+    my ($self) = @_ ;
+    my $glade = $self->{glade};
+
+    my $r = $self->copy_bsr($self->{bsr_file}, $self->{pref}->{bsr_dest}) ;
+    
+    unless ($r) {
+       new DlgWarn("Can't copy bsr file to director ($self->{error})");
+       return;
+    }
+
+    my $fileset = $glade->get_widget('combo_launch_fileset')
+                              ->get_active_text();
+
+    my $storage = $glade->get_widget('combo_launch_storage')
+                              ->get_active_text();
+
+    my $where = $glade->get_widget('entry_launch_where')->get_text();
+
+    my $job = $glade->get_widget('combo_launch_job')
+                              ->get_active_text();
+
+    if (! $job) {
+       new DlgWarn("Can't use this job");
+       return;
+    }
+
+    my $client = $glade->get_widget('combo_launch_client')
+                              ->get_active_text();
+
+    if (! $client or $client eq $DlgResto::client_list_empty) {
+       new DlgWarn("Can't use this client ($client)");
+       return;
+    }
+
+    my $prio = $glade->get_widget('spin_launch_priority')->get_value();
+
+    my $replace = $glade->get_widget('chkbp_launch_replace')->get_active();
+    $replace=($replace)?'always':'never';    
+
+    my $jobid = $self->{bconsole}->run(job => $job,
+                                      client  => $client,
+                                      storage => $storage,
+                                      fileset => $fileset,
+                                      where   => $where,
+                                      replace => $replace,
+                                      priority=> $prio,
+                                      bootstrap => $r);
+
+    $self->show_job($client, $jobid);
+}
+
+sub on_combo_storage_button_press_event
+{
+    my ($self) = @_;
+    print "on_combo_storage_button_press_event()\n";
+}
+
+sub on_combo_fileset_button_press_event
+{
+    my ($self) = @_;
+    print "on_combo_fileset_button_press_event()\n";
+
+}
+
+sub on_combo_job_button_press_event
+{
+    my ($self) = @_;
+    print "on_combo_job_button_press_event()\n";
+}
+
+sub get_volume_inchanger
+{
+    my ($dbh, $vols) = @_;
+
+    my $lst = join(',', map { $dbh->quote($_) } @{ $vols } ) ;
+
+    my $rq = "SELECT InChanger, VolumeName 
+               FROM  Media  
+               WHERE VolumeName IN ($lst)
+             ";
+
+    my $res = $dbh->selectall_arrayref($rq);
+    return $res;               # [ [ 1, VolName].. ]
+}
+
+
+use File::Copy qw/copy/;
+use File::Basename qw/basename/; 
+
+# We must kown the path+filename destination
+# $self->{error} contains error message
+# it return 0/1 if fail/success
+sub copy_bsr
+{
+    my ($self, $src, $dst) = @_ ;
+    print "$src => $dst\n"
+       if ($debug);
+
+    my $ret=0 ;
+    my $err ; 
+    my $dstfile;
+
+    if ($dst =~ m!file:/(/.+)!) {
+       $ret = copy($src, $1);
+       $err = $!;
+       $dstfile = "$1/" . basename($src) ;
+
+    } elsif ($dst =~ m!scp://([^:]+:(.+))!) {
+       $err = `scp $src $1 2>&1` ;
+       $ret = ($? == 0) ;
+       $dstfile = "$2/" . basename($src) ;
+
+    } else {
+       $ret = 0;
+       $err = "$dst not implemented yet";
+       File::Copy::copy($src, \*STDOUT);
+    }
+
+    $self->{error} = $err;
+
+    if ($ret == 0) {
+       $self->{error} = $err;
+       return '';
+
+    } else {
+       return $dstfile;
+    }
+}
+1;
+
+################################################################
+
+package DlgAbout;
+
+my $about_widget;
+
+sub display
+{
+    unless ($about_widget) {
+       my $glade_box = Gtk2::GladeXML->new($glade_file, "dlg_about") ;
+       $about_widget = $glade_box->get_widget("dlg_about") ;
+       $glade_box->signal_autoconnect_from_package('DlgAbout');
+    }
+    $about_widget->show() ;
+}
+
+sub on_about_okbutton_clicked
+{
+    $about_widget->hide() ;
+}
+
+1;
+
+################################################################
+# preference reader
+package Pref;
+
+sub new
+{
+    my ($class, $config_file) = @_;
+    
+    my $self = bless {
+       config_file => $config_file,
+       password => '',         # db passwd
+       username => '',         # db username
+       connection_string => '',# db connection string
+       bconsole => 'bconsole', # path and arg to bconsole
+       bsr_dest => '',         # destination url for bsr files
+       debug    => 0,          # debug level 0|1
+       use_ok_bkp_only => 1,   # dont use bad backup
+       bweb     => 'http://localhost/cgi-bin/bweb/bweb.pl', # bweb url
+       glade_file => $glade_file,
+       mozilla  => 'mozilla',  # mozilla bin
+       default_restore_job => 'restore', # regular expression to select default
+                                  # restore job
+
+       # keywords that are used to fill DlgPref
+       chk_keyword =>  [ qw/use_ok_bkp_only debug/ ],
+        entry_keyword => [ qw/username password bweb mozilla
+                         connection_string default_restore_job
+                         bconsole bsr_dest glade_file/],
+    };
+
+    $self->read_config();
+
+    return $self;
+}
+
+sub read_config
+{
+    my ($self) = @_;
+
+    # We read the parameters. They come from the configuration files
+    my $cfgfile ; my $tmpbuffer;
+    if (open FICCFG, $self->{config_file})
+    {
+       while(read FICCFG,$tmpbuffer,4096)
+       {
+           $cfgfile .= $tmpbuffer;
+       }
+       close FICCFG;
+       my $refparams;
+       no strict; # I have no idea of the contents of the file
+       eval '$refparams' . " = $cfgfile";
+       use strict;
+       
+       for my $p (keys %{$refparams}) {
+           $self->{$p} = $refparams->{$p};
+       }
+
+       if (defined $self->{debug}) {
+           $debug = $self->{debug} ;
+       }
+    } else {
+       # TODO : Force dumb default values and display a message
+    }
+}
+
+sub write_config
+{
+    my ($self) = @_;
+    
+    my %parameters;
+
+    for my $k (@{ $self->{entry_keyword} }) { 
+       $parameters{$k} = $self->{$k};
+    }
+
+    for my $k (@{ $self->{chk_keyword} }) { 
+       $parameters{$k} = $self->{$k};
+    }
+
+    if (open FICCFG,">$self->{config_file}")
+    {
+       print FICCFG Data::Dumper->Dump([\%parameters], [qw($parameters)]);
+       close FICCFG;
+    }
+    else
+    {
+       # TODO : Display a message
+    }
+}
+
+sub connect_db
+{
+    my $self = shift ;
+
+    if ($self->{dbh}) {
+       $self->{dbh}->disconnect() ;
+    }
+
+    delete $self->{dbh};
+    delete $self->{error};
+
+    if (not $self->{connection_string})
+    {
+       # The parameters have not been set. Maybe the conf
+       # file is empty for now
+       $self->{error} = "No configuration found for database connection. " .
+                        "Please set this up.";
+       return 0;
+    }
+    
+    if (not eval {
+       $self->{dbh} = DBI->connect($self->{connection_string}, 
+                                   $self->{username},
+                                   $self->{password})
+       })
+    {
+       $self->{error} = "Can't open bacula database. " . 
+                        "Database connect string '" . 
+                         $self->{connection_string} ."' $!";
+       return 0;
+    }
+    $self->{dbh}->{RowCacheSize}=100;
+    return 1;
+}
+
+sub go_bweb
+{    
+    my ($self, $url, $msg) = @_;
+
+    unless ($self->{mozilla} and $self->{bweb}) {
+       new DlgWarn("You must install Bweb and set your mozilla bin to $msg");
+       return;
+    }
+
+    system("$self->{mozilla} -remote 'Ping()'");
+    if ($? != 0) {
+       new DlgWarn("Warning, you must have a running $self->{mozilla} to $msg");
+       return;
+    }
+
+    my $cmd = "$self->{mozilla} -remote 'OpenURL($self->{bweb}$url,new-tab)'" ;
+    print "$cmd\n";
+    system($cmd);
+    return ($? == 0);
+}
+
+1;
+
+################################################################
+# Manage preference
+package DlgPref;
+
+# my $pref = new Pref(config_file => 'brestore.conf');
+# my $dlg = new DlgPref($pref);
+# my $dlg_resto = new DlgResto($pref);
+# $dlg->display($dlg_resto);
+sub new
+{
+    my ($class, $pref) = @_;
+
+    my $self = bless {
+       pref => $pref,          # Pref ref
+       dlgresto => undef,      # DlgResto ref
+       };
+
+    return $self;
+}
+
+sub display
+{
+    my ($self, $dlgresto) = @_ ;
+
+    unless ($self->{glade}) {
+       $self->{glade} = Gtk2::GladeXML->new($glade_file, "dlg_pref") ;
+       $self->{glade}->signal_autoconnect_from_package($self);
+    }
+
+    $self->{dlgresto} = $dlgresto;
+
+    my $g = $self->{glade};
+    my $p = $self->{pref};
+
+    for my $k (@{ $p->{entry_keyword} }) {
+       $g->get_widget("entry_$k")->set_text($p->{$k}) ;
+    }
+
+    for my $k (@{ $p->{chk_keyword} }) {
+       $g->get_widget("chkbp_$k")->set_active($p->{$k}) ;
+    }
+
+    $g->get_widget("dlg_pref")->show_all() ;
+}
+
+sub on_applybutton_clicked
+{
+    my ($self) = @_;
+    my $glade = $self->{glade};
+    my $pref  = $self->{pref};
+
+    for my $k (@{ $pref->{entry_keyword} }) {
+       my $w = $glade->get_widget("entry_$k") ;
+       $pref->{$k} = $w->get_text();
+    }
+
+    for my $k (@{ $pref->{chk_keyword} }) {
+       my $w = $glade->get_widget("chkbp_$k") ;
+       $pref->{$k} = $w->get_active();
+    }
+
+    $pref->write_config();
+    if ($pref->connect_db()) {
+       $self->{dlgresto}->set_dbh($pref->{dbh});
+        $self->{dlgresto}->set_status('Preferences updated');
+       $self->{dlgresto}->init_server_backup_combobox();
+    } else {
+       $self->{dlgresto}->set_status($pref->{error});
+    }
+}
+
+# Handle prefs ok click (apply/dismiss dialog)
+sub on_okbutton_clicked 
+{
+    my ($self) = @_;
+    $self->on_applybutton_clicked();
+
+    unless ($self->{pref}->{error}) {
+       $self->on_cancelbutton_clicked();
+    }
+}
+sub on_dialog_delete_event
+{
+    my ($self) = @_;
+    $self->on_cancelbutton_clicked();
+    1;
+}
+
+sub on_cancelbutton_clicked
+{
+    my ($self) = @_;
+    $self->{glade}->get_widget('dlg_pref')->hide();
+    delete $self->{dlgresto};
+}
+1;
+
+################################################################
+# Main Interface
+
+package DlgResto;
+
+our $diricon;
+our $fileicon;
+our $yesicon;
+our $noicon;
+
+# Kept as is from the perl-gtk example. Draws the pretty icons
+sub render_icons 
+{
+    my $self = shift;
+    unless ($diricon) {
+       my $size = 'button';
+       $diricon  = $self->{mainwin}->render_icon('gtk-open', $size); 
+       $fileicon = $self->{mainwin}->render_icon('gtk-new',  $size);
+       $yesicon  = $self->{mainwin}->render_icon('gtk-yes',  $size); 
+       $noicon   = $self->{mainwin}->render_icon('gtk-no',   $size);
+    }
+}
+
+# init combo (and create ListStore object)
+sub init_combo
+{
+    my ($widget, @type) = @_ ;
+    my %type_info = ('text' => 'Glib::String',
+                    'markup' => 'Glib::String',
+                    ) ;
+    
+    my $lst = new Gtk2::ListStore ( map { $type_info{$_} } @type );
+
+    $widget->set_model($lst);
+    my $i=0;
+    for my $t (@type) {
+       my $cell;
+       if ($t eq 'text' or $t eq 'markup') {
+           $cell = new Gtk2::CellRendererText();
+       }
+       $widget->pack_start($cell, 1);
+       $widget->add_attribute($cell, $t, $i++);
+    }
+    return $lst;
+}
+
+# fill simple combo (one element per row)
+sub fill_combo
+{
+    my ($list, @what) = @_;
+
+    $list->clear();
+    
+    foreach my $w (@what)
+    {
+       chomp($w);
+       my $i = $list->append();
+       $list->set($i, 0, $w);
+    }
+}
+
+# display Mb/Gb/Kb
+sub human
+{
+    my @unit = qw(b Kb Mb Gb Tb);
+    my $val = shift;
+    my $i=0;
+    my $format = '%i %s';
+    while ($val / 1024 > 1) {
+       $i++;
+       $val /= 1024;
+    }
+    $format = ($i>0)?'%0.1f %s':'%i %s';
+    return sprintf($format, $val, $unit[$i]);
+}
+
+sub set_dbh
+{
+    my ($self, $dbh) = @_;
+    $self->{dbh} = $dbh;
+}
+
+sub init_drag_drop
+{
+    my ($fileview) = shift;
+    my $fileview_target_entry = {target => 'STRING',
+                                flags => ['GTK_TARGET_SAME_APP'],
+                                info => 40 };
+
+    $fileview->enable_model_drag_source(['button1_mask', 'button3_mask'],
+                                       ['copy'],$fileview_target_entry);
+    $fileview->get_selection->set_mode('multiple');
+
+    # set some useful SimpleList properties    
+    $fileview->set_headers_clickable(0);
+    foreach ($fileview->get_columns()) 
+    {
+       $_->set_resizable(1);
+       $_->set_sizing('grow-only');
+    }
+}
+
+sub new
+{
+    my ($class, $pref) = @_;
+    my $self = bless { 
+       pref => $pref,
+       dirtree => undef,
+       CurrentJobIds => [],
+       location => undef,      # location entry widget
+       mainwin  => undef,      # mainwin widget
+       filelist_file_menu => undef, # file menu widget
+       filelist_dir_menu => undef,  # dir menu widget
+       glade => undef,         # glade object
+       status => undef,        # status bar widget
+       dlg_pref => undef,      # DlgPref object
+       fileattrib => {},       # cache file
+       fileview   => undef,    # fileview widget SimpleList
+       fileinfo   => undef,    # fileinfo widget SimpleList
+       cwd   => '/',
+       client_combobox => undef, # client_combobox widget
+       restore_backup_combobox => undef, # date combobox widget
+       list_client => undef,   # Gtk2::ListStore
+        list_backup => undef,   # Gtk2::ListStore
+    };
+
+    # load menu (to use handler with self reference)
+    my $glade = Gtk2::GladeXML->new($glade_file, "filelist_file_menu");
+    $glade->signal_autoconnect_from_package($self);
+    $self->{filelist_file_menu} = $glade->get_widget("filelist_file_menu");
+
+    $glade = Gtk2::GladeXML->new($glade_file, "filelist_dir_menu");
+    $glade->signal_autoconnect_from_package($self);
+    $self->{filelist_dir_menu} = $glade->get_widget("filelist_dir_menu");
+
+    $glade = $self->{glade} = Gtk2::GladeXML->new($glade_file, "dlg_resto");
+    $glade->signal_autoconnect_from_package($self);
+
+    $self->{status}  = $glade->get_widget('statusbar');
+    $self->{mainwin} = $glade->get_widget('dlg_resto');
+    $self->{location} = $glade->get_widget('entry_location');
+    $self->render_icons();
+
+    $self->{dlg_pref} = new DlgPref($pref);
+
+    my $c = $self->{client_combobox} = $glade->get_widget('combo_client');    
+    $self->{list_client} = init_combo($c, 'text');
+
+    $c = $self->{restore_backup_combobox} = $glade->get_widget('combo_list_backups');
+    $self->{list_backup} = init_combo($c, 'text', 'markup');
+ 
+    # Connect glade-fileview to Gtk2::SimpleList
+    # and set up drag n drop between $fileview and $restore_list
+
+    # WARNING : we have big dirty thinks with gtk/perl and utf8/iso strings
+    # we use an hidden field uuencoded to bypass theses bugs (h_name)
+
+    my $widget = $glade->get_widget('fileview');
+    my $fileview = $self->{fileview} = Gtk2::SimpleList->new_from_treeview(
+                                             $widget,
+                                             'h_name'        => 'hidden',
+                                             'h_jobid'       => 'hidden',
+                                             'h_type'        => 'hidden',
+
+                                             ''              => 'pixbuf',
+                                             'File Name'     => 'text',
+                                             'Size'          => 'text',
+                                             'Date'          => 'text');
+    init_drag_drop($fileview);
+    $fileview->set_search_column(4); # search on File Name
+
+    # Connect glade-restore_list to Gtk2::SimpleList
+    $widget = $glade->get_widget('restorelist');
+    my $restore_list = $self->{restore_list} = Gtk2::SimpleList->new_from_treeview(
+                                              $widget,
+                                             'h_name'        => 'hidden',
+                                              'h_jobid'       => 'hidden',
+                                             'h_type'        => 'hidden',
+                                              'h_curjobid'    => 'hidden',
+
+                                              ''              => 'pixbuf',
+                                              'File Name'     => 'text',
+                                              'JobId'         => 'text',
+                                              'FileIndex'     => 'text');
+
+    my @restore_list_target_table = ({'target' => 'STRING',
+                                     'flags' => [], 
+                                     'info' => 40 });  
+
+    $restore_list->enable_model_drag_dest(['copy'],@restore_list_target_table);
+    $restore_list->get_selection->set_mode('multiple');
+    
+    $widget = $glade->get_widget('infoview');
+    my $infoview = $self->{fileinfo} = Gtk2::SimpleList->new_from_treeview(
+                  $widget,
+                   'h_name'        => 'hidden',
+                   'h_jobid'       => 'hidden',
+                  'h_type'        => 'hidden',
+
+                  'InChanger'     => 'pixbuf',
+                  'Volume'        => 'text',
+                  'JobId'         => 'text',
+                  'Size'          => 'text',
+                  'Date'          => 'text',
+                  'MD5'           => 'text');
+
+    init_drag_drop($infoview);
+
+    $pref->connect_db() ||  $self->{dlg_pref}->display($self);
+
+    if ($pref->{dbh}) {
+       $self->{dbh} = $pref->{dbh};
+       $self->init_server_backup_combobox();
+    }
+}
+
+# set status bar informations
+sub set_status
+{
+    my ($self, $string) = @_;
+    my $context = $self->{status}->get_context_id('Main');
+    $self->{status}->push($context, $string);
+}
+
+sub on_time_select_changed
+{
+    my ($self) = @_;
+}
+
+sub get_active_time
+{
+    my ($self) = @_;
+    my $c = $self->{glade}->get_widget('combo_time');
+    return $c->get_active_text;
+}
+
+# This sub returns all clients declared in DB
+sub get_all_clients
+{
+    my $dbh = shift;
+    my $query = "SELECT Name FROM Client ORDER BY Name";
+    print $query,"\n" if $debug;
+    my $result = $dbh->selectall_arrayref($query);
+    my @return_array;
+    foreach my $refrow (@$result)
+    {
+       push @return_array,($refrow->[0]);
+    }
+    return @return_array;
+}
+
+sub get_wanted_job_status
+{
+    my ($ok_only) = @_;
+
+    if ($ok_only) {
+       return "'T'";
+    } else {
+       return "'T', 'A', 'E'";
+    }
+}
+
+# This sub gives a full list of the EndTimes for a ClientId
+# ( [ 'Date', 'FileSet', 'Type', 'Status', 'JobId'], 
+#   ['Date', 'FileSet', 'Type', 'Status', 'JobId']..)
+sub get_all_endtimes_for_job
+{
+    my ($dbh, $client, $ok_only)=@_;
+    my $status = get_wanted_job_status($ok_only);
+    my $query = "
+ SELECT Job.EndTime, FileSet.FileSet, Job.Level, Job.JobStatus, Job.JobId
+  FROM Job,Client,FileSet
+  WHERE Job.ClientId=Client.ClientId
+  AND Client.Name = '$client'
+  AND Job.Type = 'B'
+  AND JobStatus IN ($status)
+  AND Job.FileSetId = FileSet.FileSetId
+  ORDER BY EndTime desc";
+    print $query,"\n" if $debug;
+    my $result = $dbh->selectall_arrayref($query);
+
+    return @$result;
+}
+
+
+# init infoview widget
+sub clear_infoview
+{
+    my $self = shift;
+    @{$self->{fileinfo}->{data}} = ();
+}
+
+# init restore_list
+sub on_clear_clicked
+{
+    my $self = shift;
+    @{$self->{restore_list}->{data}} = ();
+}
+
+use File::Temp qw/tempfile/;
+
+sub on_go_button_clicked 
+{
+    my $self = shift;
+    my $bsr = $self->create_filelist();
+    my ($fh, $filename) = tempfile();
+    $fh->print($bsr);
+    close($fh);
+    chmod(0644, $filename);
+
+    print "Dumping BSR info to $filename\n"
+       if ($debug);
+
+    # we get Volume list
+    my %a = map { $_ => 1 } ($bsr =~ /Volume="(.+)"/g);
+    my $vol = [ keys %a ] ;    # need only one occurrence of each volume
+
+    new DlgLaunch(pref     => $self->{pref},
+                 volumes  => $vol,
+                 bsr_file => $filename,
+                 );
+
+}
+
+our $client_list_empty = 'Clients list'; 
+our %type_markup = ('F' => '<b>$label F</b>',
+                   'D' => '$label D',
+                   'I' => '$label I',
+                   'B' => '<b>$label B</b>',
+
+                   'A' => '<span foreground=\"red\">$label</span>',
+                   'T' => '$label',
+                   'E' => '<span foreground=\"red\">$label</span>',
+                   );
+
+sub on_list_client_changed 
+{
+    my ($self, $widget) = @_;
+    return 0 unless defined $self->{fileview};
+    my $dbh = $self->{dbh};
+
+    $self->{list_backup}->clear();
+
+    if ($self->current_client eq $client_list_empty) {
+       return 0 ;
+    }
+
+    my @endtimes=get_all_endtimes_for_job($dbh, 
+                                         $self->current_client,
+                                         $self->{pref}->{use_ok_bkp_only});
+    foreach my $endtime (@endtimes)
+    {
+       my $i = $self->{list_backup}->append();
+
+       my $label = $endtime->[1] . " (" . $endtime->[4] . ")";
+       eval "\$label = \"$type_markup{$endtime->[2]}\""; # job type
+       eval "\$label = \"$type_markup{$endtime->[3]}\""; # job status
+
+       $self->{list_backup}->set($i, 
+                                 0, $endtime->[0],
+                                 1, $label,
+                                 );
+    }
+    $self->{restore_backup_combobox}->set_active(0);
+
+    $self->{CurrentJobIds} = [
+                             set_job_ids_for_date($dbh,
+                                                  $self->current_client,
+                                                  $self->current_date,
+                                                  $self->{pref}->{use_ok_bkp_only})
+                             ];
+
+    $self->ch_dir('');
+
+#     undef $self->{dirtree};
+    $self->refresh_fileview();
+    0;
+}
+
+sub fill_server_list
+{
+    my ($dbh, $combo, $list) = @_;
+
+    my @clients=get_all_clients($dbh);
+
+    $list->clear();
+    
+    my $i = $list->append();
+    $list->set($i, 0, $client_list_empty);
+    
+    foreach my $client (@clients)
+    {
+       $i = $list->append();
+       $list->set($i, 0, $client);
+    }
+    $combo->set_active(0);
+}
+
+sub init_server_backup_combobox
+{
+    my $self = shift ;
+    fill_server_list($self->{dbh}, 
+                    $self->{client_combobox},
+                    $self->{list_client}) ;
+}
+
+#----------------------------------------------------------------------
+#Refreshes the file-view Redraws everything. The dir data is cached, the file
+#data isn't.  There is additionnal complexity for dirs (visibility problems),
+#so the @CurrentJobIds is not sufficient.
+sub refresh_fileview 
+{
+    my ($self) = @_;
+    my $fileview = $self->{fileview};
+    my $client_combobox = $self->{client_combobox};
+    my $cwd = $self->{cwd};
+
+    @{$fileview->{data}} = ();
+
+    $self->clear_infoview();
+    
+    my $client_name = $self->current_client;
+
+    if (!$client_name or ($client_name eq $client_list_empty)) {
+       $self->set_status("Client list empty");
+       return;
+    }
+
+    my @dirs     = $self->list_dirs($cwd,$client_name);
+    # [ [listfiles.id, listfiles.Name, File.LStat, File.JobId]..]
+    my $files    = $self->list_files($cwd); 
+    print "CWD : $cwd\n" if ($debug);
+    
+    my $file_count = 0 ;
+    my $total_bytes = 0;
+    
+    # Add directories to view
+    foreach my $dir (@dirs) {
+       my $time = localtime($self->dir_attrib("$cwd/$dir",'st_mtime'));
+       $total_bytes += 4096;
+       $file_count++;
+
+       listview_push($fileview,
+                     $dir,
+                     $self->dir_attrib("$cwd/$dir",'jobid'),
+                     'dir',
+
+                     $diricon, 
+                     $dir, 
+                     "4 Kb", 
+                     $time);
+    }
+    
+    # Add files to view 
+    foreach my $file (@$files) 
+    {
+       my $size = file_attrib($file,'st_size');
+       my $time = localtime(file_attrib($file,'st_mtime'));
+       $total_bytes += $size;
+       $file_count++;
+       # $file = [listfiles.id, listfiles.Name, File.LStat, File.JobId]
+
+       listview_push($fileview,
+                     $file->[1],
+                     $file->[3],
+                     'file',
+                     
+                     $fileicon, 
+                     $file->[1], 
+                     human($size), $time);
+    }
+    
+    $self->set_status("$file_count files/" . human($total_bytes));
+
+    # set a decent default selection (makes keyboard nav easy)
+    $fileview->select(0);
+}
+
+
+sub on_about_activate
+{
+    DlgAbout::display();
+}
+
+sub drag_set_info
+{
+    my ($tree, $path, $data) = @_;
+
+    my @items = listview_get_all($tree) ;
+    my @ret;
+    foreach my $i (@items)
+    {
+       my @file_info = @{$i};
+
+       # doc ligne 93
+        # Ok, we have a corner case :
+        # path can be empty
+        my $file;
+        if ($path eq '')
+        {
+           $file = pack("u", $file_info[0]);
+       }
+       else
+       {
+               $file = pack("u", $path . '/' . $file_info[0]);
+       }
+       push @ret, join(" ; ", $file, 
+                       $file_info[1], # $jobid
+                       $file_info[2], # $type
+                       );
+    }
+
+    my $data_get = join(" :: ", @ret);
+    
+    $data->set_text($data_get,-1);
+}
+
+sub fileview_data_get
+{
+    my ($self, $widget, $context, $data, $info, $time,$string) = @_;
+    drag_set_info($widget, $self->{cwd}, $data);
+}
+
+sub fileinfo_data_get
+{
+    my ($self, $widget, $context, $data, $info, $time,$string) = @_;
+    drag_set_info($widget, $self->{cwd}, $data);
+}
+
+sub restore_list_data_received
+{
+    my ($self, $widget, $context, $x, $y, $data, $info, $time) = @_;
+    my @ret;
+
+    if  ($info eq 40 || $info eq 0) # patch for display!=:0
+    {
+       foreach my $elt (split(/ :: /, $data->data()))
+       {
+           
+           my ($file, $jobid, $type) = 
+               split(/ ; /, $elt);
+           $file = unpack("u", $file);
+           
+           $self->add_selected_file_to_list($file, $jobid, $type);
+       }
+    }
+}
+
+sub on_back_button_clicked {
+    my $self = shift;
+    $self->up_dir();
+}
+sub on_location_go_button_clicked 
+{
+    my $self = shift; 
+    $self->ch_dir($self->{location}->get_text());
+}
+sub on_quit_activate {Gtk2->main_quit;}
+sub on_preferences_activate
+{
+    my $self = shift; 
+    $self->{dlg_pref}->display($self) ;
+}
+sub on_main_delete_event {Gtk2->main_quit;}
+sub on_bweb_activate
+{
+    my $self = shift; 
+    $self->set_status("Open bweb on your browser");
+    $self->{pref}->go_bweb('', "go on bweb");
+}
+
+# Change to parent directory
+sub up_dir
+{
+    my $self = shift ;
+    if ($self->{cwd} eq '/')
+    {
+       $self->ch_dir('');
+    }
+    my @dirs = File::Spec->splitdir ($self->{cwd});
+    pop @dirs;
+    $self->ch_dir(File::Spec->catdir(@dirs));
+}
+
+# Change the current working directory
+#   * Updates fileview, location, and selection
+#
+sub ch_dir 
+{
+    my $self = shift;
+    $self->{cwd} = shift;
+    
+    $self->refresh_fileview();
+    $self->{location}->set_text($self->{cwd});
+    
+    1;
+}
+
+# Handle dialog 'close' (window-decoration induced close)
+#   * Just hide the dialog, and tell Gtk not to do anything else
+#
+sub on_delete_event 
+{
+    my ($self, $w) = @_;
+    $w->hide; 
+    Gtk2::main_quit();
+    1; # consume this event!
+}
+
+# Handle key presses in location text edit control
+#   * Translate a Return/Enter key into a 'Go' command
+#   * All other key presses left for GTK
+#
+sub on_location_entry_key_release_event 
+{
+    my $self = shift;
+    my $widget = shift;
+    my $event = shift;
+    
+    my $keypress = $event->keyval;
+    if ($keypress == $Gtk2::Gdk::Keysyms{KP_Enter} ||
+       $keypress == $Gtk2::Gdk::Keysyms{Return}) 
+    {
+       $self->ch_dir($widget->get_text());
+       
+       return 1; # consume keypress
+    }
+
+    return 0; # let gtk have the keypress
+}
+
+sub on_fileview_key_press_event
+{
+    my ($self, $widget, $event) = @_;
+    return 0;
+}
+
+sub listview_get_first
+{
+    my ($list) = shift; 
+    my @selected = $list->get_selected_indices();
+    if (@selected > 0) {
+       my ($name, @other) = @{$list->{data}->[$selected[0]]};
+       return (unpack('u', $name), @other);
+    } else {
+       return undef;
+    }
+}
+
+sub listview_get_all
+{
+    my ($list) = shift; 
+
+    my @selected = $list->get_selected_indices();
+    my @ret;
+    for my $i (@selected) {
+       my ($name, @other) = @{$list->{data}->[$i]};
+       push @ret, [unpack('u', $name), @other];
+    } 
+    return @ret;
+}
+
+
+sub listview_push
+{
+    my ($list, $name, @other) = @_;
+    push @{$list->{data}}, [pack('u', $name), @other];
+}
+
+#----------------------------------------------------------------------
+# Handle keypress in file-view
+#   * Translates backspace into a 'cd ..' command 
+#   * All other key presses left for GTK
+#
+sub on_fileview_key_release_event 
+{
+    my ($self, $widget, $event) = @_;
+    if (not $event->keyval)
+    {
+       return 0;
+    }
+    if ($event->keyval == $Gtk2::Gdk::Keysyms{BackSpace}) {
+       $self->up_dir();
+       return 1; # eat keypress
+    }
+
+    return 0; # let gtk have keypress
+}
+
+sub on_forward_keypress
+{
+    return 0;
+}
+
+#----------------------------------------------------------------------
+# Handle double-click (or enter) on file-view
+#   * Translates into a 'cd <dir>' command
+#
+sub on_fileview_row_activated 
+{
+    my ($self, $widget) = @_;
+    
+    my ($name, undef, $type, undef) = listview_get_first($widget);
+
+    if ($type eq 'dir')
+    {
+       if ($self->{cwd} eq '')
+       {
+               $self->ch_dir($name);
+       }
+       elsif ($self->{cwd} eq '/')
+       {
+               $self->ch_dir('/' . $name);
+       }
+       else
+       {
+               $self->ch_dir($self->{cwd} . '/' . $name);
+       }
+
+    } else {
+       $self->fill_infoview($self->{cwd}, $name);
+    }
+    
+    return 1; # consume event
+}
+
+sub fill_infoview
+{
+    my ($self, $path, $file) = @_;
+    $self->clear_infoview();
+    my @v = get_all_file_versions($self->{dbh}, 
+                                 "$path/", 
+                                 $file,
+                                 $self->current_client);
+    for my $ver (@v) {
+       my (undef,$fn,$jobid,$fileindex,$mtime,$size,$inchanger,$md5,$volname)
+           = @{$ver};
+       my $icon = ($inchanger)?$yesicon:$noicon;
+
+       $mtime = localtime($mtime) ;
+
+       listview_push($self->{fileinfo},
+                     $file, $jobid, 'file', 
+                     $icon, $volname, $jobid, human($size), $mtime, $md5);
+    }
+}
+
+sub current_date
+{
+    my $self = shift ;
+    return $self->{restore_backup_combobox}->get_active_text;
+}
+
+sub current_client
+{
+    my $self = shift ;
+    return $self->{client_combobox}->get_active_text;
+}
+
+sub on_list_backups_changed 
+{
+    my ($self, $widget) = @_;
+    return 0 unless defined $self->{fileview};
+
+    $self->{CurrentJobIds} = [
+                             set_job_ids_for_date($self->{dbh},
+                                                  $self->current_client,
+                                                  $self->current_date,
+                                                  $self->{pref}->{use_ok_bkp_only})
+                             ];
+
+    $self->refresh_fileview();
+    0;
+}
+
+sub on_restore_list_keypress
+{
+    my ($self, $widget, $event) = @_;
+    if ($event->keyval == $Gtk2::Gdk::Keysyms{Delete})
+    {
+       my @sel = $widget->get_selected_indices;
+       foreach my $elt (reverse(sort {$a <=> $b} @sel))
+       {
+           splice @{$self->{restore_list}->{data}},$elt,1;
+       }
+    }
+}
+
+sub on_fileview_button_press_event
+{
+    my ($self,$widget,$event) = @_;
+    if ($event->button == 3)
+    {
+       $self->on_right_click_filelist($widget,$event);
+       return 1;
+    }
+    
+    if ($event->button == 2)
+    {
+       $self->on_see_all_version();
+       return 1;
+    }
+
+    return 0;
+}
+
+sub on_see_all_version
+{
+    my ($self) = @_;
+    
+    my @lst = listview_get_all($self->{fileview});
+
+    for my $i (@lst) {
+       my ($name, undef) = @{$i};
+
+       new DlgFileVersion($self->{dbh}, 
+                          $self->current_client, 
+                          $self->{cwd}, $name);
+    }
+}
+
+sub on_right_click_filelist
+{
+    my ($self,$widget,$event) = @_;
+    # I need to know what's selected
+    my @sel = listview_get_all($self->{fileview});
+    
+    my $type = '';
+
+    if (@sel == 1) {
+       $type = $sel[0]->[2];   # $type
+    }
+
+    my $w;
+
+    if (@sel >=2 or $type eq 'dir')
+    {
+       # We have selected more than one or it is a directories
+       $w = $self->{filelist_dir_menu};
+    }
+    else
+    {
+       $w = $self->{filelist_file_menu};
+    }
+    $w->popup(undef,
+             undef,
+             undef,
+             undef,
+             $event->button, $event->time);
+}
+
+sub context_add_to_filelist
+{
+    my ($self) = @_;
+
+    my @sel = listview_get_all($self->{fileview});
+
+    foreach my $i (@sel)
+    {
+       my ($file, $jobid, $type, undef) = @{$i};
+       $file = $self->{cwd} . '/' . $file;
+       $self->add_selected_file_to_list($file, $jobid, $type);
+    }
+}
+
+# Adds a file to the filelist
+sub add_selected_file_to_list
+{
+    my ($self, $name, $jobid, $type)=@_;
+
+    my $dbh = $self->{dbh};
+    my $restore_list = $self->{restore_list};
+
+    my $curjobids=join(',', @{$self->{CurrentJobIds}});
+
+    if ($type eq 'dir')
+    {
+       # dirty hack
+       $name =~ s!^//+!/!;
+
+       if ($name and substr $name,-1 ne '/')
+       {
+               $name .= '/'; # For bacula
+       }
+       my $dirfileindex = get_fileindex_from_dir_jobid($dbh,$name,$jobid);
+       listview_push($restore_list, 
+                     $name, $jobid, 'dir', $curjobids,
+                     $diricon, $name,$jobid,$dirfileindex);
+    }
+    elsif ($type eq 'file')
+    {
+       my $fileindex = get_fileindex_from_file_jobid($dbh,$name,$jobid);
+
+       listview_push($restore_list,
+                     $name, $jobid, 'file', $curjobids,
+                     $fileicon, $name, $jobid, $fileindex );
+    }
+}
+
+# TODO : we want be able to restore files from a bad ended backup
+# we have JobStatus IN ('T', 'A', 'E') and we must 
+
+# Data acces subs from here. Interaction with SGBD and caching
+
+# This sub retrieves the list of jobs corresponding to the jobs selected in the
+# GUI and stores them in @CurrentJobIds
+sub set_job_ids_for_date
+{
+    my ($dbh, $client, $date, $only_ok)=@_;
+
+    if (!$client or !$date) {
+       return ();
+    }
+    
+    my $status = get_wanted_job_status($only_ok);
+       
+    # The algorithm : for a client, we get all the backups for each
+    # fileset, in reverse order Then, for each fileset, we store the 'good'
+    # incrementals and differentials until we have found a full so it goes
+    # like this : store all incrementals until we have found a differential
+    # or a full, then find the full #
+
+    my $query = "SELECT JobId, FileSet, Level, JobStatus
+               FROM Job, Client, FileSet
+               WHERE Job.ClientId = Client.ClientId
+               AND FileSet.FileSetId = Job.FileSetId
+               AND EndTime <= '$date'
+               AND Client.Name = '$client'
+               AND Type IN ('B')
+               AND JobStatus IN ($status)
+               ORDER BY FileSet, JobTDate DESC";
+       
+    print $query,"\n" if $debug;
+    my @CurrentJobIds;
+    my $result = $dbh->selectall_arrayref($query);
+    my %progress;
+    foreach my $refrow (@$result)
+    {
+       my $jobid = $refrow->[0];
+       my $fileset = $refrow->[1];
+       my $level = $refrow->[2];
+               
+       defined $progress{$fileset} or $progress{$fileset}='U'; # U for unknown
+               
+       next if $progress{$fileset} eq 'F'; # It's over for this fileset...
+               
+       if ($level eq 'I')
+       {
+           next unless ($progress{$fileset} eq 'U' or $progress{$fileset} eq 'I');
+           push @CurrentJobIds,($jobid);
+       }
+       elsif ($level eq 'D')
+       {
+           next if $progress{$fileset} eq 'D'; # We allready have a differential
+           push @CurrentJobIds,($jobid);
+       }
+       elsif ($level eq 'F')
+       {
+           push @CurrentJobIds,($jobid);
+       }
+
+       my $status = $refrow->[3] ;
+       if ($status eq 'T') {              # good end of job
+           $progress{$fileset} = $level;
+       }
+    }
+    print Data::Dumper::Dumper(\@CurrentJobIds) if $debug;
+
+    return @CurrentJobIds;
+}
+
+# Lists all directories contained inside a directory.
+# Uses the current dir, the client name, and CurrentJobIds for visibility.
+# Returns an array of dirs
+sub list_dirs
+{
+    my ($self,$dir,$client)=@_;
+    print "list_dirs($dir, $client)\n";
+
+    # Is data allready cached ?
+    if (not $self->{dirtree}->{$client})
+    {
+       $self->cache_dirs($client);
+    }
+
+    if ($dir ne '' and substr $dir,-1 ne '/')
+    {
+       $dir .= '/'; # In the db, there is a / at the end of the dirs ...
+    }
+    # Here, the tree is cached in ram
+    my @dir = split('/',$dir,-1);
+    pop @dir; # We don't need the empty trailing element
+    
+    # We have to get the reference of the hash containing $dir contents
+    # Get to the root
+    my $refdir=$self->{dirtree}->{$client};
+
+    # Find the leaf
+    foreach my $subdir (@dir)
+    {
+       if ($subdir eq '')
+       {
+               $subdir = '/';
+       }
+       $refdir = $refdir->[0]->{$subdir};
+    }
+    
+    # We reached the directory
+    my @return_list;
+  DIRLOOP:
+    foreach my $dir (sort(keys %{$refdir->[0]}))
+    {
+       # We return the directory's content : only visible directories
+       foreach my $jobid (reverse(sort(@{$self->{CurrentJobIds}})))
+       {
+           if (defined $refdir->[0]->{$dir}->[1]->{$jobid})
+           {
+               my $dirname = $refdir->[0]->{$dir}->[2]; # The real dirname...
+               push @return_list,($dirname);
+               next DIRLOOP; # No need to waste more CPU cycles...
+           }
+       }
+    }
+    print "LIST DIR : ", Data::Dumper::Dumper(\@return_list),"\n";
+    return @return_list;
+}
+
+
+# List all files in a directory. dir as parameter, CurrentJobIds for visibility
+# Returns an array of dirs
+sub list_files
+{
+    my ($self, $dir)=@_;
+    my $dbh = $self->{dbh};
+
+    my $empty = [];
+
+    print "list_files($dir)\n";
+
+    if ($dir ne '' and substr $dir,-1 ne '/')
+    {
+       $dir .= '/'; # In the db, there is a / at the end of the dirs ...
+    }
+
+    my $query = "SELECT Path.PathId FROM Path WHERE Path.Path = '$dir'";
+    print $query,"\n" if $debug;
+    my @list_pathid=();
+    my $result = $dbh->selectall_arrayref($query);
+    foreach my $refrow (@$result)
+    {
+       push @list_pathid,($refrow->[0]);
+    }
+       
+    if  (@list_pathid == 0)
+    {
+       print "No pathid found for $dir\n" if $debug;
+       return $empty;
+    }
+       
+    my $inlistpath = join (',', @list_pathid);
+    my $inclause = join (',', @{$self->{CurrentJobIds}});
+    if ($inclause eq '')
+    {
+       return $empty;
+    }
+       
+    $query = 
+"SELECT listfiles.id, listfiles.Name, File.LStat, File.JobId
+ FROM
+       (SELECT Filename.Name, max(File.FileId) as id
+        FROM File, Filename
+        WHERE File.FilenameId = Filename.FilenameId
+          AND Filename.Name != ''
+          AND File.PathId IN ($inlistpath)
+          AND File.JobId IN ($inclause)
+        GROUP BY Filename.Name
+        ORDER BY Filename.Name) AS listfiles,
+File
+WHERE File.FileId = listfiles.id";
+       
+    print $query,"\n" if $debug;
+    $result = $dbh->selectall_arrayref($query);
+       
+    return $result;
+}
+
+# For the dirs, because of the db schema, it's inefficient to get the
+# directories contained inside other directories (regexp match or tossing
+# lots of records...). So we load all the tree and cache it.  The data is 
+# stored in a structure of this form :
+# Each directory is an array. 
+# - In this array, the first element is a ref to next dir (hash) 
+# - The second element is a hash containing all jobids pointing
+# on an array containing their lstat (or 1 if this jobid is there because 
+# of dependencies)
+# - The third is the filename itself (it could get mangled because of 
+# the hashing...) 
+
+# So it looks like this :
+# $reftree->[          { 'dir1' => $refdir1
+#                'dir2' => $refdir2
+#              ......
+#              },
+#              { 'jobid1' => 'lstat1',
+#                'jobid2' => 'lstat2',
+#                'jobid3' => 1            # This one is here for "visibility"
+#              },
+#              'dirname'
+#         ]
+
+# Client as a parameter
+# Returns an array of dirs
+sub cache_dirs
+{
+    my ($self, $client) = @_;
+    print "cache_dirs()\n";
+
+    $self->{dirtree}->{$client} = [];  # reset cache
+    my $dbh = $self->{dbh};
+
+    # TODO : If we get here, things could get lenghty ... draw a popup window .
+    my $widget = Gtk2::MessageDialog->new($self->{mainwin}, 
+                                         'destroy-with-parent', 
+                                         'info', 'none', 
+                                         'Populating cache');
+    $widget->show;
+    Gtk2->main_iteration while (Gtk2->events_pending);
+       
+    # We have to build the tree, as it's the first time it is asked...
+    
+    
+    # First, we only need the jobids of the selected server.
+    # It's not the same as @CurrentJobIds (we need ALL the jobs)
+    # We get the JobIds first in order to have the best execution
+    # plan possible for the big query, with an in clause.
+    my $query;
+    my $status = get_wanted_job_status($self->{pref}->{use_ok_bkp_only});
+    $query = 
+"SELECT JobId 
+ FROM Job,Client
+ WHERE Job.ClientId = Client.ClientId
+   AND Client.Name = '$client'
+   AND Job.JobStatus IN ($status)
+   AND Job.Type = 'B'";
+       
+    print $query,"\n" if $debug;
+    my $result = $dbh->selectall_arrayref($query);
+    my @jobids;
+    foreach my $record (@{$result})
+    {
+       push @jobids,($record->[0]);
+    }
+    my $inclause = join(',',@jobids);
+    if ($inclause eq '')
+    {
+       $widget->destroy();
+        $self->set_status("No previous backup found for $client");
+       return ();
+    }
+
+# Then, still to help dear mysql, we'll retrieve the PathId from empty Path (directory entries...)
+   my @dirids;
+    $query =
+"SELECT Filename.FilenameId FROM Filename WHERE Filename.Name=''";
+
+    print $query,"\n" if $debug;
+    $result = $dbh->selectall_arrayref($query);
+    foreach my $record (@{$result})
+    {
+       push @dirids,$record->[0];
+    }
+    my $dirinclause = join(',',@dirids);
+
+   # This query is a bit complicated : 
+   # whe need to find all dir entries that should be displayed, even
+   # if the directory itself has no entry in File table (it means a file
+   # is explicitely chosen in the backup configuration)
+   # Here's what I wanted to do :
+#     $query = 
+# "
+# SELECT T1.Path, T2.Lstat, T2.JobId
+# FROM (    SELECT DISTINCT Path.PathId, Path.Path FROM File, Path
+#     WHERE File.PathId = Path.PathId
+# AND File.JobId IN ($inclause)) AS T1
+# LEFT JOIN 
+#     (    SELECT File.Lstat, File.JobId, File.PathId FROM File
+#         WHERE File.FilenameId IN ($dirinclause)
+#         AND File.JobId IN ($inclause)) AS T2
+# ON (T1.PathId = T2.PathId)
+# ";           
+    # It works perfectly with postgresql, but mysql doesn't seem to be able
+    # to do the hash join correcty, so the performance sucks.
+    # So it will be done in 4 steps :
+    # o create T1 and T2 as temp tables
+    # o create an index on T2.PathId
+    # o do the query
+    # o remove the temp tables
+    $query = "
+CREATE TEMPORARY TABLE T1 AS
+SELECT DISTINCT Path.PathId, Path.Path FROM File, Path
+WHERE File.PathId = Path.PathId
+  AND File.JobId IN ($inclause)
+";
+    print $query,"\n" if $debug;
+    $dbh->do($query);
+    $query = "
+CREATE TEMPORARY TABLE T2 AS
+SELECT File.Lstat, File.JobId, File.PathId FROM File
+WHERE File.FilenameId IN ($dirinclause)
+  AND File.JobId IN ($inclause)
+";
+    print $query,"\n" if $debug;
+    $dbh->do($query);
+    $query = "
+CREATE INDEX tmp2 ON T2(PathId)
+";
+    print $query,"\n" if $debug;
+    $dbh->do($query);
+    
+    $query = "
+SELECT T1.Path, T2.Lstat, T2.JobId
+FROM T1 LEFT JOIN T2
+ON (T1.PathId = T2.PathId)
+";
+
+    print $query,"\n" if $debug;
+    $result = $dbh->selectall_arrayref($query);
+       
+    foreach my $record (@{$result})
+    {
+       # Dirty hack to force the string encoding on perl... we don't
+       # want implicit conversions
+       my $path = pack "U0C*", unpack "C*",$record->[0];
+       
+       my @path = split('/',$path,-1);
+       pop @path; # we don't need the trailing empty element
+       my $lstat = $record->[1];
+       my $jobid = $record->[2];
+       
+       # We're going to store all the data on the cache tree.
+       # We find the leaf, then store data there
+       my $reftree=$self->{dirtree}->{$client};
+       foreach my $dir(@path)
+       {
+           if ($dir eq '')
+           {
+               $dir = '/';
+           }
+           if (not defined($reftree->[0]->{$dir}))
+           {
+               my @tmparray;
+               $reftree->[0]->{$dir}=\@tmparray;
+           }
+           $reftree=$reftree->[0]->{$dir};
+           $reftree->[2]=$dir;
+       }
+       # We can now add the metadata for this dir ...
+       
+#         $result = $dbh->selectall_arrayref($query);
+       if ($lstat)
+       {
+            # contains something
+            $reftree->[1]->{$jobid}=$lstat;
+       }
+       else
+       {
+            # We have a very special case here...
+            # lstat is not defined.
+            # it means the directory is there because a file has been
+            # backuped. so the dir has no entry in File table.
+            # That's a rare case, so we can afford to determine it's
+            # visibility with a query
+            my $select_path=$record->[0];
+            $select_path=$dbh->quote($select_path); # gotta be careful
+            my $query = "
+SELECT File.JobId
+FROM File, Path
+WHERE File.PathId = Path.PathId
+AND Path.Path = $select_path
+";
+            print $query,"\n" if $debug;
+            my $result2 = $dbh->selectall_arrayref($query);
+            foreach my $record (@{$result2})
+            {
+                my $jobid=$record->[0];
+                $reftree->[1]->{$jobid}=1;
+            }
+       }
+       
+    }
+    $query = "
+DROP TABLE T1;
+";
+    print $query,"\n" if $debug;
+    $dbh->do($query);
+    $query = "
+DROP TABLE T2;
+";
+    print $query,"\n" if $debug;
+    $dbh->do($query);
+
+
+    list_visible($self->{dirtree}->{$client});
+    $widget->destroy();
+
+#      print Data::Dumper::Dumper($self->{dirtree});
+}
+
+# Recursive function to calculate the visibility of each directory in the cache
+# tree Working with references to save time and memory
+# For each directory, we want to propagate it's visible jobids onto it's
+# parents directory.
+# A tree is visible if
+# - it's been in a backup pointed by the CurrentJobIds
+# - one of it's subdirs is in a backup pointed by the CurrentJobIds
+# In the second case, the directory is visible but has no metadata.
+# We symbolize this with lstat = 1 for this jobid in the cache.
+
+# Input : reference directory
+# Output : visibility of this dir. Has to know visibility of all subdirs
+# to know it's visibility, hence the recursing.
+sub list_visible
+{
+    my ($refdir)=@_;
+       
+    my %visibility;
+    # Get the subdirs array references list
+    my @list_ref_subdirs;
+    while( my (undef,$ref_subdir) = each (%{$refdir->[0]}))
+    {
+       push @list_ref_subdirs,($ref_subdir);
+    }
+
+    # Now lets recurse over these subdirs and retrieve the reference of a hash
+    # containing the jobs where they are visible
+    foreach my $ref_subdir (@list_ref_subdirs)
+    {
+       my $ref_list_jobs = list_visible($ref_subdir);
+       foreach my $jobid (keys %$ref_list_jobs)
+       {
+           $visibility{$jobid}=1;
+       }
+    }
+
+    # Ok. Now, we've got the list of those jobs.  We are going to update our
+    # hash (element 1 of the dir array) containing our jobs Do NOT overwrite
+    # the lstat for the known jobids. Put 1 in the new elements...  But first,
+    # let's store the current jobids
+    my @known_jobids;
+    foreach my $jobid (keys %{$refdir->[1]})
+    {
+       push @known_jobids,($jobid);
+    }
+    
+    # Add the new jobs
+    foreach my $jobid (keys %visibility)
+    {
+       next if ($refdir->[1]->{$jobid});
+       $refdir->[1]->{$jobid} = 1;
+    }
+    # Add the known_jobids to %visibility
+    foreach my $jobid (@known_jobids)
+    {
+       $visibility{$jobid}=1;
+    }
+    return \%visibility;
+}
+
+# Returns the list of media required for a list of jobids.
+# Input : dbh, jobid1, jobid2...
+# Output : reference to array of (joibd, inchanger)
+sub get_required_media_from_jobid
+{
+    my ($dbh, @jobids)=@_;
+    my $inclause = join(',',@jobids);
+    my $query = "
+SELECT DISTINCT JobMedia.MediaId, Media.InChanger 
+FROM JobMedia, Media 
+WHERE JobMedia.MediaId=Media.MediaId 
+AND JobId In ($inclause)
+ORDER BY MediaId";
+    my $result = $dbh->selectall_arrayref($query);
+    return $result;
+}
+
+# Returns the fileindex from dirname and jobid.
+# Input : dbh, dirname, jobid
+# Output : fileindex
+sub get_fileindex_from_dir_jobid
+{
+    my ($dbh, $dirname, $jobid)=@_;
+    my $query;
+    $query = "SELECT File.FileIndex
+               FROM File, Filename, Path
+               WHERE File.FilenameId = Filename.FilenameId
+               AND File.PathId = Path.PathId
+               AND Filename.Name = ''
+               AND Path.Path = '$dirname'
+               AND File.JobId = '$jobid'
+               ";
+               
+    print $query,"\n" if $debug;
+    my $result = $dbh->selectall_arrayref($query);
+    return $result->[0]->[0];
+}
+
+# Returns the fileindex from filename and jobid.
+# Input : dbh, filename, jobid
+# Output : fileindex
+sub get_fileindex_from_file_jobid
+{
+    my ($dbh, $filename, $jobid)=@_;
+    
+    my @dirs = File::Spec->splitdir ($filename);
+    $filename=pop(@dirs);
+    my $dirname = File::Spec->catdir(@dirs) . '/';
+    
+    
+    my $query;
+    $query = 
+"SELECT File.FileIndex
+ FROM File, Filename, Path
+ WHERE File.FilenameId = Filename.FilenameId
+   AND File.PathId = Path.PathId
+   AND Filename.Name = '$filename'
+   AND Path.Path = '$dirname'
+   AND File.JobId = '$jobid'";
+               
+    print $query,"\n" if $debug;
+    my $result = $dbh->selectall_arrayref($query);
+    return $result->[0]->[0];
+}
+
+
+# Returns list of versions of a file that could be restored
+# returns an array of 
+# ('FILE:',filename,jobid,fileindex,mtime,size,inchanger,md5,volname)
+# It's the same as entries of restore_list (hidden) + mtime and size and inchanger
+# and volname and md5
+# and of course, there will be only one jobid in the array of jobids...
+sub get_all_file_versions
+{
+    my ($dbh,$path,$file,$client,$see_all)=@_;
+    
+    defined $see_all or $see_all=0;
+    
+    my @versions;
+    my $query;
+    $query = 
+"SELECT File.JobId, File.FileIndex, File.Lstat, 
+        File.Md5, Media.VolumeName, Media.InChanger
+ FROM File, Filename, Path, Job, Client, JobMedia, Media
+ WHERE File.FilenameId = Filename.FilenameId
+   AND File.PathId=Path.PathId
+   AND File.JobId = Job.JobId
+   AND Job.ClientId = Client.ClientId
+   AND Job.JobId = JobMedia.JobId
+   AND File.FileIndex >= JobMedia.FirstIndex
+   AND File.FileIndex <= JobMedia.LastIndex
+   AND JobMedia.MediaId = Media.MediaId
+   AND Path.Path = '$path'
+   AND Filename.Name = '$file'
+   AND Client.Name = '$client'";
+       
+    print $query if $debug;
+       
+    my $result = $dbh->selectall_arrayref($query);
+       
+    foreach my $refrow (@$result)
+    {
+       my ($jobid, $fileindex, $lstat, $md5, $volname, $inchanger) = @$refrow;
+       my @attribs = parse_lstat($lstat);
+       my $mtime = array_attrib('st_mtime',\@attribs);
+       my $size = array_attrib('st_size',\@attribs);
+               
+       my @list = ('FILE:', $path.$file, $jobid, $fileindex, $mtime, $size,
+                   $inchanger, $md5, $volname);
+       push @versions, (\@list);
+    }
+       
+    # We have the list of all versions of this file.
+    # We'll sort it by mtime desc, size, md5, inchanger desc
+    # the rest of the algorithm will be simpler
+    # ('FILE:',filename,jobid,fileindex,mtime,size,inchanger,md5,volname)
+    @versions = sort { $b->[4] <=> $a->[4] 
+                   || $a->[5] <=> $b->[5] 
+                   || $a->[7] cmp $a->[7] 
+                   || $b->[6] <=> $a->[6]} @versions;
+       
+    my @good_versions;
+    my %allready_seen_by_mtime;
+    my %allready_seen_by_md5;
+    # Now we should create a new array with only the interesting records
+    foreach my $ref (@versions)
+    {  
+       if ($ref->[7])
+       {
+           # The file has a md5. We compare his md5 to other known md5...
+           # We take size into account. It may happen that 2 files
+           # have the same md5sum and are different. size is a supplementary
+           # criterion
+            
+            # If we allready have a (better) version
+           next if ( (not $see_all) 
+                     and $allready_seen_by_md5{$ref->[7] .'-'. $ref->[5]}); 
+
+           # we never met this one before...
+           $allready_seen_by_md5{$ref->[7] .'-'. $ref->[5]}=1;
+       }
+       # Even if it has a md5, we should also work with mtimes
+        # We allready have a (better) version
+       next if ( (not $see_all)
+                 and $allready_seen_by_mtime{$ref->[4] .'-'. $ref->[5]}); 
+       $allready_seen_by_mtime{$ref->[4] .'-'. $ref->[5] . '-' . $ref->[7]}=1;
+       
+       # We reached there. The file hasn't been seen.
+       push @good_versions,($ref);
+    }
+       
+    # To be nice with the user, we re-sort good_versions by
+    # inchanger desc, mtime desc
+    @good_versions = sort { $b->[4] <=> $a->[4] 
+                         || $b->[2] <=> $a->[2]} @good_versions;
+       
+    return @good_versions;
+}
+
+# TODO : bsr must use only good backup or not (see use_ok_bkp_only)
+# This sub creates a BSR from the information in the restore_list
+# Returns the BSR as a string
+sub create_filelist
+{
+       my $self = shift;
+       my $dbh = $self->{dbh};
+       my %mediainfos;
+       # This query gets all jobid/jobmedia/media combination.
+       my $query = 
+"SELECT Job.JobId, Job.VolsessionId, Job.VolsessionTime, JobMedia.StartFile, 
+        JobMedia.FirstIndex, JobMedia.LastIndex, JobMedia.StartBlock, 
+        JobMedia.EndBlock, JobMedia.VolIndex, Media.Volumename, Media.MediaType
+ FROM Job, JobMedia, Media
+ WHERE Job.JobId = JobMedia.JobId
+   AND JobMedia.MediaId = Media.MediaId
+   AND JobMedia.StartFile = JobMedia.EndFile
+   ORDER BY JobMedia.FirstIndex, JobMedia.LastIndex";
+       
+
+       my $result = $dbh->selectall_arrayref($query);
+
+       # We will store everything hashed by jobid.
+
+       foreach my $refrow (@$result)
+       {
+               my ($jobid, $volsessionid, $volsessiontime, $startfile,
+               $firstindex, $lastindex, $startblock, $endblock,
+               $volindex, $volumename, $mediatype) = @{$refrow};
+
+               my @tmparray = 
+               ($jobid, $volsessionid, $volsessiontime, $startfile, 
+               $firstindex, $lastindex, $startblock .'-'. $endblock,
+               $volindex, $volumename, $mediatype);
+               
+               push @{$mediainfos{$refrow->[0]}},(\@tmparray);
+       }
+
+       
+       # reminder : restore_list looks like this : 
+       # ($name,$jobid,'file',$curjobids, undef, undef, undef, $dirfileindex);
+       
+       # Here, we retrieve every file/dir that could be in the restore
+       # We do as simple as possible for the SQL engine (no crazy joins,
+       # no pseudo join (>= FirstIndex ...), etc ...
+       # We do a SQL union of all the files/dirs specified in the restore_list
+       my @select_queries;
+       foreach my $entry (@{$self->{restore_list}->{data}})
+       {
+               if ($entry->[2] eq 'dir')
+               {
+                       my $dir = unpack('u', $entry->[0]);
+                       my $inclause = $entry->[3]; #curjobids
+
+                       my $query = 
+"(SELECT Path.Path, Filename.Name, File.FileIndex, File.JobId
+  FROM File, Path, Filename
+  WHERE Path.PathId = File.PathId
+  AND File.FilenameId = Filename.FilenameId
+  AND Path.Path LIKE '$dir%'
+  AND File.JobId IN ($inclause) )";
+                       push @select_queries,($query);
+               }
+               else
+               {
+                       # It's a file. Great, we allready have most 
+                       # of what is needed. Simple and efficient query
+                       my $file = unpack('u', $entry->[0]);
+                       my @file = split '/',$file;
+                       $file = pop @file;
+                       my $dir = join('/',@file);
+                       
+                       my $jobid = $entry->[1];
+                       my $fileindex = $entry->[7];
+                       my $inclause = $entry->[3]; # curjobids
+                       my $query = 
+"(SELECT Path.Path, Filename.Name, File.FileIndex, File.JobId
+  FROM File, Path, Filename
+  WHERE Path.PathId = File.PathId
+  AND File.FilenameId = Filename.FilenameId
+  AND Path.Path = '$dir/'
+  AND Filename.Name = '$file'
+  AND File.JobId = $jobid)";
+                       push @select_queries,($query);
+               }
+       }
+       $query = join("\nUNION ALL\n",@select_queries) . "\nORDER BY FileIndex\n";
+
+       print $query,"\n" if $debug;
+       
+       #Now we run the query and parse the result...
+       # there may be a lot of records, so we better be efficient
+       # We use the bind column method, working with references...
+
+       my $sth = $dbh->prepare($query);
+       $sth->execute;
+
+       my ($path,$name,$fileindex,$jobid);
+       $sth->bind_columns(\$path,\$name,\$fileindex,\$jobid);
+       
+       # The temp place we're going to save all file
+       # list to before the real list
+       my @temp_list;
+
+       RECORD_LOOP:
+       while ($sth->fetchrow_arrayref())
+       {
+               # This may look dumb, but we're going to do a join by ourselves,
+               # to save memory and avoid sending a complex query to mysql
+               my $complete_path = $path . $name;
+               my $is_dir = 0;
+               
+               if ( $name eq '')
+               {
+                       $is_dir = 1;
+               }
+               
+               # Remove trailing slash (normalize file and dir name)
+               $complete_path =~ s/\/$//;
+               
+               # Let's find the ref(s) for the %mediainfo element(s) 
+               # containing the data for this file
+               # There can be several matches. It is the pseudo join.
+               my $med_idx=0;
+               my $max_elt=@{$mediainfos{$jobid}}-1;
+               MEDIA_LOOP:
+               while($med_idx <= $max_elt)
+               {
+                       my $ref = $mediainfos{$jobid}->[$med_idx];
+                       # First, can we get rid of the first elements of the
+                       # array ? (if they don't contain valuable records
+                       # anymore
+                       if ($fileindex > $ref->[5])
+                       {
+                               # It seems we don't need anymore
+                               # this entry in %mediainfo (the input data
+                               # is sorted...)
+                               # We get rid of it.
+                               shift @{$mediainfos{$jobid}};
+                               $max_elt--;
+                               next MEDIA_LOOP;
+                       }
+                       # We will do work on this elt. We can ++
+                       # $med_idx for next loop
+                       $med_idx++;
+
+                       # %mediainfo row looks like : 
+                       # (jobid,VolsessionId,VolsessionTime,File,FirstIndex,
+                       # LastIndex,StartBlock-EndBlock,VolIndex,Volumename,
+                       # MediaType)
+                       
+                       # We are in range. We store and continue looping
+                       # in the medias
+                       if ($fileindex >= $ref->[4])
+                       {
+                               my @data = ($complete_path,$is_dir,
+                                           $fileindex,$ref);
+                               push @temp_list,(\@data);
+                               next MEDIA_LOOP;
+                       }
+                       
+                       # We are not in range. No point in continuing looping
+                       # We go to next record.
+                       next RECORD_LOOP;
+               }
+       }
+       # Now we have the array.
+       # We're going to sort it, by 
+       # path, volsessiontime DESC (get the most recent file...)
+       # The array rows look like this :
+       # complete_path,is_dir,fileindex,
+       # ref->(jobid,VolsessionId,VolsessionTime,File,FirstIndex,
+       #       LastIndex,StartBlock-EndBlock,VolIndex,Volumename,MediaType)
+       @temp_list = sort {$a->[0] cmp $b->[0]
+                        || $b->[3]->[2] <=> $a->[3]->[2]
+                          } @temp_list;
+
+       my @restore_list;
+       my $prev_complete_path='////'; # Sure not to match
+       my $prev_is_file=1;
+       my $prev_jobid;
+
+       while (my $refrow = shift @temp_list)
+       {
+               # For the sake of readability, we load $refrow 
+               # contents in real scalars
+               my ($complete_path, $is_dir, $fileindex, $refother)=@{$refrow};
+               my $jobid= $refother->[0]; # We don't need the rest...
+
+               # We skip this entry.
+               # We allready have a newer one and this 
+               # isn't a continuation of the same file
+               next if ($complete_path eq $prev_complete_path 
+                        and $jobid != $prev_jobid);
+               
+               
+               if ($prev_is_file 
+                   and $complete_path =~ m|^\Q$prev_complete_path\E/|)
+               {
+                       # We would be recursing inside a file.
+                       # Just what we don't want (dir replaced by file
+                       # between two backups
+                       next;
+               }
+               elsif ($is_dir)
+               {
+                       # It is a directory
+                       push @restore_list,($refrow);
+                       
+                       $prev_complete_path = $complete_path;
+                       $prev_jobid = $jobid;
+                       $prev_is_file = 0;
+               }
+               else
+               {
+                       # It is a file
+                       push @restore_list,($refrow);
+                       
+                       $prev_complete_path = $complete_path;
+                       $prev_jobid = $jobid;
+                       $prev_is_file = 1;
+               }
+       }
+       # We get rid of @temp_list... save memory
+       @temp_list=();
+
+       # Ok everything is in the list. Let's sort it again in another way.
+       # This time it will be in the bsr file order
+
+       # we sort the results by 
+       # volsessiontime, volsessionid, volindex, fileindex 
+       # to get all files in right order...
+       # Reminder : The array rows look like this :
+       # complete_path,is_dir,fileindex,
+       # ref->(jobid,VolsessionId,VolsessionTime,File,FirstIndex,LastIndex,
+       #       StartBlock-EndBlock,VolIndex,Volumename,MediaType)
+
+       @restore_list= sort { $a->[3]->[2] <=> $b->[3]->[2] 
+                          || $a->[3]->[1] <=> $b->[3]->[1] 
+                          || $a->[3]->[7] <=> $b->[3]->[7] 
+                          || $a->[2] <=> $b->[2] } 
+                               @restore_list;
+
+       # Now that everything is ready, we create the bsr
+       my $prev_fileindex=-1;
+       my $prev_volsessionid=-1;
+       my $prev_volsessiontime=-1;
+       my $prev_volumename=-1;
+       my $prev_volfile=-1;
+       my $prev_mediatype;
+       my $prev_volblocks;
+       my $count=0;
+       my $first_of_current_range=0;
+       my @fileindex_ranges;
+       my $bsr='';
+
+       foreach my $refrow (@restore_list)
+       {
+               my (undef,undef,$fileindex,$refother)=@{$refrow};
+               my (undef,$volsessionid,$volsessiontime,$volfile,undef,undef,
+                   $volblocks,undef,$volumename,$mediatype)=@{$refother};
+               
+               # We can specifiy the number of files in each section of the
+               # bsr to speedup restore (bacula can then jump over the
+               # end of tape files.
+               $count++;
+               
+               
+               if ($prev_volumename eq '-1')
+               {
+                       # We only have to start the new range...
+                       $first_of_current_range=$fileindex;
+               }
+               elsif ($prev_volsessionid != $volsessionid 
+                      or $prev_volsessiontime != $volsessiontime 
+                      or $prev_volumename ne $volumename 
+                      or $prev_volfile != $volfile)
+               {
+                       # We have to create a new section in the bsr...
+                       # We print the previous one ... 
+                       # (before that, save the current range ...)
+                       if ($first_of_current_range != $prev_fileindex)
+                       {
+                               # we are in a range
+                               push @fileindex_ranges,
+                                   ("$first_of_current_range-$prev_fileindex");
+                       }
+                       else
+                       {
+                                # We are out of a range,
+                                # but there is only one element in the range
+                               push @fileindex_ranges,
+                                   ("$first_of_current_range");
+                       }
+                       
+                       $bsr.=print_bsr_section(\@fileindex_ranges,
+                                               $prev_volsessionid,
+                                               $prev_volsessiontime,
+                                               $prev_volumename,
+                                               $prev_volfile,
+                                               $prev_mediatype,
+                                               $prev_volblocks,
+                                               $count-1);
+                       $count=1;
+                       # Reset for next loop
+                       @fileindex_ranges=();
+                       $first_of_current_range=$fileindex;
+               }
+               elsif ($fileindex-1 != $prev_fileindex)
+               {
+                       # End of a range of fileindexes
+                       if ($first_of_current_range != $prev_fileindex)
+                       {
+                               #we are in a range
+                               push @fileindex_ranges,
+                                   ("$first_of_current_range-$prev_fileindex");
+                       }
+                       else
+                       {
+                                # We are out of a range,
+                                # but there is only one element in the range
+                               push @fileindex_ranges,
+                                   ("$first_of_current_range");
+                       }
+                       $first_of_current_range=$fileindex;
+               }
+               $prev_fileindex=$fileindex;
+               $prev_volsessionid = $volsessionid;
+               $prev_volsessiontime = $volsessiontime;
+               $prev_volumename = $volumename;
+               $prev_volfile=$volfile;
+               $prev_mediatype=$mediatype;
+               $prev_volblocks=$volblocks;
+
+       }
+
+       # Ok, we're out of the loop. Alas, there's still the last record ...
+       if ($first_of_current_range != $prev_fileindex)
+       {
+               # we are in a range
+               push @fileindex_ranges,("$first_of_current_range-$prev_fileindex");
+               
+       }
+       else
+       {
+               # We are out of a range,
+               # but there is only one element in the range
+               push @fileindex_ranges,("$first_of_current_range");
+               
+       }
+       $bsr.=print_bsr_section(\@fileindex_ranges,
+                               $prev_volsessionid,
+                               $prev_volsessiontime,
+                               $prev_volumename,
+                               $prev_volfile,
+                               $prev_mediatype,
+                               $prev_volblocks,
+                               $count);
+       
+       return $bsr;
+}
+
+sub print_bsr_section
+{
+    my ($ref_fileindex_ranges,$volsessionid,
+       $volsessiontime,$volumename,$volfile,
+       $mediatype,$volblocks,$count)=@_;
+    
+    my $bsr='';
+    $bsr .= "Volume=\"$volumename\"\n";
+    $bsr .= "MediaType=\"$mediatype\"\n";
+    $bsr .= "VolSessionId=$volsessionid\n";
+    $bsr .= "VolSessionTime=$volsessiontime\n";
+    $bsr .= "VolFile=$volfile\n";
+    $bsr .= "VolBlock=$volblocks\n";
+    
+    foreach my $range (@{$ref_fileindex_ranges})
+    {
+       $bsr .= "FileIndex=$range\n";
+    }
+    
+    $bsr .= "Count=$count\n";
+    return $bsr;
+}
+
+# Get metadata
+{
+    my %attrib_name_id = ( 'st_dev' => 0,'st_ino' => 1,'st_mode' => 2,
+                         'st_nlink' => 3,'st_uid' => 4,'st_gid' => 5,
+                         'st_rdev' => 6,'st_size' => 7,'st_blksize' => 8,
+                         'st_blocks' => 9,'st_atime' => 10,'st_mtime' => 11,
+                         'st_ctime' => 12,'LinkFI' => 13,'st_flags' => 14,
+                         'data_stream' => 15);;
+    sub array_attrib
+    {
+       my ($attrib,$ref_attrib)=@_;
+       return $ref_attrib->[$attrib_name_id{$attrib}];
+    }
+       
+    sub file_attrib
+    {   # $file = [listfiles.id, listfiles.Name, File.LStat, File.JobId]
+
+       my ($file, $attrib)=@_;
+       
+       if (defined $attrib_name_id{$attrib}) {
+
+           my @d = split(' ', $file->[2]) ; # TODO : cache this
+           
+           return from_base64($d[$attrib_name_id{$attrib}]);
+
+       } elsif ($attrib eq 'jobid') {
+
+           return $file->[3];
+
+        } elsif ($attrib eq 'name') {
+
+           return $file->[1];
+           
+       } else  {
+           die "Attribute not known : $attrib.\n";
+       }
+    }
+
+    # Return the jobid or attribute asked for a dir
+    sub dir_attrib
+    {
+       my ($self,$dir,$attrib)=@_;
+       
+       my @dir = split('/',$dir,-1);
+       my $refdir=$self->{dirtree}->{$self->current_client};
+       
+       if (not defined $attrib_name_id{$attrib} and $attrib ne 'jobid')
+       {
+           die "Attribute not known : $attrib.\n";
+       }
+       # Find the leaf
+       foreach my $subdir (@dir)
+       {
+           $refdir = $refdir->[0]->{$subdir};
+       }
+       
+       # $refdir is now the reference to the dir's array
+       # Is the a jobid in @CurrentJobIds where the lstat is
+       # defined (we'll search in reverse order)
+       foreach my $jobid (reverse(sort {$a <=> $b } @{$self->{CurrentJobIds}}))
+       {
+           if (defined $refdir->[1]->{$jobid} and $refdir->[1]->{$jobid} ne '1')
+           {
+               if ($attrib eq 'jobid')
+               {
+                   return $jobid;
+               }
+               else
+               {
+                   my @attribs = parse_lstat($refdir->[1]->{$jobid});
+                   return $attribs[$attrib_name_id{$attrib}+1];
+               }
+           }
+       }
+
+       return 0; # We cannot get a good attribute.
+                 # This directory is here for the sake of visibility
+    }
+}
+
+{
+    # Base 64 functions, directly from recover.pl.
+    # Thanks to
+    # Karl Hakimian <hakimian@aha.com>
+    # This section is also under GPL v2 or later.
+    my @base64_digits;
+    my @base64_map;
+    my $is_init=0;
+    sub init_base64
+    {
+       @base64_digits = (
+       'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M',
+       'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z',
+       'a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'l', 'm',
+       'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v', 'w', 'x', 'y', 'z',
+       '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '+', '/'
+                         );
+       @base64_map = (0) x 128;
+       
+       for (my $i=0; $i<64; $i++) {
+           $base64_map[ord($base64_digits[$i])] = $i;
+       }
+       $is_init = 1;
+    }
+
+    sub from_base64 {
+       if(not $is_init)
+       {
+           init_base64();
+       }
+       my $where = shift;
+       my $val = 0;
+       my $i = 0;
+       my $neg = 0;
+       
+       if (substr($where, 0, 1) eq '-') {
+           $neg = 1;
+           $where = substr($where, 1);
+       }
+       
+       while ($where ne '') {
+           $val <<= 6;
+           my $d = substr($where, 0, 1);
+           $val += $base64_map[ord(substr($where, 0, 1))];
+           $where = substr($where, 1);
+       }
+       
+       return $val;
+    }
+
+    sub parse_lstat {
+       my ($lstat)=@_;
+       my @attribs = split(' ',$lstat);
+       foreach my $element (@attribs)
+       {
+           $element = from_base64($element);
+       }
+       return @attribs;
+    }
+}
+1;
+
+################################################################
+
+package main;
+
+my $conf = "$ENV{HOME}/.brestore.conf" ;
+my $p = new Pref($conf);
+
+if (! -f $conf) {
+    $p->write_config();
+}
+
+$glade_file = $p->{glade_file};
+
+foreach my $path ('','.','/usr/share/brestore','/usr/local/share/brestore') {
+    if (-f "$path/$glade_file") {
+       $glade_file = "$path/$glade_file" ;
+       last;
+    }
+}
+
+if ( -f $glade_file) {
+    my $w = new DlgResto($p);
+
+} else {
+    my $widget = Gtk2::MessageDialog->new(undef, 'modal', 'error', 'close', 
+"Can't find your brestore.glade (glade_file => '$glade_file')
+Please, edit your $conf to setup it." );
+ 
+    $widget->signal_connect('destroy', sub { Gtk2->main_quit() ; });
+    $widget->run;
+    exit 1;
+}
+
+Gtk2->main; # Start Gtk2 main loop     
+
+# that's it!
+
+exit 0;
+
+
+__END__
+
+TODO : 
+
+
+# Code pour trier les colonnes    
+    my $mod = $fileview->get_model();
+    $mod->set_default_sort_func(sub {
+            my ($model, $item1, $item2) = @_;
+            my $a = $model->get($item1, 1);  # récupération de la valeur de la 2ème 
+            my $b = $model->get($item2, 1);  # colonne (indice 1)
+            return $a cmp $b;
+        }
+    );
+    
+    $fileview->set_headers_clickable(1);
+    my $col = $fileview->get_column(1);    # la colonne NOM, colonne numéro 2
+    $col->signal_connect('clicked', sub {
+            my ($colonne, $model) = @_;
+            $model->set_sort_column_id (1, 'ascending');
+        },
+        $mod
+    );
Cloned from http://git.bacula.org/bacula