From 87d794b9194b958ec1ae7118f00f30ce9c4d7ae0 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/ILS/trunk@1532 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- OpenSRF/src/perlmods/OpenSRF/UnixServer.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/OpenSRF/src/perlmods/OpenSRF/UnixServer.pm b/OpenSRF/src/perlmods/OpenSRF/UnixServer.pm index 08d65b1561..f28acde43b 100644 --- a/OpenSRF/src/perlmods/OpenSRF/UnixServer.pm +++ b/OpenSRF/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