summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakbackup345
1 files changed, 191 insertions, 154 deletions
diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup
index 0f8991f22..a6a5288a9 100755
--- a/perl-install/standalone/drakbackup
+++ b/perl-install/standalone/drakbackup
@@ -127,6 +127,7 @@ my @user_list;
my @list_other = () ;
my $cfg_file = "/etc/drakxtools/drakbackup/drakbackup.conf";
my $save_path = "/var/drakbackup";
+my $restore_path = "/tmp";
my $option_replace = 1;
my $comp_mode = 0;
my $backup_sys = 1;
@@ -298,15 +299,6 @@ sub read_conf_file {
close CONF_FILE;
}
-sub backend_mod {
-}
-
-sub build_cd_fct {
-}
-
-sub build_floppy_fct {
-}
-
sub status_report {
my $table;
my $pbar = new Gtk::ProgressBar;
@@ -381,7 +373,6 @@ sub build_backup_files {
}
}
if ($where_net_ssh) {
-
# $res = Net::SSLeay::write($ssl, $msg); # Perl knows how long $msg is
# die_if_ssl_error("ssl write");
# shutdown S, 1; # Half close --> No more output, sends EOF to server
@@ -392,13 +383,9 @@ sub build_backup_files {
# Net::SSLeay::free ($ssl); # Tear down connection
# Net::SSLeay::CTX_free ($ctx);
# close S;
-
-
-
}
if ($where_net_ftp) { }
- if ($where_cd) {
-
+ if ($where_cd) {
}
}
@@ -448,13 +435,13 @@ sub advanced_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. (~ 2Mo)")),
- 0, my $check_what_versions = new Gtk::CheckButton( _("Need to restore any versions [beta]") ),
- 0, _("With this option you will be able to restore any version\n of your /etc directory."),
- 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_versions = new Gtk::CheckButton( _("Need to restore any versions [beta]") ),
+ 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_versions, \$backup_sys_versions]) {
my $ref = $_->[1];
@@ -502,7 +489,7 @@ sub advanced_what_user {
),
0, new Gtk::HSeparator,
0, my $check_what_browser = new Gtk::CheckButton( _(" do not include the browser cache") ),
- ),
+ ),
);
foreach ([$check_what_browser, \$what_no_browser]) {
my $ref = $_->[1];
@@ -520,7 +507,7 @@ sub advanced_what_other {
$list_other = new Gtk::List();
$list_other->set_selection_mode(-extended);
$list_other->add(gtkshow(new Gtk::ListItem($_))) foreach (@list_other);
-
+
gtkpack($advanced_box,
$box_what_other = gtkpack_(new Gtk::VBox(0, 15),
1, gtkpack_(new Gtk::HBox(0,4),
@@ -561,27 +548,25 @@ sub advanced_what{
1, new Gtk::VBox(0, 5),
),
);
-
$button_what_sys->add(gtkpack(new Gtk::HBox(0,10),
- new Gtk::Pixmap($pix_sys_map, $pix_sys_mask),
- new Gtk::Label(_(" System ")),
- new Gtk::HBox(0, 5)
- ));
+ new Gtk::Pixmap($pix_sys_map, $pix_sys_mask),
+ new Gtk::Label(_(" System ")),
+ new Gtk::HBox(0, 5)
+ ));
$button_what_user->add(gtkpack(new Gtk::HBox(0,10),
- new Gtk::Pixmap($pix_user_map, $pix_user_mask),
- new Gtk::Label(_(" Users ")),
- new Gtk::HBox(0, 5)
- ));
+ new Gtk::Pixmap($pix_user_map, $pix_user_mask),
+ new Gtk::Label(_(" Users ")),
+ new Gtk::HBox(0, 5)
+ ));
$button_what_other->add(gtkpack(new Gtk::HBox(0,10),
- new Gtk::Pixmap($pix_other_map, $pix_other_mask),
- new Gtk::Label(_(" Other ")),
- new Gtk::HBox(0, 5)
- ));
+ new Gtk::Pixmap($pix_other_map, $pix_other_mask),
+ new Gtk::Label(_(" Other ")),
+ new Gtk::HBox(0, 5)
+ ));
$current_widget = \&advanced_what;
$previous_widget =\&advanced_box;
$central_widget = \$box_what;
$up_box->show_all();
-
}
sub advanced_where_net_ftp {
@@ -596,27 +581,27 @@ sub advanced_where_net_ftp {
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, new Gtk::HBox(0,10),
),
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, new Gtk::HBox(0,10),
),
0, gtkpack_(new Gtk::HBox(0,10),
1, _("please entrer your login"),
0, my $login_user_entry = new Gtk::Entry(),
- 0, _(""),
+ 0, new Gtk::HBox(0,10),
),
0, gtkpack_(new Gtk::HBox(0,10),
1, _("please entrer your passord"),
0, my $passwd_user_entry = new Gtk::Entry(),
- 0, _(""),
+ 0, new Gtk::HBox(0,10),
),
0, gtkpack_(new Gtk::HBox(0,10),
- 1, " ",
+ 0, new Gtk::HBox(0,10),
0, my $check_remember_pass = new Gtk::CheckButton( _(" remember this password") ),
- 0, _(""),
+ 0, new Gtk::HBox(0,10),
),
),
);
@@ -754,7 +739,7 @@ sub advanced_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");
-
+
gtkpack($advanced_box,
$box_where_hd = gtkpack_(new Gtk::VBox(0, 6),
0, new Gtk::HSeparator,
@@ -786,11 +771,7 @@ sub advanced_where_hd {
my $ref = $_->[1];
gtksignal_connect(gtkset_active($_->[0], ${$ref}), toggled => sub { ${$ref} = ${$ref} ? 0 : 1; })
}
-
- $button->add(gtkpack(new Gtk::HBox(0,10),
- new Gtk::Pixmap($pix_fs_map, $pix_fs_mask),
- ));
-
+ $button->add(gtkpack(new Gtk::HBox(0,10), new Gtk::Pixmap($pix_fs_map, $pix_fs_mask)));
$save_path_entry->set_text( $save_path );
$save_path_entry->signal_connect( 'changed', sub { $save_path = $save_path_entry->get_text()});
$current_widget = \&advanced_where_hd;
@@ -798,20 +779,18 @@ sub advanced_where_hd {
else { $previous_widget =\&advanced_where; }
$central_widget = \$box_where_hd;
$up_box->show_all();
-
}
sub advanced_where{
my $box_where;
-
my ($pix_net_map, $pix_net_mask) = gtkcreate_png("net");
my ($pix_cd_map, $pix_cd_mask) = gtkcreate_png("cdrom");
my ($pix_hd_map, $pix_hd_mask) = gtkcreate_png("hd");
gtkpack($advanced_box,
$box_where = 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_where_net = new Gtk::Button(), clicked => sub {
$box_where->destroy(); advanced_where_net(); }),
@@ -824,32 +803,29 @@ sub advanced_where{
1, new Gtk::VBox(0, 5),
),
);
-
$button_where_net->add(gtkpack(new Gtk::HBox(0,10),
- new Gtk::Pixmap($pix_net_map, $pix_net_mask),
- new Gtk::Label(_(" Network ")),
- new Gtk::HBox(0, 5)
- ));
+ new Gtk::Pixmap($pix_net_map, $pix_net_mask),
+ new Gtk::Label(_(" Network ")),
+ new Gtk::HBox(0, 5)
+ ));
$button_where_cd->add(gtkpack(new Gtk::HBox(0,10),
- new Gtk::Pixmap($pix_cd_map, $pix_cd_mask),
- new Gtk::Label(_(" CDROM / DVDROM ")),
- new Gtk::HBox(0, 5)
- ));
+ new Gtk::Pixmap($pix_cd_map, $pix_cd_mask),
+ new Gtk::Label(_(" CDROM / DVDROM ")),
+ new Gtk::HBox(0, 5)
+ ));
$button_where_hd->add(gtkpack(new Gtk::HBox(0,10),
- new Gtk::Pixmap($pix_hd_map, $pix_hd_mask),
- new Gtk::Label(_(" HardDrive / NFS ")),
- new Gtk::HBox(0, 5)
- ));
+ new Gtk::Pixmap($pix_hd_map, $pix_hd_mask),
+ new Gtk::Label(_(" HardDrive / NFS ")),
+ new Gtk::HBox(0, 5)
+ ));
$current_widget = \&advanced_where;
$previous_widget =\&advanced_box;
$central_widget = \$box_where;
$up_box->show_all();
-
}
sub advanced_when{
my $box_when;
-
my ($pix_time_map, $pix_time_mask) = gtkcreate_png("backup_time");
my $combo_when_space = new Gtk::Combo();
$combo_when_space->set_popdown_strings (_("hourly"),_("daily"),_("weekly"),_("monthly"));
@@ -885,7 +861,6 @@ sub advanced_when{
my $ref = $_->[1];
gtksignal_connect(gtkset_active($_->[0], ${$ref}), toggled => sub { ${$ref} = ${$ref} ? 0 : 1; })
}
-
$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";});
@@ -919,7 +894,6 @@ sub advanced_options{
my $ref = $_->[1];
gtksignal_connect(gtkset_active($_->[0], ${$ref}), toggled => sub { ${$ref} = ${$ref} ? 0 : 1; })
}
-
$custom_help = "options";
$current_widget = \&advanced_options;
$previous_widget =\&advanced_box;
@@ -929,13 +903,11 @@ sub advanced_options{
sub advanced_box{
my $box_adv;
-
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($advanced_box,
$box_adv = gtkpack_(new Gtk::HBox(0, 15),
1, new Gtk::VBox(0, 5),
@@ -1047,12 +1019,17 @@ sub wizard_step2 {
$where_net = $where_net_ssh + $where_net_ftp;
foreach ([$check_wizard_hd, \$where_hd], [$check_wizard_cd, \$where_cd], [$check_wizard_net, \$where_net]) {
my $ref = $_->[1];
- gtksignal_connect(gtkset_active($_->[0], ${$ref}), toggled => sub { ${$ref} = ${$ref} ? 0 : 1; })
+ gtksignal_connect(gtkset_active($_->[0], ${$ref}), toggled => sub {
+ ${$ref} = ${$ref} ? 0 : 1;
+ if (!$where_hd && !$where_cd && !$where_net) { $next_widget = \&message_noselect_box; }
+ else { $next_widget = \&wizard_step3; }
+ })
}
+ if (!$where_hd && !$where_cd && !$where_net) { $next_widget = \&message_noselect_box; }
+ else { $next_widget = \&wizard_step3; }
wizard_button_box();
$custom_help = "";
$central_widget = \$box2;
- $next_widget = \&wizard_step3;
$current_widget = \&wizard_step2;
$previous_widget =\&wizard;
$up_box->show_all();
@@ -1086,11 +1063,13 @@ sub wizard {
my $ref = $_->[1];
gtksignal_connect(gtkset_active($_->[0], ${$ref}), toggled => sub {
${$ref} = ${$ref} ? 0 : 1;
- if (!$backup_sys && !$backup_user) { $next_widget = \&message_noconf_box; }
+ if (!$backup_sys && !$backup_user) { $next_widget = \&message_noselect_box; }
+ elsif (!$backup_sys && $backup_user && !@user_list_to_restore) { $next_widget = \&message_noselect_box; }
else { $next_widget = \&wizard_step2; }
- })
- }
-
+ })}
+ if (!$backup_sys && !$backup_user) { $next_widget = \&message_noselect_box; }
+ elsif (!$backup_sys && $backup_user && !@user_list_to_restore) { $next_widget = \&message_noselect_box; }
+ else { $next_widget = \&wizard_step2; }
wizard_button_box();
$custom_help = "";
$central_widget = \$box2;
@@ -1122,18 +1101,18 @@ sub do_restore_backend {
my $untar_cmd;
if (grep /tar.gz$/, all($save_path)) { $untar_cmd = 0; }
else { $untar_cmd = 1; }
-
if ($restore_user) {
- $untar_cmd or system(" echo 'user: $_' && cd /tmp && tar xfz $save_path/backup_user_$_.tar.gz ") foreach @user_list_to_restore;
- $untar_cmd and system("echo 'user: $_' && cd /tmp && /usr/bin/bzip2 -cd $save_path/backup_user_$_.tar.bz2 | tar xf -") foreach @user_list_to_restore;
+ $untar_cmd or system(" echo 'user: $_' && cd /tmp && tar xfz $save_path/backup_user_$_.tar.gz -C $restore_path") foreach @user_list_to_restore;
+# fixme verifier next line.
+ $untar_cmd and system("echo 'user: $_' && cd /tmp && /usr/bin/bzip2 -cd $save_path/backup_user_$_.tar.bz2 | tar xf -C $restore_path ") foreach @user_list_to_restore;
}
if ($restore_sys) {
- $untar_cmd or system("echo backup_sys && cd /tmp && tar xfz $save_path/backup_sys.tar.gz ");
- $untar_cmd and system("echo backup_sys cd /tmp && /usr/bin/bzip2 -cd $save_path/backup_sys.tar.bz2 | tar xf - ");
+ $untar_cmd or system("echo backup_sys && cd /tmp && tar xfz $save_path/backup_sys.tar.gz -C $restore_path ");
+ $untar_cmd and system("echo backup_sys cd /tmp && /usr/bin/bzip2 -cd $save_path/backup_sys.tar.bz2 | tar xf -C $restore_path ");
}
if ($restore_other) {
- $untar_cmd or system("echo backup_other && cd /tmp && tar xfz $save_path/backup_other.tar.gz ");
- $untar_cmd and system("echo backup_other && cd /tmp && /usr/bin/bzip2 -cd $save_path/backup_other.tar.bz2 | tar xf - ");
+ $untar_cmd or system("echo backup_other && cd /tmp && tar xfz $save_path/backup_other.tar.gz -C $restore_path ");
+ $untar_cmd and system("echo backup_other && cd /tmp && /usr/bin/bzip2 -cd $save_path/backup_other.tar.bz2 | tar xf -C $restore_path ");
}
print "End of restore\n";
}
@@ -1193,14 +1172,14 @@ sub restore_step_other {
gtkpack($advanced_box,
$retore_step_other = gtkpack_(new Gtk::VBox(0,10),
1, new Gtk::VBox(0,10),
- 1, createScrolledWindow( gtkpack(new Gtk::VBox(0,0),
- gtkadd(new Gtk::Frame(_("Backup of other files content.")),
- gtkpack(new Gtk::VBox(0,10),
- cat_("$save_path/list_other"),
- ),
- ),
- ),
- ),
+ 1, createScrolledWindow(gtkpack(new Gtk::VBox(0,0),
+ gtkadd(new Gtk::Frame(_("Backup of other files content.")),
+ gtkpack(new Gtk::VBox(0,10),
+ cat_("$save_path/list_other"),
+ ),
+ ),
+ ),
+ ),
0, my $check_restore_other_sure = new Gtk::CheckButton(_(" Sure to restore the other files .")),
1, new Gtk::VBox(0,10),
),
@@ -1209,7 +1188,6 @@ sub restore_step_other {
my $ref = $_->[1];
gtksignal_connect(gtkset_active($_->[0], ${$ref}), toggled => sub { ${$ref} = ${$ref} ? 0 : 1; })
}
-
$next_widget = \&do_restore;
$custom_help = "restore";
$current_widget = \&restore_step_other;
@@ -1273,7 +1251,6 @@ sub restore_step_sys {
1, new Gtk::VBox(0,10),
),
);
-
if ($restore_user) { $next_widget = \&restore_step_user;}
elsif ($restore_other){ $next_widget = \&restore_step_other;}
else{ $next_widget = \&do_restore;}
@@ -1286,7 +1263,6 @@ sub restore_step_sys {
sub restore_step2 {
my $retore_step2;
-
gtkpack($advanced_box,
$retore_step2 = gtkpack_(new Gtk::VBox(0,10),
1, new Gtk::VBox(0,10),
@@ -1298,10 +1274,17 @@ sub restore_step2 {
);
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; })
+ gtksignal_connect(gtkset_active($_->[0], ${$ref}), toggled => sub {
+ ${$ref} = ${$ref} ? 0 : 1;
+ 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 = \&do_restore;}
+ })
}
-
- if ($restore_sys && $backup_sys_versions) { $next_widget = \&restore_step_sys; }
+ 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 = \&do_restore;}
@@ -1318,18 +1301,18 @@ sub restore_box {
my $check_restore_sys;
my $check_restore_user;
my $check_restore_other;
-
find_backup_to_restore();
restore_button_box_main();
@user_list_to_restore = @user_backuped;
+
if ($other_backuped || $sys_backuped || @user_backuped) {
gtkpack($advanced_box,
$retore_box = gtkpack_(new Gtk::HBox(0,1),
- 1, new Gtk::VBox(0,10),
- 1, gtkpack_(new Gtk::VBox(0,10),
- 1, new Gtk::VBox(0,10),
- 1, new Gtk::VBox(0,10),
- 1, gtksignal_connect(new Gtk::Button(_("Restore all last backups")),
+ 1, new Gtk::VBox(0,10),
+ 1, gtkpack_(new Gtk::VBox(0,10),
+ 1, new Gtk::VBox(0,10),
+ 1, new Gtk::VBox(0,10),
+ 1, gtksignal_connect(new Gtk::Button(_("Restore all last backups")),
clicked => sub { $retore_box->destroy();
restore_button_box();
$restore_sys = 1;
@@ -1341,31 +1324,19 @@ sub restore_box {
restore_button_box();
restore_step2();
}),
- 1, new Gtk::VBox(0,10),
- 1, new Gtk::VBox(0,10),
+ 1, new Gtk::VBox(0,10),
+ 1, new Gtk::VBox(0,10),
),
- 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),
- ),
- ),
- ),
- ),
- )
- );
- }
+ $retore_box = gtkpack_(new Gtk::HBox(0,1),
+ message_norestorefile_box(),
+ ),
+ ),
+ }
$custom_help = "restore";
$current_widget = \&restore_box;
$central_widget = \$retore_box;
@@ -1391,8 +1362,8 @@ sub adv_button_box {
}
sub restore_button_box_main {
-
$button_box_tmp->destroy();
+
gtkpack($button_box,
$button_box_tmp = gtkpack_(gtkpack(gtkset_layout(new Gtk::HButtonBox, -start),
gtksignal_connect(new Gtk::Button(_(" Cancel ")), clicked => sub {
@@ -1408,6 +1379,7 @@ sub restore_button_box_main {
sub wizard_button_box_end {
$button_box_tmp->destroy();
+
gtkpack($button_box,
$button_box_tmp = gtkpack_(new Gtk::HButtonBox,
0, gtksignal_connect(new Gtk::Button(_(" Cancel ")), clicked => sub {
@@ -1425,6 +1397,7 @@ sub wizard_button_box_end {
sub restore_button_box_end {
$button_box_tmp->destroy();
+
gtkpack($button_box,
$button_box_tmp = gtkpack_(new Gtk::HButtonBox,
0, gtksignal_connect(new Gtk::Button(_(" Cancel ")), clicked => sub {
@@ -1443,6 +1416,7 @@ sub restore_button_box_end {
sub restore_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 {
@@ -1462,8 +1436,8 @@ sub restore_button_box {
sub wizard_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 {
@@ -1483,8 +1457,8 @@ sub wizard_button_box {
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 {
@@ -1499,6 +1473,69 @@ sub build_backup_box_progress {
# build_backup_files();
}
+sub message_norestorefile_box {
+ $box2->destroy();
+ my ($pix_warn_map, $pix_warn_mask) = gtkcreate_png('warning');
+
+ gtkadd($advanced_box,
+ $box2 = gtkpack_(new Gtk::HBox(0, 15),
+ 1, new Gtk::VBox(0, 5),
+ 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..."),
+ new Gtk::VBox(0, 5),
+ ),
+ 1, new Gtk::VBox(0, 5),
+ ),
+ );
+ restore_button_box_main();
+ $central_widget = \$box2;
+ $up_box->show_all();
+}
+
+sub message_norestore_box {
+ $box2->destroy();
+ my ($pix_warn_map, $pix_warn_mask) = gtkcreate_png('warning');
+
+ gtkadd($advanced_box,
+ $box2 = gtkpack_(new Gtk::HBox(0, 15),
+ 1, new Gtk::VBox(0, 5),
+ 1, gtkpack(new Gtk::HBox(0, 15),
+ new Gtk::VBox(0, 5),
+ new Gtk::Pixmap($pix_warn_map, $pix_warn_mask),
+ _(" Please check data to restore..."),
+ new Gtk::VBox(0, 5),
+ ),
+ 1, new Gtk::VBox(0, 5),
+ ),
+ );
+ restore_button_box_main();
+ $central_widget = \$box2;
+ $up_box->show_all();
+}
+
+sub message_noselect_box {
+ $box2->destroy();
+ my ($pix_warn_map, $pix_warn_mask) = gtkcreate_png('warning');
+
+ gtkadd($advanced_box,
+ $box2 = gtkpack_(new Gtk::HBox(0, 15),
+ 1, new Gtk::VBox(0, 5),
+ 1, gtkpack(new Gtk::HBox(0, 15),
+ new Gtk::VBox(0, 5),
+ new Gtk::Pixmap($pix_warn_map, $pix_warn_mask),
+ _(" Please check way to save..."),
+ new Gtk::VBox(0, 5),
+ ),
+ 1, new Gtk::VBox(0, 5),
+ ),
+ );
+ restore_button_box_main();
+ $central_widget = \$box2;
+ $up_box->show_all();
+}
+
sub message_noconf_box {
$box2->destroy();
my ($pix_warn_map, $pix_warn_mask) = gtkcreate_png('warning');
@@ -1550,33 +1587,33 @@ sub build_backup_box {
}
sub interactive_mode_box {
-
$box2->destroy();
+
gtkadd($advanced_box,
$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(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();
- read_conf_file();
- 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();}
- }),
- 1, gtksignal_connect(new Gtk::Button(_(" Restore ")),
- clicked => sub {${$central_widget}->destroy(); restore_box();}),
- 1, new Gtk::VBox(0, 5),
- ),
- 1, new Gtk::VBox(0, 5),
- ),
+ 1, new Gtk::VBox(0, 5),
+ 1, 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();
+ read_conf_file();
+ 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();}
+ }),
+ 1, gtksignal_connect(new Gtk::Button(_(" Restore ")),
+ clicked => sub {${$central_widget}->destroy(); restore_box();}),
+ 1, new Gtk::VBox(0, 5),
+ ),
+ 1, new Gtk::VBox(0, 5),
+ ),
);
main_button_box();
$central_widget = \$box2;