#!/usr/bin/perl
use DBI;
use POSIX;
use Net::Ping;
use IO::Socket;

$DBCONF = "/usr/local/opmon/etc/db.php";

if (!-f $DBCONF) {
	"Impossivel encontrar arquivo com credenciais de acesso ao banco de dados\n";
	exit 2;
}

$dbuser = "";
$dbpass = "";
$dbhost = "";

open(FILE,$DBCONF);
while(<FILE>) {
	if (m/^.*DBUSER="(.*)";$/) {
		$dbuser = $1;

	} elsif (m/^.*DBPASS="(.*)";$/) {
		$dbpass = $1;

	} elsif (m/^.*DBHOST="(.*)";$/) {
		$dbhost = $1;
	}

}
close(FILE);

$dbh = DBI->connect ( "dbi:mysql:dbname=opmon4;host=$dbhost",$dbuser, $dbpass);
if ( !defined $dbh ) {
	die "Impossivel conectar ao banco de dados\n";
}

$sql="select opmon_version from program_status;";
$sth=$dbh->prepare($sql);
if ( !defined $sth ) {
	die "$DBI::errstr\n";
	exit(1);
}
$sth->execute;

$value = $sth->fetchrow();
print "$value\n";
exit (0);