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

BEGIN { unshift @INC, '/usr/local/cpanel'; }

use Cpanel::SafetyBits;

my $user = $ARGV[0];

if ( !$user ) {
    print "Enter username? ";
    chomp( $user = <STDIN> );
}

if ( !$user || !getpwnam($user) ) {
    die "invalid user";
}

my $homedir = ( getpwnam($user) )[7];
if ( !-e "/usr/local/cpanel/3rdparty/interchange/src/tlink" ) {
    system("(cd /usr/local/cpanel/3rdparty/interchange/src;./configure --prefix=/usr;make tlink)");
}

if ( my $pid = fork() ) {
    waitpid( $pid, 0 );
}
else {
    Cpanel::SafetyBits::setuids($user);
    system( "cp", "-f", "/usr/local/cpanel/3rdparty/interchange/src/tlink", "$homedir/public_html/cgi-bin/cart.cgi" );
    chmod( 0755, "$homedir/public_html/cgi-bin/cart.cgi" );
}