You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
48 lines
915 B
48 lines
915 B
# Perl module for setting process limits
|
|
#
|
|
# (c) 2003 Tomas Valla <tom@ucw.cz>
|
|
#
|
|
# This software may be freely distributed and used according to the terms
|
|
# of the GNU Lesser General Public License.
|
|
#
|
|
#
|
|
#
|
|
# Interface:
|
|
# UCW::Ulimit::setlimit( $resource, $softlimit, $hardlimit)
|
|
# UCW::Ulimit::getlimit( $resource, $softlimit, $hardlimit)
|
|
#
|
|
# setlimit sets limit to values supplied in softlimit and hardlimit
|
|
# getlimit reads limits into softlimit and hardlimit
|
|
# $resource constants are defined below
|
|
#
|
|
|
|
package UCW::Ulimit;
|
|
|
|
use 5.006;
|
|
use strict;
|
|
use warnings;
|
|
|
|
require DynaLoader;
|
|
|
|
our @ISA = qw(DynaLoader);
|
|
unshift @DynaLoader::dl_library_path, "lib";
|
|
|
|
our $CPU = 0;
|
|
our $FSIZE = 1;
|
|
our $DATA = 2;
|
|
our $STACK = 3;
|
|
our $CORE = 4;
|
|
our $RSS = 5;
|
|
our $NPROC = 6;
|
|
our $NOFILE = 7;
|
|
our $MEMLOCK = 8;
|
|
our $AS = 9;
|
|
|
|
our $VERSION = '0.01';
|
|
|
|
bootstrap UCW::Ulimit $VERSION;
|
|
|
|
# Preloaded methods go here.
|
|
|
|
1;
|
|
__END__
|
|
|