|
||||
1 : #!/bin/wel¢Ò 2 : ¢Ò 3 : /* file: answer.wel¢Ò 4 : ¢Ò 5 : °Ô½ÃÆÇ ´äº¯±Û ¾²±â ÇÁ·Î±×·¥ (author: ¼±¤Çö)¢Ò 6 : ¢Ò 7 : Copyright (c) 2001/03/25 by Wesoft¢Ò 8 : All Rights Reserved.¢Ò 9 : */¢Ò 10 : ¢Ò 11 : send_cookie= "NO";¢Ò 12 : if(include("include/fileupload.sub")!=OK) return;¢Ò 13 : if(write_answer==0)¢Ò 14 : {¢Ò 15 : if(attfile!="") delete_uploadfile();¢Ò 16 : MSG1= "´äº¯±Û ÀÛ¼º ±ÝÁö »óÅÂ";¢Ò 17 : if(board_name=="") board_name= "ÀÌ " ~ prg_title;¢Ò 18 : MSG2= "<font color=#0000c0>" ~ board_name ~ "</font>¿¡¼´Â "¢Ò 19 : ~ "´äº¯±ÛÀ» ÀÛ¼º ÇÒ ¼ö ¾øµµ·Ï ȯ°æ¼³Á¤ÀÌ µÇ¾îÀÖ½À´Ï´Ù!" ~ BACK_BUTTON;¢Ò 20 : formdump(message_form);¢Ò 21 : return disconnect();¢Ò 22 : }¢Ò 23 : no= val(no);¢Ò 24 : if(no<1)¢Ò 25 : {¢Ò 26 : if(attfile!="") delete_uploadfile();¢Ò 27 : MSG1= "ÀÚ·á¹øÈ£ ¿À·ù";¢Ò 28 : MSG2= "ÀÚ·á ¹øÈ£°¡ ¾ø°Å³ª À߸øµÇ¾ú½À´Ï´Ù." ~ BACK_BUTTON;¢Ò 29 : formdump(message_form);¢Ò 30 : return disconnect();¢Ò 31 : }¢Ò 32 : ¢Ò 33 : qstr= "select grpno,answer,subject,content,wemail from " ~ mytable¢Ò 34 : ~ " where selno=" ~ no;¢Ò 35 : if( (rt=mysql_getrecord(qstr,"poster_")) < 1 )¢Ò 36 : {¢Ò 37 : if(attfile!="") delete_uploadfile();¢Ò 38 : if(rt==0)¢Ò 39 : {¢Ò 40 : MSG1= "ÀÚ·á°¡ ¾ø½À´Ï´Ù!";¢Ò 41 : MSG2= no ~ "¹øÀÇ °Ô½Ã¹°ÀÌ »èÁ¦µÇ¾ú°Å³ª ¾ø½À´Ï´Ù!" ~ BACK_BUTTON;¢Ò 42 : formdump(message_form);¢Ò 43 : }¢Ò 44 : return disconnect();¢Ò 45 : }¢Ò 46 : ¢Ò 47 : function too_many_answer(string msg)¢Ò 48 : {¢Ò 49 : if(attfile!="") delete_uploadfile();¢Ò 50 : MSG1= "´äº¯±Û ÀÛ¼º ¿À·ù";¢Ò 51 : MSG2= msg ~ BACK_BUTTON;¢Ò 52 : formdump(message_form);¢Ò 53 : return disconnect();¢Ò 54 : }¢Ò 55 : ¢Ò 56 : poster_answer_len= len(poster_answer);¢Ò 57 : if(poster_answer_len>=20)¢Ò 58 : {¢Ò 59 : msg= "´äº¯¿¡ ´ëÇÑ ´äº¯ÀÌ 20´Ü°è¸¦ ÃÊ°úÇÏ¿© ´õ ÀÌ»ó Ãß°¡ÇÒ ¼ö ¾ø½À´Ï´Ù!";¢Ò 60 : return too_many_answer(msg);¢Ò 61 : }¢Ò 62 : qstr= "select answer from " ~ mytable ~ " where grpno=" ~ poster_grpno¢Ò 63 : ~ " and substring(answer,1," ~ poster_answer_len ~ ")='" ~ poster_answer¢Ò 64 : ~ "' and length(answer)=" ~ poster_answer_len + 1¢Ò 65 : ~ " order by answer desc limit 0,1";¢Ò 66 : if((rt=mysql_getrecord(qstr,"MAX_")) < 0)¢Ò 67 : {¢Ò 68 : if(attfile!="") delete_uploadfile();¢Ò 69 : return;¢Ò 70 : }¢Ò 71 : if(rt==0) new_answer= poster_answer ~ "1";¢Ò 72 : else¢Ò 73 : {¢Ò 74 : ch= mid(MAX_answer, poster_answer_len+1, 1);¢Ò 75 : if(ch>="Z")¢Ò 76 : {¢Ò 77 : msg= "°Ô½Ã¹°ÀÇ ´äº¯ÀÌ ³Ê¹« ¸¹¾Æ¼ ´õ ÀÌ»ó Ãß°¡ÇÒ ¼ö ¾ø½À´Ï´Ù!";¢Ò 78 : return too_many_answer(msg);¢Ò 79 : }¢Ò 80 : new_ch= chr(asc(ch) + 1);¢Ò 81 : if(new_ch>"9" && new_ch<"A") new_ch= "A";¢Ò 82 : new_answer= poster_answer ~ new_ch;¢Ò 83 : }¢Ò 84 : ¢Ò 85 : if(writeflag<1)¢Ò 86 : {¢Ò 87 : if(attfile!="") delete_uploadfile();¢Ò 88 : action= "answer.wel", answer_flag= "1";¢Ò 89 : wname= ckname, wemail= ckemail;¢Ò 90 : if(wname=="") focus= "wname";¢Ò 91 : else if(wemail=="") focus= "wemail";¢Ò 92 : else focus= "subject";¢Ò 93 : subject= poster_subject;¢Ò 94 : if(toupper(left(subject,3))!="RE:") subject= "Re: " ~ subject;¢Ò 95 : fm= formdump(skin~"write.fom");¢Ò 96 : if(fm==FORM_OPENERR) return err_form("write.fom");¢Ò 97 : return disconnect();¢Ò 98 : }¢Ò 99 : ¢Ò 100 : subject= strchange(left(lrtrim(subject),60,1), fch, rch);¢Ò 101 : content= strchange(content, fch, rch);¢Ò 102 : fileseq= val(new_attfile);¢Ò 103 : linecnt= strcount(content, "\n");¢Ò 104 : if(right(content,1)!="\n") ++linecnt;¢Ò 105 : postpass= encode(left(postpass, 12), encodekey(), "", decode_variable);¢Ò 106 : ¢Ò 107 : wdtime= date(1) ~ " " ~ left(time(1),5);¢Ò 108 : wip= getenv("REMOTE_ADDR");¢Ò 109 : whost= getenv("REMOTE_HOST");¢Ò 110 : wid= ckid;¢Ò 111 : wname= strchange(left(lrtrim(wname),20,1), fch, rch);¢Ò 112 : wemail= strchange(left(lrtrim(wemail),40,1), fch, rch);¢Ò 113 : ¢Ò 114 : qstr= "insert into "~mytable~" (grpno,answer,subject,content,attfile,fileseq,"¢Ò 115 : ~ "readcnt,downcnt,linecnt,postpass,wdtime,wip,whost,wname,wemail) values ("¢Ò 116 : ~ strform("{$poster_grpno},'{$new_answer}','{$subject}','{$content}',",¢Ò 117 : "'{$attfile}',{$fileseq},0,0,{$linecnt},'{$postpass}',",¢Ò 118 : "'{$wdtime}','{$wip}','{$whost}','{$wname}','{$wemail}')");¢Ò 119 : ¢Ò 120 : if(mysql_query(mysql, qstr)==MYSQL_ERR)¢Ò 121 : {¢Ò 122 : if(attfile!="") delete_uploadfile();¢Ò 123 : return err_query();¢Ò 124 : }¢Ò 125 : send_cookie(ckid, ckpass, wemail, wname);¢Ò 126 : if(mail_to_answer!=0) include("include/mailanswer.sub");¢Ò 127 : url= strform("board.wel?db={$db}&pg={$pg}&bp={$bp}&sk={$sk}&no={$no}&k={$k}&cn={$cn}&cs={$cs}&cc={$cc}");¢Ò 128 : replace_location(url);¢Ò 129 : return disconnect();¢Ò |
||||
|