#!/usr/bin/perl
# cpanel - fixeverything                          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::Tar ();

system("/scripts/fixquotas");
system("/scripts/fixcommonproblems");

my ( $tar_status, $tar_message ) = Cpanel::Tar::checkperm();
if ( !$tar_status ) {
    exit 1;
}