From: martinahansen Date: Mon, 21 Jul 2008 00:15:36 +0000 (+0000) Subject: fixed local and global logging X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=e2ee381ee079a78605a6381d5545a741a99c34c8;p=biopieces.git fixed local and global logging git-svn-id: http://biopieces.googlecode.com/svn/trunk@174 74ccb610-7750-0410-82ae-013aeee3265d --- diff --git a/code_perl/Maasha/Biopieces.pm b/code_perl/Maasha/Biopieces.pm index 2a7ef7d..06d4b3d 100644 --- a/code_perl/Maasha/Biopieces.pm +++ b/code_perl/Maasha/Biopieces.pm @@ -93,13 +93,17 @@ $BP_TMP = Maasha::Common::get_tmpdir(); # >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LOG <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< -my $log_fh = Maasha::Common::append_open( "$ENV{ 'BP_TMP' }/biopieces.log" ); +my $log_global = Maasha::Common::append_open( "$ENV{ 'BP_LOG' }/biopieces.log" ); +my $log_local = Maasha::Common::append_open( "$ENV{ 'HOME' }/.biopieces.log" ); -$log_fh->autoflush( 1 ); +$log_global->autoflush( 1 ); +$log_local->autoflush( 1 ); -&log( $log_fh, $script, \@ARGV ); +&log( $log_global, $script, \@ARGV ); +&log( $log_local, $script, \@ARGV ); -close $log_fh; +close $log_global; +close $log_local; # >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> RUN SCRIPT <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<