summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakbackup380
1 files changed, 280 insertions, 100 deletions
diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup
index 5d6e1431f..d97a74262 100755
--- a/perl-install/standalone/drakbackup
+++ b/perl-install/standalone/drakbackup
@@ -30,6 +30,15 @@
# build iso fs with rescue.
# configuration file on /etc/drakconf/drakbackup/drakbakup.conf
# perl -ne 'split(":");print "$_[0]:*:$_[2]:$_[3]:::\n";' /etc/passwd > passwd
+#
+#
+# TODO:
+# icon for cdrom.
+# wizard step.
+# implement all advanced.
+
+
+
use Gtk;
use lib qw(/usr/lib/libDrakX );
@@ -78,9 +87,15 @@ my $backup_choice = 0;
my $cfg_file_exist = 0;
my @user_and_path_list;
my @user_list;
+my $list_other;
+my @list_other;
my $mdk_cc = 0;
my $DEBUG = 0;
+my $backup_sys = 1;
+
+
+
# config. FILES -> PATH & Global variables.
my @sys_files = ("/etc");
my @home_files;
@@ -132,11 +147,13 @@ sub save_conf_file {
"PATH_TO_SAVE=$save_path\n",
);
$option_replace and push @cfg_list, "OPTION_REPLACE\n" ;
+ if ($backup_sys == 0) { push @cfg_list, "NO_SYS_FILES\n";}
if ($comp_mode) {
push @cfg_list, "OPTION_COMP=TAR.BZ2\n";
} else {
push @cfg_list, "OPTION_COMP=TAR.GZ\n";
}
+ print "before save : $backup_sys \n";
output_p( $cfg_file, @cfg_list);
}
@@ -152,6 +169,7 @@ sub read_conf_file {
if (/^OTHER_FILES/) { s/^OTHER_FILES=//gi; @other_files = split(' ', $_ ); }
if (/^PATH_TO_SAVE/) { s/^PATH_TO_SAVE=//gi; $save_path = $_; }
if (/^OPTION_REPLACE/) { $option_replace = 1; }
+ if (/^NO_SYS_FILES/) { $backup_sys = 0; }
if (/^OPTION_COMP/) { s/^OPTION_COMP=//gi; /TAR.GZ/ and $comp_mode = 0; /TAR.BZ2/ and $comp_mode = 1; }
}
$cfg_file_exist = 1;
@@ -282,7 +300,7 @@ sub about {
sub { ${$central_widget}->destroy();
$mdk_cc and interactive_mode();
$mdk_cc or interactive_mode_my();
- }),
+ }),
),
)
);
@@ -344,6 +362,38 @@ configuration file:
$up_box->show_all();
}
+sub list_remove {
+ my($widget, $list) = @_;
+ my @to_remove;
+ push @to_remove, $list->child_position($_) foreach($list->selection);
+ splice @list_other, $_, 1 foreach(reverse sort @to_remove);
+ $list->remove_items($list->selection);
+}
+
+
+sub file_ok_sel {
+ my ( $widget, $file_selection ) = @_;
+ my $file_name = $file_selection->get_filename();
+ # print "-- @install\n";
+ if(!member($file_name, @list_other)) {
+ push(@list_other, $file_name);
+ $list_other->add(gtkshow(new Gtk::ListItem($file_name)));
+ }
+}
+
+sub filedialog {
+ my $file_dialog;
+
+ $file_dialog = gtksignal_connect(new Gtk::FileSelection(_("File Selection")), destroy => sub { $file_dialog->destroy(); } );
+ $file_dialog->ok_button->signal_connect(clicked => \&file_ok_sel, $file_dialog);
+ $file_dialog->ok_button->child->set(_("Add"));
+ $file_dialog->cancel_button->signal_connect(clicked => sub { $file_dialog->destroy() });
+ $file_dialog->cancel_button->child->set(_("Close"));
+ $file_dialog->set_filename(_("Select the files or directories and click on 'Add'"));
+ $file_dialog->show();
+}
+
+
sub wizard {
my $user = 1;
@@ -361,7 +411,7 @@ sub wizard {
$text,
[
{ label => _("System Files"), val => \$user, type => "bool", text => _(" all files on your /etc directory.") },
- map { { label => _("$_"), val => \$user, type => "bool", text => _("all data contains on $_ directory") } } @user_list,
+ map { { label => _("$_"), val => \$user, type => "bool", text => _("all data contained on $_ directory") } } @user_list,
],
);
@@ -387,62 +437,9 @@ sub wizard {
{ 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);
-
-
-}
-sub after_adv {
- my $text = new Gtk::Text(undef, undef);
- my $after_adv_box;
- my $box_cfg_state;
- my $box_cgf_state_replace;
- my $box_cgf_state_comp;
-
- read_conf_file();
- if ($option_replace) { $box_cgf_state_replace = _("Replace backups (do not update)"),
- } else { $box_cgf_state_replace = _("Update backups (do not replace)"), }
-
- if ($comp_mode) { $box_cgf_state_comp = _("Backups use tar and gunzip "),
- } else { $box_cgf_state_comp = _("Backups use tar and gunzip"), }
-
- my $label_cfg_file = new Gtk::Label _("Backup Sources: \n-System Files: @sys_files \n-Users Files: @home_files\n-Other Files to backup: @other_files\nPath to save backups: $save_path\nOptions:\n$box_cgf_state_replace\n$box_cgf_state_comp\n\n");
- $box_cfg_state = gtkpack(new Gtk::VBox( 0, 0),
- gtkset_justify( $label_cfg_file , 'left'),
- ),
-
- gtkpack($up_box,
- $after_adv_box = gtkpack_(new Gtk::VBox(0,10),
- 1, gtkadd(new Gtk::Frame(_("State of configuration file.")),
- gtkpack(new Gtk::VBox(0,10),
- $box_cfg_state,
- ),
- ),
- 0, gtksignal_connect(new Gtk::Button(_("Click here if you want to build a backup now.")), clicked =>
- sub { ${$central_widget}->destroy(); }),
- 0, new Gtk::HSeparator,
- 0, gtkadd(new Gtk::HButtonBox,
- gtksignal_connect(new Gtk::Button(_("Close")), clicked => sub { Gtk->main_quit() }),
- gtksignal_connect(new Gtk::Button(_("About")), clicked =>
- sub { ${$central_widget}->destroy(); about() }),
- gtksignal_connect(new Gtk::Button(_("Help")), clicked =>
- sub { save_conf_file(); ${$central_widget}->destroy(); adv_help() }),
- gtksignal_connect(new Gtk::Button(_("Ok")), clicked => sub {
- ${$central_widget}->destroy(); after_adv(); }),
- ),
- ),
- );
- $central_widget = \$box;
- $up_box->show_all();
-}
-
sub advanced {
my $notebook;
my $notebook_what;
@@ -455,10 +452,11 @@ sub advanced {
my $transparent;
my $book_closed;
my $book_closed_mask;
-
- my $checkbutton = new Gtk::CheckButton( "Check me please!" );
- $checkbutton->set_usize( 100, 75 );
- $checkbutton->show();
+ my $box_tmp;
+
+ $list_other = new Gtk::List();
+ $list_other->set_selection_mode(-extended);
+
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");
@@ -467,9 +465,6 @@ sub advanced {
my ($pix_other_map, $pix_other_mask) = gtkcreate_png("../pixmaps/net_u.png");
my ($pix_options_map, $pix_options_mask) = gtkcreate_png("../pixmaps/backup_options.png");
-# ($book_open, $book_open_mask) = Gtk::Gdk::Pixmap->create_from_xpm_d($up_box->window, $transparent, @book_open_xpm);
-# ($book_closed, $book_closed_mask) = Gtk::Gdk::Pixmap->create_from_xpm_d($up_box->window, $transparent, @book_closed_xpm);
-
my $label_what = gtkpack(new Gtk::VBox( 0, 2),
new Gtk::Pixmap($pix_hd_map, $pix_hd_mask),
_("What backup.")
@@ -502,25 +497,74 @@ sub advanced {
_("Other", " ")
);
+ my $label_where_network = gtkpack(new Gtk::HBox( 0, 2),
+ new Gtk::Pixmap($pix_net_map, $pix_net_mask),
+ _(" Network & \n MandrakeOnline ")
+ );
+ my $label_where_cd = gtkpack(new Gtk::HBox( 0, 2),
+ new Gtk::Pixmap($pix_net_map, $pix_net_mask),
+ _(" Hard Drive ")
+ );
- 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)") ),
- );
-
- my $box_what_user = gtkpack(new Gtk::VBox(0,1),
- map {new Gtk::CheckButton("$_") } (@user_list),
-
-# new Gtk::Pixmap($pix_time_map, $pix_time_mask),
-# _("When backup.")
- );
+ my $label_where_hd = gtkpack(new Gtk::HBox( 0, 2),
+ new Gtk::Pixmap($pix_net_map, $pix_net_mask),
+ _(" CDROM ")
+ );
- my $box_what_other = gtkpack(new Gtk::VBox(0,1),
- new Gtk::Pixmap($pix_time_map, $pix_time_mask),
- _("When backup.")
- );
+ my $box_what_sys = gtkpack_(new Gtk::VBox(0,1),
+ 1, _("\nPlease check all options that you need.\n"),
+#gtkset_active
+ 0, gtksignal_connect(gtkset_active(new Gtk::CheckButton( _(" Backup your System files. (~ 10Mo)")), $backup_sys) , clicked => sub { $backup_sys = $backup_sys ? 0 : 1; print "backup sys : $backup_sys\n"; }),
+ 0, gtkset_active(new Gtk::CheckButton( _(" Need to restore any versions (CVS)") ), 1),
+ 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 $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),
+ new Gtk::CheckButton("root"),
+ map {new Gtk::CheckButton("$_") } (@user_list)
+ ),
+ ),
+ 0, new Gtk::HSeparator,
+ 0, new Gtk::CheckButton( _(" do not include the browser cache") ),
+ );
+
+ my $box_what_other = gtkpack_(new Gtk::VBox(0,10),
+ 1, gtkpack_(new Gtk::HBox(0,4),
+ 1, createScrolledWindow($list_other),
+ ),
+ 0, gtkadd(gtkset_layout(new Gtk::HButtonBox, -spread),
+ gtksignal_connect(new Gtk::Button(_("Add")), clicked => sub {filedialog() }),
+ gtksignal_connect(new Gtk::Button(_("Remove Selected")), clicked => \&list_remove, $list_other),
+ ),
+ );
+
+ 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)") ),
+ 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 $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)") ),
+ 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 $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)") ),
+ 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 $box_what = gtkpack(new Gtk::VBox(0,1),
$notebook_what = new Gtk::Notebook,
$notebook_what->insert_page( $box_what_sys, $label_what_sys, 0),
@@ -531,7 +575,9 @@ sub advanced {
my $box_where = gtkpack(new Gtk::VBox(0,1),
$notebook_where = new Gtk::Notebook,
- # $notebook_where->insert_page( _("toto") , "titi", 0 ),
+ $notebook_where->insert_page( $box_where_mdkonline, $label_where_network, 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,
@@ -542,7 +588,6 @@ sub advanced {
# $notebook_options->insert_page( _("toto") , "titi", 0 ),
);
-
gtkpack($up_box,
$about_box = gtkpack_(new Gtk::VBox(0,10),
1, gtkpack(new Gtk::HBox(0,0),
@@ -568,16 +613,13 @@ sub advanced {
),
),
),
-
- my %rotate = (
- top => "right",
- right => "bottom",
- bottom => "left",
- left => "top"
- );
-
- $notebook->set_tab_pos( $rotate{ $notebook->tab_pos } );
-
+ my %rotate = (
+ top => "right",
+ right => "bottom",
+ bottom => "left",
+ left => "top"
+ );
+ $notebook->set_tab_pos( $rotate{ $notebook->tab_pos } );
$central_widget = \$about_box;
$up_box->show_all();
}
@@ -624,19 +666,96 @@ sub interactive_mode_my {
0, new Gtk::Pixmap($pix_u_map, $pix_u_mask),
1, gtkpack_(new Gtk::HBox(0, 3),
0, new Gtk::Pixmap($pix_l_map, $pix_l_mask),
- 1, gtkadd(new Gtk::Frame(_("State of configuration file.")),
- gtkpack(new Gtk::VBox(0,10),
- $box_cfg_state,
- ),
- ),
- ),
+ 1, createScrolledWindow( gtkpack(new Gtk::VBox(0,0),
+ gtkadd(new Gtk::Frame(_("State of configuration file.")),
+ gtkpack(new Gtk::VBox(0,10),
+ $box_cfg_state,
+ ),),),),),
0, gtkpack_(new Gtk::HBox(0, 0),
0, new Gtk::Pixmap($pix_r_map, $pix_r_mask),
- 1, gtkpack_(new Gtk::VBox(0, 1),
+ 1, gtkpack_(new Gtk::VBox(0, 1),
1, gtksignal_connect(new Gtk::Button(_(" Build Backup ")),
- clicked => sub { save_conf_file(); Gtk->main_quit() }),
- 1, gtksignal_connect(new Gtk::Button(_(" Restore ")),
- clicked => sub { save_conf_file(); Gtk->main_quit() }),
+ clicked => sub { save_conf_file(); Gtk->main_quit() }),
+ 1, gtksignal_connect(new Gtk::Button(_(" Restore ")),
+ clicked => sub { save_conf_file(); Gtk->main_quit() }),
+ ),
+ ),
+ 0, new Gtk::HSeparator,
+ 0, new Gtk::HSeparator,
+ 0, gtkpack_(gtkset_layout(new Gtk::HButtonBox, -end),
+ 1, gtksignal_connect(new Gtk::Button(_("Advanced Conf.")), clicked =>
+ sub { ${$central_widget}->destroy(); advanced() }),
+ 1, gtksignal_connect(new Gtk::Button(_("Wizard Conf.")), clicked =>
+ sub { ${$central_widget}->destroy(); wizard() }),
+ 1, gtksignal_connect(new Gtk::Button(_("close")), clicked =>
+ sub { save_conf_file(); Gtk->main_quit() }),
+ ),
+ ),
+ ),
+ ),
+ );
+ $central_widget = \$box;
+ $window1->show_all;
+ $window1->realize;
+ $window1->show_all();
+ Gtk->main;
+ Gtk->exit(0);
+}
+
+
+sub after_adv {
+ $interactive = 1;
+ my $box_cfg_state;
+ my $box_cgf_state_replace;
+ my $box_cgf_state_comp;
+ my $mask;
+ my $style;
+ my $box;
+ init Gtk;
+ my $text2 = new Gtk::Text(undef, undef);
+ my $window1 = $::isEmbedded ? new Gtk::Plug ($::XID) : new Gtk::Window -toplevel;
+ $window1->signal_connect (delete_event => sub { Gtk->exit(0) });
+ $window1->set_position(1);
+ $window1->set_title(_("Drakbackup"));
+
+ my ($pix_u_map, $pix_u_mask) = gtkcreate_png("../pixmaps/backup_title.png");
+ my ($pix_l_map, $pix_l_mask) = gtkcreate_png("../pixmaps/backup_left.png");
+ my ($pix_r_map, $pix_r_mask) = gtkcreate_png("../pixmaps/backup_bot.png");
+
+ read_conf_file();
+ if ($option_replace) { $box_cgf_state_replace = _("Replace backups (do not update)"),
+ } else { $box_cgf_state_replace = _("Update backups (do not replace)"), }
+
+ if ($comp_mode) { $box_cgf_state_comp = _("Backups use tar and gunzip "),
+ } else { $box_cgf_state_comp = _("Backups use tar and gunzip"), }
+
+ if ($cfg_file_exist) {
+ my $label_cfg_file = new Gtk::Label _("Backup Sources: \n-System Files: @sys_files \n-Users Files: @home_files\n-Other Files to backup: @other_files\nPath to save backups: $save_path\nOptions:\n$box_cgf_state_replace\n$box_cgf_state_comp\n\n");
+ $box_cfg_state = gtkpack(new Gtk::VBox( 0, 0),
+ gtkset_justify( $label_cfg_file , 'left'),
+ ),
+ } else { $box_cfg_state = gtkpack(new Gtk::VBox(0,1),
+ _("No configuration please click Wizard or Advanced.") ), }
+
+ gtkadd($window1,
+ gtkpack(new Gtk::VBox(0,0),
+ gtkpack(gtkset_usize($up_box = new Gtk::VBox(0, 5), 500, 420),
+ $box = gtkpack_(new Gtk::VBox(0, 3),
+ 0, new Gtk::Pixmap($pix_u_map, $pix_u_mask),
+ 1, gtkpack_(new Gtk::HBox(0, 3),
+ 0, new Gtk::Pixmap($pix_l_map, $pix_l_mask),
+ 1, createScrolledWindow( gtkpack(new Gtk::VBox(0,0),
+ gtkadd(new Gtk::Frame(_("State of configuration file.")),
+ gtkpack(new Gtk::VBox(0,10),
+ $box_cfg_state,
+ ),),),),),
+ 0, gtkpack_(new Gtk::HBox(0, 0),
+ 0, new Gtk::Pixmap($pix_r_map, $pix_r_mask),
+ 1, gtkpack_(new Gtk::VBox(0, 1),
+ 1, gtksignal_connect(new Gtk::Button(_(" Build Backup ")),
+ clicked => sub { save_conf_file(); Gtk->main_quit() }),
+ 1, gtksignal_connect(new Gtk::Button(_(" Restore ")),
+ clicked => sub { save_conf_file(); Gtk->main_quit() }),
),
),
0, new Gtk::HSeparator,
@@ -662,6 +781,9 @@ sub interactive_mode_my {
}
+
+
+
# sub interactive_mode_my {
# $interactive = 1;
# my $mask;
@@ -918,3 +1040,61 @@ sub interactive_mode_my {
# ok
+
+
+
+
+
+# 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);
+
+
+
+
+# sub after_adv {
+# my $text = new Gtk::Text(undef, undef);
+# my $after_adv_box;
+# my $box_cfg_state;
+# my $box_cgf_state_replace;
+# my $box_cgf_state_comp;
+
+# read_conf_file();
+# if ($option_replace) { $box_cgf_state_replace = _("Replace backups (do not update)"),
+# } else { $box_cgf_state_replace = _("Update backups (do not replace)"), }
+
+# if ($comp_mode) { $box_cgf_state_comp = _("Backups use tar and gunzip "),
+# } else { $box_cgf_state_comp = _("Backups use tar and gunzip"), }
+
+# my $label_cfg_file = new Gtk::Label _("Backup Sources: \n-System Files: @sys_files \n-Users Files: @home_files\n-Other Files to backup: @other_files\nPath to save backups: $save_path\nOptions:\n$box_cgf_state_replace\n$box_cgf_state_comp\n\n");
+# $box_cfg_state = gtkpack(new Gtk::VBox( 0, 0),
+# gtkset_justify( $label_cfg_file , 'left'),
+# ),
+
+# gtkpack($up_box,
+# $after_adv_box = gtkpack_(new Gtk::VBox(0,10),
+# 1, gtkadd(new Gtk::Frame(_("State of configuration file.")),
+# gtkpack(new Gtk::VBox(0,10),
+# $box_cfg_state,
+# ),
+# ),
+# 0, gtksignal_connect(new Gtk::Button(_("Click here if you want to build a backup now.")), clicked =>
+# sub { ${$central_widget}->destroy(); }),
+# 0, new Gtk::HSeparator,
+# 0, gtkadd(new Gtk::HButtonBox,
+# gtksignal_connect(new Gtk::Button(_("Close")), clicked => sub { Gtk->main_quit() }),
+# gtksignal_connect(new Gtk::Button(_("About")), clicked =>
+# sub { ${$central_widget}->destroy(); about() }),
+# gtksignal_connect(new Gtk::Button(_("Help")), clicked =>
+# sub { save_conf_file(); ${$central_widget}->destroy(); adv_help() }),
+# gtksignal_connect(new Gtk::Button(_("Ok")), clicked => sub {
+# ${$central_widget}->destroy(); after_adv(); }),
+# ),
+# ),
+# );
+# $central_widget = \$box;
+# $up_box->show_all();
+# }
generated by cgit v1.2.1 (git 2.21.0) at 2024-11-11 22:29:51 +0000