File name: welboard2/login.wel (1,300 bytes) Text file viewer v1.2
    1 : #!/bin/wel¢Ò
    2 : ¢Ò
    3 : /* file: login.wel¢Ò
    4 : ¢Ò
    5 :    °ü¸®ÀÚ ·Î±×ÀÎ ÇÁ·Î±×·¥ (author: ¼­±¤Çö)¢Ò
    6 : ¢Ò
    7 :    Copyright (c) 2001/03/25 by Wesoft¢Ò
    8 :    All Rights Reserved.¢Ò
    9 : */¢Ò
   10 : ¢Ò
   11 : htmlquery("GET");¢Ò
   12 : htmlquery("POST");¢Ò
   13 : break_on= -2;¢Ò
   14 : if(include("include/board.inc")!=OK) return;¢Ò
   15 : id= tolower(left(lrtrim(id),12));¢Ò
   16 : pass= tolower(left(lrtrim(pass),12));¢Ò
   17 : ¢Ò
   18 : FIRST_LOGIN_MSG= "·Î±×ÀÎ ÈÄ <font color=#f00000>" ~ COOKIE_EXPIRE~ "</font>"¢Ò
   19 :                ~ "ºÐ ÀÌ»ó »ç¿ëÇÏÁö ¾ÊÀ»¶§´Â ´Ù½Ã ·Î±×ÀÎ ÇؾßÇÕ´Ï´Ù.";¢Ò
   20 : if(mysql_connection("")==MYSQL_ERR) return;¢Ò
   21 : login_form= 0;¢Ò
   22 : if(id=="") login_form= 1, MSG= FIRST_LOGIN_MSG;¢Ò
   23 :  else¢Ò
   24 :   {¢Ò
   25 :      board_admin_depass= decode(board_admin_pass, "", decode_variable);¢Ò
   26 :      if(id!=board_admin_id || pass!=board_admin_depass)¢Ò
   27 :       {¢Ò
   28 :           login_form= 1;¢Ò
   29 :           MSG= "<font color=#f00000>°ü¸®ÀÚ ID ¶Ç´Â ¾ÏÈ£°¡ Ʋ¸³´Ï´Ù.";¢Ò
   30 :       }¢Ò
   31 :   }¢Ò
   32 : if(login_form==1)¢Ò
   33 :  {¢Ò
   34 :     focus= "id", action= "login.wel";¢Ò
   35 :     back= "golist()", check= "Check()", btname= "·Î±×ÀÎÇϱâ";¢Ò
   36 :     idinput= "1", title= prg_title ~ " °ü¸®ÀÚ ·Î±×ÀÎ";¢Ò
   37 :     fm= formdump(skin~"auth.fom");¢Ò
   38 :     if(fm==FORM_OPENERR) return err_form("auth.fom");¢Ò
   39 :     return disconnect();¢Ò
   40 :  }¢Ò
   41 : send_cookie(id, pass, board_admin_email, "°ü¸®ÀÚ");¢Ò
   42 : url= strform("board.wel?db={$db}&pg={$pg}&bp={$bp}&sk={$sk}&no={$no}&k={$k}&cn={$cn}&cs={$cs}&cc={$cc}");¢Ò
   43 : replace_location(url);¢Ò
   44 : return;¢Ò
File name: welboard2/login.wel (1,300 bytes) Wesoft Corp. ¨Ï 2001 All rights reserved.