From: erickson <erickson@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Wed, 27 Jul 2005 01:09:43 +0000 (+0000)
Subject: removing unix files
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=7f4fa08624a71d2b0774ed139f2b3272de669991;p=working%2FOpenSRF.git

removing unix files


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

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" .