lots of update ...

 - cron work.
 - backup incremental & normal work.
 - corrupted backup data files supported.
 - error messages updated.
 - aff list of backup data files pbs.
 - test all backup files before to restore it.

1 files changed, 306 insertions, 187 deletions

diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup
index 692c4652e..c3a4169a4 100755
--- a/perl-install/standalone/drakbackup
+++ b/perl-install/standalone/drakbackup
@@ -84,10 +84,7 @@
 #
 #
 # TODO:
-#		  - problem with ./drakbackup --defaufts
-#		  - test backup before to restore it.
-#		1 - do not remove all backup when user unselect bz2 or gzip !
-#		3 - add port for ftp backup.
+#		  - remove user data before to restore it.
 #		4 - change NET::FTP to ftp cmds.  
 #		5 - add icons (win & lin) on adv_what_all.
 #	        6 - calcul disk space.
@@ -112,8 +109,11 @@
 #		18- boot floppy disk (with dialog)
 #		19- build autoboot with backup and install cd 
 #		20- use .backupignore like on CVS
-#		21 - afficher les modif dans un fichier texte du meme nom 
+#		21- afficher les modif dans un fichier texte du meme nom 
 #			pour afficher durant le restore.
+#		22- futur: could be possible to restore a specific file 
+#			or directory at specific date. 
+#		23- possible all files each time from directory.
 #		               
 # DONE TODAY:
 #________________________________________________________________
@@ -221,8 +221,8 @@ my $comp_mode = 0;
 my $backup_sys = 1;
 my $backup_user = 1;
 my $backup_daemon = 1;
-my $backup_sys_versions = 0;
-my $backup_user_versions = 0;
+my $backup_sys_versions = 1;
+my $backup_user_versions = 1;
 my $backup_other_versions = 0;
 my $what_no_browser = 1;
 my $cdrw = 0;
@@ -268,7 +268,8 @@ $build_floppy || $build_cd || $default || @list_arg || $conf_file ? build_backup
 sub read_passwd {
     my @tmp1;
     my @tmp2;
-    @user_and_path_list = map { (split(':', $_))[0] . ":" . (split(':', $_))[5] } grep {( split(':', $_))[2] > 500} split ('\n', cat_('/etc/passwd'));  
+    @user_and_path_list = map { 
+	(split(':', $_))[0] . ":" . (split(':', $_))[5] } grep {( split(':', $_))[2] > 500} split ('\n', cat_('/etc/passwd'));  
     $DEBUG and print "user_and_path_list: ".$_."\n" foreach (@user_and_path_list);
     @user_list = ();
     @all_user_list = ();
@@ -349,16 +350,28 @@ sub read_cron_files {
 }
 
 sub save_cron_files {
-    my @cron_file = ("#!/bin/sh\n", "\n", "/seb/cvs/gi/perl-install/standalone --default" );
+    my @cron_file = ("#!/bin/sh\n", "\n", "/usr/sbin/drakbackup --default" );
 
     if ($backup_daemon) {
 	foreach ('hourly', 'daily', 'weekly', 'monthly'){
 	    -f "/etc/cron.$_/drakbackup" and rm_rf("/etc/cron.$_/drakbackup");
 	}
-	if ( $when_space eq _("hourly"))     { output_p('/etc/cron.hourly/drakbackup',  @cron_file )}
-	elsif ( $when_space eq _("daily"))   { output_p('/etc/cron.daily/drakbackup',   @cron_file )}
-	elsif ( $when_space eq _("weekly"))  { output_p('/etc/cron.weekly/drakbackup',  @cron_file )}
-	elsif ( $when_space eq _("monthly")) { output_p('/etc/cron.monthly/drakbackup', @cron_file )}
+	if ( $when_space eq _("hourly"))     { 
+	    output_p('/etc/cron.hourly/drakbackup',  @cron_file );
+	    system("chmod 777 /etc/cron.hourly/drakbackup");
+	    }
+	elsif ( $when_space eq _("daily"))   { 
+	    output_p('/etc/cron.daily/drakbackup',   @cron_file );
+	    system("chmod 777 /etc/cron.daily/drakbackup");
+	    }
+	elsif ( $when_space eq _("weekly"))  { 
+	    output_p('/etc/cron.weekly/drakbackup',  @cron_file );
+	    system("chmod 777 /etc/cron.weekly/drakbackup");
+	    }
+	elsif ( $when_space eq _("monthly")) { 
+	    output_p('/etc/cron.monthly/drakbackup', @cron_file );
+	    system("chmod 777 /etc/cron.monthly/drakbackup");
+	    }
     } else {
 	foreach ('hourly', 'daily', 'weekly', 'monthly'){
 	    -f "/etc/cron.$_/drakbackup" and rm_rf("/etc/cron.$_/drakbackup");
@@ -457,10 +470,19 @@ sub build_backup_files {
     my @dir_content = ();
     my $file_date;
 
+    read_conf_file();
     the_time();    
     -d  $save_path or mkdir_p($save_path);
-    if ($comp_mode) { $tar_cmd = "tar cv --use-compress-program /usr/bin/bzip2 "; $tar_ext = "tar.bz2" }
-    else { $tar_cmd = "tar cvpz "; $tar_ext = "tar.gz"}
+    if ($comp_mode) { 
+	$DEBUG and $tar_cmd = "tar cv --use-compress-program /usr/bin/bzip2 ";
+	$DEBUG or $tar_cmd = "tar c --use-compress-program /usr/bin/bzip2 "; 
+	$tar_ext = "tar.bz2" ;
+    }
+    else { 
+	$DEBUG and $tar_cmd = "tar cvpz "; 
+	$DEBUG or $tar_cmd = "tar cpz "; 
+	$tar_ext = "tar.gz"
+	}
     $tar_cmd_sys = $tar_cmd;
     $tar_cmd_user = $tar_cmd;
     $tar_cmd_other = $tar_cmd;
@@ -477,22 +499,30 @@ sub build_backup_files {
  		if (grep /^backup\_incr\_sys/, @dir_content) { 
 		    my @more_recent = grep /^backup\_incr\_sys/, sort @dir_content; 
 		    $more_recent = pop @more_recent;
-		    my @files_list = system("find @sys_files -newer $save_path/$more_recent");
-		    system("$tar_cmd_sys -f $save_path/backup_incr_sys$the_time.$tar_ext @files_list");
+ system("find @sys_files -cnewer $save_path/$more_recent \! -type d -print > $save_path/list_incr_sys$the_time.txt");
+		    if (!cat_("$save_path/list_incr_sys$the_time.txt")) {
+			system("rm $save_path/list_incr_sys$the_time.txt");
+		    } else {
+ system("$tar_cmd_sys -f $save_path/backup_incr_sys$the_time.$tar_ext -T $save_path/list_incr_sys$the_time.txt");
+		    }
 		}
   		elsif (grep /^backup\_base\_sys/,  @dir_content) { 
 		    my @more_recent = grep /^backup\_base\_sys/, sort @dir_content; 
 		    $more_recent = pop @more_recent;
-		    my @files_list = system("find @sys_files -newer $save_path/$more_recent");
-		    system("$tar_cmd_sys -f $save_path/backup_incr_sys$the_time.$tar_ext @files_list");
+  system("find @sys_files -cnewer $save_path/$more_recent \! -type d -print > $save_path/list_incr_sys$the_time.txt");
+		    if (!cat_("$save_path/list_incr_sys$the_time.txt")) {
+			system("rm $save_path/list_incr_sys$the_time.txt");
+		    } else {
+  system("$tar_cmd_sys -f $save_path/backup_incr_sys$the_time.$tar_ext -T $save_path/list_incr_sys$the_time.txt");
+		    }
 		   }
 		else { 
-		    system("$tar_cmd_sys -f $save_path/backup_base_sys$the_time.$tar_ext @sys_files"); 
+  system("$tar_cmd_sys -f $save_path/backup_base_sys$the_time.$tar_ext @sys_files"); 
 		}
 	    }
 	    else {
-		system("cd $save_path && rm -f backup_sys* backup_base_sys* backup_incr_sys*");
-		system("$tar_cmd_sys -f $save_path/backup_sys$the_time.$tar_ext @sys_files");
+  system("cd $save_path && rm -f backup_sys* backup_base_sys* backup_incr_sys*");
+  system("$tar_cmd_sys -f $save_path/backup_sys$the_time.$tar_ext @sys_files");
 	    }
 	}
 	
@@ -500,8 +530,8 @@ sub build_backup_files {
 	$interactive and progress($pbar3, 0.3, _("Hard Disk Backup files..."));
 
 	if (@list_other) {
-	    system("cd $save_path && rm -f backup_other* ");
-	    system("$tar_cmd_other -f $save_path/backup_other$the_time.$tar_ext @list_other");
+  system("cd $save_path && rm -f backup_other* ");
+  system("$tar_cmd_other -f $save_path/backup_other$the_time.$tar_ext @list_other");
 	    foreach (@list_other) { push @list_other_, $_ . "\n"; }
 	    output_p( $save_path . '/list_other', @list_other_);    
 	}
@@ -517,14 +547,22 @@ sub build_backup_files {
 		    if (grep(/^backup\_incr\_user\_$user\_/, @dir_content)) { 
 			my @more_recent = grep /^backup\_incr\_user\_$user\_/, sort @dir_content; 
 			$more_recent = pop @more_recent;
-			my @files_list = system("find $path_name -cnewer $save_path/$more_recent");
-			system("$tar_cmd_user -f $save_path/backup_incr_user_$user$the_time.$tar_ext @files_list ");
+ system("find $path_name -cnewer $save_path/$more_recent \! -type d -print > $save_path/list_incr_user_$user$the_time.txt");
+			if (!cat_("$save_path/list_incr_user_$user$the_time.txt")) {
+			    system("rm $save_path/list_incr_user_$user$the_time.txt");
+			} else {
+ system("$tar_cmd_user -f $save_path/backup_incr_user_$user$the_time.$tar_ext -T $save_path/list_incr_user_$user$the_time.txt");
+			}
 		    }
 		    elsif (grep /^backup\_base\_user\_$user\_/, @dir_content) { 
 			my @more_recent = grep /^backup\_base\_user\_$user\_/, sort @dir_content; 
 			$more_recent = pop @more_recent;			
-			my @files_list = system("find $path_name -cnewer $save_path/$more_recent");
-			system("$tar_cmd_user -f $save_path/backup_incr_user_$user$the_time.$tar_ext @files_list ");
+ system("find $path_name -cnewer $save_path/$more_recent \! -type d -print > $save_path/list_incr_user_$user$the_time.txt");
+			if (!cat_("$save_path/list_incr_user_$user$the_time.txt")) {
+			    system("rm $save_path/list_incr_user_$user$the_time.txt");
+			} else {
+ system("$tar_cmd_user -f $save_path/backup_incr_user_$user$the_time.$tar_ext -T $save_path/list_incr_user_$user$the_time.txt");
+			}
 		    }
 		    else {
 			system("$tar_cmd_user -f $save_path/backup_base_user_$user$the_time.$tar_ext $path_name");
@@ -612,15 +650,15 @@ sub advanced_what_sys {
     my $box_what_sys;
     
     gtkpack($advanced_box,
-	    $box_what_sys = gtkpack_(new Gtk::VBox(0, 15),
-				     1, _("\nPlease check all options that you need.\n"),
-				     1, _("This options can backup and restore all files on your /etc directory.\n"),
-				     0, my $check_what_sys = new Gtk::CheckButton( _("Backup your System files. ( /etc directory )")),
-				     0, my $check_what_versions = new Gtk::CheckButton( _("Use incremental backup  (do not replace old backups)") ),
-				     0, my $check_what_critical = new Gtk::CheckButton( _("Do not include critical files (passwd, goup, fstab)") ),
-				     0, _("With this option you will be able to restore any version\n of your /etc directory."),
-				     1, new Gtk::VBox(0, 15),
-				     ),
+	    $box_what_sys =  gtkpack_(new Gtk::VBox(0, 15),
+		     1, _("\nPlease check all options that you need.\n"),
+		     1, _("This options can backup and restore all files on your /etc directory.\n"),
+		     0, my $check_what_sys = new Gtk::CheckButton( _("Backup your System files. ( /etc directory )")),
+		     0, my $check_what_versions = new Gtk::CheckButton( _("Use incremental backup  (do not replace old backups)") ),
+		     0, my $check_what_critical = new Gtk::CheckButton( _("Do not include critical files (passwd, goup, fstab)") ),
+		     0, _("With this option you will be able to restore any version\n of your /etc directory."),
+		     1, new Gtk::VBox(0, 15),
+		     ),
 	    );
     foreach ([$check_what_sys, \$backup_sys], [$check_what_critical, \$no_critical_sys]) {
 	my $ref = $_->[1];
@@ -671,7 +709,7 @@ sub advanced_what_user {
 							),
 							       ),
 				      0, my $check_what_browser = new Gtk::CheckButton( _(" do not include the browser cache") ),
-				      0, my $check_what_user_versions = new Gtk::CheckButton( _("Use Incremental Backups  (do not replace old backups)") ),
+	    0, my $check_what_user_versions = new Gtk::CheckButton( _("Use Incremental Backups  (do not replace old backups)") ),
 				      ),
 	    );
     foreach ([$check_what_browser, \$what_no_browser]) {
@@ -697,15 +735,15 @@ sub advanced_what_other {
     
     gtkpack($advanced_box,
 	    $box_what_other = gtkpack_(new Gtk::VBox(0, 15),
-				  1, gtkpack_(new Gtk::HBox(0,4),
-					      1, createScrolledWindow($list_other),
-					      ),
-				  0, gtkadd(gtkset_layout(new Gtk::HButtonBox, -spread),
-					    gtksignal_connect(new Gtk::Button(_("Add")), clicked => sub {filedialog()  }),
-					    gtksignal_connect(new Gtk::Button(_("Remove Selected")), clicked => \&list_remove, $list_other),
-					    ),
-				  0, gtkset_sensitive(my $check_what_other_versions = new Gtk::CheckButton( _("Use Incremental Backups  (do not replace old backups)") ), 0),
-				       ),
+		     1, gtkpack_(new Gtk::HBox(0,4),
+				 1, createScrolledWindow($list_other),
+				 ),
+		     0, gtkadd(gtkset_layout(new Gtk::HButtonBox, -spread),
+			       gtksignal_connect(new Gtk::Button(_("Add")), clicked => sub {filedialog()  }),
+			       gtksignal_connect(new Gtk::Button(_("Remove Selected")), clicked => \&list_remove, $list_other),
+			       ),
+		     0, gtkset_sensitive(my $check_what_other_versions = new Gtk::CheckButton( _("Use Incremental Backups  (do not replace old backups)") ), 0),
+		     ),
 	    );
     gtksignal_connect(gtkset_active($check_what_other_versions, $backup_other_versions), toggled => sub {
 	$backup_other_versions = $backup_other_versions ? 0 : 1;
@@ -727,28 +765,28 @@ sub advanced_what_entire_sys{
 
     gtkpack($advanced_box,
 	    $box_what = gtkpack_(new Gtk::HBox(0, 15),
+		     1, new Gtk::VBox(0, 5),
+		     1, gtkpack_(new Gtk::VBox(0, 15),	
+				 1, new Gtk::VBox(0, 5),
+				 1, gtksignal_connect(my $button_what_other = new Gtk::Button(), 
+						      clicked => sub { ${$central_widget}->destroy(); message_underdevel(); }),
+				 1, gtksignal_connect(my $button_what_all = new Gtk::Button(), 
+						      clicked => sub { ${$central_widget}->destroy(); message_underdevel(); }),
 				 1, new Gtk::VBox(0, 5),
-				 1, gtkpack_(new Gtk::VBox(0, 15),	
-					  1, new Gtk::VBox(0, 5),
-					  1, gtksignal_connect(my $button_what_other = new Gtk::Button(), 
-							       clicked => sub { ${$central_widget}->destroy(); message_underdevel(); }),
-					  1, gtksignal_connect(my $button_what_all = new Gtk::Button(), 
-							       clicked => sub { ${$central_widget}->destroy(); message_underdevel(); }),
-					  1, new Gtk::VBox(0, 5),
-					  ),
-				 1, new Gtk::VBox(0, 5),	
 				 ),
+		     1, new Gtk::VBox(0, 5),	
+		     ),
 	    );
     $button_what_other->add(gtkpack(new Gtk::HBox(0,10),
-				  new Gtk::Pixmap($pix_sys_map, $pix_sys_mask),
-				  new Gtk::Label(_(" Linux ")),
-				  new Gtk::HBox(0, 5)
-				  ));
+				    new Gtk::Pixmap($pix_sys_map, $pix_sys_mask),
+				    new Gtk::Label(_(" Linux ")),
+				    new Gtk::HBox(0, 5)
+				    ));
     $button_what_all->add(gtkpack(new Gtk::HBox(0,10),
-				   new Gtk::Pixmap($pix_user_map, $pix_user_mask),
+				  new Gtk::Pixmap($pix_user_map, $pix_user_mask),
 				   new Gtk::Label(_(" Windows (FAT32) ")),
-				   new Gtk::HBox(0, 5)
-				   ));
+				  new Gtk::HBox(0, 5)
+				  ));
     $custom_help = "";
     $current_widget = \&advanced_what_entire_sys;
     $previous_widget =\&advanced_what;
@@ -765,21 +803,21 @@ sub advanced_what{
     my ($pix_sysp_map, $pix_sysp_mask) = gtkcreate_png("ic82-systemeplus-40");
 
     gtkpack($advanced_box,
-	    $box_what = gtkpack_(new Gtk::HBox(0, 15),
+	    $box_what =  gtkpack_(new Gtk::HBox(0, 15),
+		     1, new Gtk::VBox(0, 5),
+		     1, gtkpack_(new Gtk::VBox(0, 15),	
 				 1, new Gtk::VBox(0, 5),
-				 1, gtkpack_(new Gtk::VBox(0, 15),	
-					  1, new Gtk::VBox(0, 5),
-					  1, gtksignal_connect(my $button_what_sys = new Gtk::Button(), 
-							    clicked => sub { $box_what->destroy(); advanced_what_sys(); }),
-					  1, gtksignal_connect(my $button_what_user = new Gtk::Button(), 
-							    clicked => sub { ${$central_widget}->destroy(); advanced_what_user();}),
-					  1, gtksignal_connect(my $button_what_other = new Gtk::Button(), 
-							    clicked => sub { ${$central_widget}->destroy(); advanced_what_other(); }),
-					  1, gtksignal_connect(my $button_what_all = new Gtk::Button(), 
-							    clicked => sub { ${$central_widget}->destroy(); advanced_what_entire_sys(); }),
-					  1, new Gtk::VBox(0, 5),
-					  ),
-				 1, new Gtk::VBox(0, 5),	
+				 1, gtksignal_connect(my $button_what_sys = new Gtk::Button(), 
+						      clicked => sub { $box_what->destroy(); advanced_what_sys(); }),
+				 1, gtksignal_connect(my $button_what_user = new Gtk::Button(), 
+						      clicked => sub { ${$central_widget}->destroy(); advanced_what_user();}),
+				 1, gtksignal_connect(my $button_what_other = new Gtk::Button(), 
+						      clicked => sub { ${$central_widget}->destroy(); advanced_what_other(); }),
+				 1, gtksignal_connect(my $button_what_all = new Gtk::Button(), 
+						  clicked => sub { ${$central_widget}->destroy(); advanced_what_entire_sys(); }),
+				 1, new Gtk::VBox(0, 5),
+				 ),
+		     1, new Gtk::VBox(0, 5),	
 				 ),
 	    );
     $button_what_sys->add(gtkpack(new Gtk::HBox(0,10),
@@ -824,7 +862,7 @@ sub advanced_where_net_ftp {
 		     0, gtkset_sensitive(my $host_name_entry = new Gtk::Entry(), $where_net_ftp),
 		     ),
 	 0, gtkpack_(new Gtk::HBox(0,10),
-		   0, gtkset_sensitive(new Gtk::Label(_("Please entrer the directory to\n put the backup on this host. ")), $where_net_ftp),
+	 0, gtkset_sensitive(new Gtk::Label(_("Please entrer the directory to\n put the backup on this host. ")), $where_net_ftp),
 		     1, new Gtk::HBox(0,10),
 		     0, gtkset_sensitive(my $host_path_entry = new Gtk::Entry(), $where_net_ftp), 
 		     ),
@@ -839,8 +877,8 @@ sub advanced_where_net_ftp {
 		     0, gtkset_sensitive(my $passwd_user_entry = new Gtk::Entry(), $where_net_ftp),
 		     ),
 	 0, gtkpack_(new Gtk::HBox(0,10),
-		     1, new Gtk::HBox(0,10),
-		     0, gtkset_sensitive(my $check_remember_pass = new Gtk::CheckButton( _(" remember this password")), $where_net_ftp),
+	   1, new Gtk::HBox(0,10),
+	   0, gtkset_sensitive(my $check_remember_pass = new Gtk::CheckButton( _(" remember this password")), $where_net_ftp),
 		     ),
 	 ),
 	    );
@@ -966,15 +1004,15 @@ sub advanced_where_cd {
 		     ),
 	 0, new Gtk::VBox(0, 5),
 	 0, gtkpack_(new Gtk::HBox(0,10),
-		     0, gtkset_sensitive(new Gtk::Label(_("Please check if you want to erase your CDRW before")), $cdrw && $where_cd),
-		     1, new Gtk::VBox(0, 5),
-		     0, gtkset_sensitive(my $check_cdrw_erase = new Gtk::CheckButton(), $cdrw && $where_cd),
+	    0, gtkset_sensitive(new Gtk::Label(_("Please check if you want to erase your CDRW before")), $cdrw && $where_cd),
+	    1, new Gtk::VBox(0, 5),
+	    0, gtkset_sensitive(my $check_cdrw_erase = new Gtk::CheckButton(), $cdrw && $where_cd),
 		     ),
 	 0, new Gtk::VBox(0, 5),
 	 0, gtkpack_(new Gtk::HBox(0,10),
-		     0, gtkset_sensitive(new Gtk::Label(_(" Please check if you want to include\n install boot on your CD.")),  $where_cd),
-		     1, new Gtk::VBox(0, 5),
-		     0, gtkset_sensitive(my $check_cd_with_install_boot = new Gtk::CheckButton(), $where_cd),
+	   0, gtkset_sensitive(new Gtk::Label(_(" Please check if you want to include\n install boot on your CD.")),  $where_cd),
+	   1, new Gtk::VBox(0, 5),
+	   0, gtkset_sensitive(my $check_cd_with_install_boot = new Gtk::CheckButton(), $where_cd),
 		     ),
 	 0, new Gtk::VBox(0, 5),
 	 0, gtkpack_(new Gtk::HBox(0,10),
@@ -1029,9 +1067,9 @@ gtkpack($advanced_box,
 				 ),
 		 0, new Gtk::VBox(0, 6),
 		 0, gtkpack_(new Gtk::HBox(0,10),
-			     0, gtkset_sensitive(new Gtk::Label(_("Please entrer the maximum size\n allowed for Drakbackup ")), $where_tape),
-			     1, new Gtk::VBox(0, 6),
-			     0, gtkset_usize(gtkset_sensitive(my $spinner = new Gtk::SpinButton( $adj, 0, 0), $where_tape ), 200, 20),
+		  0, gtkset_sensitive(new Gtk::Label(_("Please entrer the maximum size\n allowed for Drakbackup ")), $where_tape),
+		  1, new Gtk::VBox(0, 6),
+		  0, gtkset_usize(gtkset_sensitive(my $spinner = new Gtk::SpinButton( $adj, 0, 0), $where_tape ), 200, 20),
 			     ),
 		     0, gtkpack_(new Gtk::HBox(0,10),
 				 ),
@@ -1073,13 +1111,13 @@ sub advanced_where_hd {
 		     ),
 	 0, new Gtk::VBox(0, 6),
 	 0, gtkpack_(new Gtk::HBox(0,10),
-		     0, gtkset_sensitive(new Gtk::Label(_("Please entrer the maximum size\n allowed for Drakbackup ")),  $where_hd ),
-		     1, new Gtk::VBox(0, 6),
-		     0, gtkset_usize(gtkset_sensitive(my $spinner = new Gtk::SpinButton( $adj, 0, 0), $where_hd ), 200, 20),
+	   0, gtkset_sensitive(new Gtk::Label(_("Please entrer the maximum size\n allowed for Drakbackup ")),  $where_hd ),
+	   1, new Gtk::VBox(0, 6),
+	   0, gtkset_usize(gtkset_sensitive(my $spinner = new Gtk::SpinButton( $adj, 0, 0), $where_hd ), 200, 20),
 		     ),
 	 0, gtkpack_(new Gtk::HBox(0,10),
 		     1, new Gtk::VBox(0, 6),
-		     0, gtkset_sensitive(my $check_where_hd_quota = new Gtk::CheckButton( _(" Use quota for backup files.")), $where_hd ),
+	   0, gtkset_sensitive(my $check_where_hd_quota = new Gtk::CheckButton( _(" Use quota for backup files.")), $where_hd ),
 		     0, new Gtk::VBox(0, 6),
 		     ),
 	 ),
@@ -1185,9 +1223,9 @@ sub advanced_when{
 		   0, gtkset_sensitive(new Gtk::Label(_("Please choose\nmedia to backup. ")), $backup_daemon),
 		   1, new Gtk::HBox(0,10),
 		   0, gtkpack_(new Gtk::VBox(0,10),
-		       0, gtkset_sensitive($check_where_cd_daemon = new Gtk::CheckButton(_(" Use CD/DVDROM with daemon")), $backup_daemon),
-		       0, gtkset_sensitive($check_where_hd_daemon = new Gtk::CheckButton( _(" Use Hard Drive with daemon")), $backup_daemon),
-		       0, gtkset_sensitive($check_where_net_daemon = new Gtk::CheckButton( _(" Use Network with daemon")), $backup_daemon),
+	   0, gtkset_sensitive($check_where_cd_daemon = new Gtk::CheckButton(_(" Use CD/DVDROM with daemon")), $backup_daemon),
+	   0, gtkset_sensitive($check_where_hd_daemon = new Gtk::CheckButton( _(" Use Hard Drive with daemon")), $backup_daemon),
+	   0, gtkset_sensitive($check_where_net_daemon = new Gtk::CheckButton( _(" Use Network with daemon")), $backup_daemon),
 			       ),
 		      ),
 	  0, new Gtk::HSeparator,
@@ -1206,7 +1244,8 @@ sub advanced_when{
     $custom_help = "";
     $combo_when_space->entry->set_text( $when_space );
     $combo_when_space->entry->signal_connect( 'changed', sub { 
-	$when_space = $combo_when_space->entry->get_text();  print $when_space."\n";});
+	$when_space = $combo_when_space->entry->get_text();
+    });
     $current_widget = \&advanced_when;
     $previous_widget =\&advanced_box;
     $central_widget = \$box_when;
@@ -1228,7 +1267,7 @@ sub advanced_options{
 				 0, new Gtk::HSeparator,
 				 0, gtkpack_(new Gtk::VBox(0,10),
 					     0, gtkset_sensitive(my $check_tar_bz2  = new Gtk::CheckButton( _(" Use Tar and bzip2  ( very slow) [please be careful if you\n (un)select this option all your old backups will be deleted ]") ), 0),
-					     0, gtkset_sensitive(my $check_backupignore = new Gtk::CheckButton( _(" Use .backupignore files")), 0),
+			 0, gtkset_sensitive(my $check_backupignore = new Gtk::CheckButton( _(" Use .backupignore files")), 0),
 					     ),
 				 ),
 	    );
@@ -1409,11 +1448,11 @@ sub wizard   {
 					  0, my $check_wizard_sys = new Gtk::CheckButton(_("Backup system")),
 					  0, my $check_wizard_user = new Gtk::CheckButton(_("Backup Users")),
 					  0, gtkpack_(new Gtk::HBox(0, 15),
-						      1, new Gtk::VBox(0, 5),	
-						      0, gtksignal_connect(new Gtk::Button(_("Select user manually")), clicked => sub {
-							  ${$central_widget}->destroy();
-							  advanced_what_user(\&wizard);
-							  }),
+					       1, new Gtk::VBox(0, 5),	
+					       0, gtksignal_connect(new Gtk::Button(_("Select user manually")), clicked => sub {
+						   ${$central_widget}->destroy();
+						   advanced_what_user(\&wizard);
+					       }),
 						      ),
 					  1, new Gtk::VBox(0, 5),	
 					  ),
@@ -1513,8 +1552,11 @@ sub system_state {
 }
 
 sub restore_state {
+    my @tmp = split( ' ', $restore_step_sys_date);
     $restore_state = _("List of data to restore:\n\n");
-    if ($restore_sys) { $restore_state .= "- Restore System Files.\n" }
+    if ($restore_sys) { $restore_state .= "- Restore System Files.\n";
+			$restore_state .= "   - from date: $tmp[0] $tmp[1]\n";
+			}
     if ($restore_user) { 
 	$restore_state .= "- Restore Users Files: \n" ;
 	$restore_state .= "\t\t$_\n" foreach @user_list_to_restore2 ;
@@ -1522,7 +1564,7 @@ sub restore_state {
     }
     if ($restore_other) { 
 	$restore_state .= "- Restore Other Files: \n";
-	-f "$path_to_find_restore/list_other" and $restore_state .= "\t\t$_\n" foreach split( "\n", cat_("$path_to_find_restore/list_other")); 
+	-f "$path_to_find_restore/list_other" and $restore_state .= "\t\t$_\n" foreach split( "\n", cat_("$path_to_find_restore/list_other"));  
     }
     if ($restore_other_path) {
 	$restore_state .= "- Path to Restore: $restore_path \n";
@@ -1544,7 +1586,7 @@ sub select_user_data_to_restore {
     my @list_tmp2 = ();
     @user_list_to_restore = ();
 
-    -d $path_to_find_restore and my @list_backup_tmp2 = all($path_to_find_restore);
+    -d $path_to_find_restore and my @list_backup_tmp2 = grep /^backup/, all($path_to_find_restore);
     @list_tmp2 = @list_backup_tmp2;
     foreach (@list_backup_tmp2) {
 	s/\_base//gi;
@@ -1582,10 +1624,9 @@ sub select_sys_data_to_restore {
     my @list_tmp = ();
     @sys_list_to_restore = ();
 
-    -d $path_to_find_restore and my @list_tmp = all($path_to_find_restore);
+    -d $path_to_find_restore and my @list_tmp = grep /^backup/, all($path_to_find_restore);
     my @more_recent = split( ' ', $restore_step_sys_date); 
     my $more_recent = pop @more_recent;
-    print "list_tmp content: $_\n" foreach (@list_tmp);
     foreach my $var_exist (grep /\_sys\_/, sort @list_tmp) {
 	if ($var_exist =~ /$more_recent/ ) {
 	    push @sys_list_to_restore, $var_exist;
@@ -1600,66 +1641,106 @@ sub valid_backup_test {
     @files_corrupted = ();
     my $is_corrupted = 0;
     foreach (@files_list) {
-	if (system("gzip -l $_ ") != 0) {
+	if (system("gzip -l $path_to_find_restore/$_ ") > 1 ) {
 	    push @files_corrupted, $_;
 	    $is_corrupted = -1;
 	}
     }
     return $is_corrupted;
-#(seb@lutin)[~]-% gzip -l old_drakbackup.tar.gz 
-#compressed  uncompr. ratio uncompressed_name
-#   128662    174080  26.1% old_drakbackup.tar
-
-
-#### tester integrite archive
-
-# idem pour bzip2 -t
-# (seb@lutin)[~]-% gzip -t drakbackup.tar.gz
-#
-# gzip: drakbackup.tar.gz: invalid compressed data--crc error
-#
-# gzip: drakbackup.tar.gz: invalid compressed data--length error
+}
 
+sub restore_aff_backup_problems {
+    my $do_restore;
+    my $button_restore;
+    my $text = new Gtk::Text(undef, undef);
+    my ($pix_warn_map, $pix_warn_mask) = gtkcreate_png('warning');
+    my $restore_pbs_state = _("List of data corrupted:\n\n");
+    $restore_pbs_state .= "\t\t$_\n" foreach @files_corrupted ;
+    $restore_pbs_state .= _("Please uncheck or remove it on next time.");
+    gtktext_insert($text, $restore_pbs_state);
+    button_box_restore_main();    
 
-### -> renvoit liste des fichiers corrompus
+    gtkpack($advanced_box,
+	    $do_restore = gtkpack_(new Gtk::VBox(0,10),
+				   0, new Gtk::VBox(0,10),
+				   1, gtkpack_(new Gtk::HBox(0, 15),	
+					      1, new Gtk::VBox(0, 5),	
+					      0, new Gtk::Pixmap($pix_warn_map, $pix_warn_mask),
+					      0, _("         Backup files are corrupted      "),
+					      1, new Gtk::VBox(0, 5),	
+					  ),
+				   0, new Gtk::VBox(0,10),
+				   1, createScrolledWindow($text),
+				   ),
+	    );
+    button_box_restore_pbs_end();
+    $custom_help = "restore_pbs";
+    $current_widget = \&restore_aff_backup_problems;
+    $central_widget = \$do_restore;
+    $up_box->show_all();
 }
 
-
-sub restore_aff_backup_problems {
+sub restore_aff_result {
+    my $do_restore;
+    my $text = new Gtk::Text(undef, undef);
+    gtktext_insert($text, $restore_state);
+    button_box_restore_main();
+    
+    gtkpack($advanced_box,
+	    $do_restore = gtkpack_(new Gtk::VBox(0,10),
+				   1, new Gtk::VBox(0,10),
+				   0, _("         All your selectionned data have been          "),
+				   0, _("          Successfuly Restored on $restore_path       "),
+				   1, new Gtk::VBox(0,10),
+				   ),
+	    );
+    button_box_build_backup_end();
+    $central_widget = \$do_restore;
+    $up_box->show_all();
 
 }
 
 sub restore_backend {
     my $untar_cmd;
+    my $exist_problem = 0;
     if (grep /tar.gz$/, all($path_to_find_restore)) { $untar_cmd = 0; } 
     else { $untar_cmd = 1; }
     
     if ($restore_user)  { 
 	if ($backup_user_versions) {
 	    select_user_data_to_restore();
-	    if (valid_backup_test() == -1) {
+	    if (valid_backup_test(@user_list_to_restore) == -1) {
+		$exist_problem = 1;
 		restore_aff_backup_problems();
 	    } else {
-		$untar_cmd or system(" echo 'user: $_' && tar xfz  $path_to_find_restore/$_ -C $restore_path") foreach @user_list_to_restore;
-		$untar_cmd and system("echo 'user: $_' && /usr/bin/bzip2 -cd $path_to_find_restore/$_ | tar xf -C $restore_path ") foreach @user_list_to_restore;
+		foreach my $data_user_list (@user_list_to_restore) {
+#		    rm_rf(return_path($user)
+		    $untar_cmd or system(" tar xfz  $path_to_find_restore/$data_user_list -C $restore_path") ;
+		    $untar_cmd and system("/usr/bin/bzip2 -cd $path_to_find_restore/$data_user_list | tar xf -C $restore_path ") ;
+		}
 	    }
 	}
     }
     if ($restore_sys)   { 
 	if ($backup_sys_versions) {
 	    select_sys_data_to_restore();
-	    $untar_cmd or system("echo 'sys: $_'  && cd /tmp && tar xfz $path_to_find_restore/$_  -C $restore_path ") foreach @sys_list_to_restore;
-	    $untar_cmd and system("echo 'sys: $_' cd /tmp && /usr/bin/bzip2 -cd $path_to_find_restore/$_  | tar xf -C $restore_path ") foreach @sys_list_to_restore;
+	    if (valid_backup_test(@sys_list_to_restore) == -1) {
+		$exist_problem = 1;
+		restore_aff_backup_problems();
+	    } else {
+ $untar_cmd or system("tar xfz $path_to_find_restore/$_  -C $restore_path ") foreach @sys_list_to_restore;
+ $untar_cmd and system("/usr/bin/bzip2 -cd $path_to_find_restore/$_  | tar xf -C $restore_path ") foreach @sys_list_to_restore;
+		}
 	} else {
-	    $untar_cmd or system("echo restore_sys  && cd /tmp && tar xfz $path_to_find_restore/backup_sys.tar.gz  -C $restore_path ");
-	    $untar_cmd and system("echo restore_sys cd /tmp && /usr/bin/bzip2 -cd $path_to_find_restore/backup_sys.tar.bz2  | tar xf -C $restore_path ");
+ $untar_cmd or system("tar xfz $path_to_find_restore/backup_sys.tar.gz  -C $restore_path ");
+ $untar_cmd and system("/usr/bin/bzip2 -cd $path_to_find_restore/backup_sys.tar.bz2  | tar xf -C $restore_path ");
 	}	    
     }
     if ($restore_other) { 
-	$untar_cmd or system("echo backup_other && cd /tmp && tar xfz $path_to_find_restore/backup_other.tar.gz  -C $restore_path ");
-	$untar_cmd and system("echo backup_other && cd /tmp && /usr/bin/bzip2 -cd $path_to_find_restore/backup_other.tar.bz2  | tar xf -C $restore_path ");
+ $untar_cmd or system("tar xfz $path_to_find_restore/backup_other.tar.gz  -C $restore_path ");
+ $untar_cmd and system("/usr/bin/bzip2 -cd $path_to_find_restore/backup_other.tar.bz2  | tar xf -C $restore_path ");
     }
-    print "End of restore\n";
+    $exist_problem or restore_aff_result();
 }
 
 sub restore_do {
@@ -1709,7 +1790,7 @@ sub restore_step_other {
 	    $retore_step_other = gtkpack_(new Gtk::VBox(0,10),
 					  1, new Gtk::VBox(0,10),
 					  1, createScrolledWindow($text),
-					  0, my $check_restore_other_sure = new Gtk::CheckButton(_(" Sure to restore the other files .")),
+			      0, my $check_restore_other_sure = new Gtk::CheckButton(_(" Sure to restore the other files .")),
 					  1, new Gtk::VBox(0,10),
 					  ),
 	    );
@@ -1814,7 +1895,7 @@ sub restore_other_media_hd {
     my $box_where_hd;
     my $button;
     my $adj = new Gtk::Adjustment 550.0, 1.0, 10000.0, 1.0, 5.0, 0.0;
-    my ($pix_fs_map, $pix_fs_mask) = gtkcreate_png("filedialog");
+    my ($pix_fs_map, $pix_fs_mask) = gtkcreate_png("ic82-dossier-32");
     
     gtkpack($advanced_box,
 	    $box_where_hd = gtkpack_(new Gtk::VBox(0, 6),
@@ -1830,14 +1911,14 @@ sub restore_other_media_hd {
 		     ),
 	 0, new Gtk::VBox(0, 6),
 	 0, gtkpack_(new Gtk::HBox(0,10),
-		     0, gtkset_sensitive(new Gtk::Label(_("Please entrer the maximum size\n allowed for Drakbackup ")),  $where_hd ),
-		     1, new Gtk::VBox(0, 6),
-		     0, gtkset_usize(gtkset_sensitive(my $spinner = new Gtk::SpinButton( $adj, 0, 0), $where_hd ), 200, 20),
+	    0, gtkset_sensitive(new Gtk::Label(_("Please entrer the maximum size\n allowed for Drakbackup ")),  $where_hd ),
+	    1, new Gtk::VBox(0, 6),
+	    0, gtkset_usize(gtkset_sensitive(my $spinner = new Gtk::SpinButton( $adj, 0, 0), $where_hd ), 200, 20),
 		     ),
 	 0, gtkpack_(new Gtk::HBox(0,10),
-		     1, new Gtk::VBox(0, 6),
-		     0, gtkset_sensitive(my $check_where_hd_quota = new Gtk::CheckButton( _(" Use quota for backup files.")), $where_hd ),
-		     0, new Gtk::VBox(0, 6),
+	    1, new Gtk::VBox(0, 6),
+	    0, gtkset_sensitive(my $check_where_hd_quota = new Gtk::CheckButton( _(" Use quota for backup files.")), $where_hd ),
+	    0, new Gtk::VBox(0, 6),
 		     ),
 	 ),
 	    );
@@ -1874,7 +1955,7 @@ sub restore_find_net {
 						  1, gtksignal_connect(new Gtk::Button(_(" FTP Connexion")), clicked => sub { 
 						      $box_where_net->destroy(); 
 						      if ($previous_function ) {
-							  advanced_where_net_ftp(\&$previous_function);
+							  message_underdevel();
 						      } else {
 							  advanced_where_net_ftp();
 						      }}),
@@ -1903,7 +1984,7 @@ sub restore_other_media {
     my $box_find_restore;
     my $button;
     my $adj = new Gtk::Adjustment 550.0, 1.0, 10000.0, 1.0, 5.0, 0.0;
-    my ($pix_fs_map, $pix_fs_mask) = gtkcreate_png("filedialog");
+    my ($pix_fs_map, $pix_fs_mask) = gtkcreate_png("ic82-dossier-32");
     
     gtkpack($advanced_box,
 	    $box_find_restore = gtkpack_(new Gtk::VBox(0, 6),
@@ -1958,34 +2039,41 @@ sub restore_other_media {
 sub restore_step2 {
     my $retore_step2;
     my $other_exist;
+    my $sys_exist;
+    my $user_exist;
 
     if (-f "$save_path/backup_other*") { $other_exist = 1; } 
     else { my $other_exist = 0; $restore_other = 0; }
+    if (grep /\_sys\_/, grep /^backup/, all("$save_path/")) { $sys_exist = 1; } 
+    else { my $sys_exist = 0; $restore_sys = 0; }
+    if (grep /\_user\_/, grep /^backup/, all("$save_path/")) { $user_exist = 1; } 
+    else { my $user_exist = 0; $restore_user = 0; }
+    $backup_sys_versions || $backup_user_versions and $backup_bef_restore = 1;
 
     gtkpack($advanced_box,
 	    $retore_step2 = gtkpack_(new Gtk::VBox(0,10),
-				     1, new Gtk::VBox(0,10),
-				     1, new Gtk::VBox(0,10),
-				     0, gtkpack_(new Gtk::HBox(0,10),
-					0, my $check_restore_other_src = new Gtk::CheckButton(_("select an other media to find backups")),
-					1, new Gtk::HBox(0,10),
-					0, gtkset_sensitive(gtksignal_connect(new Gtk::Button(_("Other Media")),
-									      clicked => sub {
-										  ${$central_widget}->destroy();
-										  restore_other_media();
-									      }), $restore_other_src ),
-						 ),
-				     0, my $check_restore_sys = new Gtk::CheckButton(_("Restore system")),
-				     0, my $check_restore_user = new Gtk::CheckButton(_("Restore Users")),
-				     0, gtkset_sensitive( my $check_restore_other = new Gtk::CheckButton(_("Restore Other")), $other_exist),
-				     0, gtkpack_(new Gtk::HBox(0,10),
-					0, my $check_restore_other_path = new Gtk::CheckButton(_("select path to restore (instead of / ) ")),
-					1, new Gtk::HBox(0,10),
-					0, gtkset_sensitive(my $restore_path_entry = new Gtk::Entry(), $restore_other_path),
-						 ),
-				     0, gtkset_sensitive(my $check_backup_bef_restore = new Gtk::CheckButton(_("do new backup before restore (only for incremental backups.)")), $backup_sys_versions || $backup_user_versions ),
-				     1, new Gtk::VBox(0,10),
-				     ),
+	 1, new Gtk::VBox(0,10),
+	 1, new Gtk::VBox(0,10),
+	 0, gtkpack_(new Gtk::HBox(0,10),
+		     0, my $check_restore_other_src = new Gtk::CheckButton(_("select an other media to find backups")),
+		     1, new Gtk::HBox(0,10),
+		     0, gtkset_sensitive(gtksignal_connect(new Gtk::Button(_("Other Media")),
+							   clicked => sub {
+							       ${$central_widget}->destroy();
+							       restore_other_media();
+							   }), $restore_other_src ),
+		     ),
+	 0, gtkset_sensitive(my $check_restore_sys = new Gtk::CheckButton(_("Restore system")), $sys_exist),
+	 0, gtkset_sensitive(my $check_restore_user = new Gtk::CheckButton(_("Restore Users")), $user_exist),
+	 0, gtkset_sensitive( my $check_restore_other = new Gtk::CheckButton(_("Restore Other")), $other_exist),
+	 0, gtkpack_(new Gtk::HBox(0,10),
+		     0, my $check_restore_other_path = new Gtk::CheckButton(_("select path to restore (instead of / ) ")),
+		     1, new Gtk::HBox(0,10),
+		     0, gtkset_sensitive(my $restore_path_entry = new Gtk::Entry(), $restore_other_path),
+		     ),
+ 0, gtkset_sensitive(my $check_backup_bef_restore = new Gtk::CheckButton(_("do new backup before restore (only for incremental backups.)")), $backup_sys_versions || $backup_user_versions  ),
+	 1, new Gtk::VBox(0,10),
+	 ),
 	    );
     foreach  ([$check_restore_sys, \$restore_sys], 
 	      [$check_backup_bef_restore, \$backup_bef_restore],
@@ -2043,21 +2131,21 @@ sub restore_box {
 						   1, new Gtk::VBox(0,10),
 						   1, new Gtk::VBox(0,10),
 						   1, gtksignal_connect(new Gtk::Button(_("Restore all backups")), 
-								       clicked => sub { $retore_box->destroy();
-											button_box_restore();
-											@user_list_to_restore2 = sort @user_backuped; 
-											$restore_sys = 1;
-											$restore_other = 1;
-											$restore_user = 1;
-											restore_do(); }),
-						  1, gtksignal_connect(new Gtk::Button(_("Custom Restore")), 
-								       clicked => sub { $retore_box->destroy();
-											button_box_restore(); 
-											restore_step2();
-										    }),
+						       clicked => sub { $retore_box->destroy();
+									button_box_restore();
+									@user_list_to_restore2 = sort @user_backuped; 
+									$restore_sys = 1;
+									$restore_other = 1;
+									$restore_user = 1;
+									restore_do(); }),
+						   1, gtksignal_connect(new Gtk::Button(_("Custom Restore")), 
+						       clicked => sub { $retore_box->destroy();
+									button_box_restore(); 
+									restore_step2();
+								    }),
 						   1, new Gtk::VBox(0,10),
 						   1, new Gtk::VBox(0,10),
-						  ),
+						   ),
 				       1, new Gtk::HBox(0,10),
 				       ),
 		);
@@ -2172,6 +2260,7 @@ sub button_box_restore_end {
 	    );
 }
 
+
 sub button_box_build_backup_end {
     $button_box_tmp->destroy();
 
@@ -2186,6 +2275,23 @@ sub button_box_build_backup_end {
 	    );
 }
 
+sub button_box_restore_pbs_end {
+    $button_box_tmp->destroy();
+
+    gtkpack($button_box,
+	    $button_box_tmp = gtkpack_(new Gtk::HButtonBox, 
+				       1, new Gtk::HBox(0, 5),	
+				       1, new Gtk::HBox(0, 5),	
+				       1, gtksignal_connect(new Gtk::Button(_("     Help      ")), clicked => sub {
+					   ${$central_widget}->destroy(); adv_help(\&$current_widget,$custom_help); }),
+				       0, gtksignal_connect(new Gtk::Button(_(" Ok ")), clicked => sub { 
+					   ${$central_widget}->destroy(); interactive_mode_box();  }),
+
+				       ),
+	    );
+}
+
+
 sub button_box_build_backup {
     $button_box_tmp->destroy();
 
@@ -2269,7 +2375,7 @@ sub message_norestorefile_box {
 			    1, gtkpack(new Gtk::HBox(0, 15),	
 				       new Gtk::VBox(0, 5),	
 				       new Gtk::Pixmap($pix_warn_map, $pix_warn_mask),
-				       _("Please Build backup before to restore it...\n or verify that your path to save is correct."),
+			     _("Please Build backup before to restore it...\n or verify that your path to save is correct."),
 				       new Gtk::VBox(0, 5),	
 				       ),
 			    1, new Gtk::VBox(0, 5),	
@@ -2596,12 +2702,12 @@ sub build_backup_cd_box {
 		     ),
 	 0, new Gtk::VBox(0, 5),
 	 0, gtkpack_(new Gtk::HBox(0,10),
-		     0, gtkset_sensitive(new Gtk::Label(_("Please check if you want to erase your CDRW before")), $cdrw && $where_cd),
-		     1, new Gtk::VBox(0, 5),
-		     0, gtkset_sensitive(my $check_cdrw_erase = new Gtk::CheckButton(), $cdrw && $where_cd),
+	    0, gtkset_sensitive(new Gtk::Label(_("Please check if you want to erase your CDRW before")), $cdrw && $where_cd),
+	    1, new Gtk::VBox(0, 5),
+	    0, gtkset_sensitive(my $check_cdrw_erase = new Gtk::CheckButton(), $cdrw && $where_cd),
 		     ),
-	 0, new Gtk::VBox(0, 5),
-	 0, gtkpack_(new Gtk::HBox(0,10),
+					    0, new Gtk::VBox(0, 5),
+					    0, gtkpack_(new Gtk::HBox(0,10),
 		     0, gtkset_sensitive(new Gtk::Label(_("Please enter your CD Writer device name (ex: 0,1,0)")),  $where_cd),
 		     1, new Gtk::VBox(0, 5),
 		     0, gtkset_usize(gtkset_sensitive($cd_devive_entry = new Gtk::Entry(), $where_cd), 100, 20),
@@ -2970,7 +3076,20 @@ So in moment, you need to build backup on your hard drive
 before to send it.
 
 ")); } 
- 
+    elsif ($custom_help eq "restore_pbs") { gtktext_insert($text,  
+_("
+Restore Backup Problems:
+
+During the restore step, Drakbackup verify all your
+backup files before to restore it.
+Because before to restore it, Drakbackup will remove 
+your original directory, and you will loose all your 
+data. so please be carreful and do not modify the backup
+data files by hand.
+
+
+
+")); }  
     else { gtktext_insert($text,
 _(" Copyright (C) 2001 MandrakeSoft by DUPONT Sebastien <dupont_s\@epita.fr>