#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;
use Getopt::Long;
use Pod::Usage;
use Log::Log4perl;
use Log::Dispatch::FileRotate;

my $conf = undef;
my $log  = undef;
my $help = undef;
my $test = undef;
my $file = undef;

$conf = q(
  log4perl.category.Script          = INFO, ScreenAppender, ScriptFileRotateAppender

  log4perl.appender.ScreenAppender         = Log::Log4perl::Appender::Screen
  log4perl.appender.ScreenAppender.stderr  = 1
  log4perl.appender.ScreenAppender.layout  = PatternLayout
  log4perl.appender.ScreenAppender.layout.ConversionPattern=[%p] %d %F:%L - %m%n
  log4perl.appender.ScreenAppender.Threshold  = DEBUG

  log4perl.appender.ScriptFileRotateAppender           = Log::Dispatch::FileRotate
  log4perl.appender.ScriptFileRotateAppender.filename  = script.log
  log4perl.appender.ScriptFileRotateAppender.mode      = append
  log4perl.appender.ScriptFileRotateAppender.size      = 100000
  log4perl.appender.ScriptFileRotateAppender.max       = 5
  log4perl.appender.ScriptFileRotateAppender.layout    = PatternLayout
  log4perl.appender.ScriptFileRotateAppender.layout.ConversionPattern=[%p] %d %F:%L:- %m%n


);
Log::Log4perl::init( \$conf );
$log = Log::Log4perl::->get_logger(q(Script));

$log->debug("start") if $log->is_debug();

# GetOptions
GetOptions("help|?" => \$help,
           "test"   => \$test,
           "file=s" => \$file) or pod2usage(2);
pod2usage(1) if $help;

# ------ main ------

$log->debug("end") if $log->is_debug();

exit(0);

__END__

=pod

=head1 NAME

=head1 SYNOPSIS

=head1 OPTIONS

=head1 DESCRIPTION

=head1 TODO

=head1 SEE ALSO

=head1 AUTHOR

=cut