Vyššie na [Platon] / perl-modules / Platon

Implemented "cache" feature. Speed improvements 39%.

#
# Platon::Log.pm - save logfiles into database
#
# Developed by Lubomir Host 'rajo' <rajo AT platon.sk>
# Copyright (c) 2004 Platon SDG, http://platon.sk/
# Licensed under terms of GNU General Public License.
# All rights reserved.
#
# Changelog:
# 2004-10-15 - created
#

# $Platon: perl-modules/Platon/Log.pm,v 1.4 2005/03/15 23:20:10 rajo Exp $

package Platon::Log;

use strict;

use Carp;
use AppConfig qw/:expand :argcount/;
use Platon::DBI;

use vars qw($VERSION $DEBUG);
use base qw( Platon );

$VERSION = sprintf("%d.%02d", q$Revision: 1.5 $ =~ /(\d+)\.(\d+)/);
$DEBUG   = 0 unless defined $DEBUG;

sub new
{ #{{{
    my $this  = shift;
    my $conf  = shift;
    my $class = ref($this) || $this;
    my $self  = { };

    unless (defined $conf) {
        $conf = AppConfig->new(
            {
                CASE => 1,
                DEBUG => 0,
                CREATE => 0,
                GLOBAL => {
                    ARGCOUNT => ARGCOUNT_NONE,
                    DEFAULT => 0,
                }
            },
            'config|cfg=s',                { DEFAULT => "/etc/syslog-ng/mysql.conf" },
            'verbose!',                    { DEFAULT => 0 },
            "version",                    {
                ACTION => sub { print "$0 version $VERSION"; exit 0 }
            },
            'data_source=s',            { DEFAULT => 'mysql' },
            'host=s',                    { DEFAULT => 'localhost' },
            'database=s',                { DEFAULT => 'test' },
            'table=s',                    { DEFAULT => 'log_mail_postfix' },
            'user=s',                    { DEFAULT => 'testuser' },
            'password=s',                { DEFAULT => 'TestPassword' },
            'mysql_connect_timeout',    { DEFAULT => 10 },
            'mysql_compression',        { DEFAULT => 0 },
            'cache',                    { DEFAULT => 1 },
        ) or die "Can't initialize the AppConfig object\n";

        $conf->file($conf->cfg) if -r $conf->cfg;   # read the config file
        $conf->getopt;                              # parse command line
        $conf->file($conf->cfg) if -r $conf->cfg;   # read the config file
    }

    $self->{conf} = $conf;

    unless (defined ($self->{dbh})) {
        $self->{dbh} = Platon::DBI->connect(
        "DBI:" . $conf->data_source .
        ":database=" . $conf->database .
        ";host=" . $conf->host .
        ";mysql_connect_timeout=" . $conf->mysql_connect_timeout .
        ";mysql_compression=" . $conf->mysql_compression,
        $conf->user, $conf->password) or die Platon::DBI->errstr;
    }

    bless $self, $class;

    $self->_init($conf);

    return $self;
} # }}}

sub savelog($$;)
{ # {{{
    my ($self, $line) = @_;

    print STDERR "# This is default method";
    print STDERR "# Please, use \'use Platon::Log::ServiceType::YourService\' instead";
    print $line;
    
    return 0;

} # }}}

# store prepared SQL statement into object $self
sub prepare_keyword($$;)
{ # {{{
    my ($self, $keyword, $sql_query) = @_;

    my ($caller_pkg, $caller_file, $caller_line) = caller;
    $self->{$keyword} = $self->{dbh}->prepare($keyword, $sql_query, $caller_pkg, $caller_file, $caller_line);

} # }}}

# this method must be defined in your own Platon::Log::ServiceType::YourService module
sub _init($$;)
{ # {{{
    my ($self, $conf) = @_;

    print STDERR "# This is default method";
    print STDERR "# Please, please, define method _init() in you $self module";

} # }}}

1;

__END__

=head1 NAME

Log - <<<description of module>>>

=head1 SYNOPSIS

  use Log;

  my $xxx = new Log;

=head1 DESCRIPTION

The Log module allows you ...
<<<your description here>>>

=head2 EXPORT

<<here describe exported methods>>>

=head1 SEE ALSO

=head1 AUTHORS

Lubomir Host 'rajo', <rajo AT platon.sk>

=cut

# vim: ts=4
# vim600: fdm=marker fdl=0 fdc=3