code cleaning.

1 files changed, 0 insertions, 367 deletions

diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup
index 3bdacbabd..3d4d56d9b 100755
--- a/perl-install/standalone/drakbackup
+++ b/perl-install/standalone/drakbackup
@@ -39,7 +39,6 @@
 
 
 
-
 use Gtk;
 use lib qw(/usr/lib/libDrakX );
 use interactive;
@@ -907,369 +906,3 @@ configuration file:
 }
 
 
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-# sub interactive_mode_my {
-#     $interactive = 1;
-#     my $mask;
-#     my $style;
-#     my $box;
-#     init Gtk;
-#     my $text2 = new Gtk::Text(undef, undef);
-#     my $window1 = $::isEmbedded ? new Gtk::Plug ($::XID) : new Gtk::Window -toplevel;
-#     $window1->signal_connect (delete_event => sub { Gtk->exit(0) });
-#     $window1->set_position(1);
-#     $window1->set_title(_("Drakbackup"));
-
-#     my ($pix_u_map, $pix_u_mask) = gtkcreate_png("../pixmaps/backup_title.png");
-#     my ($pix_l_map, $pix_l_mask) = gtkcreate_png("../pixmaps/backup_left.png");
-#     my ($pix_r_map, $pix_r_mask) = gtkcreate_png("../pixmaps/backup_bot.png");
-#     my ($pix_hd_map, $pix_hd_mask) = gtkcreate_png("../pixmaps/backup_hd.png");
-
-#     my $box2 = new Gtk::VBox( 0, 10 );
-
-#     my $label3 = gtkpack(new Gtk::HBox(0,10),
-# 			 new Gtk::Pixmap($pix_hd_map, $pix_hd_mask),
-# 			 _("Backup Wizard")
-# 			 );
-
-#     my $radio1 = new Gtk::RadioButton( "  Backup Wizard");
-#     $box2->add( $radio1);
-#     $radio1->set_active(1);
-#     my $radio2 = new Gtk::RadioButton( "  Backup Advanced", $radio1);
-#     $box2->add( $radio2);
-#     my $radio3 = new Gtk::RadioButton( "  Build Backup now", $radio2);
-#     $box2->add( $radio3);
-#     my $radio4 = new Gtk::RadioButton( "  Restore Backup", $radio3);
-#     $box2->add( $radio4);
-#     gtksignal_connect( $radio1, clicked => sub { $backup_choice = 0 });
-#     gtksignal_connect( $radio2, clicked => sub { $backup_choice = 1 });
-#     gtksignal_connect( $radio3, clicked => sub { $backup_choice = 2 });
-    
-#     gtkadd($window1,
-# 	   gtkpack(new Gtk::VBox(0,0),
-# 		    gtkpack(new Gtk::VBox(0,0),
-# 			    new Gtk::Pixmap($pix_u_map, $pix_u_mask),
-# 			    gtkpack_(new Gtk::HBox(0,0),
-# 				     0, new Gtk::Pixmap($pix_l_map, $pix_l_mask), 
-# 				     1, gtkpack($up_box = new Gtk::VBox(0,5),
-# 						$box = gtkpack_(new Gtk::VBox(0,0),
-# 								0, _("\n Please choose the method to configure your system backup."),
-# 								1, gtkpack(new Gtk::HBox(0,20),
-# 									   gtkpack(new Gtk::VBox(0,10),
-# 										   new Gtk::HBox(0,15),
-# 										   $box2,
-# 										   new Gtk::HBox(0,5),
-# 										   ),
-# 									   ),
-# 								1, gtkadd(gtkset_layout(new Gtk::HButtonBox, -end),
-# 									  gtksignal_connect(new Gtk::Button(_("Help")), clicked => sub {
-# 									      ${$central_widget}->destroy(); help() }),
-# 									  gtksignal_connect(new Gtk::Button(_("Next")), clicked => sub { 
-# 									      ${$central_widget}->destroy(); 
-# 									      $backup_choice == 0  and print "Wizard\n";
-# 									      $backup_choice == 1  and advanced();
-# 									      $backup_choice == 2  and print "now\n";
-# 									  }),
-# 									  ),
-# 							       ),
-# 						),
-# 				     ),
-# 			    new Gtk::Pixmap($pix_r_map, $pix_r_mask),
-# 			    gtkadd(gtkset_layout(new Gtk::HButtonBox, -end),
-# 				   gtksignal_connect(new Gtk::Button(_("Close")), clicked => sub { save_conf_file(); Gtk->main_quit() }),
-# 				   gtksignal_connect(new Gtk::Button(_("About")), clicked => sub { $central_widget_save = $central_widget; 
-# 				       ${$central_widget}->destroy(); about() }),
-# 				   gtksignal_connect(new Gtk::Button(_("            Help           ")), clicked => sub { 
-# 				       ${$central_widget}->destroy(); help() }),
-# 				   ),
-# 			    ),
-# 		   ),
-# 	   );
-#     $central_widget = \$box;
-#     $window1->show_all;
-#     $window1->realize;
-#     $window1->show_all();
-    
-#     Gtk->main;
-#     Gtk->exit(0);
-# }
-
-
-
-
-
-#   step_where_backup:
-#     undef $::Wizard_no_previous;
-#     my $r2 = $in->ask_from_list_(_("Backup Configuration wizard"),
-# 				_("Please choose how to backup your system"),
-# 				[ __("Hard Drive"), __("accross the Network"), __("Burn auto boot Restore CDROM") ]) 
-# 	or quit_global($in, 0);
-
-
-
-#    print "$r AAAA \n";
-#$r eq "Hard Drive" and  do something
-
-#     my $wizard_box;
- 
-#     gtkpack($up_box,
-# 	    new Gtk::VBox(0,10),
-# 	    $wizard_box = new Gtk::FontSelection,
-# 	    );
-#     $central_widget = \$wizard_box;
-#     $up_box->show_all();
-
-
-
-
-# 							       0, gtktext_insert(gtkset_editable($text2, 0), _("Drakbackup allow you to build a backup of your system. With Drakbackup you will be able to save your backups on your Hard-disk or on CD, across the network with mandrake-online or other place, it accept ftp, sftp, scp, rsync, nfs. "),
-
-
-
-
-
-
-
-
-
-#    my $checkbutton = new Gtk::CheckButton( "Check me please!" );
-#    $checkbutton->set_usize( 100, 75 );
-#    $checkbutton->show();
-
-
-#     $pixmap_fst_choice = new Gtk::Notebook,
-#     my $label1 = new Gtk::Label( "What backup." );
-#     my $label2 = new Gtk::Label( "Where backup." );
-#     my $label3 = new Gtk::Label( "When backup." );
-#
-#     gtkadd($window1,
-# 	   gtkpack_(new Gtk::VBox(0,2),
-# 		    1, gtkpack_(new Gtk::VBox(0,2),
-# 				1, new Gtk::VBox(0,0),
-# 				1, gtkpack(gtkset_usize($notebook_box = new Gtk::VBox(0,5),500, 350),
-# 					   $notebook = new Gtk::Notebook,
-# 					   $notebook->insert_page( $checkbutton, $label1, 2 ),
-# 					   $notebook->insert_page( $checkbutton, $label2, 2 ),
-# 					   $notebook->insert_page( $checkbutton, $label3, 2 )
-# 					   ),
-# 				1, new Gtk::VBox(0,0)
-# 				),
-# 		    0, gtkpack_(new Gtk::HBox(0,5),
-# 				1, new Gtk::HBox(0,0),
-# 				1, gtkadd(gtkset_layout(new Gtk::HButtonBox, -end),
-# 					  gtksignal_connect(new Gtk::Button(_("Help")), clicked => sub { 
-# 					       ${$central_widget}->destroy(); help() }),
-# 					  gtksignal_connect(new Gtk::Button(_("About")), clicked => sub { 
-# 					       ${$central_widget}->destroy(); help() }),
-# 					  gtksignal_connect(new Gtk::Button(_("Close")), clicked => sub { Gtk->main_quit() }),
-# 					  ),
-# 				)
-# 		    ),
-# 	   );
-
-#________________________________________________________________________________________________________
-
-
-#				0, _("DrakFont"),
-#				0, gtkadd(gtkset_layout(new Gtk::VButtonBox, -end),
-# 					  gtksignal_connect(new Gtk::Button(_("Windows Importation")), clicked 	=>
-# 							    sub { ${$central_widget}->destroy(); $windows = 1; license(\&appli_choice)}),
-# 					  gtksignal_connect(new Gtk::Button(_("Configuration")), clicked =>
-# 							    sub {  ${$central_widget}->destroy(); $windows = 0; license(\&advanced_install)}),
-# 					  gtksignal_connect(new Gtk::Button(_("Uninstall Fonts")), clicked => 
-# 							    sub { ${$central_widget}->destroy(); uninstall() }),
-# 					  gtksignal_connect(new Gtk::Button(_("Font List")), clicked 	=>
-# 							    sub { ${$central_widget}->destroy(); create_fontsel()}),
-#					  ),
-
-
-
-
-
-
-
-
-
-
-# sub interactive_mode {
-#     my $fst_choice_box;
-#     my $fst_choice_box1;
-#     my $pixmap_fst_choice;
-#     $interactive = 1;
-#     my $pixmap;
-#     my $pixmapwid;
-#     my $mask;
-#     my $style;
-#     init Gtk;
-    
-#     $window1 = $::isEmbedded ? new Gtk::Plug ($::XID) : new Gtk::Window -toplevel;
-#     $window1->signal_connect (delete_event => sub { Gtk->exit(0) });
-#     $window1->set_position(1);
-#     $window1->set_title(_("Drakbackup"));
-
-#     my ($pix_u_map, $pix_u_mask) = gtkcreate_png("/home/seb/draklogo.png");
-#     my ($pix_l_map, $pix_l_mask) = gtkcreate_png("/home/seb/back_l.png");
-#     my ($pix_r_map, $pix_r_mask) = gtkcreate_png("/home/seb/back_r.png");
-
-#     gtkadd($window1,
-# 	   gtkpack_(new Gtk::VBox(0,0),
-# 		    1, gtkpack_(gtkset_usize(new Gtk::VBox(0,0), 550, 360), 
-# 		       1, gtkpack_(my $up_box = new Gtk::VBox(0,0),
-# 				   1, new Gtk::VBox(0,0),
-# 				   1, gtkpack_($fst_choice_box = new Gtk::VBox(0,0),
-# 					       0, my $pix_c = new Gtk::Pixmap($pix_u_map, $pix_u_mask),
-# 					       0, gtkpack_(new Gtk::HBox(0,1),
-# 							   0, my $pix_l = new Gtk::Pixmap($pix_l_map, $pix_l_mask),
-# 							   1, gtkpack_(new Gtk::VButtonBox,
-# 								       0, gtksignal_connect(new Gtk::Button(_("Wizard")), clicked => sub { 
-# 									   ${$central_widget}->destroy(); wizard() }),
-# 								       0, gtksignal_connect(new Gtk::Button(_("Advanced")), clicked => sub {
-# 									   ${$central_widget}->destroy(); about() }),		
-# 								       ),
-# 								    ),
-# 					       1, my $pix_r = new Gtk::Pixmap($pix_r_map, $pix_r_mask),
-# 					       ),
-# 				   ),
-# 				1, gtkpack_(new Gtk::HBox(0,5),
-# 					    1, new Gtk::HBox(0,5),
-# 					    1, gtkadd(gtkset_layout(new Gtk::HButtonBox, -end),
-# 						      gtksignal_connect(new Gtk::Button(_("Help")), clicked => sub { 
-# 							  ${$central_widget}->destroy(); help() }),
-# 						      gtksignal_connect(new Gtk::Button(_("About")), clicked => sub { 
-# 							  ${$central_widget}->destroy(); help() }),
-# 						      gtksignal_connect(new Gtk::Button(_("Close")), clicked => sub { Gtk->main_quit() }),
-# 						      ),
-# 					    )
-# 				),
-# 		    ),
-# 		    );
-#     $central_widget = \$up_box;
-#     $window1->show_all;
-#     $window1->realize;
-#     $window1->show_all();
-    
-#     Gtk->main;
-#     Gtk->exit(0);
-# }
-
-
-# ok
-
-
-
-
-
-#   step_where_backup:
-#     undef $::Wizard_no_previous;
-#     my $r2 = $in->ask_from_no_check(_("Backup Configuration wizard"),
-# 				_("Please choose how to backup your system"),
-# 				[ __("Hard Drive"), __("accross the Network"), __("Burn auto boot Restore CDROM") ]) 
-# 	or quit_global($in, 0);
-
-
-
-
-# sub after_adv {
-#     my $text = new Gtk::Text(undef, undef);
-#     my $after_adv_box;
-#     my $box_cfg_state;
-#     my $box_cgf_state_replace;
-#     my $box_cgf_state_comp;
-
-#     read_conf_file();    
-#     if ($option_replace) { $box_cgf_state_replace = _("Replace backups (do not update)"),
-#     } else { $box_cgf_state_replace = _("Update backups (do not replace)"), }
-
-#     if ($comp_mode) { $box_cgf_state_comp = _("Backups use tar and gunzip "),
-#     } else { $box_cgf_state_comp = _("Backups use tar and gunzip"),    }
-	
-#     my $label_cfg_file = new Gtk::Label _("Backup Sources: \n-System Files: @sys_files \n-Users Files: @home_files\n-Other Files to backup: @other_files\nPath to save backups: $save_path\nOptions:\n$box_cgf_state_replace\n$box_cgf_state_comp\n\n");
-#     $box_cfg_state =  gtkpack(new Gtk::VBox( 0, 0),
-# 			      gtkset_justify( $label_cfg_file , 'left'),
-# 			      ),
-
-#     gtkpack($up_box,
-# 	    $after_adv_box = gtkpack_(new Gtk::VBox(0,10),
-# 				      1, gtkadd(new Gtk::Frame(_("State of configuration file.")),
-# 						gtkpack(new Gtk::VBox(0,10),
-# 							$box_cfg_state,
-# 							),
-# 						),
-# 				      0, gtksignal_connect(new Gtk::Button(_("Click here if you want to build a backup now.")), clicked => 
-# 							   sub { ${$central_widget}->destroy(); }),
-# 				      0, new Gtk::HSeparator,
-# 				      0, gtkadd(new Gtk::HButtonBox,
-# 						gtksignal_connect(new Gtk::Button(_("Close")), clicked => sub { Gtk->main_quit() }),
-# 						gtksignal_connect(new Gtk::Button(_("About")), clicked => 
-# 								  sub { ${$central_widget}->destroy();  about() }),
-# 						gtksignal_connect(new Gtk::Button(_("Help")), clicked => 
-# 								  sub { save_conf_file(); ${$central_widget}->destroy(); adv_help() }),
-# 						gtksignal_connect(new Gtk::Button(_("Ok")), clicked => sub { 
-# 						    ${$central_widget}->destroy(); after_adv();    }),
-# 						),				  
-# 				      ),
-# 	    );
-#     $central_widget = \$box;
-#     $up_box->show_all();
-# }
-
-
-
-
-# sub read_conf_file {
-#     read_passwd();
-#     if (-e $cfg_file) {
-# 	while (cat_ ('$cfg_file')) {
-# 	    next unless /\S/;
-# 	    next if /^#/;
-# 	    chomp;
-# 	    if (/^SYS_FILES/)      { s/^SYS_FILES=//gi;    @sys_files = split(' ', $_ );	}
-# 	    if (/^HOME_FILES/)     { s/^HOME_FILES=//gi;   @home_files = split(' ', $_ );	}
-# 	    if (/^OTHER_FILES/)    { s/^OTHER_FILES=//gi;  @other_files = split(' ', $_ );	}
-# 	    if (/^PATH_TO_SAVE/)   { s/^PATH_TO_SAVE=//gi; $save_path = $_;	}
-# 	    if (/^OPTION_REPLACE/) { $option_replace = 1; }
-# 	    if (/^NO_SYS_FILES/)   { $backup_sys = 0; print "I see NO_SYS_FILES\n"; }
-# 	    if (/^OPTION_COMP/)    { s/^OPTION_COMP=//gi; /TAR.GZ/ and  $comp_mode = 0; /TAR.BZ2/ and $comp_mode = 1; }
-# 	    unless (/^NO_SYS_FILES/)   { $backup_sys = 1; print "I NO see NO_SYS_FILES\n"; }
-# 	}
-# 	$cfg_file_exist = 1;
-#     } else {
-# 	$cfg_file_exist = 0;
-# 	print "no exist\n";
-#     }    
-# #    $DEBUG and debug; 
-# }