fabioadrianosoares

use strict;
use warnings;
use feature 'say';
use Carp;
use Data::Dumper;
use Socket;

use Net::SMTP::Server;
use Net::SMTP::Server::Client;

fabioadrianosoares

use strict;
use warnings;
use feature 'say';
use Data::Dumper;
use File::Slurp;
use Email::Simple;

sub message_text {
	message_seek (@_, 'plain');
}

fabioadrianosoares

## [root@host]# cat procurar.sh
#! /bin/bash

tail -1000 /var/log/secure \
| sed -n -e '/Failed/p' \
| sed -e 's/.\+from //' -e 's/ port [0-9].\+//' \
| awk '{Ip[$1]++;} END {for (var in Ip) if (Ip[var] > 10) print var;}' \
| xargs -I "{}" /root/bloquear/tratar_ip.sh "{}"

fabioadrianosoares

Section "Device"
Identifier "Generic Video Card"
Boardname "sis"
Busid "PCI:1:0:0"
Driver "vesa"
Screen 0
Option "UseFBDev" "true"
Option "DPMS"
Option "NoAccel"
Option "ShadowFB"

fabioadrianosoares

DECLARE
	TYPE DEF_REGISTRO IS RECORD (CODIGO INT, DESCRICAO VARCHAR2(100));
	TYPE DEF_TABELA IS TABLE OF DEF_REGISTRO;
	TABELA DEF_TABELA := DEF_TABELA();
BEGIN
	TABELA.EXTEND(1);
	TABELA(TABELA.LAST).CODIGO := 1;
	TABELA(TABELA.LAST).DESCRICAO := 'UM';

	TABELA.EXTEND(1);