do not show duplicate devices for quota

This commit is contained in:
Roland Gruber 2018-06-27 14:20:45 +02:00
parent 9422d9d678
commit 516a6b7654
1 changed files with 9 additions and 5 deletions

View File

@ -1,10 +1,8 @@
#! /usr/bin/perl #! /usr/bin/perl
# $Id$
#
# This code is part of LDAP Account Manager (http://www.ldap-account-manager.org/) # This code is part of LDAP Account Manager (http://www.ldap-account-manager.org/)
# Copyright (C) 2003 - 2006 Tilo Lutz # Copyright (C) 2003 - 2006 Tilo Lutz
# Copyright (C) 2006 - 2015 Roland Gruber # Copyright (C) 2006 - 2018 Roland Gruber
# #
# This program is free software; you can redistribute it and/or modify # This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by # it under the terms of the GNU General Public License as published by
@ -70,13 +68,19 @@ sub get_fs { # Load mountpoints from mtab if enabled quotas
Quota::setmntent(); Quota::setmntent();
my $i=0; my $i=0;
my @args; my @args;
my %deviceList;
while (my @temp = Quota::getmntent()) { while (my @temp = Quota::getmntent()) {
if (exists($deviceList{$temp[0]})) {
# skip duplicate devices
next;
}
$args[$i][0] = $temp[0]; $args[$i][0] = $temp[0];
$args[$i][1] = $temp[1]; $args[$i][1] = $temp[1];
$args[$i][2] = $temp[2]; $args[$i][2] = $temp[2];
$args[$i][3] = $temp[3]; $args[$i][3] = $temp[3];
$deviceList{$temp[0]} = 1;
$i++; $i++;
} }
Quota::endmntent(); Quota::endmntent();
my $j=0; my $k=0; $i=0; my $j=0; my $k=0; $i=0;
while ($args[$i][0]) { while ($args[$i][0]) {
@ -363,7 +367,7 @@ sub checkHomedir {
$return = "missing"; $return = "missing";
} }
} }
# #
# Handles all directory related commands # Handles all directory related commands
# #