#!/usr/bin/perl
# cpanel10 - fixallinterchangeperm           Copyright(c) 1997-2006 cPanel, Inc.
#                                                           All Rights Reserved.
# copyright@cpanel.net                                         http://cpanel.net
# This code is subject to the cPanel license. Unauthorized copying is prohibited

$SIG{'INT'} = {};

my @USERS;
while ( @PW = getpwent() ) {
    my $homedir = $PW[7];
    my $uid     = $PW[2];
    my $user    = $PW[0];
    next if ( $uid < 100 );

    if ( -e "$homedir/catalogs/$user" ) {
        push( @USERS, $user );
    }
}

foreach my $user (@USERS) {
    my $homedir = ( getpwnam($user) )[7];
    if (   -d "${homedir}/catalogs/${user}"
        && -e "$homedir/public_html/cgi-bin/cart.cgi" ) {
        system( "/scripts/fixinterchangeperm", "$user" );
    }
}