diff options
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakbackup | 1079 |
1 files changed, 356 insertions, 723 deletions
diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup index 9b1a3afab..4589c6cd7 100755 --- a/perl-install/standalone/drakbackup +++ b/perl-install/standalone/drakbackup @@ -87,7 +87,6 @@ my $build_floppy = 0; my $mode = 0; my $conf_file = 0; my @list_arg = (); -my $windows = 0; my $central_widget; my $previous_widget; my $current_widget; @@ -95,6 +94,7 @@ my $interactive; my $up_box; my $advanced_box; my $box; +my $box2; my $backup_choice = 0; my $cfg_file_exist = 0; my @user_and_path_list; @@ -113,6 +113,9 @@ my @user_list_to_restore= (); my $retore_box2; my $cd_devive_entry; my $custom_help; +my $button_box; +my $button_box_tmp; + # config. FILES -> Default PATH & Global variables. my @sys_files = ("/etc"); @@ -163,16 +166,6 @@ foreach (@ARGV) { $build_floppy || $build_cd || $default || @list_arg || $conf_file ? backend_mod() : interactive_mode(); - -sub debug { - print "SYS_FILES: $_ \n" foreach (@sys_files); - print "HOME_FILES: $_ \n" foreach (@user_list); - print "OTHER_FILES: $_ \n" foreach (@list_other); - print "PATH_TO_SAVE: $save_path \n"; - print "OPTION_REPLACE: $option_replace \n"; - print "OPTION_COMP: $comp_mode \n"; -} - sub read_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); @@ -296,7 +289,6 @@ sub read_conf_file { } else { $cfg_file_exist = 0; } close CONF_FILE; - $DEBUG and debug; } sub backend_mod { @@ -941,7 +933,6 @@ sub advanced_box{ 1, new Gtk::VBox(0, 5), ), ); - $previous_widget =\&interactive_mode; $button_what->add(gtkpack(new Gtk::HBox(0,10), new Gtk::Pixmap($pix_hd_map, $pix_hd_mask), new Gtk::Label(_(" What ")), @@ -963,103 +954,12 @@ sub advanced_box{ new Gtk::HBox(0, 5) )); $custom_help = ""; + $previous_widget =\&interactive_mode_box; $current_widget = \&advanced_box; $central_widget = \$box_adv; $up_box->show_all(); } - -sub advanced { - my $about_box; - my $book_open; - my $book_open_mask; - my $transparent; - my $book_closed; - my $book_closed_mask; - my $box_tmp; - my $choice_what_sys; - my $box2; - read_conf_file(); - - - my ($pix_u_map, $pix_u_mask) = gtkcreate_png("backup_title"); - my ($pix_l_map, $pix_l_mask) = gtkcreate_png("backup_left2"); - my ($pix_r_map, $pix_r_mask) = gtkcreate_png("backup_bot2"); - my ($pix_hd_map, $pix_hd_mask) = gtkcreate_png("backup_hd"); - my ($pix_time_map, $pix_time_mask) = gtkcreate_png("backup_time"); - my ($pix_net_map, $pix_net_mask) = gtkcreate_png("backup_net"); - my ($pix_options_map, $pix_options_mask) = gtkcreate_png("backup_options"); - - - gtkpack($up_box, - $box = gtkpack_(new Gtk::VBox(0, 3), - 0, new Gtk::Pixmap($pix_u_map, $pix_u_mask), - 1, gtkpack_(new Gtk::HBox(0, 3), - 0, new Gtk::Pixmap($pix_l_map, $pix_l_mask), - 1, $advanced_box = gtkpack_(new Gtk::HBox(0, 15), - 1, $box2 = 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 = new Gtk::Button(), clicked => sub { - $box2->destroy(); advanced_what(); }), - 1, gtksignal_connect(my $button_where = new Gtk::Button(), clicked => sub { - $box2->destroy(); advanced_where(); }), - 1, gtksignal_connect(my $button_when = new Gtk::Button(), clicked => sub { - $box2->destroy(); advanced_when(); }), - 1, gtksignal_connect(my $button_options = new Gtk::Button(), clicked => sub { - $box2->destroy(); advanced_options();}), - 1, new Gtk::VBox(0, 5), - ), - 1, new Gtk::VBox(0, 5), - ), - ), - ), - 0, new Gtk::Pixmap($pix_r_map, $pix_r_mask), - 0, gtkpack_(new Gtk::HButtonBox, - 0, gtksignal_connect(new Gtk::Button(_(" Cancel ")), clicked => - sub { ${$central_widget}->destroy(); interactive_mode(); }), - 0, gtksignal_connect(new Gtk::Button(_(" Help ")), clicked => - sub { ${$central_widget}->destroy(); adv_help(\&$current_widget,$custom_help ); }), - 1, new Gtk::HBox(0, 1), - 0, gtksignal_connect(new Gtk::Button(_(" Previous ")), clicked => - sub { ${$central_widget}->destroy(); $previous_widget->(); }), - 0, gtksignal_connect(new Gtk::Button(_(" Ok ")), clicked => - sub { ${$central_widget}->destroy(); save_conf_file(); $previous_widget->(); }), - - ), - ), - ); - $custom_help = ""; - $central_widget = \$box2; - $current_widget = \&advanced_box; - $previous_widget =\&interactive_mode; - - $button_what->add(gtkpack(new Gtk::HBox(0,10), - new Gtk::Pixmap($pix_hd_map, $pix_hd_mask), - new Gtk::Label(_(" What ")), - new Gtk::HBox(0, 5) - )); - $button_where->add(gtkpack(new Gtk::HBox(0,10), - new Gtk::Pixmap($pix_net_map, $pix_net_mask), - new Gtk::Label(_(" Where ")), - new Gtk::HBox(0, 5) - )); - $button_when->add(gtkpack(new Gtk::HBox(0,10), - new Gtk::Pixmap($pix_time_map, $pix_time_mask), - new Gtk::Label(_(" When ")), - new Gtk::HBox(0, 5) - )); - $button_options->add(gtkpack(new Gtk::HBox(0,10), - new Gtk::Pixmap($pix_options_map, $pix_options_mask), - new Gtk::Label(_(" More Options")), - new Gtk::HBox(0, 5) - )); - $up_box->show_all(); -} - - - sub wizard { my $about_box; my $book_open; @@ -1117,394 +1017,11 @@ sub wizard { $up_box->show_all(); } - - - - - - - - - - -sub advanced_bef { - my $notebook; - my $notebook_what; - my $notebook_when; - my $notebook_where; - my $notebook_options; - my $about_box; - my $book_open; - my $book_open_mask; - my $transparent; - my $book_closed; - my $book_closed_mask; - my $box_tmp; - my $choice_what_sys; - read_conf_file(); - - my ($pix_time_map, $pix_time_mask) = gtkcreate_png("backup_time"); - my ($pix_options_map, $pix_options_mask) = gtkcreate_png("backup_options"); - my ($pix_u_map, $pix_u_mask) = gtkcreate_png("backup_title"); - my ($pix_l_map, $pix_l_mask) = gtkcreate_png("backup_left2"); - my ($pix_r_map, $pix_r_mask) = gtkcreate_png("backup_bot2"); - my ($pix_hd_map, $pix_hd_mask) = gtkcreate_png("backup_hd"); - my ($pix_time_map, $pix_time_mask) = gtkcreate_png("backup_time"); - my ($pix_net_map, $pix_net_mask) = gtkcreate_png("backup_net"); - my ($pix_options_map, $pix_options_mask) = gtkcreate_png("backup_options"); - - - -my ($label_what, $label_where, $label_when, $label_options, $label_what_sys, $label_what_user, $label_what_other, $label_where_net, $label_where_cd, $label_where_hd) = map { gtkpack($_->[2] ? new Gtk::VBox(0, 2) : new Gtk::HBox(0, 2), gtkpng($_->[0]), $_->[1]) } - (['backup_hd', _('What backup.'), 1], - ['backup_net', _('Where backup.'), 1], - ['backup_time', _("When backup."), 1], - ['backup_options', _("Options"), 1], - ['bootloader', _('System'), 0], - ['user', _('Users'), 0], - ['net_u', _('Other'), 0], - ['net', _('Network'), 0], - ['cdrom', _("CDROM\nDVDROM"), 0], - ['hd', _("Hard Drive\n NFS"), 0], - ); - - my $box_what_sys = gtkpack_(new Gtk::VBox(0,1), - 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. (~ 2Mo)")), - 0, my $check_what_cvs = new Gtk::CheckButton( _("Need to restore any versions.(~ 10Mo)") ), - 0, _("With this option you will be able to restore any version\n of your /etc directory."), - 1, " ", - ); - my %check_what_user; - my $box_what_user = gtkpack_(new Gtk::VBox(0,0), - 0, _("Please check all user that you want to include inb your backup."), - 0, new Gtk::HSeparator, - 1, createScrolledWindow( gtkpack(new Gtk::VBox(0,0), - map { my $name = $_; - my @user_list_tmp; - my $b = new Gtk::CheckButton($name); - - if (grep /^$name$/, @user_list) { - $check_what_user{$_}[1] = 1; - gtkset_active($b, 1); - } else { - $check_what_user{$_}[1] = 0; - gtkset_active($b, 0); - } - $b->signal_connect(toggled => sub { - if ($check_what_user{$name}[1] ) { - $check_what_user{$name}[1] = 0; - @user_list_tmp = grep(!/^$name$/, @user_list); - @user_list = @user_list_tmp; - } else { - $check_what_user{$name}[1] = 1; - if (!member($name, @user_list) ) {push @user_list, $name;} - } - }); - $b } (@all_user_list) - ), - ), - 0, new Gtk::HSeparator, - 0, my $check_what_browser = new Gtk::CheckButton( _(" do not include the browser cache") ), - ); - - $list_other = new Gtk::List(); - $list_other->set_selection_mode(-extended); - $list_other->add(gtkshow(new Gtk::ListItem($_))) foreach (@list_other); - my $box_what_other = gtkpack_(new Gtk::VBox(0,10), - 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), - ), - ); - - my $combo_where_net_proto = new Gtk::Combo(); - $combo_where_net_proto->set_popdown_strings ("scp","ftp", "sftp", "rsync"); - my $combo_where_net_auth = new Gtk::Combo(); - $combo_where_net_auth->set_popdown_strings ("ssh/identity.pub with passphrase null", - "ssh-agent re ask for password between each end of root session", - "ask for passwrod each timer", - "no pass require"); - - my $box2 = new Gtk::VBox( 0, 2 ); - my $radio1 = new Gtk::RadioButton( " ssh/identity.pub with passphrase null"); - $box2->add( $radio1); - $radio1->set_active(1); - my $radio2 = new Gtk::RadioButton( " ssh-agent ", $radio1); - $box2->add( $radio2); - my $radio3 = new Gtk::RadioButton( " ask for passwrod each timer", $radio2); - $box2->add( $radio3); - gtksignal_connect( $radio1, clicked => sub { $auth_choice = 0 }); - gtksignal_connect( $radio2, clicked => sub { $auth_choice = 1 }); - gtksignal_connect( $radio3, clicked => sub { $auth_choice = 2 }); - - - my $box_where_net = gtkpack_(new Gtk::VBox(0,1), - 0, gtkpack_(new Gtk::VBox(0,1), - 0, new Gtk::HSeparator, - 0, my $check_where_net = new Gtk::CheckButton( _(" Use Network to backup") ), - 0, new Gtk::HSeparator, - - - 0, gtkpack_(new Gtk::HBox(0,10), - 1, _("please choose your protocol"), - 0, $combo_where_net_proto, - 0, _(""), - ), - 0, _(""), - 0, gtkpack_(new Gtk::HBox(0,10), - 1, _("please entrer the host name or IP."), - 1, my $host_name_entry = new Gtk::Entry(), - 0, _(""), - ), - 0, _(""), - 0, gtkpack_(new Gtk::HBox(0,10), - 1, _("please entrer the directory\n to put the backup on this host. "), - 1, my $host_path_entry = new Gtk::Entry(), - 0, _(""), - ), - 0, _(""), - 0, gtkpack_(new Gtk::HBox(0,10), - 1, _("please entrer your login"), - 0, my $login_user_entry = new Gtk::Entry(), - 0, _(""), - ), - ), - - - 1, gtkpack_(new Gtk::VBox(0,1), - 0, new Gtk::HSeparator, - 1, gtkpack_(new Gtk::HBox(0,3), - 0, new Gtk::HBox(0,3), - 1, _("please choose your authentifycation method"), - 1, new Gtk::Button("Help "), - ), - 0, " ", - 1, gtkpack_(new Gtk::HBox(0,10), - 1, $box2, - 1, gtkpack_(new Gtk::VBox(0,1), - 1, new Gtk::Button(" Assistant"), - ), - ), - ), -# 0, _("It exists three solutions to authentify with the \n host to backup: "), -# 0, _(" - ssh-agent ( correct security)"), -# 0, _(" - ssh with empty passphrase. "), -# 0, _(" if you are sure\n that nobody can read your\n .ssh/identity.bakup) "), -# 0, _(" - ask every time for password. best security "), - ); - $combo_where_net_proto->entry->set_text($net_proto); - $combo_where_net_proto->entry->signal_connect( 'changed', sub { $net_proto = $combo_where_net_proto->entry->get_text()}); - $host_path_entry->set_text( $host_path ); - $host_name_entry->set_text( $host_name ); - $login_user_entry->set_text( $login_user ); - $host_name_entry->signal_connect( 'changed', sub { $host_name = $host_name_entry->get_text()}); - $host_path_entry->signal_connect( 'changed', sub { $host_path = $host_path_entry->get_text()}); - $login_user_entry->signal_connect( 'changed', sub { $login_user = $login_user_entry->get_text()}); - - my $adj = new Gtk::Adjustment 500.0, 1.0, 10000.0, 1.0, 5.0, 0.0; - my $box_where_hd = gtkpack_(new Gtk::VBox(0,1), - 0, new Gtk::HSeparator, - 0, my $check_where_hd = new Gtk::CheckButton( _(" Use Hard Disk to backup") ), - 0, new Gtk::HSeparator, - 0, gtkpack_(new Gtk::HBox(0,10), - 0, _(" "), - 0, _("Please entrer the directory to save: "), - 1, my $save_path_entry = new Gtk::Entry(), - 0, _(""), - ), - 0, _(""), - 0, gtkpack_(new Gtk::HBox(0,10), - 0, _(""), - 0, _("Please entrer the maximum size allowed for Drakbackup "), - 1, my $spinner = new Gtk::SpinButton( $adj, 0, 0), - 0, _(""), - ), - 0, gtkpack_(new Gtk::HBox(0,10), - 1, _(""), - 0, my $check_where_hd_quota = new Gtk::CheckButton( _(" Use quota for backup files.") ), - 0, _(""), - ), - ); - - $save_path_entry->set_text( $save_path ); - $save_path_entry->signal_connect( 'changed', sub { $save_path = $save_path_entry->get_text()}); - - my $combo_where_cd_time = new Gtk::Combo(); - $combo_where_cd_time->set_popdown_strings ("650","700", "750", "800"); - my $box_where_cd = gtkpack_(new Gtk::VBox(0,1), - 0, new Gtk::HSeparator, - 0, my $check_where_cd = new Gtk::CheckButton( _(" Use CD/DVDROM to backup") ), - - 0, new Gtk::HSeparator, - 0, gtkpack_(new Gtk::HBox(0,10), - 1, _("please choose your CD space"), - 0, $combo_where_cd_time, - 0, _(""), - ), - 0, _(""), - 0, gtkpack_(new Gtk::HBox(0,10), - 1, _(" Please check if you are using CDRW media"), - 0, my $check_cdrw = new Gtk::CheckButton(), - 0, _(""), - ), - 0, _(""), - 0, gtkpack_(new Gtk::HBox(0,10), - 1, _(" Please check if you want to include install boot on your CD."), - 0, my $check_cd_with_install_boot = new Gtk::CheckButton(), - 0, _(""), - ), - 0, _(""), - 0, gtkpack_(new Gtk::HBox(0,10), - 1, _("please enter your CD Writer device name\n ex: 0,1,0"), - 0, my $cd_devive_entry = new Gtk::Entry(), - 0, _(""), - ), - ); - $cd_devive_entry->set_text( $cd_devive ); - $cd_devive_entry->signal_connect( 'changed', sub { $cd_devive = $cd_devive_entry->get_text()}); - - $combo_where_cd_time->entry->set_text($cd_time); - $combo_where_cd_time->entry->signal_connect( 'changed', sub { $cd_time = $combo_where_cd_time->entry->get_text()}); - - my $box_what = gtkpack(new Gtk::VBox(0,1), - $notebook_what = new Gtk::Notebook, - $notebook_what->insert_page( $box_what_sys, $label_what_sys, 0), - $notebook_what->insert_page( $box_what_user, $label_what_user, 1), - $notebook_what->insert_page( $box_what_other, $label_what_other, 2), - $notebook_what->set_scrollable(1), - ); - - my $box_where = gtkpack(new Gtk::VBox(0,1), - $notebook_where = new Gtk::Notebook, - $notebook_where->insert_page( $box_where_net, $label_where_net, 0 ), - $notebook_where->insert_page( $box_where_hd, $label_where_hd, 1 ), - $notebook_where->insert_page( $box_where_cd, $label_where_cd, 1 ), - ); - - my $combo_when_space = new Gtk::Combo(); - $combo_when_space->set_popdown_strings (_("hourly"),_("daily"),_("weekly"),_("monthly")); - my $box_when = gtkpack_(new Gtk::VBox(0,1), - 0, gtkpack_(new Gtk::HBox(0,10), - 1, _(""), - 1, new Gtk::Pixmap($pix_time_map, $pix_time_mask), - 0, my $check_when_daemon = new Gtk::CheckButton( _(" Use daemon") ), - 1, _(""), - ), - 0, new Gtk::HSeparator, - 0, gtkpack_(new Gtk::HBox(0,10), - 1, _("Please choose interval \nspace between each backup "), - 0, $combo_when_space, - 0, _(""), - ), - 0, _(""), - 0, gtkpack_(new Gtk::HBox(0,10), - 1, _("Please choose media to backup. "), - 0, gtkpack_(new Gtk::VBox(0,10), - 0, my $check_where_cd_daemon = new Gtk::CheckButton( _(" Use CD/DVDROM with daemon") ), - 0, my $check_where_hd_daemon = new Gtk::CheckButton( _(" Use Hard Drive with daemon") ), - 0, my $check_where_net_daemon = new Gtk::CheckButton( _(" Use Network with daemon") ), - ), - ), - - 0, new Gtk::HSeparator, - 1, _("Please be careful that cron deamon is include on your services. "), - ); - $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";}); - my $box_options = gtkpack_(new Gtk::VBox(0,1), - 0, new Gtk::HSeparator, - 0, gtkpack_(new Gtk::VBox(0,10), - 0, gtkpack_(new Gtk::HBox(0,10), - 1, new Gtk::VBox(0,10), - 1, new Gtk::Pixmap($pix_options_map, $pix_options_mask), - 1, _("Please choose correct options to backup. "), - 1, new Gtk::VBox(0,10), - ), - 0, new Gtk::HSeparator, - 0, gtkpack_(new Gtk::VBox(0,10), - 0, my $check_tar_bz2 = new Gtk::CheckButton( _(" Use Tar and bzip2 ( very slow)") ), - 0, my $check_replace = new Gtk::CheckButton( _(" Replace (no update backup files)")), - 0, my $check_backupignore = new Gtk::CheckButton( _(" Use .backupignore files")), - ), - ), - ); - - gtkpack($up_box, - $box = gtkpack_(new Gtk::VBox(0, 3), - 0, new Gtk::Pixmap($pix_u_map, $pix_u_mask), - 1, gtkpack_(new Gtk::HBox(0, 3), - 0, new Gtk::Pixmap($pix_l_map, $pix_l_mask), - 1, gtkpack_(new Gtk::HBox(0, 15), - 1, new Gtk::HBox(0, 15), - 1, gtkpack_(new Gtk::VBox(0, 15), - 1, new Gtk::VBox(0, 5), - 1, gtksignal_connect(my $button_what = new Gtk::Button(), - clicked => sub {${$central_widget}->destroy(); - advanced(); }), - 1, gtksignal_connect(my $button_where = new Gtk::Button(), - clicked => sub { ${$central_widget}->destroy(); - wizard(); }), - 1, gtksignal_connect(my $button_when = new Gtk::Button(), - clicked => sub { ${$central_widget}->destroy(); - build_backup_files(); }), - 1, gtksignal_connect(my $button_options = new Gtk::Button(), - clicked => sub {${$central_widget}->destroy(); restore();}), - 1, new Gtk::VBox(0, 5), - ), - 1, new Gtk::HBox(0, 15), - ), - ), - 0, new Gtk::Pixmap($pix_r_map, $pix_r_mask), - 0, gtkpack(gtkset_layout(new Gtk::HButtonBox, -start), - gtksignal_connect(new Gtk::Button(_("close")), clicked => - sub { Gtk->main_quit() }), - gtksignal_connect(new Gtk::Button(_(" Help ")), clicked => - sub { ${$central_widget}->destroy(); wizard() }), - ), - ), - ); - - $button_what->add(gtkpack(new Gtk::HBox(0,10), - new Gtk::Pixmap($pix_hd_map, $pix_hd_mask), - new Gtk::Label(_(" What ")), - new Gtk::HBox(0, 5) - )); - $button_where->add(gtkpack(new Gtk::HBox(0,10), - new Gtk::Pixmap($pix_net_map, $pix_net_mask), - new Gtk::Label(_(" Where ")), - new Gtk::HBox(0, 5) - )); - $button_when->add(gtkpack(new Gtk::HBox(0,10), - new Gtk::Pixmap($pix_time_map, $pix_time_mask), - new Gtk::Label(_(" When ")), - new Gtk::HBox(0, 5) - )); - $button_options->add(gtkpack(new Gtk::HBox(0,10), - new Gtk::Pixmap($pix_options_map, $pix_options_mask), - new Gtk::Label(_(" More Options")), - new Gtk::HBox(0, 5) - )); - - - - - - $central_widget = \$about_box; - $up_box->show_all(); -} - - sub find_backup_to_restore { my @list_backup_tmp; my @user_backuped_tmp; @user_backuped = (); -d $save_path and my @list_backup = all($save_path); - $DEBUG and print $_."\n" foreach @list_backup; if (grep /^backup_other_/, @list_backup) {$other_backuped = 1;} if (grep /^backup_sys_/, @list_backup) {$sys_backuped = 1;} foreach (grep /^backup_user_/, @list_backup) { @@ -1514,8 +1031,6 @@ sub find_backup_to_restore { s/.tar.bz2$//gi; push @user_backuped ,$_; } - - $DEBUG and print $_."\n" foreach @user_backuped; } sub do_cron { @@ -1543,7 +1058,8 @@ sub do_restore_backend { sub do_restore { my $do_restore; - gtkpack($retore_box2, + + gtkpack($advanced_box, $do_restore = gtkpack_(new Gtk::VBox(0,10), 1, new Gtk::VBox(0,10), 1, gtkpack(new Gtk::HBox(0,10), @@ -1567,7 +1083,7 @@ sub do_restore { sub restore_step_other { my $retore_step_other; - $DEBUG and print "user list to restore" . $_."\n" foreach (@user_list_to_restore); + gtkpack($retore_box2, $retore_step_other = gtkpack_(new Gtk::VBox(0,10), 1, new Gtk::VBox(0,10), @@ -1715,12 +1231,11 @@ sub restore_step2 { $up_box->show_all(); } -sub restore { + + +sub restore_box { my $retore_box; my $retore_box3; - my ($pix_u_map, $pix_u_mask) = gtkcreate_png("backup_title"); - my ($pix_l_map, $pix_l_mask) = gtkcreate_png("backup_left2"); - my ($pix_r_map, $pix_r_mask) = gtkcreate_png("backup_bot2"); my $check_restore_sys; my $check_restore_user; my $check_restore_other; @@ -1729,52 +1244,26 @@ sub restore { @user_list_to_restore = @user_backuped; if ($other_backuped || $sys_backuped || @user_backuped) { - gtkpack($up_box, - $retore_box = gtkpack_(new Gtk::VBox(0,1), - 0, gtkpng('backup_title'), - 1, gtkpack_(new Gtk::HBox(0, 0), - 0, gtkpng('backup_left2'), - 1, gtkadd(new Gtk::Frame(_("Restoration Step.")), - $retore_box2 = gtkpack(new Gtk::VBox(0,10), - $retore_box3 = gtkpack_(new Gtk::VBox(0,10), - 1, _("Please choose that you want to restore."), - 0, gtkpack_(new Gtk::HBox(0,10), - 1, new Gtk::HBox(0,10), - 1, gtkpack_(new Gtk::VBox(0,10), - 0, gtksignal_connect(new Gtk::Button(_("Restore all backups (last)")), - clicked => sub { $retore_box3->destroy(); - $restore_sys = 1; - $restore_other = 1; - $restore_user = 1; - do_restore(); }), - 0, gtksignal_connect(new Gtk::Button(_("Custom Restore")), - clicked => sub { $retore_box3->destroy(); restore_step2(); }), - ), - 1, new Gtk::HBox(0,10), - ), + gtkpack($advanced_box, + $retore_box = gtkpack_(new Gtk::VBox(0,1), 1, new Gtk::HBox(0,10), - ),),),), - 0, gtkpng('backup_bot2'), - 0, new Gtk::HSeparator, - 0, gtkpack_(new Gtk::HBox(0, 0), - 1, gtkpack_(new Gtk::HButtonBox, - 1, gtksignal_connect(new Gtk::Button(_(" Cancel ")), clicked => sub { - ${$central_widget}->destroy(); interactive_mode(); }), - 1, gtksignal_connect(new Gtk::Button(_(" Help ")), clicked => sub { - $retore_box->destroy(); restore_help();}), - 1, new Gtk::HBox(0, 0), - 1, gtksignal_connect(new Gtk::Button(_(" Next ")), clicked => sub { - $retore_box->destroy(); restore_help();}), - ), - ), - ) - ); + 1, gtkpack_(new Gtk::VBox(0,10), + 1, gtksignal_connect(new Gtk::Button(_("Restore all backups (last)")), + clicked => sub { $retore_box->destroy(); + $restore_sys = 1; + $restore_other = 1; + $restore_user = 1; + do_restore(); }), + 1, gtksignal_connect(new Gtk::Button(_("Custom Restore")), + clicked => sub { $retore_box->destroy(); restore_step2(); }), + ), + 1, new Gtk::HBox(0,10), + ), + ); } else { - gtkpack($up_box, - $retore_box = gtkpack_(new Gtk::VBox(0,1), - 0, new Gtk::Pixmap($pix_u_map, $pix_u_mask), + gtkpack($advanced_box, + $retore_box = gtkpack_(new Gtk::VBox(0,1), 1, gtkpack_(new Gtk::HBox(0, 0), - 0, new Gtk::Pixmap($pix_l_map, $pix_l_mask), 1, gtkadd(new Gtk::Frame(_("Restoration Step.")), $retore_box2 = gtkpack(new Gtk::VBox(0,10), $retore_box3 = gtkpack_(new Gtk::VBox(0,10), @@ -1784,16 +1273,6 @@ sub restore { ), 1, new Gtk::HBox(0,10), ),),),), - 0, new Gtk::Pixmap($pix_r_map, $pix_r_mask), - 0, new Gtk::HSeparator, - 0, gtkpack_(new Gtk::HBox(0, 0), - 1, gtkpack_(new Gtk::HButtonBox, - 1, gtksignal_connect(new Gtk::Button(_(" Cancel ")), clicked => sub { - ${$central_widget}->destroy(); interactive_mode(); }), - 1, gtksignal_connect(new Gtk::Button(_(" Help ")), clicked => sub { - $retore_box->destroy(); restore_help();}), - ), - ), ) ); } @@ -1801,32 +1280,155 @@ sub restore { $up_box->show_all(); } +# sub restore_box { +# my $retore_box; +# my $retore_box3; +# my $check_restore_sys; +# my $check_restore_user; +# my $check_restore_other; + +# find_backup_to_restore(); + +# @user_list_to_restore = @user_backuped; +# if ($other_backuped || $sys_backuped || @user_backuped) { +# gtkpack($advanced_box, +# $retore_box = gtkpack(new Gtk::VBox(0,1), +# $retore_box2 = gtkpack(new Gtk::VBox(0,10), +# $retore_box3 = gtkpack_(new Gtk::VBox(0,10), +# 0, gtkpack_(new Gtk::HBox(0,10), +# 1, new Gtk::HBox(0,10), +# 1, gtkpack_(new Gtk::VBox(0,10), +# 0, gtksignal_connect(new Gtk::Button(_("Restore all backups (last)")), +# clicked => sub { $retore_box3->destroy(); +# $restore_sys = 1; +# $restore_other = 1; +# $restore_user = 1; +# do_restore(); }), +# 0, gtksignal_connect(new Gtk::Button(_("Custom Restore")), +# clicked => sub { $retore_box3->destroy(); restore_step2(); }), +# ), +# 1, new Gtk::HBox(0,10), +# ), +# 1, new Gtk::HBox(0,10), +# ),),), +# ); +# } else { +# gtkpack($advanced_box, +# $retore_box = gtkpack_(new Gtk::VBox(0,1), +# 1, gtkpack_(new Gtk::HBox(0, 0), +# 1, gtkadd(new Gtk::Frame(_("Restoration Step.")), +# $retore_box2 = gtkpack(new Gtk::VBox(0,10), +# $retore_box3 = gtkpack_(new Gtk::VBox(0,10), +# 1, _("Please Build backup before to restore it..."), +# 0, gtkpack_(new Gtk::HBox(0,10), +# 1, new Gtk::HBox(0,10), +# ), +# 1, new Gtk::HBox(0,10), +# ),),),), +# ) +# ); +# } +# $central_widget = \$retore_box; +# $up_box->show_all(); +# } + + + + + + +sub adv_button_box { + + $button_box_tmp->destroy(); + gtkpack($button_box, + $button_box_tmp = gtkpack_(new Gtk::HButtonBox, + 0, gtksignal_connect(new Gtk::Button(_(" Cancel ")), clicked => sub { + ${$central_widget}->destroy(); interactive_mode_box(); }), + 0, gtksignal_connect(new Gtk::Button(_(" Help ")), clicked => sub { + ${$central_widget}->destroy(); adv_help(\&$current_widget,$custom_help ); }), + 1, new Gtk::HBox(0, 1), + 0, gtksignal_connect(new Gtk::Button(_(" Previous ")), clicked => sub { + ${$central_widget}->destroy(); $previous_widget->(); }), + 0, gtksignal_connect(new Gtk::Button(_(" Ok ")), clicked => sub { + ${$central_widget}->destroy(); save_conf_file(); $previous_widget->(); }), + ), + ); +} + + +sub adv_button_box { + + $button_box_tmp->destroy(); + gtkpack($button_box, + $button_box_tmp = gtkpack_(new Gtk::HButtonBox, + 1, gtksignal_connect(new Gtk::Button(_(" Cancel ")), clicked => sub { + ${$central_widget}->destroy(); interactive_mode_box(); }), + 1, gtksignal_connect(new Gtk::Button(_(" Help ")), clicked => sub { + ${$central_widget}->destroy(); restore_help();}), + 1, new Gtk::HBox(0, 0), + 1, gtksignal_connect(new Gtk::Button(_(" Next ")), clicked => sub { + ${$central_widget}->destroy(); restore_help();}), + ), + ); +} + + + + +sub main_button_box { + + $button_box_tmp->destroy(); + gtkpack($button_box, + $button_box_tmp = gtkpack(gtkset_layout(new Gtk::HButtonBox, -start), + gtksignal_connect(new Gtk::Button(_("close")), clicked => sub { + Gtk->main_quit() }), + gtksignal_connect(new Gtk::Button(_(" Help ")), clicked => sub { + ${$central_widget}->destroy(); help(\&interactive_mode_box) }), + ), + ); +} + +sub interactive_mode_box { + + $box2->destroy(); + gtkadd($advanced_box, + $box2 = gtkpack_(new Gtk::VBox(0, 15), + 1, new Gtk::VBox(0, 5), + 1, gtksignal_connect(new Gtk::Button(_(" Advanced Configuration ")), + clicked => sub { adv_button_box(); + ${$central_widget}->destroy(); + advanced_box(); }), + 1, gtksignal_connect(new Gtk::Button(_(" Wizard Configuration ")), + clicked => sub { ${$central_widget}->destroy(); + wizard(); }), + 1, gtksignal_connect(new Gtk::Button(_(" Build Backup ")), + clicked => sub { ${$central_widget}->destroy(); + build_backup_files(); }), + 1, gtksignal_connect(new Gtk::Button(_(" Restore ")), + clicked => sub {${$central_widget}->destroy(); restore_box();}), + 1, new Gtk::VBox(0, 5), + ), + ); + main_button_box(); + $central_widget = \$box2; + $up_box->show_all(); +} + + + sub interactive_mode { $interactive = 1; - my $box_cfg_state; - my $box_cgf_state_replace; - my $box_cgf_state_comp; - my $mask; - my $style; my $box; - my $box_cgf_state_sys = (""); - my $text2 = new Gtk::Text(undef, undef); my $window1 = $::isEmbedded ? new Gtk::Plug ($::XID) : new Gtk::Window -toplevel; - init Gtk; - $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("backup_title"); my ($pix_l_map, $pix_l_mask) = gtkcreate_png("backup_left2"); my ($pix_r_map, $pix_r_mask) = gtkcreate_png("backup_bot2"); - -# $mdk_cc and - - read_conf_file(); + gtkadd($window1, gtkpack(new Gtk::VBox(0,0), gtkpack(gtkset_usize($up_box = new Gtk::VBox(0, 5), 500, 420), @@ -1835,38 +1437,26 @@ sub interactive_mode { 1, gtkpack_(new Gtk::HBox(0, 3), 0, new Gtk::Pixmap($pix_l_map, $pix_l_mask), 1, gtkpack_(new Gtk::HBox(0, 15), - 1, new Gtk::HBox(0, 15), - 1, gtkpack_(new Gtk::VBox(0, 15), - 1, new Gtk::VBox(0, 5), - 1, gtksignal_connect(new Gtk::Button(_(" Advanced Configuration ")), - clicked => sub {${$central_widget}->destroy(); - advanced(); }), - 1, gtksignal_connect(new Gtk::Button(_(" Wizard Configuration ")), - clicked => sub { ${$central_widget}->destroy(); - wizard(); }), - 1, gtksignal_connect(new Gtk::Button(_(" Build Backup ")), - clicked => sub { ${$central_widget}->destroy(); - build_backup_files(); }), - 1, gtksignal_connect(new Gtk::Button(_(" Restore ")), - clicked => sub {${$central_widget}->destroy(); restore();}), - 1, new Gtk::VBox(0, 5), - ), - 1, new Gtk::HBox(0, 15), + 1, new Gtk::HBox(0, 15), + 1, $advanced_box = gtkpack_(new Gtk::HBox(0, 15), + 1, $box2 = gtkpack_(new Gtk::VBox(0, 15), + ), + ), + 1, new Gtk::HBox(0, 15), ), ), 0, new Gtk::Pixmap($pix_r_map, $pix_r_mask), - 0, gtkpack(gtkset_layout(new Gtk::HButtonBox, -start), - gtksignal_connect(new Gtk::Button(_("close")), clicked => - sub { Gtk->main_quit() }), - gtksignal_connect(new Gtk::Button(_(" Help ")), clicked => - sub { ${$central_widget}->destroy(); help(\&interactive_mode) }), - - ), + 0, $button_box = gtkpack(new Gtk::VBox(0, 15), + $button_box_tmp = gtkpack(new Gtk::VBox(0, 0), + ), + ), ), ), ), ); - $central_widget = \$box; + interactive_mode_box(); + main_button_box(); + $central_widget = \$box2; $window1->show_all; $window1->realize; $window1->show_all(); @@ -1874,99 +1464,6 @@ sub interactive_mode { Gtk->exit(0); } -sub after_adv { - $interactive = 1; - my $box_cfg_state; - my $box_cgf_state_replace; - my $box_cgf_state_comp; - my $mask; - my $style; - my $box_cgf_state_sys = (""); - 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("backup_title"); - my ($pix_l_map, $pix_l_mask) = gtkcreate_png("backup_left"); - my ($pix_b_map, $pix_b_mask) = gtkcreate_png("backup_bot2"); - my ($pix_cd_map, $pix_cd_mask) = gtkcreate_png("cdrom"); - my ($pix_hd2_map, $pix_hd2_mask) = gtkcreate_png("hd"); - my ($pix_quit_map, $pix_quit_mask) = gtkcreate_png("quit"); - - my $button_burn_cd = new Gtk::Button(); - $button_burn_cd->add( gtkpack(new Gtk::HBox( 0, 2), - new Gtk::Pixmap($pix_cd_map, $pix_cd_mask), - _("Burn auto\n Install CDROM") - ), - ); - - my $button_do_backup = new Gtk::Button(); - $button_do_backup->add( gtkpack(new Gtk::HBox( 0, 2), - new Gtk::Pixmap($pix_hd2_map, $pix_hd2_mask), - _("Build a \nbackupn now") - ), - ); - - my $button_quit = new Gtk::Button(); - $button_quit->add( gtkpack(new Gtk::HBox( 0, 2), - new Gtk::Pixmap($pix_quit_map, $pix_quit_mask), - _("Quit DrakBackup") - ), - ); - - read_conf_file(); - $backup_sys or $box_cgf_state_sys = _("Do not include System Files"); - 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 bzip2 "), - } else { $box_cgf_state_comp = _("Backups use tar and gzip"), } - - if ($cfg_file_exist) { - my $label_cfg_file = new Gtk::Label _("Backup Sources: \n-System Files: @sys_files \n-Users Files: @user_list\n-Other Files to backup: @list_other\nPath to save backups: $save_path\nOptions:\n$box_cgf_state_replace\n$box_cgf_state_comp\n$box_cgf_state_sys\n"); - $box_cfg_state = gtkpack(new Gtk::VBox( 0, 0), - gtkset_justify( $label_cfg_file , 'left'), - ), - } else { $box_cfg_state = gtkpack(new Gtk::VBox(0,1), - _("No configuration please click Wizard or Advanced.") ), } - gtkadd($window1, - gtkpack(new Gtk::VBox(0,0), - gtkpack(gtkset_usize($up_box = new Gtk::VBox(0, 5), 500, 420), - $box = gtkpack_(new Gtk::VBox(0, 3), - 0, new Gtk::Pixmap($pix_u_map, $pix_u_mask), - 1, gtkpack_(new Gtk::HBox(0, 3), - 0, new Gtk::Pixmap($pix_l_map, $pix_l_mask), - 1, createScrolledWindow( gtkpack(new Gtk::VBox(0,0), - gtkadd(new Gtk::Frame(_("State of configuration file.")), - gtkpack(new Gtk::VBox(0,10), - $box_cfg_state, - ),),),),), - 0, new Gtk::Pixmap($pix_b_map, $pix_b_mask), - 0, gtkpack_(new Gtk::HBox(0, 0), - 1, gtkpack_(new Gtk::HBox(0, 1), - 1, gtksignal_connect($button_quit, clicked => sub { - Gtk->main_quit() }), - 1, gtksignal_connect($button_do_backup, clicked => sub { - ${$central_widget}->destroy(); }), - 1, gtksignal_connect($button_burn_cd, clicked => sub { - ${$central_widget}->destroy(); }), - ), - ), - ), - ), - ), - ); - $central_widget = \$box; - $window1->show_all; - $window1->realize; - $window1->show_all(); - Gtk->main; - Gtk->exit(0); -} sub about { my $text = new Gtk::Text(undef, undef); @@ -2004,48 +1501,6 @@ sub about { $up_box->show_all(); } -# sub adv_help { -# my $text = new Gtk::Text(undef, undef); -# my $about_box; -# gtkpack($up_box, -# $about_box = gtkpack_(new Gtk::VBox(0,10), -# 1, gtkpack_(new Gtk::HBox(0,0), -# 1, gtktext_insert(gtkset_editable($text, 1), _(" -# description: - -# Drakbacup is use to backup system files and user files -# Drakbacup allow to restore the system (etc, var files) -# from starup or on drakconf utility. - -# backup name format: all the time from the / dir. - -# system backup: -# backup_sys.tar.gz -# user backup -# backup_user_james.tar.gz -# backup_user_seb.tar.gz -# other directories -# backup_other.tar.gz - -# build iso fs with rescue. - -# configuration file: - -# /etc/drakconf/drakbackup/drakbakup.conf - -# ")), -# 0, new Gtk::VScrollbar($text->vadj), -# ), -# 0, gtkadd(gtkset_layout(new Gtk::HButtonBox, -spread), -# gtksignal_connect(new Gtk::Button(_("OK")), clicked => -# sub { ${$central_widget}->destroy(); advanced(); }), -# ), -# ) -# ); -# $central_widget = \$about_box; -# $up_box->show_all(); -# } - sub help { my ($function) = @_, my $text = new Gtk::Text(undef, undef); @@ -2294,7 +1749,185 @@ Drakbacup allow to restore the system (etc, var files) # # $notebook->set_tab_pos( $rotate{ $notebook->tab_pos } ); +# sub after_adv { +# $interactive = 1; +# my $box_cfg_state; +# my $box_cgf_state_replace; +# my $box_cgf_state_comp; +# my $mask; +# my $style; +# my $box_cgf_state_sys = (""); +# 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("backup_title"); +# my ($pix_l_map, $pix_l_mask) = gtkcreate_png("backup_left"); +# my ($pix_b_map, $pix_b_mask) = gtkcreate_png("backup_bot2"); +# my ($pix_cd_map, $pix_cd_mask) = gtkcreate_png("cdrom"); +# my ($pix_hd2_map, $pix_hd2_mask) = gtkcreate_png("hd"); +# my ($pix_quit_map, $pix_quit_mask) = gtkcreate_png("quit"); + +# my $button_burn_cd = new Gtk::Button(); +# $button_burn_cd->add( gtkpack(new Gtk::HBox( 0, 2), +# new Gtk::Pixmap($pix_cd_map, $pix_cd_mask), +# _("Burn auto\n Install CDROM") +# ), +# ); + +# my $button_do_backup = new Gtk::Button(); +# $button_do_backup->add( gtkpack(new Gtk::HBox( 0, 2), +# new Gtk::Pixmap($pix_hd2_map, $pix_hd2_mask), +# _("Build a \nbackupn now") +# ), +# ); + +# my $button_quit = new Gtk::Button(); +# $button_quit->add( gtkpack(new Gtk::HBox( 0, 2), +# new Gtk::Pixmap($pix_quit_map, $pix_quit_mask), +# _("Quit DrakBackup") +# ), +# ); + +# read_conf_file(); +# $backup_sys or $box_cgf_state_sys = _("Do not include System Files"); +# 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 bzip2 "), +# } else { $box_cgf_state_comp = _("Backups use tar and gzip"), } + +# if ($cfg_file_exist) { +# my $label_cfg_file = new Gtk::Label _("Backup Sources: \n-System Files: @sys_files \n-Users Files: @user_list\n-Other Files to backup: @list_other\nPath to save backups: $save_path\nOptions:\n$box_cgf_state_replace\n$box_cgf_state_comp\n$box_cgf_state_sys\n"); +# $box_cfg_state = gtkpack(new Gtk::VBox( 0, 0), +# gtkset_justify( $label_cfg_file , 'left'), +# ), +# } else { $box_cfg_state = gtkpack(new Gtk::VBox(0,1), +# _("No configuration please click Wizard or Advanced.") ), } +# gtkadd($window1, +# gtkpack(new Gtk::VBox(0,0), +# gtkpack(gtkset_usize($up_box = new Gtk::VBox(0, 5), 500, 420), +# $box = gtkpack_(new Gtk::VBox(0, 3), +# 0, new Gtk::Pixmap($pix_u_map, $pix_u_mask), +# 1, gtkpack_(new Gtk::HBox(0, 3), +# 0, new Gtk::Pixmap($pix_l_map, $pix_l_mask), +# 1, createScrolledWindow( gtkpack(new Gtk::VBox(0,0), +# gtkadd(new Gtk::Frame(_("State of configuration file.")), +# gtkpack(new Gtk::VBox(0,10), +# $box_cfg_state, +# ),),),),), +# 0, new Gtk::Pixmap($pix_b_map, $pix_b_mask), +# 0, gtkpack_(new Gtk::HBox(0, 0), +# 1, gtkpack_(new Gtk::HBox(0, 1), +# 1, gtksignal_connect($button_quit, clicked => sub { +# Gtk->main_quit() }), +# 1, gtksignal_connect($button_do_backup, clicked => sub { +# ${$central_widget}->destroy(); }), +# 1, gtksignal_connect($button_burn_cd, clicked => sub { +# ${$central_widget}->destroy(); }), +# ), +# ), +# ), +# ), +# ), +# ); +# $central_widget = \$box; +# $window1->show_all; +# $window1->realize; +# $window1->show_all(); +# Gtk->main; +# Gtk->exit(0); +# } +# sub restore { +# my $retore_box; +# my $retore_box3; +# my ($pix_u_map, $pix_u_mask) = gtkcreate_png("backup_title"); +# my ($pix_l_map, $pix_l_mask) = gtkcreate_png("backup_left2"); +# my ($pix_r_map, $pix_r_mask) = gtkcreate_png("backup_bot2"); +# my $check_restore_sys; +# my $check_restore_user; +# my $check_restore_other; + +# find_backup_to_restore(); + +# @user_list_to_restore = @user_backuped; +# if ($other_backuped || $sys_backuped || @user_backuped) { +# gtkpack($up_box, +# $retore_box = gtkpack_(new Gtk::VBox(0,1), +# 0, gtkpng('backup_title'), +# 1, gtkpack_(new Gtk::HBox(0, 0), +# 0, gtkpng('backup_left2'), +# 1, gtkadd(new Gtk::Frame(_("Restoration Step.")), +# $retore_box2 = gtkpack(new Gtk::VBox(0,10), +# $retore_box3 = gtkpack_(new Gtk::VBox(0,10), +# 1, _("Please choose that you want to restore."), +# 0, gtkpack_(new Gtk::HBox(0,10), +# 1, new Gtk::HBox(0,10), +# 1, gtkpack_(new Gtk::VBox(0,10), +# 0, gtksignal_connect(new Gtk::Button(_("Restore all backups (last)")), +# clicked => sub { $retore_box3->destroy(); +# $restore_sys = 1; +# $restore_other = 1; +# $restore_user = 1; +# do_restore(); }), +# 0, gtksignal_connect(new Gtk::Button(_("Custom Restore")), +# clicked => sub { $retore_box3->destroy(); restore_step2(); }), +# ), +# 1, new Gtk::HBox(0,10), +# ), +# 1, new Gtk::HBox(0,10), +# ),),),), +# 0, gtkpng('backup_bot2'), +# 0, new Gtk::HSeparator, +# 0, gtkpack_(new Gtk::HBox(0, 0), +# 1, gtkpack_(new Gtk::HButtonBox, +# 1, gtksignal_connect(new Gtk::Button(_(" Cancel ")), clicked => sub { +# ${$central_widget}->destroy(); interactive_mode(); }), +# 1, gtksignal_connect(new Gtk::Button(_(" Help ")), clicked => sub { +# $retore_box->destroy(); restore_help();}), +# 1, new Gtk::HBox(0, 0), +# 1, gtksignal_connect(new Gtk::Button(_(" Next ")), clicked => sub { +# $retore_box->destroy(); restore_help();}), +# ), +# ), +# ) +# ); +# } else { +# gtkpack($up_box, +# $retore_box = gtkpack_(new Gtk::VBox(0,1), +# 0, new Gtk::Pixmap($pix_u_map, $pix_u_mask), +# 1, gtkpack_(new Gtk::HBox(0, 0), +# 0, new Gtk::Pixmap($pix_l_map, $pix_l_mask), +# 1, gtkadd(new Gtk::Frame(_("Restoration Step.")), +# $retore_box2 = gtkpack(new Gtk::VBox(0,10), +# $retore_box3 = gtkpack_(new Gtk::VBox(0,10), +# 1, _("Please Build backup before to restore it..."), +# 0, gtkpack_(new Gtk::HBox(0,10), +# 1, new Gtk::HBox(0,10), +# ), +# 1, new Gtk::HBox(0,10), +# ),),),), +# 0, new Gtk::Pixmap($pix_r_map, $pix_r_mask), +# 0, new Gtk::HSeparator, +# 0, gtkpack_(new Gtk::HBox(0, 0), +# 1, gtkpack_(new Gtk::HButtonBox, +# 1, gtksignal_connect(new Gtk::Button(_(" Cancel ")), clicked => sub { +# ${$central_widget}->destroy(); interactive_mode(); }), +# 1, gtksignal_connect(new Gtk::Button(_(" Help ")), clicked => sub { +# $retore_box->destroy(); restore_help();}), +# ), +# ), +# ) +# ); +# } +# $central_widget = \$retore_box; +# $up_box->show_all(); +# } |