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 2a7ef7d0d54fbc9f038112b4437e4387f9baa61a..06d4b3d8a02e9db84e287b9a92dcf71ecb23830e 100644 (file)
--- 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 <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<