--- nfo/perl/libs/Data/Rap/Engine.pm 2003/05/13 07:56:12 1.10
+++ nfo/perl/libs/Data/Rap/Engine.pm 2003/06/23 17:54:32 1.11
@@ -1,7 +1,10 @@
## ----------------------------------------------------------------------
-## $Id: Engine.pm,v 1.10 2003/05/13 07:56:12 joko Exp $
+## $Id: Engine.pm,v 1.11 2003/06/23 17:54:32 joko Exp $
## ----------------------------------------------------------------------
## $Log: Engine.pm,v $
+## Revision 1.11 2003/06/23 17:54:32 joko
+## prepared execution of in-process perl-code via eval (not activated yet!)
+##
## Revision 1.10 2003/05/13 07:56:12 joko
## enhanced: *hierarchical* containers for context handling
## fixes: some pre-flight checks
@@ -478,6 +481,16 @@
} elsif ($args->{language} eq 'bash') {
$self->log("FIXME: - - - - - -- - - -- BASH - - - - - - - -- - ", 'error');
+
+ } elsif ($args->{language} eq 'perl') {
+
+ # reporting
+ #$self->log("Executing some arbitrary unsigned code (probably unsafe). [language=$args->{language}]", 'info');
+ #$self->log("\n\n$code\n
", 'info');
+
+ # do it
+ #eval($code);
+ #$self->log("\n\n$code\n
", 'error') if $@;
} else {
$self->log("FIXME: Script language '$args->{language}' not implemented.", 'error');