package wpqops; use wpqio; my $DU = "/usr/bin/du -md 0 "; my $MLIMIT = 15360; # in MBytes sub wpqops::do_walk($) { my $v = shift; my @tmp; my $userdir; my $username; my $amount; my $line; my $i; my @blacklisted; @tmp = (`$DU$v`); foreach $line (@tmp) { chomp($line); ($amount, $userdir) = split( /\t/, $line, 2); # # This is bad, but it's better than nothing ;-) # as usual.. $user = substr($userdir, 4); $user = substr($user, 0, -8); if($amount > $MLIMIT) { wpqio::print("$user has exceeded his limit ($amount)\n"); $blacklisted[@blacklisted] = "$user $amount"; } } return \@blacklisted; } return 1;