¾È³çÇϼ¼¿ä..À±¿µ¿õ´Ô.
¾Æ·¡´Â ºÒ·®´Ü¾î³ª IP, E-mailµîÀ» µî·ÏÂ÷´ÜÇÏ´Â Perl¼Ò½ºÀÇ ÀϺÎÀÔ´Ï´Ù.
¾Æ·¡¿Í °°Àº ·çÆ®·Î´Â ¿µ¹®¸¸ Â÷´ÜÇÏ°í ÇѱÛÀº Àâ¾Æ³»Áö ¸øÇϴµ¥,
ÀÌ ·çÆ®¸¦ Çѵ鵵 Àâ¾Æ³¾¼ö ÀÖ°Ô ¼öÁ¤ÇÒ·Á¸é ¾î¶»°Ô ÇØ¾ß ÇÒ±î¿ä?
²À Á» ´äº¯ ºÎŹµå¸³´Ï´Ù..
¿ö³«¿¡ Ãʺ¸ÀÎÁö¶ó..
-------------------------------------
sub checkbans {
  my( @files ) = qw(email.ban url.ban word.ban);
  my( $file, $ban );
 
  foreach $file ( @files ) {
    my $bans = freadall("$DDIR/dbs/$file");

    foreach $ban ( @{ $bans } ) {
      next if( $ban eq '' );
      chomp( $ban );
      derr(1007, "Banned Domain '$ban'") if( $file eq "url.ban" && $FRM{'surl'} =~ m/$ban/gi );
      derr(1007, "Banned E-Mail '$ban'") if( $file eq "email.ban" && $FRM{'email'} =~ m/$ban/gi);
      derr(1007, "Banned Word '$ban'") if( $file eq "word.ban" && $FRM{'desc'} =~ m/\b$ban\b/gi);
      derr(1007, "Banned Word '$ban'") if( $file eq "word.ban" && $FRM{'tit'} =~ m/\b$ban\b/gi);
    }
  }
}
-----------------------------------
¼ö°íÇϽðí..´äº¯ ±â´Ù¸³´Ï´Ù..