allow emi and ulri to log to a file instead of stderr by setting

EMI_LOG_FILE or ULRI_LOG_FILE environement variables

1 files changed, 4 insertions, 1 deletions

diff --git a/ulri b/ulri
index 011e2c4..06b325d 100755
--- a/ulri
+++ b/ulri
@@ -49,7 +49,10 @@ my %run;
 my $program_name = 'ulri';
 $run{program_name} = $program_name;
 
-open(my $LOG, ">&STDERR");
+my $LOG;
+if (!$ENV{'ULRI_LOG_FILE'} || !open($LOG, '>>', $ENV{'ULRI_LOG_FILE'})) {
+    open(my $LOG, ">&STDERR");
+}
 
 plog_init($program_name, $LOG, 7, 1);