package CLUILogger;

use Win32::OLE;
use Exporter;
@ISA = qw(Exporter);
@EXPORT=qw(LogIT);

#Example Logline with all things described
#LogIT($mylog,
#      '5(loglevel def 5)',
#      'INFO(category info/error/etc)',
#      'TESTING(function)',
#      'TESTING2(blank or further action inside function)',
#      "This is my logged line");

sub LogInit{
  my $appname       = $_[0];
  my $module        = $_[1];
  my $apploglevel   = $_[2];
  $LogObj = Win32::OLE->new('LOGGERHELPER.UILogHelp');
  $Log0bj->{LogLevel} = $apploglevel;
  $Log0bj->{AppName}  = $appname;
  $Log0bj->{Module}   = $module;
  Win32::MsgBox('my log is "'.$LogObj.'"');
  return $LogObj;
}
sub LogIT {
  my $LogObj		= $_[0];
  my $loglevel 		= $_[1];
  my $category 		= $_[2];
  my $activity 		= $_[3];
  my $subactivity	= $_[4];
  my $logstring 	= $_[5];



if ($LogObj->{LogLevel} < $loglevel)
{
  $LogObj->LogMessage($LogObj->{AppName},$category,$activity,$subactivity,$logstring);
}

}

1;