diff options
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakbackup | 185 |
1 files changed, 74 insertions, 111 deletions
diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup index fe75a6938..aa1a24e68 100755 --- a/perl-install/standalone/drakbackup +++ b/perl-install/standalone/drakbackup @@ -39,12 +39,6 @@ # cvs if version control of /etc directory # cdrecord & mkisofs # -# cdrw: /sys/dev/cdrom/info -# /scsi/host0/bus0/target4/lun0 -# -# tar --use-compress-prog=bzip2 xf foo.tar.bz2 - - use Gtk; use lib qw(/usr/lib/libDrakX ); @@ -56,7 +50,8 @@ use strict; my $in = 'interactive'->vnew('', 'default'); $::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\w+) (\w+)/; -!$::isEmbedded && $in->isa('interactive_gtk') and $::isWizard=1; +#!$::isEmbedded && $in->isa('interactive_gtk') and $::isWizard=1; + if ("@ARGV" =~ /--help|-h/) { print q(Backup and monitoring application @@ -151,6 +146,9 @@ foreach (@ARGV) { $mode == 1 and push @list_arg, $_; } +if ($mdk_cc) { $build_floppy || $build_cd || $default || @list_arg || $conf_file ? backend_mod() : interactive_mode(); + } else { $build_floppy || $build_cd || $default || @list_arg || $conf_file ? backend_mod() : interactive_mode_my(); } + sub debug { print "SYS_FILES: $_ \n" foreach (@sys_files); print "HOME_FILES: $_ \n" foreach (@user_list); @@ -200,9 +198,12 @@ sub save_conf_file { $backup_sys_cvs or push @cfg_list, "NO_SYS_CVS\n" ; $option_replace and push @cfg_list, "OPTION_REPLACE\n" ; $backup_sys or push @cfg_list, "NO_SYS_FILES\n"; - 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); + 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(); } @@ -278,9 +279,6 @@ sub read_conf_file { $DEBUG and debug; } -if ($mdk_cc) { $build_floppy || $build_cd || $default || @list_arg || $conf_file ? backend_mod() : interactive_mode(); - } else { $build_floppy || $build_cd || $default || @list_arg || $conf_file ? backend_mod() : interactive_mode_my(); } - sub backend_mod { } @@ -324,26 +322,15 @@ sub return_path { } sub build_backup_files { - -#tar --use-compress-prog=bzip2 xf foo.tar.bz2 - -d $save_path or mkdir_p($save_path); my $path_name; - my $tar_cmd; - my $tar_ext; my @list_other_; - if ($comp_mode) { $tar_cmd = "tar cv --use-compress-program /usr/bin/bzip2 "; $tar_ext = "tar.bz2" } - else { $tar_cmd = "tar cvz "; $tar_ext = "tar.gz"} - if ( $option_replace ) { - $comp_mode and system("cd $save_path && rm -f *.tar.gz"); - $comp_mode or system("cd $save_path && rm -f *.tar.bz2"); - } if ($where_hd) { print "backup_sys @sys_files\n"; - $backup_sys and system("$tar_cmd -f $save_path/backup_sys.$tar_ext @sys_files"); + $backup_sys and system("tar cvfz $save_path/backup_sys.tar.gz @sys_files"); print "backup_other @list_other\n"; if (@list_other) { - system("$tar_cmd -f $save_path/backup_other.$tar_ext @list_other"); + system("tar cvfz $save_path/backup_other.tar.gz @list_other"); foreach (@list_other) { push @list_other_, $_ . "\n"; } @@ -353,8 +340,8 @@ sub build_backup_files { foreach (@user_list) { $path_name = return_path($_); print "path of user: $path_name\n"; - $what_no_browser or system("$tar_cmd -f $save_path/backup_user_$_.$tar_ext $path_name"); - $what_no_browser and system("$tar_cmd --exclude NewCache --exclude Cache --exclude cache -f $save_path/backup_user_$_.$tar_ext $path_name"); + $what_no_browser or system("tar cvfz $save_path/backup_user_$_.tar.gz $path_name"); + $what_no_browser and system("tar cvz --exclude NewCache --exclude Cache --exclude cache -f $save_path/backup_user_$_.tar.gz $path_name | grep cahe"); } } } @@ -385,8 +372,8 @@ sub interactive_mode { if ($option_replace) { $box_cgf_state_replace = _("Replace backups (do not update)"), } else { $box_cgf_state_replace = _("Update backups (do not replace)"), } - if ($comp_mode) { $box_cgf_state_comp = _("Backups use tar and bzip2 "), - } else { $box_cgf_state_comp = _("Backups use tar and gzip"), } + if ($comp_mode) { $box_cgf_state_comp = _("Backups use tar and gunzip "), + } else { $box_cgf_state_comp = _("Backups use tar and gunzip"), } if ($cfg_file_exist) { my $label_cfg_file = new Gtk::Label _("Backup Sources: \n-System Files: @sys_files \n-Users Files: @user_list\n-Other Files to backup: @list_other\nPath to save backups: $save_path\nOptions:\n$box_cgf_state_replace\n$box_cgf_state_comp\n\n"); @@ -525,69 +512,35 @@ sub advanced { my $choice_what_sys; read_conf_file(); - my ($pix_net_map, $pix_net_mask) = gtkcreate_png("../pixmaps/backup_net.png"); - my ($pix_hd_map, $pix_hd_mask) = gtkcreate_png("../pixmaps/backup_hd.png"); - my ($pix_time_map, $pix_time_mask) = gtkcreate_png("../pixmaps/backup_time.png"); - my ($pix_user_map, $pix_user_mask) = gtkcreate_png("../pixmaps/user.png"); - my ($pix_sys_map, $pix_sys_mask) = gtkcreate_png("../pixmaps/bootloader.png"); - my ($pix_other_map, $pix_other_mask) = gtkcreate_png("../pixmaps/net_u.png"); - my ($pix_options_map, $pix_options_mask) = gtkcreate_png("../pixmaps/backup_options.png"); - my ($pix_hd2_map, $pix_hd2_mask) = gtkcreate_png("../pixmaps/hd.png"); - my ($pix_net2_map, $pix_net2_mask) = gtkcreate_png("../pixmaps/net.png"); - my ($pix_cd_map, $pix_cd_mask) = gtkcreate_png("../pixmaps/cdrom.png"); - - my $label_what = gtkpack(new Gtk::VBox( 0, 2), - new Gtk::Pixmap($pix_hd_map, $pix_hd_mask), - _("What backup.") - ); - my $label_where = gtkpack(new Gtk::VBox( 0, 2), - new Gtk::Pixmap($pix_net_map, $pix_net_mask), - _("Where backup.") - ); - my $label_when = gtkpack(new Gtk::VBox( 0, 2), - new Gtk::Pixmap($pix_time_map, $pix_time_mask), - _("When backup.") - ); - - my $label_options = gtkpack(new Gtk::VBox( 0, 2), - new Gtk::Pixmap($pix_options_map, $pix_options_mask), - _("Options") - ); - - my $label_what_sys = gtkpack(new Gtk::HBox( 0, 2), - new Gtk::Pixmap($pix_sys_map, $pix_sys_mask), - _("System", " ") - ); - my $label_what_user = gtkpack(new Gtk::HBox( 0, 2), - new Gtk::Pixmap($pix_user_map, $pix_user_mask), - _("Users", " ") - ); - - my $label_what_other = gtkpack(new Gtk::HBox( 0, 2), - new Gtk::Pixmap($pix_other_map, $pix_other_mask), - _("Other", " ") - ); - - my $label_where_net = gtkpack(new Gtk::HBox( 0, 2), - new Gtk::Pixmap($pix_net2_map, $pix_net2_mask), - _(" Network ") - ); - - my $label_where_cd = gtkpack(new Gtk::HBox( 0, 2), - new Gtk::Pixmap($pix_cd_map, $pix_cd_mask), - _(" CDROM\nDVDROM ") - ); - - my $label_where_hd = gtkpack(new Gtk::HBox( 0, 2), - new Gtk::Pixmap($pix_hd2_map, $pix_hd2_mask), - _(" Hard Drive\n NFS ") - ); +#* my ($pix_net_map, $pix_net_mask) = gtkcreate_png("backup_net.png"); +#* my ($pix_hd_map, $pix_hd_mask) = gtkcreate_png("backup_hd.png"); + my ($pix_time_map, $pix_time_mask) = gtkcreate_png("backup_time.png"); +#* my ($pix_user_map, $pix_user_mask) = gtkcreate_png("user.png"); +#* my ($pix_sys_map, $pix_sys_mask) = gtkcreate_png("bootloader.png"); +#* my ($pix_other_map, $pix_other_mask) = gtkcreate_png("net_u.png"); + my ($pix_options_map, $pix_options_mask) = gtkcreate_png("backup_options.png"); +#* my ($pix_hd2_map, $pix_hd2_mask) = gtkcreate_png("hd.png"); +#* my ($pix_net2_map, $pix_net2_mask) = gtkcreate_png("net.png"); +#* my ($pix_cd_map, $pix_cd_mask) = gtkcreate_png("cdrom.png"); + +my ($label_what, $label_where, $label_when, $label_options, $label_what_sys, $label_what_user, $label_what_other, $label_where_net, $label_where_cd, $label_where_hd) = map { gtkpack($_->[2] ? new Gtk::VBox(0, 2) : new Gtk::HBox(0, 2), gtkpng($_->[0]), $_->[1]) } + (['backup_hd', _('What backup.'), 1], + ['backup_net', _('Where backup.'), 1], + ['backup_time', _("When backup."), 1], + ['backup_options', _("Options"), 1], + ['bootloader', _('System'), 0], + ['user', _('Users'), 0], + ['net_u', _('Other'), 0], + ['net', _('Network'), 0], + ['cdrom', _('CDROM\nDVDROM'), 0], + ['hd', _('Hard Drive\n NFS'), 0], + ); my $box_what_sys = gtkpack_(new Gtk::VBox(0,1), 1, _("\nPlease check all options that you need.\n"), 1, _("This options can backup and restore all files on your /etc directory.\n"), - 0, my $check_what_sys = new Gtk::CheckButton( _(" Backup your System files. (~ 2Mo)")), - 0, my $check_what_cvs = new Gtk::CheckButton( _(" Need to restore any versions.(~ 10Mo)") ), + 0, my $check_what_sys = new Gtk::CheckButton( _("Backup your System files. (~ 2Mo)")), + 0, my $check_what_cvs = new Gtk::CheckButton( _("Need to restore any versions.(~ 10Mo)") ), 0, _("With this option you will be able to restore any version\n of your /etc directory."), 1, " ", ); @@ -643,6 +596,7 @@ sub advanced { my $box_where_net = gtkpack_(new Gtk::VBox(0,1), 0, new Gtk::HSeparator, 0, my $check_where_net = new Gtk::CheckButton( _(" Use Network to backup") ), +# 0, my $check_where_net_daemon = new Gtk::CheckButton( _(" Use Network with daemon") ), 0, new Gtk::HSeparator, 0, gtkpack_(new Gtk::HBox(0,10), 1, _("please choose your protocol"), @@ -694,7 +648,7 @@ sub advanced { my $box_where_hd = gtkpack_(new Gtk::VBox(0,1), 0, new Gtk::HSeparator, 0, my $check_where_hd = new Gtk::CheckButton( _(" Use Hard Disk to backup") ), - +# 0, my $check_where_hd_daemon = new Gtk::CheckButton( _(" Use Hard Disk with daemon") ), 0, new Gtk::HSeparator, 0, gtkpack_(new Gtk::HBox(0,10), 0, _(" "), @@ -724,7 +678,7 @@ sub advanced { my $box_where_cd = gtkpack_(new Gtk::VBox(0,1), 0, new Gtk::HSeparator, 0, my $check_where_cd = new Gtk::CheckButton( _(" Use CD/DVDROM to backup") ), - +# 0, my $check_where_cd_daemon = new Gtk::CheckButton( _(" Use CD/DVDROM with daemon") ), 0, new Gtk::HSeparator, 0, gtkpack_(new Gtk::HBox(0,10), 1, _("please choose your CD space"), @@ -904,6 +858,8 @@ sub find_backup_to_restore { } sub do_cron { + + } sub do_restore_backend { @@ -911,7 +867,6 @@ sub do_restore_backend { $restore_sys and system("cd / && tar xvfz $save_path/backup_sys.tar.gz "); $restore_other and system("cd / && tar xvfz $save_path/backup_other.tar.gz "); -# decomp: bzcat nomdufichier.tar.bz2 | tar xv } sub do_restore { @@ -927,6 +882,14 @@ sub do_restore { ), 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(); + }), ), ), ); @@ -1090,9 +1053,9 @@ sub restore_step2 { sub restore { my $retore_box; my $retore_box3; - my ($pix_u_map, $pix_u_mask) = gtkcreate_png("../pixmaps/backup_title.png"); - my ($pix_l_map, $pix_l_mask) = gtkcreate_png("../pixmaps/backup_left2.png"); - my ($pix_r_map, $pix_r_mask) = gtkcreate_png("../pixmaps/backup_bot2.png"); + my ($pix_u_map, $pix_u_mask) = gtkcreate_png("backup_title.png"); + my ($pix_l_map, $pix_l_mask) = gtkcreate_png("backup_left2.png"); + my ($pix_r_map, $pix_r_mask) = gtkcreate_png("backup_bot2.png"); my $check_restore_sys; my $check_restore_user; my $check_restore_other; @@ -1102,9 +1065,9 @@ sub restore { if ($other_backuped || $sys_backuped || @user_backuped) { gtkpack($up_box, $retore_box = gtkpack_(new Gtk::VBox(0,1), - 0, new Gtk::Pixmap($pix_u_map, $pix_u_mask), + 0, gtkpng('backup_title'), 1, gtkpack_(new Gtk::HBox(0, 0), - 0, new Gtk::Pixmap($pix_l_map, $pix_l_mask), + 0, gtkpng('backup_left2'), 1, gtkadd(new Gtk::Frame(_("Restoration Step.")), $retore_box2 = gtkpack(new Gtk::VBox(0,10), $retore_box3 = gtkpack_(new Gtk::VBox(0,10), @@ -1121,7 +1084,7 @@ sub restore { ), 1, new Gtk::HBox(0,10), ),),),), - 0, new Gtk::Pixmap($pix_r_map, $pix_r_mask), + 0, gtkpng('backup_bot2'), 0, new Gtk::HSeparator, 0, gtkpack_(new Gtk::HBox(0, 0), 1, gtkpack_(new Gtk::HButtonBox, @@ -1192,16 +1155,16 @@ sub interactive_mode_my { $window1->set_position(1); $window1->set_title(_("Drakbackup")); - my ($pix_u_map, $pix_u_mask) = gtkcreate_png("../pixmaps/backup_title.png"); - my ($pix_l_map, $pix_l_mask) = gtkcreate_png("../pixmaps/backup_left.png"); - my ($pix_r_map, $pix_r_mask) = gtkcreate_png("../pixmaps/backup_bot.png"); + my ($pix_u_map, $pix_u_mask) = gtkcreate_png("backup_title.png"); + my ($pix_l_map, $pix_l_mask) = gtkcreate_png("backup_left.png"); + my ($pix_r_map, $pix_r_mask) = gtkcreate_png("backup_bot.png"); read_conf_file(); $backup_sys or $box_cgf_state_sys = _("Do not include System Files"); if ($option_replace) { $box_cgf_state_replace = _("Replace backups (do not update)"), } else { $box_cgf_state_replace = _("Update backups (do not replace)"), } - if ($comp_mode) { $box_cgf_state_comp = _("Backups use tar and bzip2 "), - } else { $box_cgf_state_comp = _("Backups use tar and gzip"), } + if ($comp_mode) { $box_cgf_state_comp = _("Backups use tar and gzip "), + } else { $box_cgf_state_comp = _("Backups use tar and bzip"), } if ($cfg_file_exist) { my $label_cfg_file = new Gtk::Label _("Backup Sources: \n-System Files: @sys_files \n-Users Files: @user_list\n-Other Files: @list_other\nPath to save backups: $save_path\nOptions:\n$box_cgf_state_replace\n$box_cgf_state_comp\n$box_cgf_state_sys\n"); $box_cfg_state = gtkpack(new Gtk::VBox( 0, 0), gtkset_justify( $label_cfg_file , 'left'), @@ -1269,12 +1232,12 @@ sub after_adv { $window1->set_position(1); $window1->set_title(_("Drakbackup")); - my ($pix_u_map, $pix_u_mask) = gtkcreate_png("../pixmaps/backup_title.png"); - my ($pix_l_map, $pix_l_mask) = gtkcreate_png("../pixmaps/backup_left.png"); - my ($pix_b_map, $pix_b_mask) = gtkcreate_png("../pixmaps/backup_bot2.png"); - my ($pix_cd_map, $pix_cd_mask) = gtkcreate_png("../pixmaps/cdrom.png"); - my ($pix_hd2_map, $pix_hd2_mask) = gtkcreate_png("../pixmaps/hd.png"); - my ($pix_quit_map, $pix_quit_mask) = gtkcreate_png("../pixmaps/quit.png"); + my ($pix_u_map, $pix_u_mask) = gtkcreate_png("backup_title.png"); + my ($pix_l_map, $pix_l_mask) = gtkcreate_png("backup_left.png"); + my ($pix_b_map, $pix_b_mask) = gtkcreate_png("backup_bot2.png"); + my ($pix_cd_map, $pix_cd_mask) = gtkcreate_png("cdrom.png"); + my ($pix_hd2_map, $pix_hd2_mask) = gtkcreate_png("hd.png"); + my ($pix_quit_map, $pix_quit_mask) = gtkcreate_png("quit.png"); my $button_burn_cd = new Gtk::Button(); $button_burn_cd->add( gtkpack(new Gtk::HBox( 0, 2), @@ -1302,8 +1265,8 @@ sub after_adv { if ($option_replace) { $box_cgf_state_replace = _("Replace backups (do not update)"), } else { $box_cgf_state_replace = _("Update backups (do not replace)"), } - if ($comp_mode) { $box_cgf_state_comp = _("Backups use tar and bzip2 "), - } else { $box_cgf_state_comp = _("Backups use tar and gzip"), } + if ($comp_mode) { $box_cgf_state_comp = _("Backups use tar and gunzip "), + } else { $box_cgf_state_comp = _("Backups use tar and gunzip"), } if ($cfg_file_exist) { my $label_cfg_file = new Gtk::Label _("Backup Sources: \n-System Files: @sys_files \n-Users Files: @user_list\n-Other Files to backup: @list_other\nPath to save backups: $save_path\nOptions:\n$box_cgf_state_replace\n$box_cgf_state_comp\n$box_cgf_state_sys\n"); |