diff options
Diffstat (limited to 'perl-install/standalone')
| -rwxr-xr-x | perl-install/standalone/drakbackup | 22 |
1 files changed, 18 insertions, 4 deletions
diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup index c10437080..d62950ab2 100755 --- a/perl-install/standalone/drakbackup +++ b/perl-install/standalone/drakbackup @@ -825,8 +825,12 @@ sub build_tape() { if ($log_buff =~ /DR_OPEN/) { show_warning("f", N("No tape in %s!", $conf{TAPE_DEVICE})); return 1; - } - + } + #- enable compression if configured + if ($conf{HDW_COMP}) { + $command = "mt -f $conf{TAPE_DEVICE} compression"; + spawn_progress($command, "Enabling compression"); + } #- try to roll to the end of the data if we're not erasing $command = "mt -f $conf{TAPE_DEVICE} rewind"; # if we're using the rewinding device, change modes briefly @@ -857,7 +861,6 @@ sub build_tape() { $command = "tar -C $cfg_dir -cf $conf{TAPE_DEVICE} drakbackup.label;"; spawn_progress($command, "Creating tape label"); unlink $f; - } # restore device setup if (!$conf{TAPE_NOREWIND}) { @@ -1855,6 +1858,12 @@ sub advanced_where_tape { ), 0, Gtk2::VBox->new(0, 5), 0, gtkpack_(Gtk2::HBox->new(0,10), + 0, gtkset_sensitive(Gtk2::Label->new(N("Use tape hardware compression (EXPERIMENTAL)")), $conf{USE_TAPE}), + 1, Gtk2::VBox->new(0, 5), + 0, gtkset_sensitive(my $hdw_compression = Gtk2::CheckButton->new, $conf{USE_TAPE}), + ), + 0, Gtk2::VBox->new(0, 5), + 0, gtkpack_(Gtk2::HBox->new(0,10), 0, gtkset_sensitive(Gtk2::Label->new(N("Do not rewind tape after backup")), $conf{USE_TAPE}), 1, Gtk2::VBox->new(0, 5), 0, gtkset_sensitive(my $check_tape_rewind = Gtk2::CheckButton->new, $conf{USE_TAPE}), @@ -1902,6 +1911,11 @@ sub advanced_where_tape { destroy_widget(); $current_widget->($previous_function); }); + gtksignal_connect(gtkset_active($hdw_compression, $conf{HDW_COMP}), toggled => sub { + $conf{HDW_COMP} = $conf{HDW_COMP} ? 0 : 1; + destroy_widget(); + $current_widget->($previous_function); + }); gtksignal_connect(gtkset_active($check_tape_erase, $conf{MEDIA_ERASE}), toggled => sub { $conf{MEDIA_ERASE} = $conf{MEDIA_ERASE} ? 0 : 1; destroy_widget(); @@ -4346,7 +4360,7 @@ sub interactive_mode() { $in->isa('interactive::gtk') and $::isWizard = 0; $my_win = ugtk2->new(N("Drakbackup")); $window1 = $my_win->{window}; - + $my_win->{rwindow}->set_size_request(600,440); $my_win->{rwindow}->signal_connect(delete_event => sub { ugtk2->exit(0) }); read_conf_file(); |