From f34278619499506cfdde7cb7b07a356afd23cbde Mon Sep 17 00:00:00 2001 From: Sebastien Dupont Date: Thu, 29 Nov 2001 01:28:21 +0000 Subject: code cleaning. --- perl-install/standalone/drakbackup | 367 ------------------------------------- 1 file changed, 367 deletions(-) (limited to 'perl-install') 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; -# } -- cgit v1.2.1