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.