#!/usr/bin/perl
# cpanel10 - rebuildinterchangecfg           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 );
    }
}

if (! -e '/usr/local/cpanel/3rdparty/interchange/interchange.cfg') {
    if (-e '/usr/local/cpanel/3rdparty/interchange/interchange.cfg.dist') {
        system 'cp', '/usr/local/cpanel/3rdparty/interchange/interchange.cfg.dist', 
                '/usr/local/cpanel/3rdparty/interchange/interchange.cfg';
    }
    else {
        die "Interchange not installed.";
    }
}

open( IC, "/usr/local/cpanel/3rdparty/interchange/interchange.cfg" );
my @IC = <IC>;
close(IC);
my $donecat = 0;
open( IC, ">/usr/local/cpanel/3rdparty/interchange/interchange.cfg" );
foreach (@IC) {
    if ( /^\#Catalog/ || /^Catalog/ ) {
        if ( !$donecat ) {
            print IC "#Catalog starts here\n";
            foreach $user (@USERS) {
                my $homedir = ( getpwnam($user) )[7];
                if (   -d "${homedir}/catalogs/${user}"
                    && -e "$homedir/public_html/cgi-bin/cart.cgi" ) {
                    if ( $ARGV[0] ne "--skipperm" ) {
                        system "/scripts/fixinterchangeperm", $user;
                    }
                    print IC "Catalog ${user} ${homedir}/catalogs/${user}  /~${user}/cgi-bin/cart.cgi /~${user}/cgi-bin/cart.cgi\n";
                }
            }
            print IC "#Catalog ends here\n";
        }
        $donecat = 1;
    }
    elsif (/^Inet_Mode/) {
        print IC "Inet_Mode Yes\n";
    }
    else {
        print IC;
    }
}
close(IC);