Monitoração Web com Perl
Dica publicada em Perl / Avançado
Monitoração Web com Perl
Nesta dica abordo como criar uma monitoração via interface Web utilizando a linguagem de programação Perl sem ter a necessidade de um servidor Apache, Nginx etc.
Para esta dica será necessário a instalação dos módulos Perl abaixo:
Esta dica surgiu com o intuito de criar uma interface web para que uma área sem acesso ao sistema operacional pudesse acompanhar se alguns processos estavam em execução ou não.
O script poderá ser baixado no link abaixo:
Após abrir o script, poderá ser visto o bloco do código abaixo que mostra de onde ele faz a leitura dos dados para exibição:
Nome do arquivo que ele irá ler para a exibição:
Porta em que o webservice está executando:
Obs.: É imprescindível que a porta utilizada na variável acima esteja incluída em suas regras de firewall para que possa ser acessada pela vlan em questão.
O conteúdo do script do arquivo process.cfg está no seguinte formato:
Com todos os requisitos acima sendo atendidos, é hora de executar o script e avaliar o resultado.
Para executá-lo, utilize o comando:
perl web.pl
Em seguida, abra seu browser e acesse o endereço:
Devido a falta de tempo não realizei a customização do HTML com cores.
É possível editar no código do script para que quando uma determinada ocorrência, por exemplo "Not_Running", ele coloque a célula em vermelho e quando encontra "Running", alterar a cor para verde.
Para esta dica será necessário a instalação dos módulos Perl abaixo:
- Socket
- IO::Socket
- Time::localtime
- LWP::Simple
Esta dica surgiu com o intuito de criar uma interface web para que uma área sem acesso ao sistema operacional pudesse acompanhar se alguns processos estavam em execução ou não.
O script poderá ser baixado no link abaixo:
Após abrir o script, poderá ser visto o bloco do código abaixo que mostra de onde ele faz a leitura dos dados para exibição:
my $diri = "/home/oracle/scripts/webserver/fila";
my $dirc = "/home/oracle/scripts/webserver/fila";
my $dirc = "/home/oracle/scripts/webserver/fila";
Nome do arquivo que ele irá ler para a exibição:
open(FILE,"process.Cfg");
Porta em que o webservice está executando:
my $port = '5030';
Obs.: É imprescindível que a porta utilizada na variável acima esteja incluída em suas regras de firewall para que possa ser acessada pela vlan em questão.
O conteúdo do script do arquivo process.cfg está no seguinte formato:
server1|apache|8081|14:40:00|1|Running
server2|tomcat|8080|14:40:00|0|Not_Running
server3|mysql|3306|14:40:00|1|Running
server2|tomcat|8080|14:40:00|0|Not_Running
server3|mysql|3306|14:40:00|1|Running
Com todos os requisitos acima sendo atendidos, é hora de executar o script e avaliar o resultado.
Para executá-lo, utilize o comando:
perl web.pl
Em seguida, abra seu browser e acesse o endereço:
- http://IP_DO_SERVIDOR:5030
É possível editar no código do script para que quando uma determinada ocorrência, por exemplo "Not_Running", ele coloque a célula em vermelho e quando encontra "Running", alterar a cor para verde.