teach osrf_control --diagnostic about --service

Signed-off-by: Galen Charlton <gmc@esilibrary.com>

diff --git a/bin/opensrf-perl.pl.in b/bin/opensrf-perl.pl.in
index e1c7efc..a169070 100755 (executable)
--- a/bin/opensrf-perl.pl.in
+++ b/bin/opensrf-perl.pl.in
@@ -223,14 +223,23 @@ sub get_service_pids_from_ps {
 
 
 sub do_diagnostic {
+    my $service = shift;
     my $alive = do_init(1);
 
-    my @services = get_service_list_from_files(1);
     my @conf_services;
     if ($alive) {
         @conf_services = (@perl_services, 
             map {$_->{service}} @nonperl_services);
-        push(@services, @conf_services);
+    }
+    
+    my @services;
+    if ($service) {
+        @services = $service;
+    } else {
+        @services = get_service_list_from_files(1);
+        if ($alive) {
+            push(@services, @conf_services);
+        }
     }
     
     my %services;
@@ -790,7 +799,7 @@ do_signal_all($opt_signal) if
     $opt_router_re_register_all;
 
 # misc
-do_diagnostic() if $opt_diagnostic;
+do_diagnostic($opt_service) if $opt_diagnostic;
 
 
 # show help if no action was requested