From 378aeccfd8c058e86198ced08564b3134b59cc25 Mon Sep 17 00:00:00 2001 From: Sebastien Dupont Date: Fri, 30 Nov 2001 10:56:39 +0000 Subject: little update! --- perl-install/standalone/drakbackup | 23 ++++++++++++++--------- 1 file changed, 14 insertions(+), 9 deletions(-) (limited to 'perl-install') diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup index 63acab440..66cca559f 100755 --- a/perl-install/standalone/drakbackup +++ b/perl-install/standalone/drakbackup @@ -350,18 +350,18 @@ sub wizard { $text, [ { label => _("System Files"), val => \$backup_sys, type => "bool", text => _(" all files on your /etc directory.") }, - { label => _("User Files"), val => \$$backup_user, type => "bool", text => _(" all files on your /etc directory.") }, + { label => _("User Files"), val => \$backup_user, type => "bool", text => _(" all user files on your system.") }, # map { { label => _("$_"), val => \$user, type => "bool", text => _("all data contained on $_ directory") } } @user_list, ], ); - - my $r = $in->ask_from_list_(_("Backup Configuration wizard"), + undef $::Wizard_no_previous; + my $res1 = $in->ask_from_list_(_("Backup Configuration wizard"), _("Please choose what you need to backup from your system"), [ __("Hard Drive or NFS file system"), __("Mandrake Online"), __("on CDROM") ]) or quit_global($in, 0); - - + + $in->ask_from(_("Backup Configuration wizard"), (_("Please choose when you want to backup") . "\n\n") . $text, @@ -369,12 +369,12 @@ sub wizard { { label => _("Daemon"), val => \$backup_daemon, type => "bool", text => _(" Select it if you want that backup run as daemon") }, ], ); - + $in->ask_from(_("Backup Configuration wizard"), (_("Please choose that you want to do") . "\n\n") . $text, [ - { label => _("Build Auto-Boot CDROM"), val => \$user, type => "bool", text => _("this option work only if you have a CDR-W CDROM drive\n This options allow you to restore all\n your system (data and your system variables)") }, + { label => _("Build Auto-Boot CDROM"), val => \$user, type => "bool", text => _("This option work only if you have\na CDR-W CDROM drive and allow\n you to restore all your system (data\n and your system variables)") }, ], ); } @@ -621,7 +621,12 @@ sub advanced { my $combo_when_space = new Gtk::Combo(); $combo_when_space->set_popdown_strings (_("daily"),_("week"),_("month"),_("year"),); my $box_when = gtkpack_(new Gtk::VBox(0,1), - 0, new Gtk::Pixmap($pix_time_map, $pix_time_mask), + 0, gtkpack_(new Gtk::HBox(0,10), + 1, _(""), + 1, new Gtk::Pixmap($pix_time_map, $pix_time_mask), + 0, my $check_when_daemon = new Gtk::CheckButton( _(" Use daemon") ), + 1, _(""), + ), 0, new Gtk::HSeparator, 0, gtkpack_(new Gtk::HBox(0,10), 1, _("Please choose interval \nspace between each backup "), @@ -683,7 +688,7 @@ sub advanced { - foreach ([$check_what_sys, \$backup_sys], [$check_what_cvs, \$backup_sys_cvs], [$check_what_browser, \$what_no_browser], [$check_remember_pass, \$remember_pass], [$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]) { + foreach ([$check_what_sys, \$backup_sys], [$check_what_cvs, \$backup_sys_cvs], [$check_what_browser, \$what_no_browser], [$check_remember_pass, \$remember_pass], [$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]) { my $ref = $_->[1]; gtksignal_connect(gtkset_active($_->[0], ${$ref}), toggled => sub { ${$ref} = ${$ref} ? 0 : 1; }) } -- cgit v1.2.1