File name: addrbook/selfinfo.wel (1,625 bytes) Text file viewer v1.2 
    1 : #!/bin/wel
    2 : 
    3 : /* file: selfinfo.wel
    4 : 
    5 :    주소록 사용자 자기 정보 수정 프로그램 (author: 서광현)
    6 : 
    7 :    Copyright (c) 2001/02/22 by Wesoft
    8 :    All Rights Reserved.
    9 : */
   10 : 
   11 : htmlquery("GET");
   12 : htmlquery("POST");
   13 : include("common.inc");
   14 : if(mysql_connection()==MYSQL_ERR) return;
   15 : login= admin= 0; // 로긴 상태가 아니며 관리자 메뉴 사용불능
   16 : if(writeflag==1) send_cookie= "NO";
   17 : if(include("chkuser.sub")!=OK) return disconnect();
   18 : 
   19 : if(openpassmatch==0)
   20 :  {
   21 :     MSG1= "개방형 주소록 읽기 전용 상태";
   22 :     MSG2= "주소록을 개방형으로 했을 경우 ID와 암호가 일치해야만"
   23 :         ~ " 신규등록/수정/삭제가 가능하며<br>암호가 일치하지 않으면"
   24 :         ~ " 주소록을 조회만 할 수 있습니다!" ~ BACK_BUTTON;
   25 :     formdump(message_form);
   26 :     return disconnect();
   27 :  }
   28 : if(writeflag!=1) { include("selfinfo.sub"); return; }
   29 : 
   30 : if(pass=="") pswd= "";
   31 :  else
   32 :   {
   33 :      pswd= encode(tolower(left(pass,12)), encodekey(), "", decode_variable);
   34 :      pswd= "pass='" ~ pswd ~ "',";
   35 :   }
   36 : title= strchange(title, fch, rch);
   37 : name= strchange(name, fch, rch);
   38 : phone= strchange(phone, fch, rch);
   39 : hdphone= strchange(hdphone, fch, rch);
   40 : email= strchange(email, fch, rch);
   41 : 
   42 : qstr= "update " ~ myustable
   43 :     ~ strform(" set {$pswd}title='{$title}',kind='{$kind}',",
   44 :               "name='{$name}',phone='{$phone}',hdphone='{$hdphone}',",
   45 :               "email='{$email}',pagerec='{$rpp}' where id='{$ckid}'");
   46 : 
   47 : if(mysql_query(mysql, qstr)==MYSQL_ERR) return err_query();
   48 : 
   49 : if(pass=="") pass= ckpass;
   50 : send_cookie(ckid, pass);
   51 : url= strform("addrbook.wel?list={$list}&k={$k}&n={$n}&o={$o}",
   52 :              "&pi={$pi}&pw={$pw}&pm={$pm}&ps={$ps}&pd={$pd}");
   53 : replace_location(url);
   54 : return disconnect();
File name: addrbook/selfinfo.wel (1,625 bytes) Wesoft Corp. ⓒ 2001 All rights reserved.