package Orchard::Logger;

use strict;
use warnings;

use open qw/:std :utf8/;
use vars qw(@ISA @EXPORT);

use Exporter;
use Log::Log4perl(qw/get_logger/);

@ISA    = qw(Exporter);
@EXPORT = qw(logMessage);

Log::Log4perl::init('/Users/denk002/projects/collab/jgetter/perllib/Orchard/orchard_logger.conf');

sub logMessage {
    my $level   = shift;
    my $message = shift;
    if ( $message =~ m/MYSQL_PWD/ ) {
        $message =~ s/MYSQL_PWD=.*?\s//;
    }
    my $logger = get_logger();
    if ( $level =~ m/(.*?)([0-9])$/ ) {
        $message = "." x ( $2 + 1 ) . ' ' . $message;
        $level = $1;
    }
    $logger->$level($message);
}

1;