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

use Cpanel::LoadFile        ();
use Cpanel::SafeRun::Simple ();
use Cpanel::FindBin         ();

my $file_max = Cpanel::LoadFile::loadfile('/proc/sys/fs/file-max');
if ( $file_max && $file_max < 131072 ) {
    set_file_value( '/proc/sys/fs/file-max', 131072 );
}

$file_max = Cpanel::LoadFile::loadfile('/proc/sys/fs/dquot-max');
if ( $file_max && $file_max < 16384 ) {
    set_file_value( '/proc/sys/fs/dquot-max', 16384 );
}

exit;

sub set_file_value {
    my $file  = shift;
    my $value = shift;
    if ( open( my $fh, '>', $file ) ) {
        print {$fh} $value;
        close($fh);
    }
}