File name: visit/viewvisit.wel (4,186 bytes) Text file viewer v1.2 
    1 : #!/bin/wel
    2 : 
    3 : /*  viewvisit.wel
    4 : 
    5 :     접속 기록에 대한 목록 보기(서광현)
    6 : 
    7 :     Copyright (c) 2000/01/10 by Wesoft
    8 :     All Rights Reserved.
    9 : 
   10 : */
   11 : 
   12 : whois_program= "/cgi-bin/whois/whois.wel"; // whois를 설치하세요~~
   13 : 
   14 : INPUT_FORM=
   15 : {[
   16 : /"<html>
   17 : <body bgcolor={$Qbcolor} onLoad='document.input.Qpasswd.focus()'>
   18 : <center>
   19 : <br>
   20 : <table border=2 cellspacing=0 width=500 bgcolor=#c0c0c0>
   21 : <tr><td>
   22 :   <table border=1 cellspacing=1 bgcolor=#d0d0d0 width=100%>
   23 :    <tr><td align=center bgcolor=#000080>
   24 :        <font color=#ffffff><b>방문 기록 보기</b></font></td></tr>
   25 :    <tr><td height=150>
   26 :     <table border=0 cellspacing=0 width=100%>
   27 :     <form name='input' method='POST' action='viewvisit.wel'>
   28 :     <tr><td width=50% align=right><b>데이터베이스명: </b></td>
   29 :      <td><input type=text name='Qdb' value='{$Qdb}' width=16></td></tr>
   30 :     <tr><td width=50% align=right><b>테 이 블 명: </b></td>
   31 :      <td><input type=text name='Qtable' value='{$Qtable}' width=16></td></tr>
   32 :     <tr><td width=50% align=right><b>암 호: </b></td>
   33 :      <td><input type=password name='Qpasswd' value='' width=16></td></tr>
   34 :     <tr><td colspan=2 align=center>
   35 :     <br><input type='submit' value=' 기 록 보 기 '></td></tr>
   36 :     </table></td></tr></form>
   37 :   </table>
   38 :   <table border=1 cellspacing=1 bgcolor=#d0d0d0 width=100%>
   39 :    <tr><td align=center bgcolor=#000080>
   40 :       <font color=#ffffff><b>Query 변수 설명</b></font></td></tr>
   41 :    <tr><td>
   42 :     <table border=0 cellspacing=0 width=100%>
   43 :     <tr><td><pre><font size=2>
   44 :  Qhost -----&gt; 연결할 mSQL 서버의 주소(초기값: {$Qhost})
   45 :  Qdb -------&gt; data base name(초기값: {$Qdb})
   46 :  Qtable ----&gt; table name(초기값: {$Qtable})
   47 :  Qbcolor ---&gt; 본문의 배경색(초기값: {$Qbcolor})
   48 :  Qtext -----&gt; 본문의 글자색(초기값: {$Qtext})
   49 :  Qpasswd ---&gt; 암호</font></pre></td></tr>
   50 :     </table></td></tr>
   51 :   </table></td></tr>
   52 : </table>
   53 : </center>
   54 : </body>
   55 : </html>
   56 : "/
   57 : ]}
   58 : 
   59 : OUTPUT_FORM=
   60 : {[
   61 :   qstr= "select * from " ~ Qtable;
   62 :   socket= msqlConnect(Qhost);
   63 :   if(socket==MSQL_ERR)
   64 :     {
   65 :        print("mSQL 서버 '", Qhost, "'를 연결할 수 없습니다!!!\n");
   66 :        return(-1);
   67 :     }
   68 :   if(msqlSelectDB(socket, Qdb)==MSQL_ERR)
   69 :     {
   70 :        print("데이터 베이스 '", Qdb,"'를 개방할 수 없습니다!!!\n");
   71 :        return(-1);
   72 :     }
   73 :   if(msqlQuery(socket, qstr)==MSQL_ERR)
   74 :     {
   75 :        print("Query 에러: ", qstr, "\n");
   76 :        return(-1);
   77 :     }
   78 : 
   79 :   result= msqlStoreResult();
   80 :   rows_count= msqlNumRows(result);
   81 :   fields_count= msqlNumFields(result);
   82 :   server= getenv("SERVER_NAME");
   83 :   print("<font color=#f0f000>");
   84 :   print("<b>http://", server, "</b> (", date(3), " ", time(3), ")");
   85 :   print("</font><br>\n");
   86 :   print("<table border=1 cellspacing=0 bgcolor=#ffffff width=90%>\n");
   87 : 
   88 :   for(i=0; i<rows_count; i++)
   89 :     {
   90 :        row= msqlFetchRow(result);
   91 :        print("<tr align=center>\n<td align=right>", i+1, "</td>\n");
   92 :        for(j=0; j<fields_count; j++)
   93 :         {
   94 :            print("<td");
   95 :            if(j<=1) print(" align=left");
   96 :            print(">");
   97 :            field= row[j];
   98 :            if(j<=1) print("<a href='", whois_program, "?domain=",
   99 :                            field, "' target='viewvisit'>");
  100 :            print(field);
  101 :            if(j<=1) print("</a>");
  102 :            print("</td>");
  103 :         }
  104 :        print("\n</tr>\n");
  105 :     }
  106 :   print("</table>\n");
  107 : 
  108 :   msqlFreeResult(result);
  109 :   msqlClose(socket);
  110 :   return(0);
  111 : ]}
  112 : 
  113 : Qhost= "";          // host name의 초기값
  114 : Qdb= "visit";       // data base name의 초기값
  115 : Qtable= "visit";    // table name의 초기값
  116 : Qbcolor= "#000000"; // 본문 배경색 초기값
  117 : Qtext= "#0000f0";   // 본문 문자색 초기값
  118 : 
  119 : varcnt= htmlquery("GET") + htmlquery("POST");
  120 : print("Content-type: text/html\n\n");
  121 : if(varcnt==0) parser(INPUT_FORM);
  122 :  else
  123 :   {
  124 :      print("<html>\n<head></head>\n");
  125 :      print("<body bgcolor=", Qbcolor, " text=", Qtext, "><center>");
  126 :      passwd= decode(cgipasswd, "", "@cgipasswd");
  127 :      if(Qpasswd!=passwd)
  128 :       {
  129 :          print("암호가 일치하지 않습니다!");
  130 :       }
  131 :      else
  132 :       {
  133 :          rt= parser(OUTPUT_FORM);
  134 :          if(rt!=0) print("비정상적으로 종료되었습니다.!!!");
  135 :       }
  136 :      print("</center></body></html>\n");
  137 :      print("<!-- Runtime: ", runtime()/1000000.0, "sec -->");
  138 :   }
  139 : 
  140 : //////////////////////////// 프로그램 종료 /////////////////////////////
File name: visit/viewvisit.wel (4,186 bytes) Wesoft Corp. ⓒ 2001 All rights reserved.