summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorSebastien Dupont <sdupont@mandriva.com>2001-12-08 00:49:18 +0000
committerSebastien Dupont <sdupont@mandriva.com>2001-12-08 00:49:18 +0000
commitdfce22e4b443fab089a8893c2fc4bd55ae98bcf7 (patch)
tree91d2bb6ce4cb94a17700663bc8d78e34cbf995fa /perl-install
parent2d1e450e550b6bc643c298247e553977ef3ab60a (diff)
downloaddrakx-dfce22e4b443fab089a8893c2fc4bd55ae98bcf7.tar
drakx-dfce22e4b443fab089a8893c2fc4bd55ae98bcf7.tar.gz
drakx-dfce22e4b443fab089a8893c2fc4bd55ae98bcf7.tar.bz2
drakx-dfce22e4b443fab089a8893c2fc4bd55ae98bcf7.tar.xz
drakx-dfce22e4b443fab089a8893c2fc4bd55ae98bcf7.zip
in advanced step:
custom help for each steps and return automaticaly on the current step. help: options help
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakbackup108
1 files changed, 100 insertions, 8 deletions
diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup
index b7f227792..023244eeb 100755
--- a/perl-install/standalone/drakbackup
+++ b/perl-install/standalone/drakbackup
@@ -90,6 +90,7 @@ my @list_arg = ();
my $windows = 0;
my $central_widget;
my $previous_widget;
+my $current_widget;
my $interactive;
my $up_box;
my $advanced_box;
@@ -111,7 +112,7 @@ my $other_backuped = 0;
my @user_list_to_restore= ();
my $retore_box2;
my $cd_devive_entry;
-
+my $custom_help;
# config. FILES -> Default PATH & Global variables.
my @sys_files = ("/etc");
@@ -493,6 +494,7 @@ sub advanced_what_sys {
1, " ",
),
);
+ $current_widget = \&advanced_what_sys;
$previous_widget =\&advanced_what;
$central_widget = \$box_what_sys;
$up_box->show_all();
@@ -535,6 +537,7 @@ sub advanced_what_user {
0, my $check_what_browser = new Gtk::CheckButton( _(" do not include the browser cache") ),
),
);
+ $current_widget = \&advanced_what_user;
$previous_widget =\&advanced_what;
$central_widget = \$box_what_user;
$up_box->show_all();
@@ -558,6 +561,7 @@ sub advanced_what_other {
),
),
);
+ $current_widget = \&advanced_what_other;
$previous_widget =\&advanced_what;
$central_widget = \$box_what_other;
$up_box->show_all();
@@ -604,6 +608,7 @@ sub advanced_what{
new Gtk::Label(_(" Other ")),
new Gtk::HBox(0, 5)
));
+ $current_widget = \&advanced_what;
$previous_widget =\&advanced_box;
$central_widget = \$box_what;
$up_box->show_all();
@@ -660,6 +665,7 @@ sub advanced_where_net_ftp {
my $ref = $_->[1];
gtksignal_connect(gtkset_active($_->[0], ${$ref}), toggled => sub { ${$ref} = ${$ref} ? 0 : 1; })
}
+ $current_widget = \&advanced_where_net_ftp;
$previous_widget =\&advanced_where_net;
$central_widget = \$box_where_net;
$up_box->show_all();
@@ -674,6 +680,9 @@ sub advanced_where_net_ssh {
1, _("sinon lancer assistant "),
),
);
+# test si x11
+#print system("xterm -fn 7x14 -bg black -fg white -e ssh-keygen -f ~/.ssh/identity-backup && scp ") . "\n";
+ $current_widget = \&advanced_where_net_ssh;
$previous_widget =\&advanced_where_net;
$central_widget = \$box_where_ssh;
$up_box->show_all();
@@ -698,6 +707,7 @@ sub advanced_where_net {
),
);
$previous_widget =\&advanced_where;
+ $current_widget = \&advanced_where_net;
$central_widget = \$box_where_net;
$up_box->show_all();
}
@@ -743,6 +753,7 @@ sub advanced_where_cd {
$combo_where_cd_time->entry->set_text($cd_time);
$combo_where_cd_time->entry->signal_connect( 'changed', sub { $cd_time = $combo_where_cd_time->entry->get_text()});
+ $current_widget = \&advanced_where_cd;
$previous_widget =\&advanced_where;
$central_widget = \$box_where_cd;
$up_box->show_all();
@@ -779,6 +790,7 @@ sub advanced_where_hd {
);
$save_path_entry->set_text( $save_path );
$save_path_entry->signal_connect( 'changed', sub { $save_path = $save_path_entry->get_text()});
+ $current_widget = \&advanced_where_hd;
$previous_widget =\&advanced_where;
$central_widget = \$box_where_hd;
$up_box->show_all();
@@ -824,7 +836,7 @@ sub advanced_where{
new Gtk::Label(_(" HardDrive / NFS ")),
new Gtk::HBox(0, 5)
));
-
+ $current_widget = \&advanced_where;
$previous_widget =\&advanced_box;
$central_widget = \$box_where;
$up_box->show_all();
@@ -868,7 +880,7 @@ sub advanced_when{
$combo_when_space->entry->set_text( $when_space );
$combo_when_space->entry->signal_connect( 'changed', sub {
$when_space = $combo_when_space->entry->get_text(); print $when_space."\n";});
-
+ $current_widget = \&advanced_when;
$previous_widget =\&advanced_box;
$central_widget = \$box_when;
$up_box->show_all();
@@ -895,6 +907,8 @@ sub advanced_options{
),
),
);
+ $custom_help = "options";
+ $current_widget = \&advanced_options;
$previous_widget =\&advanced_box;
$central_widget = \$box_options;
$up_box->show_all();
@@ -948,7 +962,8 @@ sub advanced_box{
new Gtk::Label(_(" More Options")),
new Gtk::HBox(0, 5)
));
-
+ $custom_help = "";
+ $current_widget = \&advanced_box;
$central_widget = \$box_adv;
$up_box->show_all();
}
@@ -1005,7 +1020,7 @@ sub advanced {
0, gtksignal_connect(new Gtk::Button(_(" Cancel ")), clicked =>
sub { ${$central_widget}->destroy(); interactive_mode(); }),
0, gtksignal_connect(new Gtk::Button(_(" Help ")), clicked =>
- sub { ${$central_widget}->destroy(); help(\&advanced); }),
+ sub { ${$central_widget}->destroy(); adv_help(\&$current_widget,$custom_help ); }),
1, new Gtk::HBox(0, 1),
0, gtksignal_connect(new Gtk::Button(_(" Previous ")), clicked =>
sub { ${$central_widget}->destroy(); $previous_widget->(); }),
@@ -1015,6 +1030,9 @@ sub advanced {
),
),
);
+ $custom_help = "";
+ $central_widget = \$box2;
+ $current_widget = \&advanced_box;
$previous_widget =\&interactive_mode;
$button_what->add(gtkpack(new Gtk::HBox(0,10),
@@ -1037,8 +1055,6 @@ sub advanced {
new Gtk::Label(_(" More Options")),
new Gtk::HBox(0, 5)
));
-
- $central_widget = \$box;
$up_box->show_all();
}
@@ -1966,7 +1982,7 @@ sub help {
gtkpack($up_box,
$about_box = gtkpack_(new Gtk::VBox(0,10),
1, gtkpack_(new Gtk::HBox(0,0),
- 1, gtktext_insert(gtkset_editable($text, 1), _("
+ 1, gtktext_insert(gtkset_editable($text, 0), _("
description:
Drakbacup is use to backup system files and user files
@@ -2003,6 +2019,82 @@ configuration file:
}
+sub adv_help {
+ my ($function, $custom_help) = @_,
+ my $text = new Gtk::Text(undef, undef);
+ my $advanced_box_help;
+
+ if ($custom_help eq "toto") { gtktext_insert($text, _("toto")); }
+ elsif ($custom_help eq "options") { gtktext_insert($text, _("options description:
+
+ In this step Drakbacup allow you to change:
+
+ - the compression mode:
+
+ if you check bzip2 compression, you will compress
+ better than gzip your data (about 2-10 %).
+ This options are not checked by default because
+ this compression mode need more time ( about 1000% more).
+
+ - the udpate mode:
+
+ This options will update your backup, but this
+ options are not really interesting because you need
+ to decompress your backup before to update it.
+
+ - the .backupignore mode:
+
+ Like with cvs, Drakbackup will ignore all references
+ included on .backupignore files in each directories.
+ ex:
+ \$> cat .backupignore
+ *.o
+ *~
+ ...
+
+
+")); }
+ else { gtktext_insert($text, _("description:
+
+ Drakbacup is use to backup system files and user files
+ Drakbacup allow to restore the system (etc, var files)
+ from starup or on drakconf utility.
+
+backup name format: all the time from the / dir.
+
+ system backup:
+ backup_sys.tar.gz
+ user backup
+ backup_user_james.tar.gz
+ backup_user_seb.tar.gz
+ other directories
+ backup_other.tar.gz
+
+build iso fs with rescue.
+
+configuration file:
+
+ /etc/drakconf/drakbackup/drakbakup.conf
+
+"));}
+
+ gtkpack($advanced_box,
+ $advanced_box_help = gtkpack_(new Gtk::VBox(0,10),
+ 1, gtkpack_(new Gtk::HBox(0,0),
+ 1, $text,
+ 0, new Gtk::VScrollbar($text->vadj),
+ ),
+ 0, gtkadd(gtkset_layout(new Gtk::HButtonBox, -spread),
+ gtksignal_connect(new Gtk::Button(_("OK")), clicked =>
+ sub { ${$central_widget}->destroy(); $function->(); }),
+ ),
+ )
+ );
+ $central_widget = \$advanced_box_help;
+ $up_box->show_all();
+}
+
+
sub restore_help {