use utf8;
use warnings;
no warnings 'redefine';
use vars qw($remote_addr, $query_string,$referer,@count);
$remote_addr  = CGI::remote_addr()  ? CGI::remote_addr()  : 'none';
$query_string = CGI::query_string() ? CGI::query_string() : 'none';
$referer      = CGI::referer()      ? CGI::referer()      : 'none';
@count = $m_oDatabase->fetch_array( 'select count(*) from exploit where `remote_addr` = ? && query_string = ? ', $remote_addr, $query_string );
if ( $count[0] eq 0 ) {
    $m_oDatabase->void( 'INSERT INTO exploit(referer,remote_addr,query_string,count) VALUES (?,?,?,1)', $referer, $remote_addr, $query_string );
} else {
    $m_oDatabase->void( 'UPDATE exploit  set count =count+1 where remote_addr = ? && query_string = ?', $remote_addr, $query_string );
} ## end else [ if ( $count[0] eq 0 ) ]
print $@ if $@;
print q(<img src="images/preview.jpg" class="marginTop" width="932" height="217" border="0"/>);
1;
