more config file mangling

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@437 9efc2488-bf62-4759-914b-345cdb29e865

diff --git a/src/perlmods/OpenSRF/UnixServer.pm b/src/perlmods/OpenSRF/UnixServer.pm
index 08d65b1..f28acde 100644 (file)
--- a/src/perlmods/OpenSRF/UnixServer.pm
+++ b/src/perlmods/OpenSRF/UnixServer.pm
@@ -9,6 +9,7 @@ use OpenSRF::AppSession;
 use OpenSRF::DomainObject::oilsResponse qw/:status/;
 use OpenSRF::System;
 use OpenSRF::Utils::SettingsClient;
+use Time::HiRes qw(time);
 use JSON;
 use vars qw/@ISA $app/;
 use Carp;
@@ -152,7 +153,7 @@ sub serve {
 
        $0 = "OpenSRF master [$app]";
 
-       system("rm -f /tmp/opensrf_unix_*");
+       system("rm -f /tmp/opensrf_unix_$app*");
 
        my $client = OpenSRF::Utils::SettingsClient->new();
        $logger->transport("Max Req: " . $client->config_value("apps", $app, "unix_config", "max_requests" ), INFO );
@@ -169,7 +170,7 @@ sub serve {
        my $pid_file =  join("/", $client->config_value("dirs", "pid"),
                                $client->config_value("apps", $app, "unix_config", "unix_pid" ));
 
-       my $file = "/tmp/" . "opensrf_unix_" . time . rand( $$ ) . "_$$";
+       my $file = "/tmp/" . "opensrf_unix_$app"."_" . time . rand( $$ ) . "_$$";
        my $file_string = "min_servers $min_servers\nmax_servers $max_servers\n" .
                "min_spare_servers $min_spare\nmax_spare_servers $max_spare\n" .
                "max_requests $max_requests\nlog_file $log_file\nproto unix\n" .