checking <language> for perl in listener and unix children
authorerickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Fri, 4 Nov 2005 23:34:17 +0000 (23:34 +0000)
committererickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Fri, 4 Nov 2005 23:34:17 +0000 (23:34 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@1965 dcc99617-32d9-48b4-a31d-7c20da2025e4

OpenSRF/src/perlmods/OpenSRF/System.pm

index c85d4a0..85f6e28 100644 (file)
@@ -340,9 +340,8 @@ sub launch_unix {
 
                next unless $app;
                my $lang = $client->config_value( "apps", $app, "language");
-
                next unless $lang =~ /perl/i;
-               next unless $app ne "opensrf.settings";
+               next if $app eq "opensrf.settings";
 
                _log( " * Starting UnixServer for $app..." );
 
@@ -365,12 +364,14 @@ sub launch_unix {
 sub launch_listener {
 
        my( $self, $apps ) = @_;
+       my $client = OpenSRF::Utils::SettingsClient->new();
 
        foreach my $app ( @$apps ) {
 
-               next unless defined($app);
-
-               if( $app eq "opensrf.settings" ) { next; }
+               next unless $app;
+               my $lang = $client->config_value( "apps", $app, "language");
+               next unless $lang =~ /perl/i;
+               next if $app eq "opensrf.settings";
 
                _log( " * Starting Listener for $app..." );