NAME

Log::Dispatch::DBI - Class for logging to database via DBI interface

SYNOPSIS

            

              
              
use Log::Dispatch::DBI;
my $log = Log::Dispatch::DBI->new(
    name       => 'dbi',
    min_level  => 'info',
    datasource => 'dbi:mysql:log',
    username   => 'user',
    password   => 'password',
    table      => 'logging',
);
# Or, if your handle is alreaady connected
$log = Log::Dispatch::DBI->new(
    name => 'dbi',
    min_level => 'info',
    dbh  => $dbh,
);
$log->log(level => 'emergency', messsage => 'something BAD happened');
            
          

DESCRIPTION

Log::Dispatch::DBI is a subclass of Log::Dispatch::Output, which inserts logging output into relational database using DBI interface.

METHODS

new

            

              
              
$log = Log::Dispatch::DBI->new(%params);
            
          

This method takes a hash of parameters. The following options are valid:

-- name, min_level, max_level, callbacks

Same as various Log::Dispatch::* classes.

-- dbh

Database handle where Log::Dispatch::DBI throws log message.

-- datasource, username, password

If database connection is not yet established, put the DSN, username and password for DBI connect method. Destructor method of Log::Dispatch::DBI disconnects database handle, if the handle is made inside by these parameters. (The method does not disconnect the handle if it's supplied with dbh parameter.)

-- table

Table name for logging. default is log.

log_message

inherited from Log::Dispatch::Output.

TABLE SCHEMA

Maybe something like this for MySQL.

            

              
              
CREATE TABLE log (
    id        int unsigned NOT NULL PRIMARY KEY AUTO_INCREMENT,
    level     varchar(9) NOT NULL,
    message   text NOT NULL,
    timestamp timestamp
);
            
          

For example,

            

              
              
$log->log(level => 'info', message => 'too bad');
            
          

will execute the following SQL:

            

              
              
INSERT INTO log (level, message) VALUES ('info', 'too bad');
            
          

If you change this behaviour, what you should do is to subclass Log::Dispatch::DBI and override create_statement and log_message method.

AUTHOR

Tatsuhiko Miyagawa <miyagawa@bulknews.net>

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

SEE ALSO

Log::Dispatch, DBI, Log::Dispatch::Config