IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Changeset 4878


Ignore:
Timestamp:
Aug 25, 2005, 1:42:33 PM (21 years ago)
Author:
jhoblitt
Message:

add init() class method

Location:
trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed

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

    r4440 r4878  
    11# Copyright (c) 2004  Joshua Hoblitt
    22#
    3 # $Id: Log.pm,v 1.3 2005-06-30 02:35:06 jhoblitt Exp $
     3# $Id: Log.pm,v 1.4 2005-08-25 23:42:33 jhoblitt Exp $
    44
    55package Nebulous::Server::Log;
    … …  
    1111
    1212use Log::Log4perl;
    13                                                                                                                                          
    14 my $conf = q(
     13use Nebulous::Server::Config;
     14
     15sub init {
     16    # test for an extern config file here
     17    my $config = Nebulous::Server::Config->instance;
     18
     19    my $dsn         = $config->dsn;
     20    my $dbuser      = $config->dbuser;
     21    my $dbpasswd    = $config->dbpasswd;
     22
     23    my $conf = <<END;
    1524    log4perl.category.Nebulous.Server = DEBUG, SERVERLOGFILE
    1625
    … …  
    1928    log4perl.appender.SERVERLOGFILE.mode      = append
    2029    log4perl.appender.SERVERLOGFILE.layout    = Log::Log4perl::Layout::PatternLayout
     30 date | hostname | priority | method/sub - message\n
    2131    log4perl.appender.SERVERLOGFILE.layout.ConversionPattern = %d{yyyy-MM-dd HH:mm:ss} | %H | %p | %M - %m%n
    22 );
    23                                                                                                                          
    24 Log::Log4perl::init( \$conf );
     32
     33    log4perl.appender.SQLLOG            = Log::Log4perl::Appender::DBI
     34    log4perl.appender.SQLLOG.datasource = $dsn
     35    log4perl.appender.SQLLOG.username   = $dbuser
     36    log4perl.appender.SQLLOG.password   = $dbpasswd
     37    log4perl.appender.SQLLOG.sql        = \
     38    INSERT INTO log (timestamp, hostname, level, sub, message) \
     39    VALUES          (%d,        %H,       %p,    %M,  %m)
     40#        VALUES          (?,         ?,        ?,     ?,   ?)
     41#        log4perl.appender.SQLLOG.params.1   = %d
     42#        log4perl.appender.SQLLOG.params.2   = %H
     43#        log4perl.appender.SQLLOG.params.3   = %p
     44#        log4perl.appender.SQLLOG.params.4   = %M
     45#        log4perl.appender.SQLLOG.params.5   = %m
     46#        log4perl.appender.SQLLOG.usePreparedStmt = 1
     47    log4perl.appender.SQLLOG.bufferSize = 2
     48    log4perl.appender.SQLLOG.layout     = Log::Log4perl::Layout::NoopLayout
     49    log4perl.appender.SQLLOG.warp_message = 0
     50END
     51
     52    Log::Log4perl::init( \$conf );
     53}
    2554
    26551;

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

    r4440 r4878  
    11# Copyright (c) 2004  Joshua Hoblitt
    22#
    3 # $Id: Log.pm,v 1.3 2005-06-30 02:35:06 jhoblitt Exp $
     3# $Id: Log.pm,v 1.4 2005-08-25 23:42:33 jhoblitt Exp $
    44
    55package Nebulous::Server::Log;
    … …  
    1111
    1212use Log::Log4perl;
    13                                                                                                                                          
    14 my $conf = q(
     13use Nebulous::Server::Config;
     14
     15sub init {
     16    # test for an extern config file here
     17    my $config = Nebulous::Server::Config->instance;
     18
     19    my $dsn         = $config->dsn;
     20    my $dbuser      = $config->dbuser;
     21    my $dbpasswd    = $config->dbpasswd;
     22
     23    my $conf = <<END;
    1524    log4perl.category.Nebulous.Server = DEBUG, SERVERLOGFILE
    1625
    … …  
    1928    log4perl.appender.SERVERLOGFILE.mode      = append
    2029    log4perl.appender.SERVERLOGFILE.layout    = Log::Log4perl::Layout::PatternLayout
     30 date | hostname | priority | method/sub - message\n
    2131    log4perl.appender.SERVERLOGFILE.layout.ConversionPattern = %d{yyyy-MM-dd HH:mm:ss} | %H | %p | %M - %m%n
    22 );
    23                                                                                                                          
    24 Log::Log4perl::init( \$conf );
     32
     33    log4perl.appender.SQLLOG            = Log::Log4perl::Appender::DBI
     34    log4perl.appender.SQLLOG.datasource = $dsn
     35    log4perl.appender.SQLLOG.username   = $dbuser
     36    log4perl.appender.SQLLOG.password   = $dbpasswd
     37    log4perl.appender.SQLLOG.sql        = \
     38    INSERT INTO log (timestamp, hostname, level, sub, message) \
     39    VALUES          (%d,        %H,       %p,    %M,  %m)
     40#        VALUES          (?,         ?,        ?,     ?,   ?)
     41#        log4perl.appender.SQLLOG.params.1   = %d
     42#        log4perl.appender.SQLLOG.params.2   = %H
     43#        log4perl.appender.SQLLOG.params.3   = %p
     44#        log4perl.appender.SQLLOG.params.4   = %M
     45#        log4perl.appender.SQLLOG.params.5   = %m
     46#        log4perl.appender.SQLLOG.usePreparedStmt = 1
     47    log4perl.appender.SQLLOG.bufferSize = 2
     48    log4perl.appender.SQLLOG.layout     = Log::Log4perl::Layout::NoopLayout
     49    log4perl.appender.SQLLOG.warp_message = 0
     50END
     51
     52    Log::Log4perl::init( \$conf );
     53}
    2554
    26551;
Note: See TracChangeset for help on using the changeset viewer.