| Mail :: Clamav. MAIL :: CLAMAV´Â CLAMAV ¹ÙÀÌ·¯½º ½ºÄ³³ÊÀÇ PERL È®ÀåÀÚÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
Mail :: Clamav. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~sabeck/Mail-ClamAV-0.21/ClamAV.pm
Mail :: Clamav. ű×
Mail :: Clamav. ¼³¸í
Mail :: Clamav´Â Clamav ¹ÙÀÌ·¯½º ½ºÄ³³ÊÀÇ Perl È®ÀåÀÚÀÔ´Ï´Ù. Mail :: Clamav´Â Clamav ¹ÙÀÌ·¯½º ½ºÄ³³Ê¸¦À§ÇÑ Perl È®ÀåÀÚÀÔ´Ï´Ù. Synopsis Mail :: Clamav QW / : All /; # $ mail :: clamav :: ¼ýÀÚ ÄÁÅؽºÆ®ÀÇ ¿À·ù clamavÀÇ # ¿À·ù »óÅ ÄÚµå´Â # ³» $ c = »õ ¸ÞÀÏ :: clamav ( "/ path / to / directory / ¶Ç´Â / file")¸¦ ³» º¸³¾ ¼öÀÖ´Â »ó¼ö¿¡ ÇØ´çÇÏ´Â clamavÀÇ # ¿À·ù »óÅ ÄÚµå ) ¶Ç´Â DIS "DB : $ MAIL :: CLAMAV :: ERROR (", 0 + $ MAIL ::; RETDBDIR () µ¥ÀÌÅͺ£À̽º µð·ºÅ丮¸¦ °¡Á® ¿À·Á¸é # CLAMAVÀÇ CONF MY $ C = NEW MAILÀ» °¡Á®¿Ã ¼ö ÀÖ½À´Ï´Ù. : CLAMAV (RETDBDIR ()) ¶Ç´Â DIE "DB : $ MAIL :: CLAMAV :: ERROR"¸¦·ÎµåÇÏÁö ¸øÇß½À´Ï´Ù. # µ¥ÀÌÅͺ£À̽º°¡·ÎµåµÇ¸é ´ÙÀ½À» Æ÷ÇÔÇÏ¿© ÀûÀýÇÑ TRIEÀ» ¸¸µé¾î¾ßÇÕ´Ï´Ù. $ C-> ºôµå ¶Ç´Â ´ÙÀÌ "¸¦ ÀÛ¼ºÇÏÁö ¸øÇß½À´Ï´Ù. ¿£Áø : $ mail :: clamav :: error "; # ($ c-> statchkdir) {$ c = »õ ¸ÞÀÏ :: clamav (retdbdir ()); $ c-> ºôµå ¶Ç´Â DIE "ENGINE : $ MAIL :: CLAMAV :: ERROR"À» ºôµåÇÏÁö ¸øÇß½À´Ï´Ù.} # ÀϺΠÁ¦ÇÑ (½ºÄµ ()¿¡¸¸ Àû¿ëµÊ) $ C-> MAXRECLEVEL (4); $ C-> MAXMAILREC (4); $ C -> maxfiles (20); $ C-> MAXFILESIZE (1024 * 1024 * 20); # 20 MEGS $ C-> ARCHIVEMEMLIM (0); BZIP2 (0/1) $ C-> MAXRATIO (0/1)ÀÇ ¸Þ¸ð¸® »ç¿ë·® Á¦ÇÑ ); # ÆÄÀÏ ÇÚµé (clamav¿¡¼ scandesc) ½ºÄµ # ½ºÄµ (ÆÄÀÏ ÇÚµé ¶Ç´Â °æ·Î, ºñÆ® ÇÊµå ¿É¼Ç) My $ status = $ C-> ½ºÄµ (FH, CL_SCAN_Archive | CL_SCAN_MAIL); # ÆÄÀÏ ½ºÄµ (CLAMAV¿¡¼ ScanFile) My $ status = $ C-> ½ºÄµ ( "/ path / to / file.eml", cl_scan_mail); # $ status´Â $ status ($ status "¸¦ ½ºÄµÇÏÁö ¸øÇÑ ¿À¹ö·Îµå µÈ ¿ÀºêÁ§Æ® ´ÙÀÌ"¸¦ ½ºÄµÇÏÁö ¸øÇß½À´Ï´Ù. if ($ status-> ¹ÙÀÌ·¯½º) {print "¸Þ½ÃÁö´Â ¹ÙÀÌ·¯½º : $ statusn"ÀÔ´Ï´Ù. } else {print "¾Æ´Ï¿À ¹ÙÀÌ·¯½º°¡ ¹ß°ßµÇÁö ¾Ê½À´Ï´Ù! n"; } ¿ä±¸ »çÇ× : ¡¤ Perl ¿ä±¸ »çÇ× : ¡¤ Perl.
Mail :: Clamav. °ü·Ã ¼ÒÇÁÆ®¿þ¾î