#!/usr/bin/perl
use lib '/scripts';
use strict;
use warnings;
my @users;
foreach my $user (qw(cpanel-horde cpanel-phpmyadmin cpanel-phppgadmin cpanel-roundcube)) {
    my $no_dash_user = $user;
    $no_dash_user =~ s/-//g;
    push @users, $no_dash_user, $user;
}
foreach my $user (@users) {
    my @PW = getpwnam($user);
    if ( @PW && $PW[2] ) {
        chown $PW[2], $PW[3], $PW[7];
        system '/scripts/editquota', $user, '0M';
    }
}