2 |
## $Id$ |
## $Id$ |
3 |
## ---------------------------------------------------------------------- |
## ---------------------------------------------------------------------- |
4 |
## $Log$ |
## $Log$ |
5 |
|
## Revision 1.10 2004/06/20 16:10:05 joko |
6 |
|
## modification to _rapcall: now has "service" to cache target details |
7 |
|
## |
8 |
|
## Revision 1.9 2004/06/19 01:50:24 joko |
9 |
|
## disabled debugging statement |
10 |
|
## |
11 |
## Revision 1.8 2004/06/07 16:45:56 joko |
## Revision 1.8 2004/06/07 16:45:56 joko |
12 |
## now propagates args to "rapcall method" |
## now propagates args to "rapcall method" |
13 |
## |
## |
242 |
# check for existance of method |
# check for existance of method |
243 |
if ($container->can($_)) { |
if ($container->can($_)) { |
244 |
# dispatch call by being with or without arguments |
# dispatch call by being with or without arguments |
245 |
print "method_args: ", Dumper($method_args); |
#print "method_args: ", Dumper($method_args); |
246 |
if ($method_args) { |
if ($method_args) { |
247 |
$container->$_(@$method_args); |
$container->$_(@$method_args); |
248 |
} else { |
} else { |
324 |
return; |
return; |
325 |
|
|
326 |
} |
} |
327 |
|
|
328 |
|
if (my $service = $args->{service}) { |
329 |
|
if ($service eq 'indexTargets') { |
330 |
|
$self->indexTargets({ build => 1 }); |
331 |
|
} |
332 |
|
|
333 |
|
} |
334 |
|
|
335 |
} |
} |
336 |
|
|
337 |
sub _exit { |
sub _exit { |