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

use strict;


eval "use BSD::Resource qw(setrlimit RLIM_INFINITY RLIMIT_RSS RLIMIT_AS);";
my $has_bsd_resource = $@ ? 0 : 1;

if ($has_bsd_resource) {
    my $maxmem = ( 128 * ( 1024 * 1024 ) );

    setrlimit( RLIMIT_RSS(), $maxmem, $maxmem )
        || print STDERR "$$: Unable to set RLIMIT_RSS\n";
    setrlimit( RLIMIT_AS(), $maxmem, $maxmem )
        || print STDERR "$$: Unable to set RLIMIT_AS\n";
}

my $hasimk = 0;
eval {
    require Image::Magick;
    my $p = new Image::Magick;
    $hasimk = 1;
};

if ($hasimk) {
    print "ok\n";
}
else {
    print "missing\n";
}