File name: welboard2/include/fileupload.sub (2,383 bytes) Text file viewer v1.2
    1 : /* file: fileupload.sub¢Ò
    2 : ¢Ò
    3 :    ÆÄÀÏ ¾÷·Îµå ºÎ ÇÁ·Î±×·¥ (author: ¼­±¤Çö)¢Ò
    4 : ¢Ò
    5 :    Copyright (c) 2001/03/25 by Wesoft¢Ò
    6 :    All Rights Reserved.¢Ò
    7 : */¢Ò
    8 : ¢Ò
    9 : function delete_uploadfile()¢Ò
   10 :  {¢Ò
   11 :    if(new_attfile!="") attfile= new_attfile;¢Ò
   12 :    if(attfile!="")¢Ò
   13 :     {¢Ò
   14 :        unlink(upload_dir ~ "/" ~ attfile);¢Ò
   15 :        attfile= "";¢Ò
   16 :     }¢Ò
   17 :  }¢Ò
   18 : ¢Ò
   19 : timeout(0);¢Ò
   20 : htmlquery("GET");¢Ò
   21 : upload_dir= "upload";¢Ò
   22 : if(!fexist("conf/" ~ db ~ ".conf")) dbflag= 0;¢Ò
   23 :  else¢Ò
   24 :   {¢Ò
   25 :     dbflag= 1;¢Ò
   26 :     upload_dir~= "/" ~ db;¢Ò
   27 :     if(!fexist(upload_dir)) mkdir(upload_dir);¢Ò
   28 :   }¢Ò
   29 : attfile= "";¢Ò
   30 : htmlquery("POST", "", upload_dir, 0);¢Ò
   31 : break_on= 0;¢Ò
   32 : rt= include("include/board.inc");¢Ò
   33 : if(attfile!="")¢Ò
   34 :  {¢Ò
   35 :     if(dbflag==0 || rt!=OK)¢Ò
   36 :       {¢Ò
   37 :          delete_uploadfile();¢Ò
   38 :       }¢Ò
   39 :      else if(file_upload_flag!=1)¢Ò
   40 :       {¢Ò
   41 :          delete_uploadfile();¢Ò
   42 :          MSG1= "ÆÄÀÏ Àü¼Û ±ÝÁö »óÅÂ";¢Ò
   43 :          if(board_name=="") board_name= "ÀÌ °Ô½ÃÆÇ";¢Ò
   44 :          MSG2= "<font color=#0000c0>" ~ board_name ~ "</font>¿¡¼­´Â "¢Ò
   45 :              ~ "ÆÄÀÏ Àü¼ÛÀ» ÇÏÁö ¸øÇϵµ·Ï ȯ°æ ¼³Á¤ÀÌ µÇ¾î ÀÖ½À´Ï´Ù!"¢Ò
   46 :              ~ BACK_BUTTON;¢Ò
   47 :          formdump(message_form);¢Ò
   48 :          disconnect();¢Ò
   49 :          rt= FAIL;¢Ò
   50 :       }¢Ò
   51 :      else¢Ò
   52 :       {¢Ò
   53 :          if(new_attfile=="") real_file= attfile; else real_file= new_attfile;¢Ò
   54 :          fsize= fsizeof(upload_dir ~ "/" ~ real_file);¢Ò
   55 :          if(fsize==ERROR)¢Ò
   56 :           {¢Ò
   57 :              MSG1= "ÆÄÀÏ Àü¼Û ¿À·ù";¢Ò
   58 :              MSG2= "Àü¼ÛµÈ ÆÄÀÏÀÌ ÀúÀåµÇÁö ¾Ê½À´Ï´Ù!<br>"¢Ò
   59 :                  ~ "°ü¸®ÀÚ´Â upload µð·ºÅ丮ÀÇ Çã°¡ ¸ðµå¸¦ È®ÀÎÇϼ¼¿ä!"¢Ò
   60 :                  ~ BACK_BUTTON;¢Ò
   61 :              formdump(message_form);¢Ò
   62 :              delete_uploadfile();¢Ò
   63 :              disconnect();¢Ò
   64 :              rt= FAIL;¢Ò
   65 :           }¢Ò
   66 :          else if(max_upload_bytes>0 && fsize>max_upload_bytes)¢Ò
   67 :           {¢Ò
   68 :              MSG1= "ÆÄÀÏ Àü¼Û ¿ë·® ÃÊ°ú";¢Ò
   69 :              if(board_name=="") board_name= "ÀÌ °Ô½ÃÆÇ";¢Ò
   70 :              limit= bytes_str(max_upload_bytes,2);¢Ò
   71 :              MSG2= "<font color=#0000c0>" ~ board_name ~ "</font>¿¡¼­´Â "¢Ò
   72 :                  ~ "ÆÄÀÏ Àü¼Û ÃÖ´ë Å©±â°¡ <font color=#f00000>" ~ limit¢Ò
   73 :                  ~ "</font>·Î Á¦ÇѵǾî ÀÖÀ¸¸ç" ~ "<br>"¢Ò
   74 :                  ~ "<font color=#f00000>" ~ attfile¢Ò
   75 :                  ~ "</font> ÆÄÀÏÀº Á¦ÇÑµÈ ¿ë·®º¸´Ù Ä¿¼­ ÀúÀåÇÒ ¼ö ¾ø½À´Ï´Ù!"¢Ò
   76 :                  ~ BACK_BUTTON;¢Ò
   77 :              formdump(message_form);¢Ò
   78 :              delete_uploadfile();¢Ò
   79 :              disconnect();¢Ò
   80 :              rt= FAIL;¢Ò
   81 :           }¢Ò
   82 :       }¢Ò
   83 :  }¢Ò
   84 : return(rt);¢Ò
File name: welboard2/include/fileupload.sub (2,383 bytes) Wesoft Corp. ¨Ï 2001 All rights reserved.