#!/usr/bin/perl
#
#
use DBI;

$configfile = "/etc/log.d/db.conf";
eval('require("$configfile")');
die "*** Failed to eval() file $configfile:\n$@\n" if ($@);

if (!@ARGV) {
	print "Usage: getconfig system\n";
	exit (99);
}

$sql  = "select logwatch_cmd from syslog_tpremadetype, syslog_thost where ";
$sql .= "syslog_tpremadetype.tpremadetype_id=syslog_thost.tpremadetype_id and ";
$sql .= "syslog_thost.thost_host='". @ARGV[0]. "'";

my $dbh = DBI->connect($DBI, $user, $password) or die DBI::errstr;

my $sth = $dbh->prepare($sql) or die "Can't prepare statement: $DBI::errstr";

my $rc = $sth->execute
	or die "Can't execute statement: $DBI::errstr";

if (!$sth->rows) {
	print "Error: no such system\n";
	exit (99);
}

while (($logwatch_cmd) = $sth->fetchrow_array) {
	if ($logwatch_cmd) {
		print "$logwatch_cmd\n";
	}
}
# check for problems which may have terminated the fetch early
die $sth->errstr if $sth->err;

$dbh->disconnect();