diff options
| author | fukachan <fukachan> | 2002-04-26 10:29:12 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-04-26 10:29:12 +0000 |
| commit | f18acdd8a89b4557c57abb57f0424ac2c0eac5b7 (patch) | |
| tree | 7efe500bd484613e4077bfa5f2700217daf09574 /fml/lib/FML/Process/Kernel.pm | |
| parent | a76f5a85c06a87869719aae460b42e6d2fdb4d80 (diff) | |
| download | fml8-f18acdd8a89b4557c57abb57f0424ac2c0eac5b7.tar.gz fml8-f18acdd8a89b4557c57abb57f0424ac2c0eac5b7.tar.bz2 fml8-f18acdd8a89b4557c57abb57f0424ac2c0eac5b7.zip | |
permit_commands_for_stranger works
Diffstat (limited to 'fml/lib/FML/Process/Kernel.pm')
| -rw-r--r-- | fml/lib/FML/Process/Kernel.pm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/fml/lib/FML/Process/Kernel.pm b/fml/lib/FML/Process/Kernel.pm index e0c8dd59..299d1352 100644 --- a/fml/lib/FML/Process/Kernel.pm +++ b/fml/lib/FML/Process/Kernel.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: Kernel.pm,v 1.87 2002/04/23 14:10:33 fukachan Exp $ +# $FML: Kernel.pm,v 1.88 2002/04/26 09:19:35 fukachan Exp $ # package FML::Process::Kernel; @@ -538,7 +538,12 @@ sub _check_restrictions } } elsif ($rule eq 'permit_commands_for_stranger') { - return 0; + use FML::Command::DataCheck; + my $check = new FML::Command::DataCheck; + if ($check->find_commands_for_stranger($curproc)) { + Log("$rule matched. accepted."); + return 1; + } } elsif ($rule eq 'reject') { $pcb->set("check_restrictions", "deny_reason", $rule); |