use strict;
-use lib "__INSTALLDIR__/lib";
+use lib "/usr/local/BackupPC/lib";
use DBI;
use BackupPC::Lib;
use Term::Menus;
use File::Which;
use File::Path;
-use Filesys::Df;
use Cwd qw/abs_path/;
use Data::Dumper;
#---- subs ----
+sub df_bytes_available {
+ my $path = shift;
+ my $out = `df -P $path`;
+ my $bytes = (split(/\s+/, (split(/\n/,$out))[-1]))[3];
+ return $bytes * 1024;
+
+}
+
sub fmt_time {
my $t = shift || return;
my $out = "";
# check available disk space
- my $df = df($iso_dir)->{bavail} || die "can't get free space on $iso_dir";
- $df *= 1024; # calulate space in bytes
+ my $df = df_bytes_available($iso_dir);
if ($df < $v_size) {
warn "ABORTED: not enough disk space to create ISO ! [need ", fmt_mb($v_size), " have ", fmt_mb( $df ), " on $iso_dir]\n";
next;