| 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 { |
Parent Directory
| 
Revision Log
| 
Patch
