#!/usr/bin/perl
use DBI();

my $dbh = DBI->connect("DBI:mysql:database=xxxx;host=localhost",
					 "xxx", "xxxxx",
					 {'RaiseError' => 1});
my $i = 144;

while ($i > -1) {
	print "$i\n";
	$newCounter = $i - 12;
	$rows = $dbh->do("update blacklist set counter='$newCounter', tag='1' where counter = '$i' and tag = '0'");
	$i = $i - 12;
}

$rows = $dbh->do("update blacklist set tag='0' where tag like '%%'");
$rows = $dbh->do("delete  from blacklist where counter <= '0'");

$dbh->disconnect();
exit(0);