| net :: validmx. net :: validmx´Â DNS ¹× / ¶Ç´Â Á¤±Ô Ç¥Çö½ÄÀ» »ç¿ëÇÏ¿© ÀüÀÚ ¸ÞÀÏ ÁÖ¼Ò°¡ À¯È¿ ÇÒ ¼ö ÀÖ´ÂÁö È®ÀÎÇÏ´Â PERL ¸ðµâÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
net :: validmx. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Kevin A. McGrail
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~kmcgrail/Net-validMX-2.2.0/lib/Net/validMX.pm
net :: validmx. ű×
net :: validmx. ¼³¸í
net :: validmx´Â ÀüÀÚ ¸ÞÀÏ ÁÖ¼Ò°¡ À¯È¿ ÇÒ ¼ö ÀÖ´ÂÁö È®ÀÎÇϱâ À§ÇØ DNS ¹× / ¶Ç´Â Á¤±Ô Ç¥Çö½ÄÀ» »ç¿ëÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. net :: validmx´Â ÀüÀÚ ¸ÞÀÏ ÁÖ¼Ò°¡ À¯È¿ ÇÒ ¼ö ÀÖ´ÂÁö È®ÀÎÇϱâ À§ÇØ DNS ¹× / ¶Ç´Â Á¤±Ô Ç¥Çö½ÄÀ» »ç¿ëÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù .SynopsIsnet :: validmx - DNS¸¦ »ç¿ëÇÏ¿© ÀüÀÚ ¸ÞÀÏ ÁÖ¼Ò°¡ À¯È¿ ÇÒ ¼ö ÀÖ´ÂÁö È®ÀÎÇÏ´Â ±â´ÉÀ» ¿øÇß½À´Ï´Ù. À¯È¿ÇÑ MX ·¹ÄÚµå. ÀÌ°ÍÀº Mimedefang ¶Ç´Â »ç¿ëÀÚ¸¦ µî·ÏÇϱâ Àü¿¡ ÀüÀÚ ¸ÞÀÏ ÁÖ¼Ò¸¦ È®ÀÎÇÏ°í È®ÀÎ À̸ÞÀÏÀ» º¸³»´Â ÀüÀÚ ¸ÞÀÏÀ» °ËÁõÇÏ´Â µ¥ »ç¿ëÇÒ ¼öÀÖ´Â ÀüÀÚ ¸ÞÀÏÀ» º¸³½ »ç¶÷ È®ÀÎÀ» À§ÇØ »ç¿ëµÉ ¼ö ÀÖ½À´Ï´Ù. exampleThe ¹èÆ÷ÆÇÀº ÀÛ¾÷ ±â´ÉÀ» º¸¿©ÁÖ´Â ¿¹Á¦ ÇÁ·Î±×·¥ÀÌ Æ÷ÇԵǾî ÀÖÀ¸¸ç, Çϳª ÀÌ»óÀÇ ÀüÀÚ ¸ÞÀÏ ÁÖ¼Ò¸¦ Äõ¸®ÇÏ´Â ¸í·É ÁÙ ÀÎÅÍÆäÀ̽ºÀÔ´Ï´Ù. °ø°£À» ºÐ¸® µÈ ÀüÀÚ ¸ÞÀÏ ÁÖ¼Ò·Î Å×½ºÆ® ÇÒ ¼öÀÖ´Â ÇÁ·Î±×·¥ÀÌ Àμö·Î Å×½ºÆ® ÇÒ ¼ö ÀÖ½À´Ï´Ù. Perl Example / Check_email_and_mx.pl kevin.mcgrail@ThightWorthy.com ¶Ç´Â Perl example / check_email_and_mx.pl Kevin.mcGrail @ google.com google@google.com president@whitehouse.govif ÇϳªÀÇ À̸ÞÀÏ ÁÖ¼Ò Àμö ¸¸ Á¦°øÇÏ¸é ¼º°øÀ» À§ÇØ 0ÀÇ Á¾·á »óÅ 0°ú ½ÇÆÐÀÇ °æ¿ì 1À» Á¾·áÇÕ´Ï´Ù. perl example / check_email_and_mx.pl kevin.mcgrail @Failed || ÀÌ À̸ÞÀÏÀº ÁÁÁö ¾Ê½À´Ï´Ù. ¿¹¸¦ µé¾î ƯÁ¤ ¼³Ä¡¿¡ ´ëÇÑ ±ÇÇÑÀÌ ºÎ¿© µÈ º¸³½ »ç¶÷À» Á¦¿ÜÇÏ°í ´ÙÀ½ ÄÚµå ½º ´ÏÆêÀ» Mimedefang ÇÊÅÍ¿¡ Ãß°¡ÇÏ´Â ±â´ÉÀ» ¼öÇàÇϽʽÿÀ. sub filter_initialize {#for À¯È¿ÇÑ MX »ç¿ë Net :: validmx qw (check_valid_mx)¸¦ »ç¿ëÇϽʽÿÀ. } sub is_authorized_sender {my ($ sender, $ relayaddr) = @_; if () {RETURN 1; } else {¹Ýȯ 0; }} sub filter_sender {my ($ sender, $ IP, $ hostname, $ helo) = @_; ³» ($ rv, $ ÀÌÀ¯); #md_syslog ( '°æ°í', "$ Sender, $ IP, $ hostname, $ helo"); if (is_authorized_sender ($ sender, $ relayaddr)) {return ( '°è¼Ó', "OK"); } ($ sender ne '') {($ rv, $ ÀÌÀ¯) = check_valid_mx ($ sender); ($ RV) {md_syslog ( '°æ°í', "$ Sender - À¯È¿ÇÏÁö ¾ÊÀº mx : $ ÀÌÀ¯"); ¹Ýȯ ( '°ÅºÎ', "Á˼ÛÇÕ´Ï´Ù. $ Sender´Â À߸øµÈ MX ·¹Äڵ尡 À߸øµÇ¾ú½À´Ï´Ù."); }}} ¿ä±¸ »çÇ× : ¡¤ DNS. ¡¤ Perl.
net :: validmx. °ü·Ã ¼ÒÇÁÆ®¿þ¾î