summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorSebastien Dupont <sdupont@mandriva.com>2001-11-26 18:21:42 +0000
committerSebastien Dupont <sdupont@mandriva.com>2001-11-26 18:21:42 +0000
commit7e2be8c58f81f549fb646c525672c0811851f60d (patch)
treee75bdfdc3831eee99f9d6d9f3015f07c7a57afaa /perl-install
parent84751298cfacac787e346c9ee9097efb8ee5c637 (diff)
downloaddrakx-backup-do-not-use-7e2be8c58f81f549fb646c525672c0811851f60d.tar
drakx-backup-do-not-use-7e2be8c58f81f549fb646c525672c0811851f60d.tar.gz
drakx-backup-do-not-use-7e2be8c58f81f549fb646c525672c0811851f60d.tar.bz2
drakx-backup-do-not-use-7e2be8c58f81f549fb646c525672c0811851f60d.tar.xz
drakx-backup-do-not-use-7e2be8c58f81f549fb646c525672c0811851f60d.zip
wizard steps & passwd parse, etc...
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakbackup94
1 files changed, 78 insertions, 16 deletions
diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup
index 2b24043f6..48cabc782 100755
--- a/perl-install/standalone/drakbackup
+++ b/perl-install/standalone/drakbackup
@@ -39,6 +39,9 @@ use my_gtk qw(:helpers :wrappers);
use common;
use strict;
+my $in = 'interactive'->vnew('', 'default');
+!$::isEmbedded && $in->isa('interactive_gtk') and $::isWizard=1;
+
if ("@ARGV" =~ /--help|-h/) {
print q(Backup and monitoring application
@@ -75,7 +78,6 @@ my $cfg_file_exist = 0;
# config. FILES -> PATH & Global variables.
my @sys_files = ("/etc");
- # fixme check system to find all users.
my @home_files = ("/home/seb") ;
my @other_files = ("/var/www") ;
my $cfg_file = "/etc/drakxtools/drakbackup/drakbackup.conf";
@@ -109,9 +111,19 @@ sub debug {
}
+sub read_passwd {
+#foreach (grep /[5-9][0-9][0-9]/, cat_('/etc/passwd'));
+#grep 5[0-9][0-9], cat_('/etc/passwd');
+
+
+
+
+}
+
+
sub save_conf_file {
# perl -ne 'split(":");print "$_[0]:*:$_[2]:$_[3]:::\n";' /etc/passwd > passwd
-# gawk -F":" '{ if ($3 >= 500 ) print "login " $1 " uid = " $3 " rép perso : " $6}' /etc/passwdgawk -F":" '{ if ($3 >= 500 ) print "login " $1 " uid = " $3 " rép perso : " $6}' /etc/passwd
+# gawk -F":" '{ if ($3 >= 500 ) print "login " $1 " uid = " $3 " rép perso : " $6}' /etc/passwd
my @cfg_list = ( "SYS_FILES=@sys_files\n",
"HOME_FILES=@home_files\n",
"OTHER_FILES=@other_files\n",
@@ -130,8 +142,7 @@ sub save_conf_file {
sub read_conf_file {
if (-e $cfg_file) {
- open ( CONF_FILE, "<"."$cfg_file") || die;
- while (<CONF_FILE>) {
+ while (cat_ ('$cfg_file')) {
next unless /\S/;
next if /^#/;
chomp;
@@ -142,7 +153,6 @@ sub read_conf_file {
if (/^OPTION_REPLACE/) { $option_replace = 1; }
if (/^OPTION_COMP/) { s/^OPTION_COMP=//gi; /TAR.GZ/ and $comp_mode = 0; /TAR.BZ2/ and $comp_mode = 1; }
}
- close CONF_FILE;
$cfg_file_exist = 1;
} else {
$cfg_file_exist = 0;
@@ -226,10 +236,12 @@ sub interactive_mode {
),
0, new Gtk::HSeparator,
0, gtkpack_(gtkset_layout(new Gtk::HButtonBox, -end),
- 1, gtksignal_connect(new Gtk::Button(_("Advanced Configuration")), clicked =>
+ 1, gtksignal_connect(new Gtk::Button(_("Advanced Conf.")), clicked =>
sub { ${$central_widget}->destroy(); advanced() }),
- 1, gtksignal_connect(new Gtk::Button(_("Wizard Configuration")), clicked =>
+ 1, gtksignal_connect(new Gtk::Button(_("Wizard Conf.")), clicked =>
sub { ${$central_widget}->destroy(); wizard() }),
+ 1, gtksignal_connect(new Gtk::Button(_("About")), clicked =>
+ sub { ${$central_widget}->destroy(); about() }),
1, gtksignal_connect(new Gtk::Button(_("close")), clicked =>
sub { save_conf_file(); Gtk->main_quit() }),
),
@@ -283,7 +295,7 @@ sub about {
),
0, gtkadd(gtkset_layout(new Gtk::HButtonBox, -spread),
gtksignal_connect(new Gtk::Button(_("OK")), clicked =>
- sub { ${$central_widget}->destroy(); retore_window }),
+ sub { ${$central_widget}->destroy(); interactive_mode() }),
),
)
);
@@ -348,14 +360,41 @@ configuration file:
sub wizard {
- my $wizard_box;
-
- gtkpack($up_box,
- new Gtk::VBox(0,10),
- $wizard_box = new Gtk::FontSelection,
- );
- $central_widget = \$wizard_box;
- $up_box->show_all();
+ my $intf;
+ my $user = 1;
+ my $user2;
+
+ my $module;
+ my $text;
+ begin:
+ $::isWizard=1;
+
+ step_what_backup:
+# $::Wizard_no_previous = 1;
+ $in->ask_from(_("Please choose that you want to backup"),
+ (_("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 => _("") },
+
+ ],
+ ),
+
+
+ my $r = $in->ask_from_list_(_("Backup Configuration wizard"),
+ _("Please choose what you need to backup from 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);
+
}
sub after_adv {
@@ -548,6 +587,29 @@ sub advanced {
+# step_where_backup:
+# undef $::Wizard_no_previous;
+# my $r2 = $in->ask_from_list_(_("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);
+
+
+
+# print "$r AAAA \n";
+#$r eq "Hard Drive" and do something
+
+# my $wizard_box;
+
+# gtkpack($up_box,
+# new Gtk::VBox(0,10),
+# $wizard_box = new Gtk::FontSelection,
+# );
+# $central_widget = \$wizard_box;
+# $up_box->show_all();
+
+
+
# 0, gtktext_insert(gtkset_editable($text2, 0), _("Drakbackup allow you to build a backup of your system. With Drakbackup you will be able to save your backups on your Hard-disk or on CD, across the network with mandrake-online or other place, it accept ftp, sftp, scp, rsync, nfs. "),