Changeset 4927 for trunk/Nebulous/lib

Timestamp:

Aug 30, 2005, 5:25:32 PM (21 years ago)

Author:

jhoblitt

Message:

add Nebulous::Client::Log::init() class method

Location:

trunk/Nebulous/lib/Nebulous

Files:

• Client.pm (modified) (2 diffs)
• Client/Log.pm (modified) (3 diffs)

trunk/Nebulous/lib/Nebulous/Client.pm

@@ -1 +1 @@
 # Copyright (c) 2004  Joshua Hoblitt
 #
-# $Id: Client.pm,v 1.18 2005-07-28 03:48:41 jhoblitt Exp $
+# $Id: Client.pm,v 1.19 2005-08-31 03:25:31 jhoblitt Exp $
 
 package Nebulous::Client;
@@ -23 +23 @@
 use constant LOCK_DEFAULT   => 10;    # default to a 10s lock timeout
 
+Nebulous::Client::Log->init;
 my $log = get_logger( "Nebulous::Client" );
 $log->level( $WARN );

trunk/Nebulous/lib/Nebulous/Client/Log.pm

@@ -1 +1 @@
 # Copyright (c) 2004  Joshua Hoblitt
 #
-# $Id: Log.pm,v 1.3 2005-06-30 02:35:06 jhoblitt Exp $
+# $Id: Log.pm,v 1.4 2005-08-31 03:25:32 jhoblitt Exp $
 
 package Nebulous::Client::Log;
@@ -12 +12 @@
 use Log::Log4perl;
 
-my $conf = q(
+sub init {
+    my $log_path = $ENV{HOME};
+
+    my $conf = <<END;
     log4perl.category.Nebulous.Client = DEBUG, Screen
 #log4perl.category.Nebulous.Client = DEBUG, CLIENTLOGFILE, Screen
@@ -22 +25 @@
 
     log4perl.appender.CLIENTLOGFILE           = Log::Log4perl::Appender::File
-    log4perl.appender.CLIENTLOGFILE.filename  = /tmp/nebulous_client.log
+    log4perl.appender.CLIENTLOGFILE.filename  = $log_path/nebulous_client.log
     log4perl.appender.CLIENTLOGFILE.mode      = append
     log4perl.appender.CLIENTLOGFILE.layout    = Log::Log4perl::Layout::PatternLayout
     log4perl.appender.CLIENTLOGFILE.layout.ConversionPattern = %d{yyyy-MM-dd HH:mm:ss} | %H | %p | %M - %m%n
-);
+END
 
-Log::Log4perl::init( \$conf );
+    Log::Log4perl::init( \$conf );
+}
 
 1;