summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorSebastien Dupont <sdupont@mandriva.com>2001-12-18 15:32:09 +0000
committerSebastien Dupont <sdupont@mandriva.com>2001-12-18 15:32:09 +0000
commit869f7f3cfc4cd788534f438f84d67b9192a3317e (patch)
treee8351bd1c38a802bf63a35b3fe359251b16b4e5f /perl-install
parent2b0fc189451acc9b2b3576de5f31ab9b5a80d512 (diff)
downloaddrakx-backup-do-not-use-869f7f3cfc4cd788534f438f84d67b9192a3317e.tar
drakx-backup-do-not-use-869f7f3cfc4cd788534f438f84d67b9192a3317e.tar.gz
drakx-backup-do-not-use-869f7f3cfc4cd788534f438f84d67b9192a3317e.tar.bz2
drakx-backup-do-not-use-869f7f3cfc4cd788534f438f84d67b9192a3317e.tar.xz
drakx-backup-do-not-use-869f7f3cfc4cd788534f438f84d67b9192a3317e.zip
fix restore user selection problems
fix build backup data selection problems ect ... drakbackup -> drakxtools.rpm
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakbackup367
1 files changed, 68 insertions, 299 deletions
diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup
index ec60f2881..4a1299f0a 100755
--- a/perl-install/standalone/drakbackup
+++ b/perl-install/standalone/drakbackup
@@ -48,20 +48,26 @@
#
#
#________________________________________________________________
+#
+# PBS persistants:
+#
+# selection des sources a inclure dans le backup cd.
#
# TODO:
-# view list of data to include on cd
-# DONE:
-# incremental backups have depends whith replace options.
-# gtklist not maximized.
-# restore mode.
-# view date during restore
-# view size of file, date & hours during backup on CD
+# custom deamon
+# ssh & rsync
+# boot floppy disk
+# webdav
+# rsync
+# cd writer detection
+# write on cd
+# build autoboot with backup and install cd
+#
+#
+# DONE TODAY:
#________________________________________________________________
-
-
use Gtk;
use lib qw(/usr/lib/libDrakX );
use interactive;
@@ -73,7 +79,6 @@ use Time::localtime;
my $in = 'interactive'->vnew('', 'default');
$::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\w+) (\w+)/;
-#!$::isEmbedded && $in->isa('interactive_gtk') and $::isWizard=1;
if ("@ARGV" =~ /--help|-h/) {
@@ -89,7 +94,6 @@ if ("@ARGV" =~ /--help|-h/) {
in /var/backup directory so write other directory
to change to change it.
--conf_file : to read other configuration file.
---mdk_cc : to include on Mandrake Control Center
);
exit(0);
}
@@ -115,7 +119,6 @@ my @user_and_path_list;
my @all_user_list;
my $list_other;
my $label_cfg_file;
-my $mdk_cc = 0;
my $DEBUG = 0;
my $restore_sys = 1;
my $restore_user = 1;
@@ -143,6 +146,8 @@ my @data_backuped = ();
my $box_tail;
my $label_tail;
my @user_list_to_build_on_cd = ();
+my $restore_path = "/";
+my $restore_other_path = 0;
# config. FILES -> Default PATH & Global variables.
my @sys_files = ("/etc");
@@ -194,7 +199,6 @@ foreach (@ARGV) {
/--replace|-r/ and $option_replace = 1, $mode=-1;
/--conf_file/ and $mode = 0, next;
/--list/ and $mode = 1, next;
- /--mdk_cc/ and $mdk_cc = 1, next;
/--debug/ and $DEBUG = 1, next;
$mode == 1 and push @list_arg, $_;
}
@@ -705,7 +709,7 @@ sub advanced_where_net_ssh {
1, new Gtk::VBox(0, 5),
1, gtksignal_connect(new Gtk::Button("rsync"), clicked => sub {
${$central_widget}->destroy(); }),
- 1, gtksignal_connect(new Gtk::Button("unison"), clicked => sub {
+ 1, gtksignal_connect(new Gtk::Button("WebDav"), clicked => sub {
${$central_widget}->destroy(); }),
1, gtksignal_connect(new Gtk::Button("scp"), clicked => sub {
${$central_widget}->destroy(); }),
@@ -1281,10 +1285,6 @@ sub find_backup_to_restore {
s/.tar.bz2$//gi;
my @user_date = split(/\_20/,$_ );
my @user_date2 = split(/\_/,$user_date[1] );
-# print "user :".$user_date[0]."\n";
-# print "date: 20".$user_date2[0]."\n";
-# print "heure: ".$user_date2[1]."\n";
-# print "$user_date[0], date: 20$user_date2[0], time: $user_date2[1] \n";
my $to_put = " $user_date[0], (date: 20$user_date2[0], hour: $user_date2[1])";
push @user_backuped , $to_put;
}
@@ -1345,6 +1345,9 @@ sub restore_state {
$restore_state .= "- Restore Other Files: \n";
-f "$save_path/list_other" and $restore_state .= "\t\t$_\n" foreach split( "\n", cat_("$save_path/list_other"));
}
+ if ($restore_other_path) {
+ $restore_state .= "- Path to Restore: $restore_path \n";
+ }
}
sub restore_do {
@@ -1410,23 +1413,26 @@ sub restore_step_user {
1, createScrolledWindow( gtkpack__(new Gtk::VBox(0,0),
map { my @name_l = split(/,/, $_);
my $name_complet = $_;
+ my @user_list_tmp = ();
my $name = $name_l[0];
-# print "$name\n";
my $b = new Gtk::CheckButton($name_complet);
- if ( grep /$name_complet/, @user_list_to_restore2) {
+ if ( grep $name_complet, @user_list_to_restore2) {
gtkset_active($b, 1);
} else {
gtkset_active($b, 0);
}
$b->signal_connect(toggled => sub {
-# @name_l = split(/,/, $_);
if ($check_user_to_restore{$name_complet}[1] ) {
- $check_user_to_restore{$name_complet}[1] = 1;
+ $check_user_to_restore{$name_complet}[1] = 0;
if (!member(/$name_complet/, @user_list_to_restore2) ) {
push @user_list_to_restore2, $name_complet;}
} else {
- $check_user_to_restore{$name_complet}[1] = 0;
- my @user_list_tmp = grep(!/$name_complet/,@user_list_to_restore2 );
+ $check_user_to_restore{$name_complet}[1] = 1;
+ foreach (@user_list_to_restore2) {
+ if ($name_complet ne $_) {
+ push @user_list_tmp, $_;
+ }
+ }
@user_list_to_restore2 = @user_list_tmp;
}
});
@@ -1478,10 +1484,17 @@ sub restore_step2 {
0, my $check_restore_sys = new Gtk::CheckButton(_("Restore system")),
0, my $check_restore_user = new Gtk::CheckButton(_("Restore Users")),
0, my $check_restore_other = new Gtk::CheckButton(_("Restore Other")),
+ 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),
+ ),
1, new Gtk::VBox(0,10),
),
);
- foreach ([$check_restore_sys, \$restore_sys], [$check_restore_user, \$restore_user], [$check_restore_other, \$restore_other]) {
+ foreach ([$check_restore_sys, \$restore_sys],
+ [$check_restore_user, \$restore_user],
+ [$check_restore_other, \$restore_other]) {
my $ref = $_->[1];
gtksignal_connect(gtkset_active($_->[0], ${$ref}), toggled => sub {
${$ref} = ${$ref} ? 0 : 1;
@@ -1492,11 +1505,18 @@ sub restore_step2 {
else{ $next_widget = \&restore_do;}
})
}
+ gtksignal_connect(gtkset_active($check_restore_other_path, $restore_other_path), toggled => sub {
+ $restore_other_path = $restore_other_path ? 0 : 1;
+
+ ${$central_widget}->destroy();
+ $current_widget->();
+ });
if (!$restore_sys && !$restore_user && !$restore_other) { $next_widget = \&message_norestore_box; }
elsif ($restore_sys && $backup_sys_versions) { $next_widget = \&restore_step_sys; }
elsif ($restore_user) { $next_widget = \&restore_step_user;}
elsif ($restore_other){ $next_widget = \&restore_step_other;}
else{ $next_widget = \&restore_do;}
+ $restore_path_entry->set_text($restore_path);
$custom_help = "restore";
$previous_widget =\&restore_box;
$current_widget = \&restore_step2;
@@ -1957,11 +1977,16 @@ sub build_backup_box_progress {
sub aff_total_tail {
- $label_tail->set("toto");
-# print "build on cd : $_\n" foreach @user_list_to_build_on_cd;
- my @toto = (split (' ', $_))[0] foreach @user_list_to_build_on_cd;
- print "build on cd : $_\n" foreach @toto;
- print "end\n";
+ my @toto = ();
+ my $total = 0;
+ push @toto, (split (",", $_))[1] foreach @user_list_to_build_on_cd;
+ foreach (@toto) {
+ s/\s+\(tail://gi;
+ s/\s+//gi;
+ s/ko//gi;
+ $total += $_;
+ }
+ $label_tail->set("total tail: $total ko");
}
my %check_data_to_backup_cd;
@@ -1969,7 +1994,6 @@ sub build_backup_cd_select_data {
my $retore_step_user;
find_backup_to_put_on_cd();
@user_list_to_build_on_cd = @data_backuped;
-# my @data_backuped = ("user: seb date: 10/12/2001 16000 Ko", "user: john date: 10/12/2001 16000 Ko", "user: co date: 10/12/2001 16000 Ko");
gtkpack($advanced_box,
$retore_step_user = gtkpack_(new Gtk::VBox(0,10),
@@ -1977,20 +2001,25 @@ sub build_backup_cd_select_data {
0, _(" Data list to include on CDROM. "),
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_to_build_on_cd) {
+ if ( grep $name , @user_list_to_build_on_cd) {
gtkset_active($b, 1);
} else {
gtkset_active($b, 0);
}
$b->signal_connect(toggled => sub {
if ($check_data_to_backup_cd{$name}[1] ) {
- $check_data_to_backup_cd{$name}[1] = 1;
- if (!member($name, @user_list_to_build_on_cd) ) {
+ $check_data_to_backup_cd{$name}[1] = 0;
+ if (!member( /$name$/, @user_list_to_build_on_cd) ) {
push @user_list_to_build_on_cd, $name;}
} else {
- $check_data_to_backup_cd{$name}[1] = 0;
- my @user_list_tmp = grep(!/^$name$/,@user_list_to_build_on_cd );
+ $check_data_to_backup_cd{$name}[1] = 1;
+ foreach (@user_list_to_build_on_cd) {
+ if ($name ne $_) {
+ push @user_list_tmp, $_;
+ }
+ }
@user_list_to_build_on_cd = @user_list_tmp;
}
aff_total_tail();
@@ -1999,13 +2028,11 @@ sub build_backup_cd_select_data {
),
),
0, new Gtk::HSeparator,
- 0, $label_tail = new Gtk::Label("total tail: 55Mo"),
+ 0, $label_tail = new Gtk::Label(" "),
0, new Gtk::HSeparator,
-# 1, my $labelo = new Gtk::Label
),
);
-# if ($restore_other) { $next_widget = \&restore_step_other;}
-# else{ $next_widget = \&restore_do;}
+ aff_total_tail();
$next_widget = \&build_backup_box_see_conf;
$custom_help = "restore";
$previous_widget = \&build_backup_cd_box;
@@ -2033,7 +2060,7 @@ 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 entrer the maximum size allowed for Drakbackup ")), $where_cd ),
+ 0, gtkset_sensitive(new Gtk::Label(_("Please entrer the cd writer speed ")), $where_cd ),
1, new Gtk::VBox(0, 6),
0, gtkset_usize(gtkset_sensitive(my $spinner = new Gtk::SpinButton( $adj, 0, 0), $where_cd ), 100, 20),
),
@@ -2146,7 +2173,6 @@ sub interactive_mode_box {
wizard(); }),
1, gtksignal_connect(new Gtk::Button(_(" Backup Now ")),
clicked => sub { ${$central_widget}->destroy();
- # build_backup_files();
if ($cfg_file_exist) { build_backup_box();}
else { message_noconf_box();}
}),
@@ -2381,263 +2407,6 @@ Drakbacup allow to restore the system (etc, var files)
-# sub build_backup_files {
-# -d $save_path or mkdir_p($save_path);
-# my $path_name;
-# my @list_other_;
-# if ($where_hd) {
-# print "backup_sys @sys_files\n";
-# $backup_sys and system("tar cvfz $save_path/backup_sys.tar.gz @sys_files");
-# print "backup_other @list_other\n";
-# if (@list_other) {
-# system("tar cvfz $save_path/backup_other.tar.gz @list_other");
-# foreach (@list_other) {
-# push @list_other_, $_ . "\n";
-# }
-# output_p( $save_path . '/list_other', @list_other_);
-# }
-# if ($backup_user) {
-# foreach (@user_list) {
-# $path_name = return_path($_);
-# print "path of user: $path_name\n";
-# $what_no_browser or system("tar cvfz $save_path/backup_user_$_.tar.gz $path_name");
-# $what_no_browser and system("tar cvz --exclude NewCache --exclude Cache --exclude cache -f $save_path/backup_user_$_.tar.gz $path_name | grep cahe");
-# }
-# }
-# }
-# if ($where_net) {
-
-# }
-# if ($where_cd) {
-
-# }
-# }
-
-# $about_box = gtkpack_(new Gtk::VBox(0,10),
-# 1, gtkpack(new Gtk::HBox(0,0),
-# 0, gtkadd(new Gtk::HButtonBox,
-# gtksignal_connect(new Gtk::Button(_("Cancel")), clicked =>
-# sub { ${$central_widget}->destroy();
-# $mdk_cc and interactive_mode();
-# $mdk_cc or interactive_mode_my();
-# }),
-# gtksignal_connect(new Gtk::Button(_("Help")), clicked =>
-# sub { save_conf_file(); ${$central_widget}->destroy(); adv_help() }),
-# gtksignal_connect(new Gtk::Button(_("Ok")), clicked =>
-# sub { save_conf_file();
-# ${$central_widget}->destroy();
-# $mdk_cc and interactive_mode();
-# $mdk_cc or interactive_mode_my();
-# }),
-# ),
-# ),
-# ),
-
-
-# foreach ([$check_what_sys, \$backup_sys],
-# [$check_what_cvs, \$backup_sys_cvs],
-# [$check_what_browser, \$what_no_browser],
-# [$check_cdrw, \$cdrw],
-# [$check_where_net_daemon, \$net_daemon],
-# [$check_where_hd_daemon, \$hd_daemon],
-# [$check_where_cd_daemon, \$cd_daemon],
-# [$check_where_hd_quota, \$hd_quota],
-# [$check_where_hd, \$where_hd],
-# [$check_where_cd, \$where_cd],
-# [$check_where_net, \$where_net],
-# [$check_when_daemon, \$backup_daemon],
-# [$check_cd_with_install_boot, \$cd_with_install_boot],
-# [$check_tar_bz2, \$comp_mode],
-# [$check_replace, \$option_replace],
-# [$check_backupignore, \$backupignore]) {
-# my $ref = $_->[1];
-# gtksignal_connect(gtkset_active($_->[0], ${$ref}), toggled => sub { ${$ref} = ${$ref} ? 0 : 1; })
-# }
-
-# # $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();
-# }
-
-
-
# _____________________________________________________________ DOCS