diff options
Diffstat (limited to 'perl-install/standalone/drakbackup')
| -rwxr-xr-x | perl-install/standalone/drakbackup | 94 |
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. "), |