|
||||
1 : #!/bin/wel¢Ò 2 : ¢Ò 3 : /* file: modify.wel¢Ò 4 : ¢Ò 5 : °Ô½ÃÆÇ ¼öÁ¤ ÇÁ·Î±×·¥ (author: ¼±¤Çö)¢Ò 6 : ¢Ò 7 : Copyright (c) 2001/03/25 by Wesoft¢Ò 8 : All Rights Reserved.¢Ò 9 : */¢Ò 10 : ¢Ò 11 : if(include("include/fileupload.sub")!=OK) return;¢Ò 12 : no= val(no);¢Ò 13 : if(no<1)¢Ò 14 : {¢Ò 15 : if(attfile!="") delete_uploadfile();¢Ò 16 : MSG1= "ÀÚ·á¹øÈ£ ¿À·ù";¢Ò 17 : MSG2= "ÀÚ·á ¹øÈ£°¡ ¾ø°Å³ª À߸øµÇ¾ú½À´Ï´Ù." ~ BACK_BUTTON;¢Ò 18 : formdump(message_form);¢Ò 19 : return disconnect();¢Ò 20 : }¢Ò 21 : qstr= "select answer,subject,content,attfile,fileseq,postpass,wname,wemail"¢Ò 22 : ~ " from " ~ mytable ~ " where selno=" ~ no;¢Ò 23 : if( (rt=mysql_getrecord(qstr,"DB_")) < 1 )¢Ò 24 : {¢Ò 25 : if(attfile!="") delete_uploadfile();¢Ò 26 : if(rt==0)¢Ò 27 : {¢Ò 28 : MSG1= "ÀÚ·á°¡ ¾ø½À´Ï´Ù!";¢Ò 29 : MSG2= no ~ "¹øÀÇ °Ô½Ã¹°ÀÌ »èÁ¦µÇ¾ú°Å³ª ¾ø½À´Ï´Ù!" ~ BACK_BUTTON;¢Ò 30 : formdump(message_form);¢Ò 31 : }¢Ò 32 : return disconnect();¢Ò 33 : }¢Ò 34 : if(read_only==1 && DB_answer=="" || write_answer==0 && DB_answer!="")¢Ò 35 : {¢Ò 36 : if(attfile!="") delete_uploadfile();¢Ò 37 : MSG1= "°ü¸®ÀÚ Àü¿ë " ~ prg_title;¢Ò 38 : if(board_name=="") board_name= "ÀÌ " ~ prg_title;¢Ò 39 : MSG2= "<font color=#0000c0>" ~ board_name ~ "</font>¿¡¼´Â "¢Ò 40 : ~ "°ü¸®ÀÚ¸¸ ¾²±â/¼öÁ¤/»èÁ¦¸¦ ÇÒ ¼ö ÀÖ½À´Ï´Ù!" ~ BACK_BUTTON;¢Ò 41 : formdump(message_form);¢Ò 42 : return disconnect();¢Ò 43 : }¢Ò 44 : if(writeflag!=1)¢Ò 45 : {¢Ò 46 : if(DB_postpass=="") depass= board_admin_depass;¢Ò 47 : else depass= decode(DB_postpass,"",decode_variable);¢Ò 48 : if(us_class!="A" && pass!=depass && pass!=board_admin_depass)¢Ò 49 : {¢Ò 50 : if(attfile!="") delete_uploadfile();¢Ò 51 : if(authflag==1) MSG= "<font color=#f00000>¾ÏÈ£°¡ Ʋ¸³´Ï´Ù. ´Ù½Ã ÀÔ·ÂÇϼ¼¿ä!</font>";¢Ò 52 : else¢Ò 53 : {¢Ò 54 : if(DB_postpass!="") MSG= "°Ô½Ã¹°ÀÇ ¼öÁ¤ / »èÁ¦ ¾ÏÈ£ ¶Ç´Â";¢Ò 55 : else MSG= "°Ô½Ã¹°ÀÌ ¾ÏÈ£ ¾øÀÌ ÀÛ¼ºµÇ¾ú½À´Ï´Ù.";¢Ò 56 : MSG~= " °ü¸®ÀÚ ¾ÏÈ£¸¦ ÀÔ·ÂÇϼ¼¿ä!";¢Ò 57 : }¢Ò 58 : focus= "pass", action= "modify.wel";¢Ò 59 : back= "goview()", check= "Check2()", btname= "¼öÁ¤Çϱâ";¢Ò 60 : idinput= "", title= "°Ô½Ã¹° ¼öÁ¤ / »èÁ¦ ¾ÏÈ£ È®ÀÎ";¢Ò 61 : fm= formdump(skin~"auth.fom");¢Ò 62 : if(fm==FORM_OPENERR) return err_form("auth.fom");¢Ò 63 : return disconnect();¢Ò 64 : }¢Ò 65 : if(attfile!="") delete_uploadfile();¢Ò 66 : DB_wemail= strchange(DB_wemail,html_fch,html_rch);¢Ò 67 : DB_subject= strchange(DB_subject,html_fch,html_rch);¢Ò 68 : DB_content= strchange(DB_content,html_fch,html_rch);¢Ò 69 : fm= formdump(skin~"modify.fom");¢Ò 70 : if(fm==FORM_OPENERR) return err_form("modify.fom");¢Ò 71 : return disconnect();¢Ò 72 : }¢Ò 73 : ¢Ò 74 : if(attfile=="") update_attfile= "";¢Ò 75 : else¢Ò 76 : {¢Ò 77 : clear_downcnt= "downcnt=0,";¢Ò 78 : if(DB_attfile!="")¢Ò 79 : {¢Ò 80 : if(DB_attfile==attfile) clear_downcnt= ""; // °°Àº ÆÄÀÏÀ» ¾÷·ÎµåÇßÀ½¢Ò 81 : DB_fileseq= val(DB_fileseq);¢Ò 82 : if(DB_fileseq>0) DB_attfile= DB_fileseq ~ "-" ~ DB_attfile;¢Ò 83 : if(new_attfile=="") now_upload= attfile; else now_upload= new_attfile;¢Ò 84 : if(DB_attfile!=now_upload) unlink(upload_dir~"/"~DB_attfile);¢Ò 85 : }¢Ò 86 : update_attfile= "attfile='" ~ attfile ~ "',fileseq=" ~ val(new_attfile)¢Ò 87 : ~ "," ~ clear_downcnt;¢Ò 88 : }¢Ò 89 : ¢Ò 90 : subject= strchange(left(lrtrim(subject),60,1), fch, rch);¢Ò 91 : content= strchange(content, fch, rch);¢Ò 92 : linecnt= strcount(content, "\n");¢Ò 93 : if(right(content,1)!="\n") ++linecnt;¢Ò 94 : if(postpass!="")¢Ò 95 : {¢Ò 96 : enpass= encode(left(postpass, 12), encodekey(), "", decode_variable);¢Ò 97 : postpass= "postpass='" ~ enpass ~ "',";¢Ò 98 : }¢Ò 99 : mdtime= date(1) ~ " " ~ left(time(1),5);¢Ò 100 : mip= getenv("REMOTE_ADDR");¢Ò 101 : mhost= getenv("REMOTE_HOST");¢Ò 102 : mname= strchange(left(lrtrim(wname),20,1), fch, rch);¢Ò 103 : memail= strchange(left(lrtrim(wemail),40,1), fch, rch);¢Ò 104 : ¢Ò 105 : qstr= "update " ~ mytable¢Ò 106 : ~ strform(" set subject='{$subject}',content='{$content}',",¢Ò 107 : "{$update_attfile}linecnt={$linecnt},{$postpass}",¢Ò 108 : "mdtime='{$mdtime}',mip='{$mip}',mhost='{$mhost}',",¢Ò 109 : "mname='{$mname}',memail='{$memail}' where selno={$no}");¢Ò 110 : ¢Ò 111 : if(mysql_query(mysql, qstr)==MYSQL_ERR)¢Ò 112 : {¢Ò 113 : if(attfile!="") delete_uploadfile();¢Ò 114 : return err_query();¢Ò 115 : }¢Ò 116 : url= strform("board.wel?db={$db}&pg={$pg}&bp={$bp}&sk={$sk}&no={$no}&k={$k}&cn={$cn}&cs={$cs}&cc={$cc}");¢Ò 117 : replace_location(url);¢Ò 118 : return disconnect();¢Ò |
||||
|