Netdeep Secure

#!C:\wamp\bin\perl\bin\perl.exe BEGIN { use CGI::Carp "fatalsToBrowser"; } use CGI qw(param); use DBI; use warnings; use strict; my $porpagina = param('porpagina'); print "Content-type: text/html \n\n"; print < Netdeep Secure END ; # Criei um objeto CGI my $cgi = CGI->new; # Carreguei o post numa variável e coloquei no sql das 2 consultas my $var = $cgi->param("nome"); if (!$porpagina) { $porpagina = 150; } # Conexão com o BD my $dbh = DBI->connect('DBI:mysql:messenger;host=localhost', 'root', '' ) || die "Could not connect to database: $DBI::errstr"; # Faz uma segunda consulta no banco para obter os dados do registro my $sth = $dbh->prepare("SELECT FROM_UNIXTIME(timestamp, '%d/%m/%Y'), FROM_UNIXTIME(timestamp, '%H:%i'), clientaddress, localid, remoteid, CONVERT(eventdata USING utf8) FROM messages WHERE localid LIKE '%$var%' ORDER BY id DESC LIMIT $porpagina"); $sth->execute( ); $sth->{LongReadLen}=500000; $sth->{LongTruncOk}=1; print qq| |; print <

Pesquisa

Log

END ; my $timestamp = '2012-05-11 06:55:36'; while ( my($timestamp, $timestamp, $clientaddress, $localid, $remoteid, $eventdata) = $sth->fetchrow_array() ) { print " ".""; } print <

END ; print < END ; $sth->finish(); $dbh->disconnect; undef $dbh;

Data	Hora	Endereço IP	De	Para	Mensagem
$timestamp	$timestamp	$clientaddress	$localid	$remoteid	$eventdata