|
||||
1 : /* file: mailanswer.sub¢Ò 2 : ¢Ò 3 : ´äº¯±Û ÀÛ¼º ¾Ë¸² email ºÎ ÇÁ·Î±×·¥ (author: ¼±¤Çö)¢Ò 4 : ¢Ò 5 : Copyright (c) 2001/03/25 by Wesoft¢Ò 6 : All Rights Reserved.¢Ò 7 : */¢Ò 8 : ¢Ò 9 : MAIL_FORM=¢Ò 10 : {[{&¢Ò 11 : board_url= "http://" ~ getenv("SERVER_NAME")¢Ò 12 : ~ strchange(getenv("SCRIPT_NAME"), "write.wel", "board.wel")¢Ò 13 : ~ "?db=" ~ db;¢Ò 14 : cwd= getcwd();¢Ò 15 : }¢Ò 16 : Return-Path: {$board_admin_email}¢Ò 17 : From: {$wemail}¢Ò 18 : Reply-To: {$to_email}¢Ò 19 : X-Mailer: {$PROGRAM_NAME} {$PROGRAM_VERSION}¢Ò 20 : To: {$to_email}¢Ò 21 : Subject: {$wname}´ÔÀÌ [{$board_name}]¿¡ ´äº¯±ÛÀ» ÀÛ¼ºÇß½À´Ï´Ù.¢Ò 22 : ¢Ò 23 : 1. °Ô½ÃÆÇ URL: {$board_url}¢Ò 24 : 2. °Ô½ÃÆÇ À̸§: {$board_name} , µ¥ÀÌÅͺ£À̽º À̸§: {$db}¢Ò 25 : 3. ÀÛ¼ºÀÚ: {$wname} , email: {$wemail}¢Ò 26 : 4. ÀÛ¼ºÁ¤º¸: {$wdtime} ({$wip}) {$whost}¢Ò 27 : 5. ¿ø¹® Á¦¸ñ: {$poster_subject}¢Ò 28 : 6. ´äº¯ Á¦¸ñ: {$subject}{?*!attfile,{!goto start_content}}¢Ò 29 : 7. ÷ºÎÆÄÀÏ: {$attfile}{:start_content}¢Ò 30 : ----------------------------<< ³»¿ë ½ÃÀÛ >>----------------------------¢Ò 31 : {$content}¢Ò 32 : -----------------------------<< ³»¿ë ³¡ >>-----------------------------¢Ò 33 : ]}¢Ò 34 : ¢Ò 35 : function send_mail(string to_email)¢Ò 36 : {¢Ò 37 : fp= popen("/usr/lib/sendmail -t", "w");¢Ò 38 : if(fp==FILE_OPEN_ERR) return;¢Ò 39 : fprint(fp, strform(MAIL_FORM));¢Ò 40 : pclose(fp);¢Ò 41 : return;¢Ò 42 : }¢Ò 43 : ¢Ò 44 : if(poster_wemail!="") send_mail(poster_wemail);¢Ò 45 : return;¢Ò |
||||
|