|
||||
1 : #!/bin/wel¢Ò 2 : ¢Ò 3 : /* file: mail.wel¢Ò 4 : ¢Ò 5 : email ¹ß¼Û¿ë ÇÁ·Î±×·¥ (author: ¼±¤Çö)¢Ò 6 : ¢Ò 7 : Copyright (c) 2001/02/22 by Wesoft¢Ò 8 : All Rights Reserved.¢Ò 9 : */¢Ò 10 : ¢Ò 11 : htmlquery("get");¢Ò 12 : htmlquery("post");¢Ò 13 : include("common.inc");¢Ò 14 : ¢Ò 15 : message_title= "ÀüÀÚ¿ìÆí ¸Þ½ÃÁö";¢Ò 16 : ARG= strform("list={$list}&k={$k}&n={$n}&o={$o}",¢Ò 17 : "&pi={$pi}&pw={$pw}&pm={$pm}&ps={$ps}&pd={$pd}");¢Ò 18 : ¢Ò 19 : if(lc=="abook") back_url= "addrbook.wel?" ~ ARG;¢Ò 20 : else if(lc=="view") back_url= "view.wel?no=" ~ no ~ "&" ~ ARG;¢Ò 21 : else if(lc=="admview") back_url= "admview.wel?no=" ~ no ~ "&" ~ ARG;¢Ò 22 : else if(lc=="admin") back_url= "admin.wel?" ~ ARG;¢Ò 23 : else back_url= "login.wel";¢Ò 24 : ¢Ò 25 : if(to!="")¢Ò 26 : {¢Ò 27 : to_name= toname ~ " (" ~ to ~ ")";¢Ò 28 : to_email= to;¢Ò 29 : guide= "³»¿ë";¢Ò 30 : }¢Ò 31 : else¢Ò 32 : {¢Ò 33 : to_name= "ÁÖ¼Ò·Ï °ü¸®ÀÚ";¢Ò 34 : to_email= admin_email;¢Ò 35 : guide= "ºÒÆí»çÇ×À̳ª ¹®ÀÇ»çÇ×µî";¢Ò 36 : }¢Ò 37 : ¢Ò 38 : if(mailwrite!=1)¢Ò 39 : {¢Ò 40 : idname= id;¢Ò 41 : if(name!="")¢Ò 42 : {¢Ò 43 : if(id=="") idname= name; else idname~= " (" ~ name ~ ")";¢Ò 44 : }¢Ò 45 : if(idname!="")¢Ò 46 : {¢Ò 47 : if(email!="") focus= "Subject"; else focus= "FromEmail";¢Ò 48 : if(id!="") ro_idname= " readonly";¢Ò 49 : }¢Ò 50 : else¢Ò 51 : {¢Ò 52 : focus= "FromName";¢Ò 53 : ro_idname= "";¢Ò 54 : }¢Ò 55 : fm= formdump("form/mail.fom");¢Ò 56 : if(fm==FORM_OPENERR) err_form("mail.fom");¢Ò 57 : return;¢Ò 58 : }¢Ò 59 : ¢Ò 60 : fp= popen("/usr/lib/sendmail -t", "w");¢Ò 61 : if(fp==FILE_OPEN_ERR)¢Ò 62 : {¢Ò 63 : MSG1= "ÀüÀÚ¿ìÆí ½Ã½ºÅÛ ¿À·ù";¢Ò 64 : MSG2= "ÀüÀÚ¿ìÆíÀÇ ³»ºÎ ¿À·ù°¡ ¹ß»ýÇÏ¿© ¸ÞÀÏÀ» ¹ß¼ÛÇÒ ¼ö ¾ø½À´Ï´Ù."¢Ò 65 : ~ BACK_BUTTON;¢Ò 66 : formdump(message_form);¢Ò 67 : return;¢Ò 68 : }¢Ò 69 : ¢Ò 70 : VAR_MAILER= PROGRAM_NAME ~ " " ~ PROGRAM_VERSION;¢Ò 71 : fprint(fp,"From: ",FromName);¢Ò 72 : if(FromEmail!="") fprint(fp," <",FromEmail,">");¢Ò 73 : fprint(fp,"\n");¢Ò 74 : fprint(fp,"Reply-To: ",FromEmail,"\n");¢Ò 75 : fprint(fp,"X-Mailer: ",VAR_MAILER,"\n");¢Ò 76 : fprint(fp,"To: ",ToEmail,"\n");¢Ò 77 : fprint(fp,"Subject: ",Subject,"\n\n");¢Ò 78 : if(to=="")¢Ò 79 : {¢Ò 80 : fprint(fp,"[°³ÀÎ ÁÖ¼Ò·Ï ÇÁ·Î±×·¥¿¡¼ °ü¸®ÀÚ´Ô¿¡°Ô ¹ß¼ÛÇß½À´Ï´Ù]\n");¢Ò 81 : fprint(fp," ÀÛ¼ºÀÚ: ",FromName,"\n");¢Ò 82 : fprint(fp," ÀÛ¼ºÀÏ: ",date(1)," ",time(1),"\n");¢Ò 83 : fprint(fp," À§ Ä¡: ", getcwd(), "\n");¢Ò 84 : fprint(fp,"------------------------------\n");¢Ò 85 : }¢Ò 86 : fprint(fp,Text,"\n");¢Ò 87 : pclose(fp);¢Ò 88 : action= "location.replace('" ~ back_url ~ "')";¢Ò 89 : MSG0= "";¢Ò 90 : MSG1= "ÀüÀÚ¿ìÆí ¹ß¼Û Á¾·á";¢Ò 91 : MSG2= to_name ~ "¿¡°Ô ÀüÀÚ¿ìÆíÀ» ¹ß¼ÛÇß½À´Ï´Ù!<br><br>"¢Ò 92 : ~ button(0,action," È® ÀÎ ","");¢Ò 93 : ¢Ò 94 : formdump(message_form);¢Ò 95 : return;¢Ò |
||||
|