#!/usr/bin/perl
# cpanel - cpaddonsup                             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 strict;
use Cpanel::SafeRun;

exit                               if -e '/etc/cpaddonsupdisable';
mkdir '/usr/local/cpanel/cpaddons' if !-d '/usr/local/cpanel/cpaddons';
exit                               if !-d '/usr/local/cpanel/cpaddons';

require '/usr/local/cpanel/cpaddons/cPAddonsAvailable.pm';
die $@ if $@;

my @current;

foreach my $namespace ( keys %cPAddonsAvailable::list ) {
    my $dirver = $namespace;
    $dirver =~ s{[:]{2}}{/}g;
    push @current, $namespace if -d "/usr/local/cpanel/cpaddons/$dirver/";
}

if (@current) {
    my $param = 'action=update';
    $param .= '&force=1' if defined $ARGV[0] && $ARGV[0] eq '--force';

    foreach my $cpaddon (@current) {
        $param = join '&', $param, qq{$cpaddon=1};
    }

    if (open my $out_fh, '>', '/var/cpanel/logs/cpaddonsup.' . time() . '.html') {
        print {$out_fh} ( Cpanel::SafeRun::saferunallerrors('/usr/local/cpanel/whostmgr/docroot/cgi/cpaddons.pl', qq{$param}) );
        print {$out_fh} "<p>This was the output from /usr/local/cpanel/whostmgr/docroot/cgi/cpaddons.pl '$param'</p></body></html>\n\n"; 
        close $out_fh;
    }
    else {
        warn "Could not open log file in /var/cpanel/logs/: $!";
        Cpanel::SafeRun::saferunallerrors('/usr/local/cpanel/whostmgr/docroot/cgi/cpaddons.pl', qq{$param});
    }
}