Server IP : 85.214.239.14 / Your IP : 52.15.173.197 Web Server : Apache/2.4.62 (Debian) System : Linux h2886529.stratoserver.net 4.9.0 #1 SMP Tue Jan 9 19:45:01 MSK 2024 x86_64 User : www-data ( 33) PHP Version : 7.4.18 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals,pcntl_unshare, MySQL : OFF | cURL : OFF | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : OFF Directory : /proc/self/root/usr/share/perl5/Mail/SpamAssassin/Plugin/ |
Upload File : |
# <@LICENSE> # Licensed to the Apache Software Foundation (ASF) under one or more # contributor license agreements. See the NOTICE file distributed with # this work for additional information regarding copyright ownership. # The ASF licenses this file to you under the Apache License, Version 2.0 # (the "License"); you may not use this file except in compliance with # the License. You may obtain a copy of the License at: # # http://www.apache.org/licenses/LICENSE-2.0 # # Unless required by applicable law or agreed to in writing, software # distributed under the License is distributed on an "AS IS" BASIS, # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. # See the License for the specific language governing permissions and # limitations under the License. # </@LICENSE> =head1 NAME Mail::SpamAssassin::Plugin::ResourceLimits - Limit the memory and/or CPU of child spamd processes =head1 SYNOPSIS # This plugin is for admin only and cannot be specified in user config. loadplugin Mail::SpamAssassin::Plugin::ResourceLimits # Sets to RLIMIT_CPU from BSD::Resource. The quota is based on max CPU Time seconds. resource_limit_cpu 120 # Sets to RLIMIT_RSS and RLIMIT_AS via BSD::Resource. resource_limit_cpu 536870912 =head1 DESCRIPTION This module leverages BSD::Resource to assure your spamd child processes do not exceed specified CPU or memory limit. If this happens, the child process will die. See the L<BSD::Resource> for more details. NOTE: Because this plugin uses BSD::Resource, it will not function on Windows. =head1 ADMINISTRATOR SETTINGS =over 4 =item resource_limit_cpu 120 (default: 0 or no limit) How many cpu cycles are allowed on this process before it dies. =item resource_limit_mem 536870912 (default: 0 or no limit) The maximum number of bytes of memory allowed both for: =over =item * (virtual) address space bytes =item * resident set size =back =back =cut package Mail::SpamAssassin::Plugin::ResourceLimits; use Mail::SpamAssassin::Plugin; use Mail::SpamAssassin::Logger; use strict; use warnings; use re 'taint'; use constant HAS_BSD_RESOURCE => eval 'use BSD::Resource qw(RLIMIT_CPU RLIMIT_RSS RLIMIT_AS); 1;'; our @ISA = qw(Mail::SpamAssassin::Plugin); sub new { my $class = shift; my $mailsaobject = shift; $class = ref($class) || $class; my $self = $class->SUPER::new($mailsaobject); bless ($self, $class); if (!HAS_BSD_RESOURCE) { warn "ResourceLimits not used, required module BSD::Resource missing\n"; } $self->set_config($mailsaobject->{conf}); return $self; } sub set_config { my ($self, $conf) = @_; my @cmds; push(@cmds, { setting => 'resource_limit_mem', is_admin => 1, default => 0, type => $Mail::SpamAssassin::Conf::CONF_TYPE_NUMERIC }); push(@cmds, { setting => 'resource_limit_cpu', is_admin => 1, default => 0, type => $Mail::SpamAssassin::Conf::CONF_TYPE_NUMERIC }); $conf->{parser}->register_commands(\@cmds); } if (HAS_BSD_RESOURCE) { eval ' sub spamd_child_init { my ($self) = @_; my $conf = $self->{main}->{conf}; # Set CPU Resource limits if they were specified. dbg("resourcelimits: cpu limit: " . $conf->{resource_limit_cpu}); if ($conf->{resource_limit_cpu}) { BSD::Resource::setrlimit( RLIMIT_CPU, $conf->{resource_limit_cpu}, $conf->{resource_limit_cpu} ) or info("resourcelimits: Unable to set RLIMIT_CPU"); } # Set Resource limits if they were specified. dbg("resourcelimits: mem limit: " . $conf->{resource_limit_mem}); if ($conf->{resource_limit_mem}) { BSD::Resource::setrlimit( RLIMIT_RSS, $conf->{resource_limit_mem}, $conf->{resource_limit_mem} ) or info("resourcelimits: Unable to set RLIMIT_RSS"); BSD::Resource::setrlimit( RLIMIT_AS, $conf->{resource_limit_mem}, $conf->{resource_limit_mem} ) or info("resourcelimits: Unable to set RLIMIT_AS"); } } '; } 1;