--- 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<code>\n$code\n</code>", 'info');
+    
+    # do it
+    #eval($code);
+    #$self->log("\n<code>\n$code\n</code>", 'error') if $@;
     
   } else {
     $self->log("FIXME: Script language '$args->{language}' not implemented.", 'error');