summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorSebastien Dupont <sdupont@mandriva.com>2001-12-12 16:07:15 +0000
committerSebastien Dupont <sdupont@mandriva.com>2001-12-12 16:07:15 +0000
commit5d9acb1c6f9f46a8504730a932f2e6be3f26373e (patch)
treed882e7f96b68c5bc47ae00b3d151d9e7e8124aa3 /perl-install/standalone
parent9b62a3001c09c69de94dee08756fc6fc0e97aba6 (diff)
downloaddrakx-backup-do-not-use-5d9acb1c6f9f46a8504730a932f2e6be3f26373e.tar
drakx-backup-do-not-use-5d9acb1c6f9f46a8504730a932f2e6be3f26373e.tar.gz
drakx-backup-do-not-use-5d9acb1c6f9f46a8504730a932f2e6be3f26373e.tar.bz2
drakx-backup-do-not-use-5d9acb1c6f9f46a8504730a932f2e6be3f26373e.tar.xz
drakx-backup-do-not-use-5d9acb1c6f9f46a8504730a932f2e6be3f26373e.zip
restore to specific path.
warning message if restore and no data to restore. warning message if uncheked button during each step of wizard, restore. warning message if restore or build backup and no configuration file. fix some problems, with check buttons -> checked but not use by program.
Diffstat (limited to 'perl-install/standalone')
-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;