package Logalizer::Log4Logalizer;

use strict;
use warnings;
no warnings qw/ uninitialized /;
use Carp;
use Fcntl qw/ :DEFAULT :flock /;

use Logalizer::Config;

BEGIN {
    use Exporter();
    our ($VERSION, @ISA, @EXPORT);
    $VERSION = 1.00;
    @ISA = qw/ Exporter /;
    @EXPORT = qw/ $verboseLevel &init &log /;
}

our $verboseLevel = 0;
our $logName      = "$Logalizer::Config::logDirectory/logalizer.log";

our $LOG = \*LOG;

sub init {
    unless (-d $Logalizer::Config::logDirectory) {
        mkdir $Logalizer::Config::logDirectory, 0777
	or croak "Can't mkdir $Logalizer::Config::logDirectory", ": $!";
    }

    sysopen ($LOG, $logName, O_WRONLY | O_CREAT)
	or croak "Can't open $logName: $!";
}