======================================================================
¼¼ÆÈ´ÔÀÌ ¸¸µå½Å °Ô½ÃÆÇ ÇÁ·Î±×·¥À» Àúµµ Àß ¾²°í Àִµ¥¿ä. Àú´Â À©µµ¿ìÁî 2000À» ¾²°í Àֱ⠶§¹®¿¡ sendmail ±â´É ¶§¹®¿¡ °í»ýÀ» Á» Çß½À´Ï´Ù. ¸î ½Ã°£ Á¤µµ ½Ã°£À» ÅõÀÚÇؼ The Stalkerlab
s Mailers V1.20 for MS Windows NT¿¡ ÀÖ´Â mail.exe ¿Í mail.ini ¶ó´Â ¹«·á À¯Æ¿¸®Æ¼¸¦ http://www.stalkerlab.ch ¿¡¼ ±¸ÇÏ°í ¶Ç ¼¼ÆÈ´ÔÀÌ ¿ø·¡ ¸¸µç ¼Ò½º ÇÁ·Î±×·¥À» ¸î ÁÙ ¼öÁ¤À» Çؼ sendmail ±â´ÉÀÌ µÇµµ·Ï Çß½À´Ï´Ù. mail.exe ´Â smtp¸¦ ¹ÙÅÁÀ¸·Î Çϱ⠶§¹®¿¡ smtp ¼¹ö¸¦ ÁöÁ¤ÇØÁÖ¾î¾ß ÇÕ´Ï´Ù.
º° °Í ¾Æ´ÏÁö¸¸ ±×·¡µµ Á¦°¡ Àß ¸ð¸£´Â perl ¹®¹ýÀ» ÀÎÅͳÝÀ¸·Î ã¾Æº¸¸é¼ Á¶±Ý ¼öÁ¤À» Çß´õ´Ï ÀÌ»ó ¾øÀÌ Àß µÇ´õ±º¿ä. ¼¼ÆÈ´Ôó·³ ¸ðµç ¼Ò½º¸¦ °ø°³ÇÏ´Â ºÐµµ Àִµ¥ °í¸¶¿î ¸¶À½À¸·Î ÀÛÀº ÆÁÀÌÁö¸¸ ¼Ò°³¸¦ Çغ¾´Ï´Ù.
¿ì¼± http://www.stalkerlab.ch ¿¡ °¡¼Å¼ À©µµ¿ìÁî NT¿ë Mailers¸¦ ´Ù¿î·Îµå ¹Þ¾Æ¼ mail.exe ¿Í mail.ini¸¦ board.cgi °¡ ÀÖ´Â µð·ºÅ丮¿¡ Ǫ½Ã°í¿ä. mail.ini¸¦ ¹®¼ ÆíÁý±â·Î ¿¾î¼ ÀÚ±â e-mail ÁÖ¼Ò¿Í smtp ¼¹ö¸¦ ÁöÁ¤ÇØÁÖµµ·Ï Çϼ¼¿ä.
À©µµ¿ìÁî NT ¶Ç´Â 2000 »ç¿ëÀÚ¶ó¸é, ¼¼ÆÈ´ÔÀÌ ¸¸µç board.cgi ¼Ò½º¿¡¼ ù ¸Ó¸® ºÎºÐÀ» ´ÙÀ½°ú °°ÀÌ ¼öÁ¤ÇØÁÖ°í¿ä.
$sendmail = "mail"; #sendmail À§Ä¡
$NT = "0";
$mail_out = "maillog";
¿©±â¼ mail.exe ¿Í mail.ini ´Â board.cgi °¡ ÀÖ´Â µð·ºÅ丮¿¡ ÇÔ²² µÎ¾î¾ß ÇÕ´Ï´Ù.
´ÙÀ½ ³¹¸» ã±â·Î |$sendmail ÀÌ ³ª¿À´Â 3 °³ ºÎºÐÀ» ´ÙÀ½°ú °°ÀÌ ¼öÁ¤ÇØÁÖ¸é À©µµ¿ìÁî NT¿¡¼µµ sendmailÀ» ¾µ ¼ö ÀÖ½À´Ï´Ù.
1)
if($mail_addr ne ""){
$FORM{
fname
} = $sub_list[0];
$FORM{
fmail
} = $sub_list[1];
}
$t_mail = "$FORM{
tmail
}";
$t_name = "$FORM{
tname
}";
$s_mail = "$FORM{
fmail
}";
$s_name = "$FORM{
fname
}";
my $to_mail = "$t_name <$t_mail>";
my $from_mail = "$s_name <$s_mail>";
open (MAIL, "|$sendmail -s "Somebody delivered a message." -m html $t_mail > $mail_out") || die "ÈÀÏ ¿±â ½ÇÆÐ!
";
print MAIL "<style type=text/css>
";
print MAIL "a:link, a:visited, a:active { text-decoration:none; color:$CONF{
link_color
}; }
";
2)
open (MAIL, "|$sendmail -s "You got a reply." -m html $addr > $mail_out") || die "ÈÀÏ ¿±â ½ÇÆÐ!
";
print MAIL "<style type=text/css>
";
print MAIL "a:link, a:visited, a:active { text-decoration:none; color:$CONF{
link_color
}; }
";
3)
sub sendmail {
open (MAIL, "|$sendmail -s "´äº¯ÀÌ µî·ÏµÇ¾ú½À´Ï´Ù." -m html $addr > $mail_out");
print MAIL "
$FORM{
name
}´Ô²²¼ ±ÍÇÏÀÇ ±Û¿¡´ëÇÑ ´äº¯À» µî·ÏÇÏ¿´À¾´Ï´Ù.
";
======================================================================
¿ø¹® Ãâó : http://www.spfamily.com
|