Perlbot/perlbuut
1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-07 18:35:49 -04:00
Code Issues Releases Wiki Activity

Node is working!

Browse source
This commit is contained in:
Ryan Voots 2017-05-06 22:12:10 -04:00
parent d6fccbc43f
commit 720843cb54
3 changed files with 15 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/EvalServer/Seccomp.pm
View file

@ -33,6 +33,7 @@ our %rule_sets = (
{syscall => 'munmap'}, {syscall => 'munmap'},
{syscall => 'mremap'}, {syscall => 'mremap'},
{syscall => 'mprotect'}, {syscall => 'mprotect'},
{syscall => 'madvise'},
{syscall => 'brk'}, {syscall => 'brk'},
{syscall => 'exit'}, {syscall => 'exit'},
@ -45,6 +46,7 @@ our %rule_sets = (
{syscall => 'geteuid'}, {syscall => 'geteuid'},
{syscall => 'getcwd'}, {syscall => 'getcwd'},
{syscall => 'getpid'}, {syscall => 'getpid'},
{syscall => 'gettid'},
{syscall => 'getgid'}, {syscall => 'getgid'},
{syscall => 'getegid'}, {syscall => 'getegid'},
{syscall => 'getgroups'}, {syscall => 'getgroups'},

24
lib/eval.pl
View file

@ -73,7 +73,7 @@ my %exec_map = (
'perl5.22' => {bin => '/perl5/perlbrew/perls/perl-5.22.3/bin/perl'}, 'perl5.22' => {bin => '/perl5/perlbrew/perls/perl-5.22.3/bin/perl'},
'perl5.24' => {bin => '/perl5/perlbrew/perls/perl-5.24.0/bin/perl'}, 'perl5.24' => {bin => '/perl5/perlbrew/perls/perl-5.24.0/bin/perl'},
'ruby' => {bin => '/usr/bin/ruby2.1'}, 'ruby' => {bin => '/usr/bin/ruby2.1'},
'node' => {bin => '/langs/node-v7.10.0-linux-x64/bin/node'}, 'node' => {bin => '/langs/node-custom/bin/node'},
); );
no warnings; no warnings;
@ -259,13 +259,15 @@ use Storable qw/nfreeze/; nfreeze([]); #Preload Nfreeze since it's loaded on dem
my $limit = 500 * $meg; my $limit = 500 * $meg;
( (
# setrlimit(RLIMIT_VMEM, 1.5*$limit, 1.5*$limit) setrlimit(RLIMIT_VMEM, 1.5*$limit, 1.5*$limit)
# and and
# setrlimit(RLIMIT_DATA, $limit, $limit ) setrlimit(RLIMIT_AS,1.5*$limit,1.5*$limit)
# and and
# setrlimit(RLIMIT_STACK, $limit, $limit ) setrlimit(RLIMIT_DATA, $limit, $limit )
# and and
setrlimit(RLIMIT_NPROC, 10,10) # CHANGED to 3 for Ruby. Might take it away. setrlimit(RLIMIT_STACK, 30 * $meg, 30*$meg )
and
setrlimit(RLIMIT_NPROC, 20,20) # CHANGED to 3 for Ruby. Might take it away.
and and
setrlimit(RLIMIT_NOFILE, 30,30) setrlimit(RLIMIT_NOFILE, 30,30)
and and
@ -275,8 +277,6 @@ use Storable qw/nfreeze/; nfreeze([]); #Preload Nfreeze since it's loaded on dem
and and
setrlimit(RLIMIT_LOCKS, 5,5) setrlimit(RLIMIT_LOCKS, 5,5)
and and
# setrlimit(RLIMIT_AS,$limit,$limit)
# and
setrlimit(RLIMIT_MEMLOCK,100,100) setrlimit(RLIMIT_MEMLOCK,100,100)
and and
setrlimit(RLIMIT_CPU, 10, 10) setrlimit(RLIMIT_CPU, 10, 10)
@ -423,11 +423,11 @@ Biqsip biqsip 'ugh chan ghitlh lursa' nuh bey' ngun petaq qeng soj tlhej waqboch
sub javascript_code { sub javascript_code {
my ($code) = @_; my ($code) = @_;
my $ft = File::Temp->new(); my $ft = File::Temp->new(SUFFIX=>'.js');
print $ft $code; print $ft $code;
$ft->flush(); $ft->flush();
STDOUT->flush(); STDOUT->flush();
exec($exec_map{'node'}{bin}, qw/--max_old_space_size=64 --max_semi_space_size=64 --optimize_for_size/, "$ft"); exec($exec_map{'node'}{bin}, "--v8-pool-size=1", "$ft");
} }
# sub javascript_code { # sub javascript_code {

2
plugins/eval.pm
View file

@ -66,7 +66,7 @@ sub command {
if( not $type ) { $type = 'perl'; } if( not $type ) { $type = 'perl'; }
warn "Found $type: $code"; warn "Found $type: $code";
if ($command =~ /([ws]+)?eval/i) { if ($command =~ /^([ws]+)?eval/i) {
my $c=$1; my $c=$1;
$code = "use warnings; ".$code if ($c =~ /w/); $code = "use warnings; ".$code if ($c =~ /w/);
$code = "use strict; ".$code if ($c =~ /s/); $code = "use strict; ".$code if ($c =~ /s/);