summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakbackup
diff options
context:
space:
mode:
authorStew Benedict <stewb@mandriva.org>2004-02-12 01:47:03 +0000
committerStew Benedict <stewb@mandriva.org>2004-02-12 01:47:03 +0000
commitb8fd69eb8a5ee216276fac2aa4ef9cda77ec94bb (patch)
treeb4cc3a58a062e8d4ad5c06eca135e807387ddc4b /perl-install/standalone/drakbackup
parent96fab94f448c2611fa2083b0700dfb5e913c6354 (diff)
downloaddrakx-backup-do-not-use-b8fd69eb8a5ee216276fac2aa4ef9cda77ec94bb.tar
drakx-backup-do-not-use-b8fd69eb8a5ee216276fac2aa4ef9cda77ec94bb.tar.gz
drakx-backup-do-not-use-b8fd69eb8a5ee216276fac2aa4ef9cda77ec94bb.tar.bz2
drakx-backup-do-not-use-b8fd69eb8a5ee216276fac2aa4ef9cda77ec94bb.tar.xz
drakx-backup-do-not-use-b8fd69eb8a5ee216276fac2aa4ef9cda77ec94bb.zip
Address some QA issues with restores.
Cleanup screen layout in restore screen. Restore title banner.
Diffstat (limited to 'perl-install/standalone/drakbackup')
-rwxr-xr-xperl-install/standalone/drakbackup36
1 files changed, 19 insertions, 17 deletions
diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup
index b6be6ce57..ced8eb2bf 100755
--- a/perl-install/standalone/drakbackup
+++ b/perl-install/standalone/drakbackup
@@ -1299,8 +1299,8 @@ sub build_backup_files() {
push_list("backup_sys");
files_to_results("sys");
}
+ $results .= "\nignored: $ignore_files_list" if $ignore_files_list;
}
- $results .= "\nignored: $ignore_files_list" if $ignore_files_list;
$interactive and progress($pbar, $plabel, 0.5, N("Backup system files..."));
$interactive and progress($pbar3, $plabel3, 0.3, N("Hard Disk Backup files..."));
@@ -1363,8 +1363,8 @@ sub build_backup_files() {
files_to_results("user_$user");
}
}
+ $results .= "\nignored: $ignore_files_list" if $ignore_files_list;
}
- $results .= "\nignored: $ignore_files_list" if $ignore_files_list;
$interactive and progress($pbar2, $plabel1, 1, N("Backup User files..."));
$interactive and progress($pbar3, $plabel3, 0.4, N("Hard Disk Backup files..."));
@@ -1419,8 +1419,8 @@ sub build_backup_files() {
push_list("backup_other");
files_to_results("other");
}
+ $results .= "\nignored: $ignore_files_list" if $ignore_files_list;
}
- $results .= "\nignored: $ignore_files_list" if $ignore_files_list;
$interactive and progress($pbar1, $plabel2, 1, N("Backup Other files..."));
$interactive and progress($pbar3, $plabel3, 0.3, N("Hard Disk Backup Progress..."));
}
@@ -3379,15 +3379,13 @@ sub restore_step_sys() {
$combo_restore_step_sys->set_popdown_strings(@sys_backuped);
gtkpack($advanced_box,
$restore_step_sys = gtkpack_(new Gtk2::VBox(0,10),
- 1, new Gtk2::VBox(0,10),
+ 0, N("Please choose the date to restore:"),
0, gtkpack_(new Gtk2::HBox(0,10),
- 1, N("please choose the date to restore"),
+ 1, new Gtk2::HBox(0,10),
0, $combo_restore_step_sys,
0, my $details = Gtk2::Button->new(" Details "),
- 0, new Gtk2::HBox(0,10),
+ 1, new Gtk2::HBox(0,10),
),
- 1, new Gtk2::VBox(0,10),
-
),
);
$combo_restore_step_sys->entry->signal_connect('changed', sub {
@@ -3618,7 +3616,8 @@ sub find_files_to_restore() {
$central_widget = \$file_restore;
}
-sub catalog_restore() {
+sub catalog_restore {
+ my ($call_method) = @_;
my $catalog_box;
my $cat_entry;
my @restore_files;
@@ -3704,8 +3703,8 @@ sub catalog_restore() {
gtkpack($advanced_box,
$catalog_box = gtkpack_(new Gtk2::HBox(0,10),
- 0, new Gtk2::VBox(0,10),
1, gtkpack_(new Gtk2::VBox(0,5),
+ 0, N("Click date/time to see backup files."),
1, gtkpack_(new Gtk2::VBox(0, 10),
1, create_scrolled_window($tree_catalog),
1, create_scrolled_window($tree_files),
@@ -3749,8 +3748,9 @@ sub catalog_restore() {
$restore_path_entry->set_text($restore_path);
gtksignal_connect($restore_path_entry, changed => sub { $restore_path = $restore_path_entry->get_text });
- button_box_restore();
- fonction_env(\$catalog_box, \&catalog_restore, \&restore_find_media_box, \&catalog_restore);
+ button_box_restore();
+ fonction_env(\$catalog_box, \&catalog_restore, \&restore_find_media_box, \&catalog_restore) if $call_method eq "need media";;
+ fonction_env(\$catalog_box, \&catalog_restore, \&restore_box, \&catalog_restore) if $call_method eq "button";
$central_widget = \$catalog_box;
$up_box->show_all;
}
@@ -4133,6 +4133,10 @@ sub restore_box() {
button_box_restore();
restore_step2();
}),
+ 1, gtksignal_connect(Gtk2::Button->new(N("Restore From Catalog")), clicked => sub {
+ $retore_box->destroy;
+ catalog_restore("button");
+ }),
1, new Gtk2::VBox(0,10),
1, new Gtk2::VBox(0,10),
),
@@ -4181,7 +4185,7 @@ sub restore_find_media_box() {
}), $mount_media),
gtksignal_connect(Gtk2::Button->new(N("Restore From Catalog")), clicked => sub {
$box2->destroy;
- catalog_restore();
+ catalog_restore("need media");
}),
gtksignal_connect(Gtk2::Button->new(N("Search for files to restore")), clicked => sub {
$box2->destroy;
@@ -4811,7 +4815,7 @@ sub interactive_mode() {
$my_win = ugtk2->new('drakbackup');
$window1 = $my_win->{window};
- unless (0 == 0) {
+ unless ($::isEmbedded) {
$my_win->{rwindow}->set_position('center');
$my_win->{rwindow}->set_title(N("Drakbackup"));
$window1->set_size_request($winwidth, $winht);
@@ -4819,10 +4823,8 @@ sub interactive_mode() {
$darea = Gtk2::DrawingArea->new;
$darea->set_size_request($winwidth, 60);
$darea->modify_font(Gtk2::Pango::FontDescription->from_string('Sans Italic 24'));
+ $darea->modify_bg("normal", gtkcolor(0.13 * 65535, 0.27 * 65535, 0.61 * 65535));
my $layout = $darea->create_pango_layout(N("Drakbackup"));
- $darea->signal_connect(realize => sub {
- set_back_pixbuf($darea, gtkcreate_pixbuf('title-tile'))
- });
$darea->signal_connect(expose_event => sub {
my (undef, undef, $dx, $dy) = $darea->allocation->values;
$darea->window->draw_pixbuf($darea->style->white_gc, $pixbuf_icon, 0, 0, $dx - $pixbuf_icon->get_width, $dy - $pixbuf_icon->get_height, -1, -1, 'none', 0, 0);