2 |
## $Id$ |
## $Id$ |
3 |
## ---------------------------------------------------------------------- |
## ---------------------------------------------------------------------- |
4 |
## $Log$ |
## $Log$ |
5 |
|
## Revision 1.11 2003/06/23 17:54:32 joko |
6 |
|
## prepared execution of in-process perl-code via eval (not activated yet!) |
7 |
|
## |
8 |
## Revision 1.10 2003/05/13 07:56:12 joko |
## Revision 1.10 2003/05/13 07:56:12 joko |
9 |
## enhanced: *hierarchical* containers for context handling |
## enhanced: *hierarchical* containers for context handling |
10 |
## fixes: some pre-flight checks |
## fixes: some pre-flight checks |
481 |
|
|
482 |
} elsif ($args->{language} eq 'bash') { |
} elsif ($args->{language} eq 'bash') { |
483 |
$self->log("FIXME: - - - - - -- - - -- BASH - - - - - - - -- - ", 'error'); |
$self->log("FIXME: - - - - - -- - - -- BASH - - - - - - - -- - ", 'error'); |
484 |
|
|
485 |
|
} elsif ($args->{language} eq 'perl') { |
486 |
|
|
487 |
|
# reporting |
488 |
|
#$self->log("Executing some arbitrary unsigned code (probably unsafe). [language=$args->{language}]", 'info'); |
489 |
|
#$self->log("\n<code>\n$code\n</code>", 'info'); |
490 |
|
|
491 |
|
# do it |
492 |
|
#eval($code); |
493 |
|
#$self->log("\n<code>\n$code\n</code>", 'error') if $@; |
494 |
|
|
495 |
} else { |
} else { |
496 |
$self->log("FIXME: Script language '$args->{language}' not implemented.", 'error'); |
$self->log("FIXME: Script language '$args->{language}' not implemented.", 'error'); |