#!/usr/bin/perl
# cpanel - fixallcartswithsuexec                  Copyright(c) 2009 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'} = {};

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 $user (@USERS) {
    my $homedir = ( getpwnam($user) )[7];
    if (   -d "${homedir}/catalogs/${user}"
        && -e "$homedir/public_html/cgi-bin/cart.cgi" ) {
        if ( -e "/usr/local/apache/bin/suexec" ) {
            system( "/scripts/fixcartwithsuexec", "$user" );
        }
    }
}