summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakbackup
diff options
context:
space:
mode:
authorSebastien Dupont <sdupont@mandriva.com>2001-11-27 13:38:29 +0000
committerSebastien Dupont <sdupont@mandriva.com>2001-11-27 13:38:29 +0000
commit75e5fc06072504acbcc2cd0aa1f4e509e4dc262d (patch)
tree144a5350fe5317be4ac06eb3802e01ecfbdcee05 /perl-install/standalone/drakbackup
parent957fa65bc88803435a9baa2661b73c2ee9844cfe (diff)
downloaddrakx-75e5fc06072504acbcc2cd0aa1f4e509e4dc262d.tar
drakx-75e5fc06072504acbcc2cd0aa1f4e509e4dc262d.tar.gz
drakx-75e5fc06072504acbcc2cd0aa1f4e509e4dc262d.tar.bz2
drakx-75e5fc06072504acbcc2cd0aa1f4e509e4dc262d.tar.xz
drakx-75e5fc06072504acbcc2cd0aa1f4e509e4dc262d.zip
read and use user list correctly, advanced step user list.
Diffstat (limited to 'perl-install/standalone/drakbackup')
-rwxr-xr-xperl-install/standalone/drakbackup90
1 files changed, 47 insertions, 43 deletions
diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup
index 9b2cab899..5d6e1431f 100755
--- a/perl-install/standalone/drakbackup
+++ b/perl-install/standalone/drakbackup
@@ -77,12 +77,13 @@ my $box;
my $backup_choice = 0;
my $cfg_file_exist = 0;
my @user_and_path_list;
+my @user_list;
my $mdk_cc = 0;
-my $DEBUG = 1;
+my $DEBUG = 0;
# config. FILES -> PATH & Global variables.
my @sys_files = ("/etc");
-my @home_files = ("/home/seb") ;
+my @home_files;
my @other_files = ("/var/www") ;
my $cfg_file = "/etc/drakxtools/drakbackup/drakbackup.conf";
my $save_path = "/var/drakbackup";
@@ -115,14 +116,15 @@ sub debug {
read_conf_file();
sub read_passwd {
- push @user_and_path_list, (split(':', $_))[0] . "," . (split(':', $_))[5] foreach (grep /[5-9][0-9][0-9]/, cat_('/etc/passwd'));
- $DEBUG and print "$_\n" foreach @user_and_path_list;
- # fixme!
- $cfg_file_exist or push @home_files, (split(',', $_))[0] foreach (@user_and_path_list);
- $DEBUG and print "$_\n" foreach @home_files;
+ @user_and_path_list = map { (split(':', $_))[0] . ":" . (split(':', $_))[5] } grep {( split(':', $_))[2] > 500} split ('\n', cat_('/etc/passwd'));
+ $DEBUG and print "user_and_path_list: ".$_."\n" foreach (@user_and_path_list);
+ @home_files = ();
+ @user_list = ();
+ push @home_files, (split(':', $_))[1] foreach (@user_and_path_list);
+ push @user_list, (split(':', $_))[0] foreach (@user_and_path_list);
+ $DEBUG and print "home_files: ".$_."\n" foreach (@home_files);
}
-
sub save_conf_file {
my @cfg_list = ( "SYS_FILES=@sys_files\n",
"HOME_FILES=@home_files\n",
@@ -138,9 +140,8 @@ sub save_conf_file {
output_p( $cfg_file, @cfg_list);
}
-
-
sub read_conf_file {
+ read_passwd();
if (-e $cfg_file) {
while (cat_ ('$cfg_file')) {
next unless /\S/;
@@ -156,10 +157,8 @@ sub read_conf_file {
$cfg_file_exist = 1;
} else {
$cfg_file_exist = 0;
- read_passwd();
}
- $DEBUG and debug;
- $DEBUG and read_passwd();
+# $DEBUG and debug;
}
if ($mdk_cc) { $build_floppy || $build_cd || $default || @list_arg || $conf_file ? backend_mod() : interactive_mode();
@@ -347,21 +346,10 @@ configuration file:
sub wizard {
- my $intf;
my $user = 1;
my $user2;
- my $module;
+# map { my (user.$_)} (@user_list);
my $text;
- my @toto = ("dgh","fhj","vbmn","rtyu","rtyu"),
- my $toto;
- my @tota;
- my $name = "adf";
-
- foreach (@toto) {
- my $toto = { label => _($_), val => \$user2, type => 'bool'} ;
- push @tota, $toto.",";
- }
-# $toto = { label => _($name), val => \$toto, type => 'bool'};
begin:
$::isWizard=1;
@@ -372,25 +360,42 @@ sub wizard {
(_("Please choose that you want to backup") . "\n\n") .
$text,
[
- #{ label => _("Netmask"), val => \$intf->{NETMASK}, disabled => sub { $pump } },
{ label => _("System Files"), val => \$user, type => "bool", text => _(" all files on your /etc directory.") },
- { label => _("user: seb"), val => \$user2, type => "bool", text => _("") },
-# @tota
+ map { { label => _("$_"), val => \$user, type => "bool", text => _("all data contains on $_ directory") } } @user_list,
],
);
-# my $r = $in->ask_from_list_(_("Backup Configuration wizard"),
-# _("Please choose what you need to backup from your system"),
+ my $r = $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,
+ [
+ { label => _("Daemon"), val => \$user, 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)") },
+ ],
+ );
+
+
+
+# step_where_backup:
+# undef $::Wizard_no_previous;
+# my $r2 = $in->ask_from_no_check(_("Backup Configuration wizard"),
+# _("Please choose how to backup your system"),
# [ __("Hard Drive"), __("accross the Network"), __("Burn auto boot Restore CDROM") ])
# or quit_global($in, 0);
-
- step_where_backup:
- undef $::Wizard_no_previous;
- my $r2 = $in->ask_from_no_check(_("Backup Configuration wizard"),
- _("Please choose how to backup your system"),
- [ __("Hard Drive"), __("accross the Network"), __("Burn auto boot Restore CDROM") ])
- or quit_global($in, 0);
}
@@ -501,15 +506,14 @@ sub advanced {
my $box_what_sys = gtkpack(new Gtk::VBox(0,1),
_("\nPlease check all options that you need.\n"),
- new Gtk::CheckButton( _("need to restore any versions (CVS)") ),
- new Gtk::CheckButton( "Check me please!" ),
- new Gtk::CheckButton( "Check me please!" ),
- _("When backup.")
+ new Gtk::CheckButton( _(" Need to restore any versions (CVS)") ),
);
my $box_what_user = gtkpack(new Gtk::VBox(0,1),
- new Gtk::Pixmap($pix_time_map, $pix_time_mask),
- _("When backup.")
+ map {new Gtk::CheckButton("$_") } (@user_list),
+
+# new Gtk::Pixmap($pix_time_map, $pix_time_mask),
+# _("When backup.")
);
my $box_what_other = gtkpack(new Gtk::VBox(0,1),