File name: addrbook/login.wel (1,470 bytes) Text file viewer v1.2 
    1 : #!/bin/wel
    2 : 
    3 : /* file: login.wel
    4 : 
    5 :    주소록 사용자 로그인 프로그램 (author: 서광현)
    6 : 
    7 :    Copyright (c) 2001/02/22 by Wesoft
    8 :    All Rights Reserved.
    9 : */
   10 : 
   11 : htmlquery("GET");
   12 : getid= id; // url에 id를 쿼리로 전달할 경우
   13 : getpass= pass;
   14 : if(getid!="") getflag= 1; else getflag= 0;
   15 : htmlquery("POST");
   16 : if(getid!="") id= getid;
   17 : include("common.inc");
   18 : id= strchange(tolower(left(id,12)), fch~"| ", rch~"|");
   19 : 
   20 : if(mysql_connection()==MYSQL_ERR) return;
   21 : FIRST_LOGIN_MSG= "로그인 후 <font color=#f00000>" ~ COOKIE_EXPIRE~ "</font>"
   22 :                ~ "분 이상 사용하지 않을때는 다시 로그인 해야합니다.";
   23 : if(id=="")
   24 :  {
   25 :     MSG= FIRST_LOGIN_MSG;
   26 :     print_type("");
   27 :     fm= formdump("form/login.fom");
   28 :     if(fm==FORM_OPENERR) return err_form("login.fom");
   29 :     return disconnect();
   30 :  }
   31 : 
   32 : if(getid!="") login= -1; else login= 1;
   33 : admin= -1;
   34 : ckid= id;
   35 : ckpass= tolower(left(pass,12));
   36 : if((rtcode=include("chkuser.sub"))==FAIL) return disconnect();
   37 : if(getid!="" && rtcode==ERR_ID) return disconnect();
   38 : if(rtcode!=OK)
   39 :  {
   40 :     if(getflag==1 && getpass=="") MSG= FIRST_LOGIN_MSG;
   41 :      else
   42 :       {
   43 :         if(getid!="" && getpass=="") MSG= "";
   44 :           else MSG= "<font color=#f00000>" ~ id ~ "</font> 님이 없거나 ";
   45 :         MSG~= "암호가 틀립니다.";
   46 :       }
   47 :     print_type("");
   48 :     fm= formdump("form/login.fom");
   49 :     if(fm==FORM_OPENERR) return err_form("login.fom");
   50 :     return disconnect();
   51 :  }
   52 : if(us_class=="A") url= "admin.wel"; else url= "addrbook.wel";
   53 : replace_location(url);
   54 : return disconnect();
File name: addrbook/login.wel (1,470 bytes) Wesoft Corp. ⓒ 2001 All rights reserved.