| 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'); |