new backup tool.

	backend_mode with options.
        begin interactive mode.

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);
+}
+
+