diff -ruN e-smith-base-5.2.0.old/root/etc/e-smith/db/configuration/defaults/backupconsole/CompressionLevel e-smith-base-5.2.0/root/etc/e-smith/db/configuration/defaults/backupconsole/CompressionLevel --- e-smith-base-5.2.0.old/root/etc/e-smith/db/configuration/defaults/backupconsole/CompressionLevel 1969-12-31 16:00:00.000000000 -0800 +++ e-smith-base-5.2.0/root/etc/e-smith/db/configuration/defaults/backupconsole/CompressionLevel 2013-06-29 13:25:24.000000000 -0700 @@ -0,0 +1 @@ +-6 diff -ruN e-smith-base-5.2.0.old/root/etc/e-smith/db/configuration/defaults/backupconsole/type e-smith-base-5.2.0/root/etc/e-smith/db/configuration/defaults/backupconsole/type --- e-smith-base-5.2.0.old/root/etc/e-smith/db/configuration/defaults/backupconsole/type 1969-12-31 16:00:00.000000000 -0800 +++ e-smith-base-5.2.0/root/etc/e-smith/db/configuration/defaults/backupconsole/type 2005-11-20 20:28:05.000000000 -0800 @@ -0,0 +1 @@ +configuration diff -ruN e-smith-base-5.2.0.old/root/usr/lib/perl5/site_perl/esmith/console/perform_backup.pm e-smith-base-5.2.0/root/usr/lib/perl5/site_perl/esmith/console/perform_backup.pm --- e-smith-base-5.4.0.old/root/usr/share/perl5/vendor_perl/esmith/console/perform_backup.pm 2013-06-29 12:39:43.000000000 -0700 +++ e-smith-base-5.4.0/root/usr/share/perl5/vendor_perl/esmith/console/perform_backup.pm 2013-06-29 13:29:47.000000000 -0700 @@ -38,7 +38,7 @@ sub make_backup_callback { - my $device = shift; + my ($device, $CompressionLevel) = @_; return sub { my $fh = shift; my @backup_list = esmith::Backup->restore_list; @@ -74,11 +74,11 @@ my $status = 0; my $gzip = open(GZIP, "|-"); - return "could not run gzip" unless defined $gzip; + return "could not run gzip" unless defined $gzip; unless ($gzip) { close $fh; - exec "gzip", "-9"; + exec "gzip", $CompressionLevel; } my $pv = open(PV, "|-"); @@ -131,6 +131,7 @@ $ENV{PATH} = "/bin:/usr/bin"; $ENV{HOME} = "/root"; + my $compressionLevel = $db->get_prop("backupconsole", "CompressionLevel") || "-6"; my ($rc, $choice) = $console->yesno_page ( title => gettext("Create Backup to removable media"), @@ -237,7 +238,7 @@ } close DU; - $console->gauge(make_backup_callback("/mnt/bootstrap-console-backup"), 'title' => gettext("Creating backup file")); + $console->gauge(make_backup_callback("/mnt/bootstrap-console-backup",$compressionLevel), 'title' => gettext("Creating backup file")); system("/bin/umount", "/mnt/bootstrap-console-backup"); rmdir("/mnt/bootstrap-console-backup");