From e957c77cb3feea01836f0f455fc7e6411f46a357 Mon Sep 17 00:00:00 2001 From: erickson Date: Wed, 27 Jul 2005 01:22:12 +0000 Subject: [PATCH] more config file mangling git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@437 9efc2488-bf62-4759-914b-345cdb29e865 --- src/perlmods/OpenSRF/UnixServer.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/perlmods/OpenSRF/UnixServer.pm b/src/perlmods/OpenSRF/UnixServer.pm index 08d65b1..f28acde 100644 --- 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" . -- 2.11.0