NAME

App::MonM::Store - DBI interface for checkit's data storing

VERSION

Version 1.01

SYNOPSIS

            

              
              
use App::MonM::Store;
my $store = App::MonM::Store->new(
    dsn => "DBI:mysql:database=monm;host=mysql.example.com",
    user => "username",
    password => "password",
    set => [
        "RaiseError        0",
        "PrintError        0",
        "mysql_enable_utf8 1",
    ],
);
die($store->error) if $store->error;
            
          

DESCRIPTION

DBI interface for checkit's data storing. This module provides store methods

new

            

              
              
my $store = App::MonM::Store->new(
    dsn => "DBI:mysql:database=monm;host=mysql.example.com",
    user => "username",
    password => "password",
    set => [
        "RaiseError        0",
        "PrintError        0",
        "mysql_enable_utf8 1",
    ],
);
            
          

Creates DBI object

add

            

              
              
$store->add(
    name    => "foo",
    type    => "http",
    source  => "http://example.com",
    status  => 1,
    message => "Ok"
) or die $store->error;
            
          

Add new record on database

clean

            

              
              
$store->clean(
    period => 600
) or die $store->error;
            
          

Delete too old records from database

del

            

              
              
$store->del(
    id => 1
) or die $store->error;
            
          

Delete record from database

dsn

            

              
              
my $dsn = $store->dsn;
            
          

Returns DSN string of current database connection

error

            

              
              
my $error = $store->error;
            
          

Returns error message

            

              
              
$store->error("Error message");
            
          

Sets error message if argument is provided.

get

            

              
              
my %info = $store->get(
    name    => "foo"
);
            
          

Gets information about file from database

Format:

            

              
              
{
    id      => 1,
    time    => 123456789,
    name    => "foo"
    type    => "http",
    source  => "http://example.com"
    status  => 1,
    message => "Ok"
}
            
          

id

The Record ID. Autoincremented value!

message

The checking message

name

Name of checkit section

source

Source Name: URL, DSN or command

status

Status of checking: 000-111 as binary notation

Default: 0

time

Time of record insert

Default: time()

type

Type of checkit source: http, dbi, command

Default: http

is_sqlite

            

              
              
print $store->is_sqlite ? "Is SQLite" : "Is not SQLite"
            
          

Returns true if type of current database is SQLite

getall

            

              
              
my @files = $store->getall();
            
          

Returns list of all checkit values

Record format of return result: see "get"

ping

            

              
              
$store->ping ? 'OK' : 'Database session is expired';
            
          

Checks the connection to database

set

            

              
              
$store->set(
    id      => 1,
    name    => "foo",
    type    => "http",
    source  => "http://example.com",
    status  => 1,
    message => "Ok"
) or die $store->error;
            
          

Update existing record on database

SEE ALSO

App::MonM, CTK::DBI

AUTHOR

Serż Minus (Sergey Lepenkov) https://www.serzik.com <abalama@cpan.org>

COPYRIGHT

Copyright (C) 1998-2022 D&D Corporation. All Rights Reserved

LICENSE

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

See LICENSE file and https://dev.perl.org/licenses/

cpanm App::MonM

perl -MCPAN -e shell
install App::MonM