File name: visit/vstat (2,691 bytes) Text file viewer v1.2
    1 : #!/bin/wel¢Ò
    2 : ¢Ò
    3 : /*  vstat¢Ò
    4 : ¢Ò
    5 :     Á¢¼Ó±â·ÏÀ¸·Î Åë°èÀÚ·á ÀÏ°ý ÀÛ¼ºÇϱâ(¼­±¤Çö)¢Ò
    6 : ¢Ò
    7 :     Copyright (c) 2000/01/10 by Wesoft¢Ò
    8 :     All Rights Reserved.¢Ò
    9 : ¢Ò
   10 : */¢Ò
   11 : ¢Ò
   12 : CREATE_STAT_DB=¢Ò
   13 : {[¢Ò
   14 : CREATE TABLE stat (¢Ò
   15 :   d0  uint, d1  uint, d2  uint, d3  uint, d4  uint, d5  uint,¢Ò
   16 :   d6  uint, d7  uint, d8  uint, d9  uint, d10 uint, d11 uint,¢Ò
   17 :   d12 uint, d13 uint, d14 uint, d15 uint, d16 uint, d17 uint,¢Ò
   18 :   d18 uint, d19 uint, d20 uint, d21 uint, d22 uint, d23 uint,¢Ò
   19 :   d24 uint, d25 uint, d26 uint, d27 uint, d28 uint, d29 uint,¢Ò
   20 :   d30 uint, d31 uint,¢Ò
   21 : ¢Ò
   22 :   h0  uint, h1  uint, h2  uint, h3  uint, h4  uint, h5  uint,¢Ò
   23 :   h6  uint, h7  uint, h8  uint, h9  uint, h10 uint, h11 uint,¢Ò
   24 :   h12 uint, h13 uint, h14 uint, h15 uint, h16 uint, h17 uint,¢Ò
   25 :   h18 uint, h19 uint, h20 uint, h21 uint, h22 uint, h23 uint,¢Ò
   26 : ¢Ò
   27 :   w0  uint, w1  uint, w2  uint, w3  uint, w4  uint, w5  uint,¢Ò
   28 :   w6  uint,¢Ò
   29 : ¢Ò
   30 :   total uint,¢Ò
   31 :   fdate char(14),¢Ò
   32 :   ldate char(14)¢Ò
   33 : )¢Ò
   34 : ]}¢Ò
   35 : ¢Ò
   36 :   Qhost= "";¢Ò
   37 :   Qdb= "visit";¢Ò
   38 :   Qtable= "visit";¢Ò
   39 : ¢Ò
   40 :   qstr= "select * from " ~ Qtable;¢Ò
   41 :   socket= msqlConnect(Qhost);¢Ò
   42 :   if(socket==MSQL_ERR)¢Ò
   43 :     {¢Ò
   44 :        print("mSQL ¼­¹ö '", Qhost, "'¸¦ ¿¬°áÇÒ ¼ö ¾ø½À´Ï´Ù!!!\n");¢Ò
   45 :        return(-1);¢Ò
   46 :     }¢Ò
   47 :   if(msqlSelectDB(socket, Qdb)==MSQL_ERR)¢Ò
   48 :     {¢Ò
   49 :        print("µ¥ÀÌÅÍ º£À̽º '", Qdb,"'¸¦ °³¹æÇÒ ¼ö ¾ø½À´Ï´Ù!!!\n");¢Ò
   50 :        return(-1);¢Ò
   51 :     }¢Ò
   52 :   if(msqlQuery(socket, qstr)==MSQL_ERR)¢Ò
   53 :     {¢Ò
   54 :        print("Query ¿¡·¯: ", qstr, "\n");¢Ò
   55 :        return(-1);¢Ò
   56 :     }¢Ò
   57 : ¢Ò
   58 :   result= msqlStoreResult();¢Ò
   59 :   rows_count= msqlNumRows(result);¢Ò
   60 :   fields_count= msqlNumFields(result);¢Ò
   61 :   int dcnt[31], hcnt[23], wcnt[6];¢Ò
   62 :   free field[fields_count];¢Ò
   63 :   for(i=0; i<rows_count; i++)¢Ò
   64 :     {¢Ò
   65 :        row= msqlFetchRow(result);¢Ò
   66 :        for(j=0; j<fields_count; j++) field[j+1]= row[j];¢Ò
   67 :        ++dcnt[field[5]];¢Ò
   68 :        ++hcnt[field[6]];¢Ò
   69 :        ++wcnt[field[9]];¢Ò
   70 :        if(i==0) fdate= field[3] ~ field[4] ~ field[5]¢Ò
   71 :                      ~ field[6] ~ field[7] ~ field[8];¢Ò
   72 :     }¢Ò
   73 :   ldate= field[3] ~ field[4] ~ field[5] ~ field[6] ~ field[7] ~ field[8];¢Ò
   74 :   msqlFreeResult(result);¢Ò
   75 : ¢Ò
   76 : ¢Ò
   77 :   Qstat= "stat";¢Ò
   78 :   msqlQuery(socket, "drop table " ~ Qstat); // Åë°è table »èÁ¦¢Ò
   79 :   rt= msqlQuery(socket, CREATE_STAT_DB);    // Åë°è table »ý¼º¢Ò
   80 :   if(rt==MSQL_ERR)¢Ò
   81 :    {¢Ò
   82 :       print("Åë°è Å×À̺íÀ» »ý¼ºÇÒ ¼ö ¾ø½À´Ï´Ù!!!\n");¢Ò
   83 :    }¢Ò
   84 :   qstr= "insert into stat values(";¢Ò
   85 :   for(i=0; i<=31; i++) qstr~= dcnt[i] ~ ",";¢Ò
   86 :   for(i=0; i<=23; i++) qstr~= hcnt[i] ~ ",";¢Ò
   87 :   for(i=0; i<=6; i++) qstr~= wcnt[i] ~ ",";¢Ò
   88 :   qstr~= rows_count ~ ",'" ~ fdate ~ "','" ~ ldate ~ "')";¢Ò
   89 :   rt= msqlQuery(socket, qstr); // Åë°è table¿¡ ÀÚ·á ±â·Ï¢Ò
   90 :   if(rt==MSQL_ERR)¢Ò
   91 :    {¢Ò
   92 :       print("Åë°è Å×À̺íÀ» °»½ÅÇÒ ¼ö ¾ø½À´Ï´Ù!!!\n");¢Ò
   93 :       print("qstr=", qstr, "\n");¢Ò
   94 :    }¢Ò
   95 :   msqlClose(socket);¢Ò
   96 : ¢Ò
   97 : //////////////////////////// ÇÁ·Î±×·¥ Á¾·á /////////////////////////////¢Ò
File name: visit/vstat (2,691 bytes) Wesoft Corp. ¨Ï 2001 All rights reserved.