2 |
## $Id$ |
## $Id$ |
3 |
## ---------------------------------------------------------------------- |
## ---------------------------------------------------------------------- |
4 |
## $Log$ |
## $Log$ |
5 |
|
## Revision 1.4 2003/02/22 16:48:58 joko |
6 |
|
## modified rapcall behaviour |
7 |
|
## |
8 |
## Revision 1.3 2003/02/21 07:39:13 joko |
## Revision 1.3 2003/02/21 07:39:13 joko |
9 |
## modified 'rapcall' processing |
## modified 'rapcall' processing |
10 |
## modified merging of options/arguments in there |
## modified merging of options/arguments in there |
218 |
|
|
219 |
if (my $container = $self->getContainer()) { |
if (my $container = $self->getContainer()) { |
220 |
#my $opts = merge($container, $args); |
#my $opts = merge($container, $args); |
221 |
#print Dumper($opts); |
#print Dumper($container); |
222 |
merge_to($args, $container); |
merge_to($args, $container, { init => 1 }); |
223 |
} |
} |
224 |
|
|
225 |
#print Dumper($args); |
# trace |
226 |
|
#print Dumper($args); |
227 |
|
|
228 |
|
if ($args->{executable}) { |
229 |
|
$self->run_executable($args); |
230 |
|
return; |
231 |
|
} |
232 |
|
|
233 |
if (my $command = $args->{command}) { |
if (my $command = $args->{command}) { |
234 |
$self->perform_command($command, $args); |
$self->perform_command($command, $args); |
255 |
return; |
return; |
256 |
|
|
257 |
} |
} |
|
|
|
|
if ($args->{executable}) { |
|
|
$self->run_executable($args); |
|
|
return; |
|
|
} |
|
|
|
|
258 |
|
|
259 |
} |
} |
260 |
|
|