index.cgi: Proper deal with BTRFS volumes

The code now checks if a volume has BTRFS as filesystem and calls the
corresponding function from the newly introduced btrfs-functions
collection in order to calculate how much free space is left on the
volume.

Fixes #13610

Signed-off-by: Stefan Schantl <stefan.schantl@ipfire.org>

diff --git a/html/cgi-bin/index.cgi b/html/cgi-bin/index.cgi
index 14ebab603d1255a5a0e5628952db35457718613e..7b716b374a5689f6b1d8a0a5ecd1802f7045c8cb 100644 (file)
--- a/html/cgi-bin/index.cgi
+++ b/html/cgi-bin/index.cgi
@@ -30,6 +30,7 @@ use Sort::Naturally;
 require '/var/ipfire/general-functions.pl';
 require "${General::swroot}/lang.pl";
 require "${General::swroot}/header.pl";
+require "${General::swroot}/btrfs-functions.pl";
 require "/opt/pakfire/lib/functions.pl";
 
 my %cgiparams=();
@@ -567,6 +568,13 @@ foreach my $line (@df) {
        # Splitt processed line and assign some nice humand-readable values.
        my($dev, $blocks_1k, $used, $available, $used_percent, $mpoint) = split(/\s+/, $line);
 
+       # Check if the current processed disk has BTRFS.
+       if (&BTRFS::is_btrfs($mpoint)) {
+               # Call the corresponding function from BTRFS module to gather the
+               # correct remaining free space in percent.
+               $used_percent = &BTRFS::free_space($mpoint, "percent");
+       }
+
        # Check if more than 90% of disk is consumed.
        if ($used_percent > 90) {
                # Calculate remain free space.