From 7f4fa08624a71d2b0774ed139f2b3272de669991 Mon Sep 17 00:00:00 2001 From: erickson Date: Wed, 27 Jul 2005 01:09:43 +0000 Subject: [PATCH] removing unix files git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@436 9efc2488-bf62-4759-914b-345cdb29e865 --- src/perlmods/OpenSRF/UnixServer.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/perlmods/OpenSRF/UnixServer.pm b/src/perlmods/OpenSRF/UnixServer.pm index 69ba09c..08d65b1 100644 --- a/src/perlmods/OpenSRF/UnixServer.pm +++ b/src/perlmods/OpenSRF/UnixServer.pm @@ -152,6 +152,8 @@ sub serve { $0 = "OpenSRF master [$app]"; + system("rm -f /tmp/opensrf_unix_*"); + my $client = OpenSRF::Utils::SettingsClient->new(); $logger->transport("Max Req: " . $client->config_value("apps", $app, "unix_config", "max_requests" ), INFO ); @@ -167,7 +169,7 @@ sub serve { my $pid_file = join("/", $client->config_value("dirs", "pid"), $client->config_value("apps", $app, "unix_config", "unix_pid" )); - my $file = "/tmp/" . time . rand( $$ ) . "_$$"; + my $file = "/tmp/" . "opensrf_unix_" . 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