summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakbackup119
1 files changed, 88 insertions, 31 deletions
diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup
index 97f598488..c1e770e86 100755
--- a/perl-install/standalone/drakbackup
+++ b/perl-install/standalone/drakbackup
@@ -29,6 +29,16 @@
# --build_cd_autoinst
# --backup_now --backup_default_now
# restore user: pbs with list selection
+#
+# CD: only create iso image
+#
+# WARNING: ne pas ecraser les fichiers /etc/passwd fstab
+# after a other install
+#
+# REQUIRE: cron if daemon
+# cvs if version control of /etc directory
+# cdrecord & mkisofs
+#
use Gtk;
use lib qw(/usr/lib/libDrakX );
@@ -39,9 +49,11 @@ use common;
use strict;
my $in = 'interactive'->vnew('', 'default');
+$::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\w+) (\w+)/;
!$::isEmbedded && $in->isa('interactive_gtk') and $::isWizard=1;
+
if ("@ARGV" =~ /--help|-h/) {
print q(Backup and monitoring application
@@ -84,7 +96,6 @@ my $DEBUG = 0;
my $restore_sys = 1;
my $restore_user = 1;
my $restore_other = 1;
-
my @user_backuped = ();
my $sys_backuped = 0;
my $other_backuped = 0;
@@ -101,7 +112,7 @@ my $option_replace = 1;
my $comp_mode = 0;
my $backup_sys = 1;
my $backup_user = 1;
-my $backup_daemon = 0;
+my $backup_daemon = 1;
my $backup_sys_cvs = 1;
my $what_no_browser = 1;
my $remember_pass = 0;
@@ -118,7 +129,7 @@ my $where_net= 0;
my $where_hd = 1;
my $where_cd =0;
my $cd_time = 650;
-my $when_space = 'year';
+my $when_space;
my $cd_with_install_boot = 0;
my $cd_devive = '';
my $host_name = '';
@@ -168,6 +179,7 @@ sub save_conf_file {
"CDRW_DEVICE=$cd_devive\n",
"HOST_NAME=$host_name\n"
);
+
$cd_with_install_boot and push @cfg_list, "CD_WITH_INSTALL_BOOT\n" ;
$remember_pass and push @cfg_list, "LOGIN=$login_user\n" ;
$remember_pass and push @cfg_list, "PASSWD=$passwd_user\n" ;
@@ -187,6 +199,38 @@ sub save_conf_file {
if ($comp_mode) { push @cfg_list, "OPTION_COMP=TAR.BZ2\n"; }
else { push @cfg_list, "OPTION_COMP=TAR.GZ\n"; }
output_p( $cfg_file, @cfg_list);
+ save_cron_files();
+}
+
+
+sub read_cron_files {
+ if (-f '/etc/cron.hourly/drakbackup') { $when_space = 'hourly'; }
+ elsif (-f '/etc/cron.daily/drakbackup') { $when_space = 'daily'; }
+ elsif (-f '/etc/cron.weekly/drakbackup') { $when_space = 'weekly';}
+ elsif (-f '/etc/cron.monthly/drakbackup') { $when_space = 'monthly';}
+ else {$backup_daemon = 0; }
+}
+
+sub save_cron_files {
+ my @cron_file = ("#!/bin/sh\n", "\n", "/seb/cvs/gi/perl-install/standalone --default" );
+
+ if ($backup_daemon) {
+ foreach ('hourly', 'daily', 'weekly', 'monthly'){
+ -f "/etc/cron.$_/drakbackup" and rm_rf("/etc/cron.$_/drakbackup");
+ }
+ if ( $when_space eq _("hourly")) { output_p('/etc/cron.hourly/drakbackup', @cron_file )}
+ elsif ( $when_space eq _("daily")) { output_p('/etc/cron.daily/drakbackup', @cron_file )}
+ elsif ( $when_space eq _("weekly")) { output_p('/etc/cron.weekly/drakbackup', @cron_file )}
+ elsif ( $when_space eq _("monthly")) { output_p('/etc/cron.monthly/drakbackup', @cron_file )}
+ } else {
+ foreach ('hourly', 'daily', 'weekly', 'monthly'){
+ -f "/etc/cron.$_/drakbackup" and rm_rf("/etc/cron.$_/drakbackup");
+ }
+ }
+# -f '/etc/cron.daily/drakbackup' and rm_rf( "/etc/cron.daily/drakbackup");
+# -f '/etc/cron.weekly/drakbackup' and rm_rf( "/etc/cron.weekly/drakbackup");
+# -f '/etc/cron.monthly/drakbackup' and rm_rf( "/etc/cron.monthly/drakbackup");
+
}
sub read_conf_file {
@@ -221,11 +265,12 @@ sub read_conf_file {
if (/^USE_CD/) { $where_cd = 1; }
if (/^USE_NET/) { $where_net = 1; }
if (/^CD_TIME/) { s/^CD_TIME=//gi; $cd_time = $_; }
- if (/^DAEMON_TIME_SPACE/) { s/^DAEMON_TIME_SPACE=//gi; $when_space = $_; }
+# if (/^DAEMON_TIME_SPACE/) { s/^DAEMON_TIME_SPACE=//gi; $when_space = $_; }
if (/^CD_WITH_INSTALL_BOOT/) { $cd_with_install_boot = 1; }
if (/^CDRW_DEVICE/) { s/^CDRW_DEVICE=//gi; $cd_devive = $_;}
if (/^HOST_NAME/) { s/^HOST_NAME=//gi; $host_name = $_;}
}
+ read_cron_files();
$cfg_file_exist = 1;
}
else { $cfg_file_exist = 0; }
@@ -718,9 +763,9 @@ sub advanced {
);
my $combo_when_space = new Gtk::Combo();
- $combo_when_space->set_popdown_strings (_("daily"),_("week"),_("month"),_("year"),);
+ $combo_when_space->set_popdown_strings (_("hourly"),_("daily"),_("weekly"),_("monthly"));
my $box_when = gtkpack_(new Gtk::VBox(0,1),
- 0, gtkpack_(new Gtk::HBox(0,10),
+ 0, gtkpack_(new Gtk::HBox(0,10),
1, _(""),
1, new Gtk::Pixmap($pix_time_map, $pix_time_mask),
0, my $check_when_daemon = new Gtk::CheckButton( _(" Use daemon") ),
@@ -743,10 +788,10 @@ sub advanced {
),
0, new Gtk::HSeparator,
+ 1, _("Please be careful that cron deamon is include on your services. "),
);
$combo_when_space->entry->set_text( $when_space );
- $combo_when_space->entry->signal_connect( 'changed', sub { $when_space = $combo_when_space->entry->get_text()});
-
+ $combo_when_space->entry->signal_connect( 'changed', sub { $when_space = $combo_when_space->entry->get_text(); print $when_space."\n";});
my $box_options = gtkpack_(new Gtk::VBox(0,1),
0, new Gtk::HSeparator,
0, gtkpack_(new Gtk::VBox(0,10),
@@ -758,7 +803,7 @@ sub advanced {
),
0, new Gtk::HSeparator,
0, gtkpack_(new Gtk::VBox(0,10),
- 0, my $check_tar_bz2 = new Gtk::CheckButton( _(" Use Tar and bzip2 ( else use tar and gunzip.)") ),
+ 0, my $check_tar_bz2 = new Gtk::CheckButton( _(" Use Tar and bzip2 ( else use tar and gunzip, very slow)") ),
0, my $check_replace = new Gtk::CheckButton( _(" Replace (no update backup files)")),
0, my $check_backupignore = new Gtk::CheckButton( _(" Use .backupignore files")),
),
@@ -849,6 +894,11 @@ sub find_backup_to_restore {
$DEBUG and print $_."\n" foreach @user_backuped;
}
+sub do_cron {
+
+
+}
+
sub do_restore_backend {
$restore_user and system("cd / && tar xvfz $save_path/backup_user_$_.tar.gz ") foreach @user_list_to_restore;
$restore_sys and system("cd / && tar xvfz $save_path/backup_sys.tar.gz ");
@@ -860,29 +910,33 @@ sub do_restore {
my $do_restore;
gtkpack($retore_box2,
$do_restore = gtkpack_(new Gtk::VBox(0,10),
- 0, new Gtk::VBox(0,10),
- 1, new Gtk::Button(_("RESTORE...... ")),
- 0, gtkpack_(new Gtk::HBox(0,10),
- 0, gtksignal_connect(new Gtk::Button(_(" Previous ")), clicked => sub {
- ${$central_widget}->destroy();
- restore_step2();
- }),
- 1, new Gtk::VBox(0,10),
- 0, gtksignal_connect(new Gtk::Button(_(" Next ")), clicked => sub {
- ${$central_widget}->destroy();
- }),
- ),
- ),
+ 1, new Gtk::VBox(0,10),
+ 1, gtkpack(new Gtk::HBox(0,10),
+ new Gtk::VBox(0,10),
+ gtksignal_connect(new Gtk::Button(_(" Restore ")), clicked => sub {
+ do_restore_backend(); }),
+ new Gtk::VBox(0,10),
+ ),
+ 1, new Gtk::VBox(0,10),
+ 0, gtkpack_(new Gtk::HBox(0,10),
+ 0, gtksignal_connect(new Gtk::Button(_(" Previous ")), clicked => sub {
+ ${$central_widget}->destroy();
+ restore_step2();
+ }),
+ 1, new Gtk::VBox(0,10),
+ 0, gtksignal_connect(new Gtk::Button(_(" Next ")), clicked => sub {
+ ${$central_widget}->destroy();
+ }),
+ ),
+ ),
);
- do_restore_backend();
$central_widget = \$do_restore;
$up_box->show_all();
-
}
sub restore_step_other {
my $retore_step_other;
- print $_."\n" foreach (@user_list_to_restore);
+ $DEBUG and print "user list to restore" . $_."\n" foreach (@user_list_to_restore);
gtkpack($retore_box2,
$retore_step_other = gtkpack_(new Gtk::VBox(0,10),
1, new Gtk::VBox(0,10),
@@ -920,7 +974,7 @@ sub restore_step_other {
my %check_user_to_restore;
sub restore_step_user {
-
+ @user_list_to_restore = @user_backuped;
my $retore_step_user;
gtkpack($retore_box2,
$retore_step_user = gtkpack_(new Gtk::VBox(0,10),
@@ -928,9 +982,13 @@ sub restore_step_user {
0, _("User list to restore "),
1, createScrolledWindow( gtkpack(new Gtk::VBox(0,0),
map { my $name = $_;
- push @user_list_to_restore, $name;
+# push @user_list_to_restore, $name;
my $b = new Gtk::CheckButton($name);
- gtkset_active($b, 1);
+ if ( grep /^$name$/, @user_list_to_restore) {
+ gtkset_active($b, 1);
+ } else {
+ gtkset_active($b, 0);
+ }
$b->signal_connect(toggled => sub {
if ($check_user_to_restore{$name}[1] ) {
print "add : $name \n";
@@ -1000,7 +1058,6 @@ sub restore_step_sys {
}
sub restore_step2 {
- my $un = 1;
my $retore_step2;
gtkpack($retore_box2,
$retore_step2 = gtkpack_(new Gtk::VBox(0,10),
@@ -1013,7 +1070,7 @@ sub restore_step2 {
1, new Gtk::VBox(0,10),
0, gtksignal_connect(new Gtk::Button(_(" Next ")), clicked => sub {
${$central_widget}->destroy();
- if ($restore_sys) { restore_step_sys(); }
+ if ($restore_sys && $backup_sys_cvs) { restore_step_sys(); }
elsif ($restore_user) { restore_step_user();}
elsif ($restore_other){ restore_step_other();}
else{ do_restore();}
@@ -1056,7 +1113,7 @@ sub restore {
1, new Gtk::HBox(0,10),
1, gtkpack_(new Gtk::VBox(0,10),
0, gtksignal_connect(new Gtk::Button(_("Restore all backups (last)")),
- clicked => sub { $retore_box3->destroy(); }),
+ clicked => sub { $retore_box3->destroy(); do_restore(); }),
0, gtksignal_connect(new Gtk::Button(_("Custom Restore")),
clicked => sub { $retore_box3->destroy(); restore_step2(); }),
),