Vyššie na [Platon] / scripts / perl / accounting / modules

Modules for accounting scripts.

#!/usr/bin/perl -w

#
# modules/db.pm
#
# Developed by Lubomir Host 'rajo' <rajo AT platon.sk>
# Copyright (c) 2005 Platon SDG, http://platon.sk/
# Licensed under terms of GNU General Public License.
# All rights reserved.
#
# Changelog:
# 2005-03-14 - created
#

# $Platon$

package db;

use strict;
use Carp;
use DBI qw(:sql_types);
use vars qw($VERSION @EXPORT $AUTOLOAD);

use base qw( DBI::db DBI::st );

@EXPORT  = qw( );
$VERSION = sprintf("%d.%02d", q$Revision: 1.1 $ =~ /(\d+)\.(\d+)/);

sub new
{ # {{{
    my $this  = shift;
    my ($config) = @_;

    my $class = ref($this) || $this;
    my $self = {};

    #
    # Connect to DB
    #
    $self = DBI->connect(
        "dbi:" . $config->data_source() .
        ":database=" . $config->database() .
        ";host=" . $config->db_host(), $config->db_user(), $config->db_password())
        or die "Can't connect to " . $config->db_host() . ": $DBI::errstr";
    bless $self, $class;

    $self->{mysql_auto_reconnect} = 1;

    return $self;

} # }}} 

sub check
{ # {{{
    my ($self) = @_;

    my $rv = $self->ping();
    # auto reconnect must be done explicitely, because this flag is reseted after first reconnect
    $self->{mysql_auto_reconnect} = 1;

    # we are reconnected again (probably ;-), check connection again
    $rv += $self->ping();
    $self->{mysql_auto_reconnect} = 1;

    return $rv;
    
} # }}}

1;

__END__

=head1 NAME

db - <<<description of module>>>

=head1 SYNOPSIS

  use db;

  my $xxx = new db;

=head1 DESCRIPTION

The db 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