Changeset 10627

Timestamp:

Dec 11, 2006, 2:02:53 PM (19 years ago)

Author:

jhoblitt

Message:

make Nebulous::Server::Log mod_perl aware
change Nebulous::Server::Log to accept a Nebulous::Server::Config object as a parameter instead of fetching it as a singleton

Location:

trunk

Files:

• Nebulous-Server/Changes (modified) (1 diff)
• Nebulous-Server/lib/Nebulous/Server.pm (modified) (2 diffs)
• Nebulous-Server/lib/Nebulous/Server/Log.pm (modified) (4 diffs)
• Nebulous/Changes (modified) (1 diff)
• Nebulous/lib/Nebulous/Server.pm (modified) (2 diffs)
• Nebulous/lib/Nebulous/Server/Log.pm (modified) (4 diffs)

trunk/Nebulous-Server/Changes

@@ -13 +13 @@
     - change Nebulous::Server::SOAP install stub methods to bypass AUTOLOAD on
       successive calls to the same method
+    - make Nebulous::Server::Log mod_perl aware
+    - change Nebulous::Server::Log to accept a Nebulous::Server::Config object
+      as a parameter instead of fetching it as a singleton
 
 0.02 Fri Dec  2 17:36:59 HST 2005

trunk/Nebulous-Server/lib/Nebulous/Server.pm

@@ -1 +1 @@
 # Copyright (c) 2004  Joshua Hoblitt
 #
-# $Id: Server.pm,v 1.21 2006-12-08 20:57:36 jhoblitt Exp $
+# $Id: Server.pm,v 1.22 2006-12-12 00:02:53 jhoblitt Exp $
 
 package Nebulous::Server;
@@ -29 +29 @@
 
     # log4perl is not avaliable until we call init()
-    Nebulous::Server::Log->init;
-
+    Nebulous::Server::Log->init($config);
     my $log = Log::Log4perl::get_logger( "Nebulous::Server" );
+
     my $sql = Nebulous::Server::SQL->new;
 

trunk/Nebulous-Server/lib/Nebulous/Server/Log.pm

@@ -1 +1 @@
 # Copyright (c) 2004  Joshua Hoblitt
 #
-# $Id: Log.pm,v 1.5 2005-08-26 02:06:33 jhoblitt Exp $
+# $Id: Log.pm,v 1.6 2006-12-12 00:02:53 jhoblitt Exp $
 
 package Nebulous::Server::Log;
@@ -8 +8 @@
 use warnings FATAL => qw( all );
 
-our $VERSION = '0.01';
+our $VERSION = '0.02';
 
 use Log::Log4perl;
@@ -14 +14 @@
 
 sub init {
-    # test for an extern config file here
-    my $config = Nebulous::Server::Config->instance;
+    my ($self, $config) = @_;
 
     my $dsn         = $config->dsn;
@@ -50 +49 @@
 END
 
-    Log::Log4perl::init( \$conf );
+    if ($INC{'Apache/DBI.pm'} && $ENV{MOD_PERL}) {
+        Log::Log4perl::init_once( \$conf );
+    } else {
+        Log::Log4perl::init( \$conf );
+    }
+
+    return 1;
 }
 

trunk/Nebulous/Changes

@@ -13 +13 @@
     - change Nebulous::Server::SOAP install stub methods to bypass AUTOLOAD on
       successive calls to the same method
+    - make Nebulous::Server::Log mod_perl aware
+    - change Nebulous::Server::Log to accept a Nebulous::Server::Config object
+      as a parameter instead of fetching it as a singleton
 
 0.02 Fri Dec  2 17:36:59 HST 2005

trunk/Nebulous/lib/Nebulous/Server.pm

@@ -1 +1 @@
 # Copyright (c) 2004  Joshua Hoblitt
 #
-# $Id: Server.pm,v 1.21 2006-12-08 20:57:36 jhoblitt Exp $
+# $Id: Server.pm,v 1.22 2006-12-12 00:02:53 jhoblitt Exp $
 
 package Nebulous::Server;
@@ -29 +29 @@
 
     # log4perl is not avaliable until we call init()
-    Nebulous::Server::Log->init;
-
+    Nebulous::Server::Log->init($config);
     my $log = Log::Log4perl::get_logger( "Nebulous::Server" );
+
     my $sql = Nebulous::Server::SQL->new;
 

trunk/Nebulous/lib/Nebulous/Server/Log.pm

@@ -1 +1 @@
 # Copyright (c) 2004  Joshua Hoblitt
 #
-# $Id: Log.pm,v 1.5 2005-08-26 02:06:33 jhoblitt Exp $
+# $Id: Log.pm,v 1.6 2006-12-12 00:02:53 jhoblitt Exp $
 
 package Nebulous::Server::Log;
@@ -8 +8 @@
 use warnings FATAL => qw( all );
 
-our $VERSION = '0.01';
+our $VERSION = '0.02';
 
 use Log::Log4perl;
@@ -14 +14 @@
 
 sub init {
-    # test for an extern config file here
-    my $config = Nebulous::Server::Config->instance;
+    my ($self, $config) = @_;
 
     my $dsn         = $config->dsn;
@@ -50 +49 @@
 END
 
-    Log::Log4perl::init( \$conf );
+    if ($INC{'Apache/DBI.pm'} && $ENV{MOD_PERL}) {
+        Log::Log4perl::init_once( \$conf );
+    } else {
+        Log::Log4perl::init( \$conf );
+    }
+
+    return 1;
 }