@steamids = ();## clear hideranking for all players
print "Delete all bans from HLX:CE database: ";
$hlx_dbconn = DBI->connect(
"DBI:mysql:database=$hlx_dbname;host=$hlx_dbhost;port=$hlx_dbport",
$hlx_dbuser, $hlx_dbpass) or die ("\nCan't connect to HLX:CE database '$hlx_dbname' on '$hlx_dbhost'\n" .
"Server error: $DBI::errstr\n");
$test = &doQuery($hlx_dbconn, "UPDATE `hlstats_Players` SET `hideranking` = 0 WHERE `hideranking` =2");
print $test->rows ." records cleared. \n";
$hlx_dbconn->disconnect;my $result = &doQuery($sb_dbconn, "SELECT `authid` FROM ".$sb_prefix."bans WHERE `length` >= 0 AND `RemovedBy` IS NULL");my $result = &doQuery($sb_dbconn, "SELECT `authid` FROM ".$sb_prefix."bans WHERE `length` >= 0 AND `RemovedBy` IS NULL");while ( my($steamid) = $result->fetchrow_array) {
push(@steamids, $steamid);
} while ( my($steamid) = $result->fetchrow_array) {
$today = time();
my $lenghx = &doQuery($sb_dbconn, "SELECT `length` FROM ".$sb_prefix."bans WHERE `authid` LIKE '" .$steamid ."'");
$lengh = $lenghx->fetchrow_array;
my $endsx = &doQuery($sb_dbconn, "SELECT `ends` FROM ".$sb_prefix."bans WHERE `authid` LIKE '" .$steamid ."'");
$ends = $endsx->fetchrow_array;
if (!$lengh)
{
push(@steamids, $steamid);
}
else
{
if ($ends > $today)
{push(@steamids, $steamid); }
}
}
Нужна автоматизация кроном.
Кстати, совсем забыл про него... Он кажется еще лучше стандартного importbans, я помню что какой-то из двух может не только добавлять баны, но и удалять при разбане...
Помоги настроить?:)
//** SOURCEBANS MYSQL INFO ----------------------------
// http://www.sourcebans.net/
define('SB_HOST', 'localhost'); // MySQL host
define('SB_PORT', 3306); // MySQL port (Default 3306)
define('SB_USER', ''); // MySQL user
define('SB_PASS', ''); // MySQL password
define('SB_NAME', ''); // MySQL database name
define('SB_PREFIX', 'sb'); // MySQL table prefix
//** END SOURCEBANS MYSQL INFO ------------------------//** HLSTATSX MYSQL INFO ------------------------------
// http://www.hlxcommunity.com/
define('HLX_HOST', 'localhost'); // MySQL host
define('HLX_PORT', 3306); // MySQL port (Default 3306)
define('HLX_USER', ''); // MySQL user
define('HLX_PASS', ''); // MySQL password
define('HLX_PREFIX', 'hlstats'); // MySQL table prefix$hlxdbs[] = "hlstatsx";
А как тогда?
title ban syns
@echo off
:start
perl importbans.pl
timeout /t 60
CLS
goto start
