Merge pull request #105 from Rfam/pre-commit-try2

New strategy for getting user name into pre-commit.log file name

Author: blakesweeney

Rfam/Scripts/svnhooks/pre-commit.pl

@@ -16,13 +16,12 @@
 use Log::Log4perl qw(get_logger);
 
 # set up logging
-my $logger_conf = qq(
-  log4perl.logger                         = DEBUG, FileAppender
-  log4perl.appender.FileAppender          = Log::Log4perl::Appender::File
-  log4perl.appender.FileAppender.filename = /tmp/pre-commit.$ENV{USER}.log
-  log4perl.appender.FileAppender.layout   = Log::Log4perl::Layout::PatternLayout
-  log4perl.appender.FileAppender.layout.ConversionPattern = %d %F{1}: %M %L> %m %n
-);
+my $logger_conf = sprintf("%s\n%s\n%s\n%s\n%s\n",
+                          "  log4perl.logger                         = DEBUG, FileAppender",
+                          "  log4perl.appender.FileAppender          = Log::Log4perl::Appender::File",
+                          sprintf("  log4perl.appender.FileAppender.filename = /tmp/pre-commit.%s.log", $ENV{USER}),
+                          "  log4perl.appender.FileAppender.layout   = Log::Log4perl::Layout::PatternLayout",
+                          "  log4perl.appender.FileAppender.layout.ConversionPattern = %d %F{1}: %M %L> %m %n");
 
 Log::Log4perl->init( \$logger_conf );