summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorSebastien Dupont <sdupont@mandriva.com>2001-11-12 17:44:55 +0000
committerSebastien Dupont <sdupont@mandriva.com>2001-11-12 17:44:55 +0000
commit8b4882a2d80354b74c6f5e51a38f7fd06bd46855 (patch)
treecec24a072d03271d3a5cbb5ffc4ea3722818fe70 /perl-install
parent477139b1a28f2542dc06d97a6bfe3e4652fcb59c (diff)
downloaddrakx-backup-do-not-use-8b4882a2d80354b74c6f5e51a38f7fd06bd46855.tar
drakx-backup-do-not-use-8b4882a2d80354b74c6f5e51a38f7fd06bd46855.tar.gz
drakx-backup-do-not-use-8b4882a2d80354b74c6f5e51a38f7fd06bd46855.tar.bz2
drakx-backup-do-not-use-8b4882a2d80354b74c6f5e51a38f7fd06bd46855.tar.xz
drakx-backup-do-not-use-8b4882a2d80354b74c6f5e51a38f7fd06bd46855.zip
new backup tool.
backend_mode with options. begin interactive mode.
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakbackup219
1 files changed, 219 insertions, 0 deletions
diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup
new file mode 100755
index 000000000..78d98e932
--- /dev/null
+++ b/perl-install/standalone/drakbackup
@@ -0,0 +1,219 @@
+#!/usr/bin/perl
+#
+# Copyright (C) 2001 by Sebastien DUPONT <sdupont@mandrakesoft.com>
+# Redistribution of this file is permitted under the terms of the GNU
+# Public License (GPL)
+## 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 /
+# backup_sys_12102001.tar.gz -> default system backup
+# backup_sys_etc_var_proc_12102001.tar.gz -> specific system directories
+# backup_user_james_12102001.tar.gz -> default user backup
+# backup_user_james_documents_12102001.tar.gz -> specific user directories
+# backup_other_proc_12102001.tar.gz -> specific other directories
+#
+# backup name rules: system: begin by sys
+# user: begin by user
+# other: begin by other
+# end of all `date`.tar.gz
+#
+# seems to be good idea to have a txt file where user explain the differences
+# between all the backup
+#
+# save only the differences...
+# find / -mtime -1 \! -type d -print > /tmp/liste.jour
+#
+# build iso fs with rescue.
+#
+# configuration file on /etc/drakconf/drakbackup/drakbakup.conf
+#
+
+use Gtk;
+use lib qw(/usr/lib/libDrakX);
+use interactive;
+use standalone;
+use my_gtk qw(:helpers :wrappers);
+use common;
+use strict;
+
+
+if ("@ARGV" =~ /--help|-h/) {
+ print q(Backup and monitoring application
+
+--list : list of files or directories to backup.
+--default : save default directories.
+--build_cd : build restore iso with the currents backups files
+ & rescue options.
+--build_floppy : build restore floppy.
+--update : don t replace the old backup, only update it.
+--replace : delete backup files before build new.
+--save_dir : by default the backup files are saved in
+ in /var/backup directory so write other directory
+ to change to change it.
+--conf_file : to read other configuration file.
+);
+ exit(0);
+}
+
+# Backend Options.
+my $default = 0;
+my $build_cd = 0;
+my $build_floppy = 0;
+my $comp_mode = 0;
+my $mode = 0;
+my $replace = 0;
+my $update = 0;
+my $conf_file = 0;
+my @list_arg = ();
+my @sys_files ;
+my @home_files;
+my @other_files;
+my $save_path;
+my $option_replace = 0;
+my $option_update = 0;
+my $windows = 0;
+my $central_widget;
+my $interactive;
+
+
+# PATH & Global variables.
+my $cfg_file = "/etc/drakconf/drakbackup/drakbackup.conf";
+
+
+
+foreach (@ARGV) {
+ /--default/ and $default = 1, $mode=-1;
+ /--build_cd/ and $build_cd = 1, $mode=-1;
+ /--build_floppy/ and $build_floppy = 1, $mode=-1;
+ /--replace|-r/ and $replace = 1, $mode=-1;
+ /--update|-u/ and $update = 1, $mode=-1;
+ /--conf_file/ and $mode = 0, next;
+# $mode == 0 and push $conf_file, $_;
+ /--list/ and $mode = 1, next;
+ $mode == 1 and push @list_arg, $_;
+}
+
+sub debug {
+ print "SYS_FILES: $_ \n" foreach (@sys_files);
+ print "HOME_FILES: $_ \n" foreach (@home_files);
+ print "OTHER_FILES: $_ \n" foreach (@other_files);
+ print "PATH_TO_SAVE: $save_path \n";
+ print "OPTION_REPLACE: $option_replace \n";
+ print "OPTION_UPDATE: $option_update \n";
+ print "OPTION_COMP: $comp_mode \n";
+}
+
+sub read_conf_file {
+ foreach (cat_("$cfg_file")) {
+ if (/^SYS_FILES/) {
+ chomp;
+ s/^SYS_FILES=//gi;
+ @sys_files = split(' ', $_ );
+ }
+ if (/^HOME_FILES/) {
+ chomp;
+ s/^HOME_FILES=//gi;
+ @home_files = split(' ', $_ );
+ }
+ if (/^OTHER_FILES/) {
+ chomp;
+ s/^OTHER_FILES=//gi;
+ @other_files = split(' ', $_ );
+ }
+ if (/^PATH_TO_SAVE/) {
+ chomp;
+ $save_path = $_;
+ }
+ if (/^OPTION_REPLACE/){
+ $option_replace = 1;
+ $option_update = 0;
+ }
+ if (/^OPTION_UPDATE/){
+ $option_replace = 0;
+ $option_update = 1;
+ }
+ if (/^OPTION_COMP/) {
+ chomp;
+ s/^OPTION_COMP=//gi;
+ /TAR.GZ/ and $comp_mode = 0;
+ /TAR.BZ2/ and $comp_mode = 1;
+ }
+ }
+ debug;
+}
+
+$build_floppy || $build_cd || $default || @list_arg || $conf_file ? backend_mod() : interactive_mode();
+
+sub backend_mod {
+ read_conf_file();
+}
+
+sub build_cd_fct {
+
+}
+
+sub build_floppy_fct {
+
+}
+
+sub build_backup_files {
+
+}
+
+sub interactive_mode {
+ my $font_box;
+ my $font_sel;
+ $interactive = 1;
+
+ init Gtk;
+
+ 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(_("Fonts Importation"));
+ $window1->set_border_width(5);
+
+ gtkadd($window1,
+ gtkpack_(new Gtk::HBox(0,2),
+ 1, gtkpack_(new Gtk::VBox(0,2),
+ 1, new Gtk::VBox(0,0),
+ 1, gtkpack(gtkset_usize($font_box = new Gtk::VBox(0,5),500, 350),
+ $font_sel = new Gtk::FontSelection,
+ ),
+ 1, new Gtk::VBox(0,0)
+ ),
+ 0, gtkpack_(new Gtk::VBox(0,5),
+ 0, _("DrakFont"),
+ 0, gtkadd(gtkset_layout(new Gtk::VButtonBox, -end),
+ gtksignal_connect(new Gtk::Button(_("Windows Importation")), clicked =>
+ sub { ${$central_widget}->destroy(); $windows = 1; license(\&appli_choice)}),
+ gtksignal_connect(new Gtk::Button(_("Advanced Importation")), clicked =>
+ sub { ${$central_widget}->destroy(); $windows = 0; license(\&advanced_install)}),
+ gtksignal_connect(new Gtk::Button(_("Uninstall Fonts")), clicked =>
+ sub { ${$central_widget}->destroy(); uninstall() }),
+ gtksignal_connect(new Gtk::Button(_("Font List")), clicked =>
+ sub { ${$central_widget}->destroy(); create_fontsel()}),
+ ),
+ 1, new Gtk::VBox(0,0),
+ 1, gtkadd(gtkset_layout(new Gtk::VButtonBox, -end),
+ gtksignal_connect(new Gtk::Button(_(" Help ")), clicked => sub {
+ ${$central_widget}->destroy(); help() }),
+ gtksignal_connect(new Gtk::Button(_("Close")), clicked => sub { Gtk->main_quit() }),
+ ),
+ )
+ ),
+ );
+ $central_widget = \$font_sel;
+ $window1->show_all;
+ $window1->realize;
+ $window1->show_all();
+
+ Gtk->main;
+ Gtk->exit(0);
+}
+
+