#!/usr/bin/perl

#É Necessário ter instalado na máquina o interpretador do perl( o melhor para windows é o Strawberry Perl);
#É Necessário ter também instalado o Powershell para windows(um cmd mais sofisticado)
#Checar as cameras de segurança

print "Carregando infos...\n";
sleep(15);
system('cls');
inicio:

my $hora = localtime();
my $output = "GV800";
my $comando = "powershell get-process \| find \"GV800\" > processos.txt";
my $temporario = "processos.txt";
`$comando`;
open($temporario, '<', $temporario);
while(my $a = <$temporario>) {
          chomp $a;
         }
	close($temporario);
	if (-z "$temporario") {
		print "Checkup Feito,Programa CFTV Fechado\n";
                print "Reabrindo\n";
               `del $temporario`;
		&falhou();
	}
	else {
		print "Checkup Feito,Programa CFTV Aberto\n";
		`del $temporario`;
                &sucesso();

	}
		
	
	
	
sub sucesso() {
 	open(FILE, ">>sucesso.txt");
 	print FILE "Checkup feito com Sucesso\n";
 	print FILE $hora."\n\n";
 	close(FILE);
 	sleep(600);
 	goto inicio;
 }
 
 sub falhou() {
 	open(FILE, ">>falhou.txt");
 	print FILE "Arquivo encontrado fechado\n";
 	print FILE $hora."\n\n";
 	close(FILE);
        `C:\/GV800\/DM500Startup.exe`;
        `C:\/GV800\/Wakeup.exe`;
        sleep(600);
        goto inicio;
 	}