#!/usr/bin/perl
# cpanel12 - safeimagemagicktester                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

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";
}

printf("Status: %d\n", getimkstatus());
    
sub getimkstatus {
    my $brokeninstall = shift;
    return if $brokeninstall;

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