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, 5 insertions, 1 deletions

diff --git a/emi b/emi
index 179ca07..716330d 100755
--- a/emi
+++ b/emi
@@ -42,7 +42,11 @@ my %run;
 my $program_name = 'emi';
 $run{program_name} = $program_name;
 
-open(my $LOG, ">&STDERR");
+my $LOG;
+if (!env{'EMI_LOG_FILE'} || !open($LOG, '>>', env{'EMI_LOG_FILE'})) {
+    open($LOG, ">&STDERR");
+}
+
 plog_init($program_name, $LOG, 7, 1);
 
 my $HOME = $ENV{HOME};