#!/usr/bin/perl

use lib '/root/halogen';

# Log system
use Core::DB::Simple;


my $DB = Core::DB::Simple::new("logdata");
$DB->{DEBUG} = 1;

$DB->sql("SELECT * FROM errors");
while (my @record = $DB->grab()) {
	print "Got record: @record\n";
}


__END__
;

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...';