2001/04/19 (木) 02:33:44        [mirai]
#ホスト名による判別
if ($rhost =~ /(proxy|prox|squid|cache|www|dns|ns|gateway|gatekeeper|gate|^gw|^fw|firewall)/i){
    $rhost =~ s|$&|<FONT color=\"$proxy_color\"><b>$&</b></FONT>|;
    $prx=$prx+1;
    push(@proxy_detect,"PROXY特有のドメイン名($&)が検出されました。");
}