gistfile1.pl

package HP::Logger;

BEGIN {
    use FindBin qw($Bin $Script);
	$Script =~ s/.pl//;
    unshift @INC, "$Bin/../lib/perl";
	unshift @INC, "$Bin/../lib/mt/extlib";
}

use Exporter;
use base qw(Exporter);
use HP;

our @EXPORT = qw($logger get_logger);

sub get_log_file_name {
    $HP::LogDir."/".$Script.".log";
}

Log::Log4perl->init("$Bin/../conf/log4perl.cfg");
our $logger = Log::Log4perl->get_logger;

sub get_logger {
    return Log::Log4perl->get_logger(@_);
}