>¾È³çÇϼ¼¿ä..À±¿µ¿õ´Ô. >¾Æ·¡´Â ºÒ·®´Ü¾î³ª 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); > } > } >} >----------------------------------- >¼ö°íÇϽðí..´äº¯ ±â´Ù¸³´Ï´Ù.. >
¾È³çÇϼ¼¿ä. ÇØÇÇCGI À¥¸¶½ºÅÍ À±¿µ¿õÀÔ´Ï´Ù. ÇѱÛÀ» ¹Ù·Î ãÁö ¸»°í ÀÌ·¸°Ô ÇÏ¸é µÉ°Ì´Ï´Ù. Á¤¼ö³ª ¿µ¹®ÀÌ ¿ÀÁö ¾ÊÀ» °æ¿ì ÇѱÛ(ȤÀº Àâ¹®ÀÚµé) ÀÌ°ÚÁö¿ä.
Á¤¼ö³ª ¿µ¹®À» üŷÇÏ´Â°Ç ¾Æ¹« perl Ã¥À̳ª ÀÚ¼¼È÷ ³ª¿ÍÀÖÀ»°Ì´Ï´Ù. ^^ ÁÁÀº ÇÏ·çµÇ¼¼¿ä.
|