--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/sysmodelgen/src/LogItem.pm	Tue Apr 06 10:28:27 2010 +0100
@@ -0,0 +1,98 @@
+##################################################################################################
+#
+# 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;
\ No newline at end of file