#!/usr/bin/perl

$logfile="/var/log/ups.log";
open(FILE,$logfile);
@lines=<FILE>;
close(FILE);

if (@lines==0){
	print "CRITICAL - Arquivo log vazio\n";
	exit(2);
}

$lastline=$lines[$#lines];
chomp($lastline);

#print $lastline."\n";

$search_pattern="Falta de energia";
if ($lastline=~/$search_pattern/) {
	my $fragment =  substr $lastline, 20;
	print "CRITICAL $fragment\n";
	exit(2);
}
$search_pattern="Bateria fraca";
if ($lastline=~/$search_pattern/) {
	my $fragment =  substr $lastline, 20;
	print "CRITICAL $fragment\n";
	exit(2);
}
$search_pattern="Falta de energia";
if ($lastline=~/$search_pattern/) {
	my $fragment =  substr $lastline, 20;
	print "Desconhecido $fragment\n";
	exit(3);
}
$search_pattern="No Break OK";
if ($lastline=~/$search_pattern/) {
	my $fragment =  substr $lastline, 20;
	print "OK $fragment\n";
	exit(0);
}
exit(0);