REJIK

Код: Выделить всё

adriver.ru
ad.adriver.ru
ad.adriver.ru/cgi-bin
ad.adriver.ru/cgi-bin/click.cgi
ad.adriver.ru/cgi-bin/erle.cgi
ad.adriver.ru/cgi-bin/rle.cgi
content.adriver.ru/plugins/autoUpdate.adriver.js

Код: Выделить всё

proc ballastRules::RegisterInvalidDomainNameInRule {rule} {
  return [sql "INSERT OR IGNORE INTO _invalidDomainName (Rule) VALUES ('$rule'); SELECT Id FROM _invalidDomainName WHERE Rule='$rule';"]
}
proc ballastRules::getDomainFromRule {rule} {
  set rule [string trimleft $rule "*."]
  if {[catch {array set vector [uri::split $rule]} res]} {
    set invalidRuleId [RegisterInvalidDomainNameInRule $rule]
    puts "WARN: [namespace current]::getDomainFromRule: fail get domain name from rule. InvalidRuleId = $invalidRuleId, Rule = {$rule}"
    return ""
  }
  return $vector(host)
}
proc ballastRules::ruleIsIp {rule} {
  if {[::ip::version $rule] != -1} {return 1}
  return 0
}
proc ballastRules::FindRootId {domain} {
  set hostsList [split $domain "."]; # разделяем домен на список хостов
  set rootId ""; # вначале идентификатор правила пуст
  set rootDomain "";

  for {set i 0} {$i < [llength $hostsList]} {incr i} {
    set rootHosts [lrange $hostsList $i end]; # берем вначале все хосты, потом все кроме первого, далее все кроме первых двух и т.д.
    set domain [join $rootHosts "."]; # собираем список хостов в имя домена, разделяя имена хостов символом "точка"
    set sqlCmd "SELECT Id, Domain FROM Record WHERE RuleIsDomain=1 AND Domain='$domain' LIMIT 1 ;"
    lassign [sql $sqlCmd] rootId rootDomain; # ищем только среди правил, у которых Domain=Rule
    if {$rootId ne ""} break; # останавливаем поиск как только нашли первое совпадение
  }

  return [list $rootId $rootDomain]
}
proc ballastRules::ExpandRuleInit {id Rule} {
  if {[ruleIsIp $Rule]} {return {}}; # если Rule является IP-адресом - пропускаем обработку
  set domain [getDomainFromRule $Rule]; # вытаскиваем имя домена из правила
  if {$domain eq ""} return; # если в Rule отсутствует имя домена - пропускаем такое правило

  set RuleIsDomain 0; if {$Rule eq $domain} {set RuleIsDomain 1}; # если строка Rule равна строке $domain - выставляем флаг
  sql "UPDATE Record SET Domain='$domain', RuleIsDomain=$RuleIsDomain, RootRuleId=0 WHERE Id=$id;";

  return $domain
}
proc ballastRules::ExpandRuleRoot {id domain} {
  if {$domain eq {}} return;

  lassign [FindRootId $domain] RootId RootDomain; # ищем идентификатор правила, в чей домен входит домен из текущего правила
  if {$RootId ne ""} { # обновляем атрибут в базе только если нашли Id родительского правила
    sql "UPDATE Record SET RootRuleId=$RootId WHERE Id=$id;"; # обновляем атрибут RootRuleId в базе
    puts [format {%7s | %25s | %7s | %s} $RootId $RootDomain $id $domain]
  }
}
proc ballastRules::expandRule {id} {
  set Domain [ExpandRuleInit $id]; # заполнить атрибуты RuleIsDomain и Domain
  ExpandRuleRoot $id $Domain; # заполнить атрибут RootRuleId
}
proc ballastRules::expandAllRules {args} {
  set qWHERE "RootRuleId=0 AND"
  if {[lsearch $args "-force"] != -1} {set qWHERE ""}
  set qListIdSelector "(SELECT Id FROM List WHERE TypeID = (SELECT Id FROM lst_ListTypes WHERE name='urls'))";
  set sqlCmd "SELECT Id,Rule FROM Record WHERE ${qWHERE} ListId in $qListIdSelector;"
  set sqlCmd "SELECT Id, Rule, Domain FROM Record WHERE ListId in $qListIdSelector AND ruleIsDomain=0 AND Domain != '';"

  foreach {Id Rule Domain} [sql $sqlCmd] {
    if {[ruleIsIp $Rule]} continue
    ExpandRuleRoot $Id $Domain;
  }
}
proc ballastRules::freeRootId {id} {
  # после удаления правила, необходимо удалить его из указателей на него в атрибуте RootId в других правилах
  sql "UPDATE Record SET RuleId=0 WHERE RuleId=$id;"
}

Код: Выделить всё

2020-12-28 07:57:36 [288444] MAKE-CACHE: delete rule: ad.adriver.ru because exist rule: adriver.ru
2020-12-28 07:57:36 [288444] MAKE-CACHE: delete rule: ad.adriver.ru/cgi-bin because exist rule: adriver.ru
2020-12-28 07:57:36 [288444] MAKE-CACHE: delete rule: ad.adriver.ru/cgi-bin/click.cgi because exist rule: adriver.ru
2020-12-28 07:57:36 [288444] MAKE-CACHE: delete rule: ad.adriver.ru/cgi-bin/erle.cgi because exist rule: adriver.ru
2020-12-28 07:57:36 [288444] MAKE-CACHE: delete rule: ad.adriver.ru/cgi-bin/rle.cgi because exist rule: adriver.ru
2020-12-28 07:57:36 [288444] MAKE-CACHE: delete rule: ad.adriver.ru/cgi-bin/rle.cgi? because exist rule: adriver.ru
2020-12-28 07:57:36 [288444] MAKE-CACHE: delete rule: content.adriver.ru/plugins/autoUpdate.adriver.js because exist rule: adriver.ru