summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakbackup
diff options
context:
space:
mode:
authorStew Benedict <stewb@mandriva.org>2004-02-18 23:46:47 +0000
committerStew Benedict <stewb@mandriva.org>2004-02-18 23:46:47 +0000
commit7484c79bb36e5d23bf639ca1eb8ad551245d9cf2 (patch)
treefedf5ada59b15635b5ca507cd34bdc57de6b423f /perl-install/standalone/drakbackup
parentcdd68ce1d0b2fdb8dada282c99517f849e87a206 (diff)
downloaddrakx-7484c79bb36e5d23bf639ca1eb8ad551245d9cf2.tar
drakx-7484c79bb36e5d23bf639ca1eb8ad551245d9cf2.tar.gz
drakx-7484c79bb36e5d23bf639ca1eb8ad551245d9cf2.tar.bz2
drakx-7484c79bb36e5d23bf639ca1eb8ad551245d9cf2.tar.xz
drakx-7484c79bb36e5d23bf639ca1eb8ad551245d9cf2.zip
QA - Encourage user to finish configuring media before leaving wizard.
Diffstat (limited to 'perl-install/standalone/drakbackup')
-rwxr-xr-xperl-install/standalone/drakbackup46
1 files changed, 19 insertions, 27 deletions
diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup
index 4979d4aa1..0bf02270b 100755
--- a/perl-install/standalone/drakbackup
+++ b/perl-install/standalone/drakbackup
@@ -54,7 +54,6 @@ my @other_list_to_restore;
my $button_box;
my $button_box_tmp;
my $next_widget;
-my $sav_next_widget;
my $system_state;
my $restore_state;
my $save_path_entry;
@@ -2068,8 +2067,9 @@ sub advanced_where_net_types {
set_help_tip($check_use_expect, 'use_expect');
set_help_tip($check_remember_pass, 'remember_pass');
set_help_tip($host_path_entry, 'dir_or_module');
- if ($previous_function) {
- fonction_env(\$box_where_net, \&advanced_where_net_types, \&$previous_function);
+ if ($previous_function) {
+ fonction_env(\$box_where_net, \&advanced_where_net_types, \&$previous_function, \&wizard_step3);
+ button_box_wizard();
} else {
fonction_env(\$box_where_net, \&advanced_where_net_types, \&advanced_where);
}
@@ -2197,7 +2197,8 @@ sub advanced_where_cd {
set_help_tip($combo_where_cdrecord_device, 'cdrecord_device');
if ($previous_function) {
- fonction_env(\$box_where_cd, \&advanced_where_cd, \&$previous_function);
+ fonction_env(\$box_where_cd, \&advanced_where_cd, \&$previous_function, \&wizard_step3);
+ button_box_wizard();
} else {
fonction_env(\$box_where_cd, \&advanced_where_cd, \&advanced_where);
}
@@ -2291,7 +2292,8 @@ sub advanced_where_tape {
$tape_device = $combo_where_tape_device->entry->get_text;
});
if ($previous_function) {
- fonction_env(\$box_where_tape, \&advanced_where_tape, \&$previous_function);
+ fonction_env(\$box_where_tape, \&advanced_where_tape, \&$previous_function, \&wizard_step3);
+ button_box_wizard();
} else {
fonction_env(\$box_where_tape, \&advanced_where_tape, \&advanced_where);
}
@@ -2345,7 +2347,8 @@ sub advanced_where_hd {
}
});
if ($previous_function) {
- fonction_env(\$box_where_hd, \&advanced_where_hd, \&$previous_function);
+ fonction_env(\$box_where_hd, \&advanced_where_hd, \&$previous_function, \&wizard_step3);
+ button_box_wizard();
} else {
fonction_env(\$box_where_hd, \&advanced_where_hd, \&advanced_where);
}
@@ -2643,7 +2646,14 @@ sub advanced_box() {
################################################ WIZARD ################################################
sub wizard_step3() {
- my $box2;
+ my $no_device = 1 if $where_cd && $cd_device eq '' || $where_tape && $tape_device eq '' || $where_net && $net_proto eq '';
+ if ($no_device) {
+ show_warning("f", N("Backup destination not configured..."));
+ destroy_widget();
+ wizard_step2();
+ return;
+ }
+ my $box2;
my $text = new Gtk2::TextView;
save_conf_file();
read_conf_file();
@@ -2677,9 +2687,7 @@ sub wizard_step2() {
1, new Gtk2::VBox(0, 5),
0, gtkset_sensitive(gtksignal_connect(Gtk2::Button->new(N("Configure")), clicked => sub {
destroy_widget();
- to_ok();
advanced_where_hd(\&wizard_step2);
- to_normal();
}), $where_hd),
),
0, gtkpack_(new Gtk2::HBox(0, 15),
@@ -2687,9 +2695,7 @@ sub wizard_step2() {
1, new Gtk2::VBox(0, 5),
0, gtkset_sensitive(gtksignal_connect(Gtk2::Button->new(N("Configure")), clicked => sub {
destroy_widget();
- to_ok();
advanced_where_net_types(\&wizard_step2);
- to_normal();
}), $where_net),
),
0, gtkpack_(new Gtk2::HBox(0, 15),
@@ -2697,9 +2703,7 @@ sub wizard_step2() {
1, new Gtk2::VBox(0, 5),
0, gtkset_sensitive(gtksignal_connect(Gtk2::Button->new(N("Configure")), clicked => sub {
destroy_widget();
- to_ok();
advanced_where_cd(\&wizard_step2);
- to_normal();
}), $where_cd),
),
0, gtkpack_(new Gtk2::HBox(0, 15),
@@ -2707,9 +2711,7 @@ sub wizard_step2() {
1, new Gtk2::VBox(0, 5),
0, gtkset_sensitive(gtksignal_connect(Gtk2::Button->new(N("Configure")), clicked => sub {
destroy_widget();
- to_ok();
advanced_where_tape(\&wizard_step2);
- to_normal();
}), $where_tape),
),
1, new Gtk2::VBox(0, 5),
@@ -2736,7 +2738,7 @@ sub wizard_step2() {
$in->ask_warn(N("Error"), N("Please select media for backup..."));
fonction_env(\$box2, \&wizard_step2, \&wizard, \&wizard_step2);
} else {
- fonction_env(\$box2, \&wizard_step2, \&wizard, \&wizard_step3);
+ fonction_env(\$box2, \&wizard_step2, \&wizard, undef);
}
button_box_wizard();
$up_box->show_all;
@@ -4558,7 +4560,7 @@ sub button_box_wizard() {
interactive_mode_box()
}),
1, new Gtk2::HBox(0, 0),
- 0, gtksignal_connect(Gtk2::Button->new($next_widget ? N("Previous") : N("Ok")), clicked => sub {
+ 0, gtksignal_connect(Gtk2::Button->new($previous_widget ? N("Previous") : N("Ok")), clicked => sub {
destroy_widget();
$previous_widget ? $previous_widget->() : $next_widget->();
}),
@@ -4910,16 +4912,6 @@ sub adv_help() {
exec("drakhelp --id drakbackup") unless fork();
}
-sub to_ok() {
- $sav_next_widget = $next_widget;
- $next_widget = undef;
- button_box_wizard();
-}
-
-sub to_normal() {
- $next_widget = $sav_next_widget;
-}
-
sub destroy_widget() {
if ($central_widget ne '') {
$$central_widget->destroy;