#!/usr/bin/perl
# cpanel - initinstall                            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::OSSys;
use Cpanel::HttpRequest ();

# cPanel already installed
if ( -d '/var/cpanel' && -d '/usr/local/cpanel' ) {
    exit 0;
}

my $httpClient = Cpanel::HttpRequest->new( 'hideOutput' => 0 );

$httpClient->download( "http://httpupdate.cpanel.net/latest", "/home/cpanel-installer.sh" );

my $now = time();

if ( !-e '/home/cpanel-installer.sh' ) {
    die "Failed to download installer.. Will try again next time.\n";
}

print "Install will proceed in background and be logged to /var/log/cpanel-autoinstall.$now.log\n";

if ( my $pid = fork() ) {

}
else {
    open( STDIN,  '<', '/dev/null' );
    open( STDOUT, '>', "/var/log/cpanel-autoinstall.$now.log" );
    open( STDERR, ">&STDOUT" );
    Cpanel::OSSys::setsid();

    chdir('/home');
    exec( 'sh', '/home/cpanel-installer.sh' );
}

exit;