##################################################################################################

#

# Package:      LogItem

#

##################################################################################################

package LogItem;

use FindBin;

use lib $FindBin::Bin;

use strict;

use constant ERROR 								=> 1;

use constant WARNING							=> 2;

use constant INFO 								=> 3;

use constant VERBOSE							=> 4;

#-------------------------------------------------------------------------------------------------

# Subroutine:   new

# Purpose:      Constructor

# Input:        None (extracted from command line args)

# Output:       A reference to itself

#-------------------------------------------------------------------------------------------------

sub new()

	{

	my $package = shift;

	my $self = {};         			# Create reference to object

	bless $self,  $package;    		# Associate a reference with class name

	my %parameters = @_;

	$self->{iMessage} 	= $parameters{'msg'} ? $parameters{'msg'} : "";

	$self->{iCode} 		= $parameters{'code'} ? $parameters{'code'} : 0;

	$self->{iModule} 	= $parameters{'module'} ? $parameters{'module'} : 0;

	$self->{iSeverity} 	= $parameters{'severity'} ? $parameters{'severity'} : 3; # default is INFO

	$self->{iDepth}		= $parameters{'depth'} ? $parameters{'depth'} : 0;

	$self->{iCode} = 0;

	$self->{iDate} 		= scalar(localtime);

    return $self;

	}

sub Message()

	{

	my $self = shift;

	$self->{iMessage} = $_[0] if $_[0];

	return $self->{iMessage};

	}

sub Module()

	{

	my $self = shift;

	$self->{iModule} = $_[0] if $_[0];

	return $self->{iModule};

	}

sub Severity()

	{

	my $self = shift;

	$self->{iSeverity} = $_[0] if $_[0];

	return $self->{iSeverity};

	}

sub Depth()

	{

	my $self = shift;

	$self->{iDepth} = $_[0] if $_[0];

	return $self->{iDepth};

	}

sub Date()

	{

	my $self = shift;

	$self->{iDate} = $_[0] if $_[0];

	return $self->{iDate};

	}

sub Code()

	{

	my $self = shift;

	$self->{iCode} = $_[0] if $_[0];

	return $self->{iCode};

	}

sub LogText()

	{

	my $self = shift;

	return $self->SeverityText()."(".$self->{iCode}.") [".$self->{iDate}."]: "." " x $self->{iDepth}.$self->{iMessage}."\n";

	}

sub SeverityText()

	{

	my $self = shift;

	return "  ERROR" if $self->Severity() == ERROR;

	return "WARNING" if $self->Severity() == WARNING;

	return "VERBOSE" if $self->Severity() == VERBOSE;

	return "   INFO";

	}

1;