File name: welboard2/include/mailanswer.sub (1,231 bytes) Text file viewer v1.2
    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;¢Ò
File name: welboard2/include/mailanswer.sub (1,231 bytes) Wesoft Corp. ¨Ï 2001 All rights reserved.