summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorSebastien Dupont <sdupont@mandriva.com>2001-11-28 17:24:18 +0000
committerSebastien Dupont <sdupont@mandriva.com>2001-11-28 17:24:18 +0000
commit4b9f2b39f416a63a7a149397f525ddfb1e88cec0 (patch)
tree76ee2bf20fc9d2eebe1e61d3deb0a3e9c180a2f6 /perl-install/standalone
parent62cde05da1d6b6d5d9a7ac4270e3dbddc491044e (diff)
downloaddrakx-4b9f2b39f416a63a7a149397f525ddfb1e88cec0.tar
drakx-4b9f2b39f416a63a7a149397f525ddfb1e88cec0.tar.gz
drakx-4b9f2b39f416a63a7a149397f525ddfb1e88cec0.tar.bz2
drakx-4b9f2b39f416a63a7a149397f525ddfb1e88cec0.tar.xz
drakx-4b9f2b39f416a63a7a149397f525ddfb1e88cec0.zip
update!
for gc & Warly: some fixes, correction of advanced, wizard and after advanced steps. the user have a better gestion during advanced step, the protocols ftp, sftp, scp, rsync are now include in advanced step..... etc ;-) todo: when checkbuttonbox are clicked for user choice set it to 0 or 1 juste after.
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/drakbackup169
1 files changed, 138 insertions, 31 deletions
diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup
index 97aafad84..f14f03d29 100755
--- a/perl-install/standalone/drakbackup
+++ b/perl-install/standalone/drakbackup
@@ -87,6 +87,7 @@ my $backup_choice = 0;
my $cfg_file_exist = 0;
my @user_and_path_list;
my @user_list;
+my @all_user_list;
my $list_other;
my @list_other;
my $mdk_cc = 0;
@@ -105,6 +106,9 @@ my $backup_mode = 0;
my $backup_sys = 1;
my $backup_sys_cvs = 1;
my $what_no_browser = 1;
+my $remember_pass = 0;
+my $cdrw = 0;
+my $net_proto;
foreach (@ARGV) {
/--default/ and $default = 1, $mode=-1;
@@ -131,10 +135,10 @@ sub read_passwd {
@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 = ();
+ @all_user_list = ();
push @user_and_path_list, 'root:/root';
- push @home_files, (split(':', $_))[1] foreach (@user_and_path_list);
- push @user_list, (split(':', $_))[0] foreach (@user_and_path_list);
+ push @home_files, (split(':', $_))[0] foreach (@user_and_path_list);
+ push @all_user_list, (split(':', $_))[0] foreach (@user_and_path_list);
$DEBUG and print "home_files: ".$_."\n" foreach (@home_files);
}
@@ -143,8 +147,10 @@ sub save_conf_file {
"HOME_FILES=@home_files\n",
"OTHER_FILES=@other_files\n",
"PATH_TO_SAVE=$save_path\n",
+ "NET_PROTO=$net_proto\n"
);
-
+ $cdrw and push @cfg_list, "CDRW\n" ;
+ $remember_pass and push @cfg_list, "REMEMBER_PASS\n" ;
$what_no_browser or push @cfg_list, "BROWSER_CACHE\n" ;
$backup_sys_cvs or push @cfg_list, "NO_SYS_CVS\n" ;
$option_replace and push @cfg_list, "OPTION_REPLACE\n" ;
@@ -174,6 +180,9 @@ sub read_conf_file {
if (/^OPTION_COMP/) { s/^OPTION_COMP=//gi; /TAR.GZ/ and $comp_mode = 0; /TAR.BZ2/ and $comp_mode = 1; }
if (/^NO_SYS_CVS/) { $backup_sys_cvs = 0; }
if (/^BROWSER_CACHE/) { $what_no_browser = 0; }
+ if (/^CDRW/) { $cdrw = 1; }
+ if (/^REMEMBER_PASS/) { $remember_pass = 1; }
+ if (/^NET_PROTO/) { s/^NET_PROTO=//gi; $net_proto = $_; }
}
$cfg_file_exist = 1;
} else {
@@ -304,8 +313,6 @@ sub filedialog {
$file_dialog->show();
}
-
-
sub wizard {
my $user = 1;
my $user2;
@@ -349,7 +356,6 @@ sub wizard {
);
}
-
sub advanced {
my $notebook;
my $notebook_what;
@@ -366,9 +372,10 @@ sub advanced {
my $choice_what_sys;
$list_other = new Gtk::List();
$list_other->set_selection_mode(-extended);
-
+ my $adj = new Gtk::Adjustment 1.0, 1.0, 10000.0, 1.0, 5.0, 0.0;
read_conf_file();
+
my ($pix_net_map, $pix_net_mask) = gtkcreate_png("../pixmaps/backup_net.png");
my ($pix_hd_map, $pix_hd_mask) = gtkcreate_png("../pixmaps/backup_hd.png");
my ($pix_time_map, $pix_time_mask) = gtkcreate_png("../pixmaps/backup_time.png");
@@ -412,19 +419,19 @@ sub advanced {
_("Other", " ")
);
- my $label_where_network = gtkpack(new Gtk::HBox( 0, 2),
+ my $label_where_net = gtkpack(new Gtk::HBox( 0, 2),
new Gtk::Pixmap($pix_net2_map, $pix_net2_mask),
_(" Network ")
);
my $label_where_cd = gtkpack(new Gtk::HBox( 0, 2),
new Gtk::Pixmap($pix_cd_map, $pix_cd_mask),
- _(" CDROM ")
+ _(" CDROM\nDVDROM ")
);
my $label_where_hd = gtkpack(new Gtk::HBox( 0, 2),
new Gtk::Pixmap($pix_hd2_map, $pix_hd2_mask),
- _(" Hard Drive ")
+ _(" Hard Drive\n NFS ")
);
my $box_what_sys = gtkpack_(new Gtk::VBox(0,1),
@@ -433,12 +440,17 @@ sub advanced {
0, my $check_what_cvs = new Gtk::CheckButton( _(" Need to restore any versions (CVS)") ),
1, _("With this option you will be able to restore any version\n of your /etc directory like in CVS this solution seems to be\n more interesting because it allow you to restore at any\n moment any vercions of your /etc"),
);
-
+ my %check_what_user;
my $box_what_user = gtkpack_(new Gtk::VBox(0,0),
0, _("Please check all user that you want to include inb your backup."),
0, new Gtk::HSeparator,
1, createScrolledWindow( gtkpack(new Gtk::VBox(0,0),
- map {my $check_what_user = new Gtk::CheckButton("$_") } (@user_list)
+ map { my $b = new Gtk::CheckButton("$_");
+ $check_what_user{$_} = $b;
+# if(member($_, @user_list )) {
+# $check_what_user{$_}->set_active(1);
+# } else { $check_what_user{$_}->set_active(0);}
+ $b } (@all_user_list)
),
),
0, new Gtk::HSeparator,
@@ -455,22 +467,77 @@ sub advanced {
),
);
- my $box_where_mdkonline = gtkpack_(new Gtk::VBox(0,1),
- 1, _("\nPlease check all options that you need.\n"),
- 0, new Gtk::CheckButton( _(" Backup your System files. (~ 10Mo)") ),
- 0, new Gtk::CheckButton( _(" Need to restore any versions (CVS)") ),
- );
+
+ my $combo_where_net_proto = new Gtk::Combo();
+ $combo_where_net_proto->set_popdown_strings ("scp","ftp", "sftp", "rsync");
+ my $box_where_net = gtkpack_(new Gtk::VBox(0,1),
+ 0, new Gtk::HSeparator,
+ 0, my $check_where_net = new Gtk::CheckButton( _(" Use Network to backup") ),
+ 0, my $check_where_net_daemon = new Gtk::CheckButton( _(" Use Network with daemon") ),
+ 0, new Gtk::HSeparator,
+ 0, gtkpack_(new Gtk::HBox(0,10),
+ 1, _("please choose your protocol"),
+ 0, $combo_where_net_proto,
+ 0, _(""),
+ ),
+ 0, _(""),
+ 0, gtkpack_(new Gtk::HBox(0,10),
+ 1, _("please entrer the directory\n to put the backup on thid host. "),
+ 1, my $host_directory= new Gtk::Entry(),
+ 0, _(""),
+ ),
+ 0, _(""),
+ 0, gtkpack_(new Gtk::HBox(0,10),
+ 1, _("please entrer your login"),
+ 0, my $login_user= new Gtk::Entry(),
+ 0, _(""),
+ ),
+ 0, gtkpack_(new Gtk::HBox(0,10),
+ 1, _("please entrer your passord"),
+ 0, my $passwd_user= new Gtk::Entry(),
+ 0, _(""),
+ ),
+ 0, my $check_remember_pass = new Gtk::CheckButton( _(" remember this password") ),
+ );
my $box_where_hd = gtkpack_(new Gtk::VBox(0,1),
- 1, _("\nPlease check all options that you need.\n"),
- 0, new Gtk::CheckButton( _(" Backup your System files. (~ 10Mo)") ),
- 0, new Gtk::CheckButton( _(" Need to restore any versions (CVS)") ),
+ 0, new Gtk::HSeparator,
+ 0, my $check_where_hd = new Gtk::CheckButton( _(" Use Hard Disk to backup") ),
+ 0, my $check_where_hd_daemon = new Gtk::CheckButton( _(" Use Hard Disk with daemon") ),
+ 0, new Gtk::HSeparator,
+ 0, gtkpack_(new Gtk::HBox(0,10),
+ 0, _(" "),
+ 0, _("Please entrer the directory to save: "),
+ 1, my $save_path = new Gtk::Entry(),
+ 0, _(""),
+ ),
+ 0, _(""),
+ 0, gtkpack_(new Gtk::HBox(0,10),
+ 0, _(""),
+ 0, _("Please entrer the maximum size allowed for Drakbackup "),
+ 1, my $spinner = new Gtk::SpinButton( $adj, 0, 0),
+ 0, _(""),
+ ),
);
-
+
+ my $combo_where_cd_time = new Gtk::Combo();
+ $combo_where_cd_time->set_popdown_strings ("650","700", "750", "800");
my $box_where_cd = gtkpack_(new Gtk::VBox(0,1),
- 1, _("\nPlease check all options that you need.\n"),
- 0, new Gtk::CheckButton( _(" Backup your System files. (~ 10Mo)") ),
- 0, new Gtk::CheckButton( _(" Need to restore any versions (CVS)") ),
+ 0, new Gtk::HSeparator,
+ 0, my $check_where_cd = new Gtk::CheckButton( _(" Use CD/DVDROM to backup") ),
+ 0, my $check_where_cd_daemon = new Gtk::CheckButton( _(" Use CD/DVDROM with daemon") ),
+ 0, new Gtk::HSeparator,
+ 0, gtkpack_(new Gtk::HBox(0,10),
+ 1, _("please choose your CD space"),
+ 0, $combo_where_cd_time,
+ 0, _(""),
+ ),
+ 0, _(""),
+ 0, gtkpack_(new Gtk::HBox(0,10),
+ 1, _(" Please check if you are using CDRW media"),
+ 0, my $check_cdrw = new Gtk::CheckButton(),
+ 0, _(""),
+ ),
);
my $box_what = gtkpack(new Gtk::VBox(0,1),
@@ -483,13 +550,34 @@ sub advanced {
my $box_where = gtkpack(new Gtk::VBox(0,1),
$notebook_where = new Gtk::Notebook,
- $notebook_where->insert_page( $box_where_mdkonline, $label_where_network, 0 ),
+ $notebook_where->insert_page( $box_where_net, $label_where_net, 0 ),
$notebook_where->insert_page( $box_where_hd, $label_where_hd, 1 ),
$notebook_where->insert_page( $box_where_cd, $label_where_cd, 1 ),
);
- my $box_when = gtkpack(new Gtk::VBox(0,1),
- $notebook_when = new Gtk::Notebook,
- );
+
+ 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, new Gtk::HSeparator,
+ 0, gtkpack_(new Gtk::HBox(0,10),
+ 1, _("Please choose interval \nspace between each backup "),
+ 0, $combo_when_space,
+ 0, _(""),
+ ),
+ 0, _(""),
+ 0, gtkpack_(new Gtk::HBox(0,10),
+ 1, _("Please choose media to backup. "),
+ 0, gtkpack_(new Gtk::VBox(0,10),
+ 0, $check_where_cd_daemon = new Gtk::CheckButton( _(" Use CD/DVDROM with daemon") ),
+ 0, $check_where_hd_daemon = new Gtk::CheckButton( _(" Use Hard Drive with daemon") ),
+ 0, $check_where_net_daemon = new Gtk::CheckButton( _(" Use Network with daemon") ),
+ ),
+ ),
+
+ 0, new Gtk::HSeparator,
+ );
+
my $box_options = gtkpack(new Gtk::VBox(0,1),
$notebook_options = new Gtk::Notebook,
);
@@ -502,7 +590,7 @@ sub advanced {
$notebook->insert_page( $box_what, $label_what, 0),
$notebook->insert_page( $box_where, $label_where, 1),
$notebook->insert_page( $box_when, $label_when, 2),
- $notebook->insert_page( $box_options, $label_options, 3),
+# $notebook->insert_page( $box_options, $label_options, 3),
$notebook->set_scrollable( 1 )
),
),
@@ -526,7 +614,26 @@ sub advanced {
bottom => "left",
left => "top"
);
- foreach ([$check_what_sys, \$backup_sys], [$check_what_cvs, \$backup_sys_cvs], [$check_what_browser, \$what_no_browser]) {
+# my @checked_user_list;
+
+# print $check_what_user{'seb'}->active."\n";
+# @user_list = ();
+
+# foreach (@all_user_list) {
+# gtksignal_connect(gtkset_active($check_what_user{$_},$check_what_user{$_}), toggled => sub { $check_what_user{$_} = $check_what_user{$_} ? 0 : 1; });
+# $check_what_user{$_}->active and push @user_list, $_;
+# print $_ . "\n";# foreach @checked_user_list;
+# }
+
+
+# foreach (@user_list) {
+# gtkset_active($check_what_user{$_}, $check_what_user{$_}->active),
+# # gtksignal_connect(gtkset_active($check_what_user{$_},$check_what_user{$_}), toggled => sub { $check_what_user{$_} = $check_what_user{$_} ? 0 : 1; })
+# }
+ $combo_where_net_proto->entry->signal_connect( 'changed', sub { $net_proto = $combo_where_net_proto->entry->get_text()});
+
+
+ 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]) {
my $ref = $_->[1];
gtksignal_connect(gtkset_active($_->[0], ${$ref}), toggled => sub { ${$ref} = ${$ref} ? 0 : 1; })
}