ucw/perl/Ulimit/Ulimit.pm

   1 # Perl module for setting process limits
   2 #
   3 # (c) 2003 Tomas Valla <tom@ucw.cz>
   4 #
   5 # This software may be freely distributed and used according to the terms
   6 # of the GNU Lesser General Public License.
   7 #
   8 #
   9 #
  10 # Interface:
  11 #   UCW::Ulimit::setlimit( $resource, $softlimit, $hardlimit)
  12 #   UCW::Ulimit::getlimit( $resource, $softlimit, $hardlimit)
  13 #
  14 # setlimit sets limit to values supplied in softlimit and hardlimit
  15 # getlimit reads limits into softlimit and hardlimit
  16 # $resource constants are defined below
  17 #
  18
  19 package UCW::Ulimit;
  20
  21 use 5.006;
  22 use strict;
  23 use warnings;
  24
  25 require DynaLoader;
  26
  27 our @ISA = qw(DynaLoader);
  28 unshift @DynaLoader::dl_library_path, "lib";
  29
  30 our $CPU = 0;
  31 our $FSIZE = 1;
  32 our $DATA = 2;
  33 our $STACK = 3;
  34 our $CORE = 4;
  35 our $RSS = 5;
  36 our $NPROC = 6;
  37 our $NOFILE = 7;
  38 our $MEMLOCK = 8;
  39 our $AS = 9;
  40
  41 our $VERSION = '0.01';
  42
  43 bootstrap UCW::Ulimit $VERSION;
  44
  45 # Preloaded methods go here.
  46
  47 1;
  48 __END__