#!/usr/bin/perl

use lib '/root/halogen';

# Log system
use Core::Log::Global qw "&wLog";

my $log = new Core::Log::Global;
$log->{DEBUG} = 1;

print $log->{RECOVERY} ? "Logging system is in recovery mode\n" : "Logging system is using relational database system\n";
print $log->{OPEN} ? "Logging system has an open handle\n" : "Logging system has a closed handle\n";
print "Logging system has successfully recovered to flatfile mode\n" if ($log->{RECOVERY} && $log->{OPEN});
print "Executing the log testing facility...\n";

print 'Writing "testing 1 2 3" to log tables: ', lc join ' ', keys %{$log->{TABLES}},  "\n";
foreach $key (keys(%{$log->{TABLES}})) {
	$log->wLog($key, "INFO",  "testing123");
	print $log->{ERROR} . "\n" if $log->{ERROR};
}

# print 'Checking last output of each log table...';