use strict;
use warnings;
my $logfile="log.txt";
my $error="DOWN";
my $warn="PROBLEM";
my $redbutton="\";
my $greenbutton="\";
my $yellowbutton="\";
open LOG, $logfile or die "Cannot open $logfile for read :$!";
my $button = $greenbutton;
while ($_ = ) {
if ($_ =~ /$error/i) {
$button = $redbutton;
print "\n\n";
print "$button";
last;
}
elsif ($_ =~ /$warn/i) {
$button = $yellowbutton;
print "\n\n";
print "$button";
last;
}
else {
print "\n\n";
print "$button";
last;
}
}
close LOG;