Fossil

Hex Artifact Content
Login

Artifact 9f5a26f6759356413d92a4c77e36b96900550692c2be9b3a5ad27e1c14c02dcb:


0000: 2f 2a 0a 2a 2a 20 43 6f 70 79 72 69 67 68 74 20  /*.** Copyright 
0010: 28 63 29 20 32 30 31 34 20 44 2e 20 52 69 63 68  (c) 2014 D. Rich
0020: 61 72 64 20 48 69 70 70 0a 2a 2a 0a 2a 2a 20 54  ard Hipp.**.** T
0030: 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 66  his program is f
0040: 72 65 65 20 73 6f 66 74 77 61 72 65 3b 20 79 6f  ree software; yo
0050: 75 20 63 61 6e 20 72 65 64 69 73 74 72 69 62 75  u can redistribu
0060: 74 65 20 69 74 20 61 6e 64 2f 6f 72 0a 2a 2a 20  te it and/or.** 
0070: 6d 6f 64 69 66 79 20 69 74 20 75 6e 64 65 72 20  modify it under 
0080: 74 68 65 20 74 65 72 6d 73 20 6f 66 20 74 68 65  the terms of the
0090: 20 53 69 6d 70 6c 69 66 69 65 64 20 42 53 44 20   Simplified BSD 
00a0: 4c 69 63 65 6e 73 65 20 28 61 6c 73 6f 0a 2a 2a  License (also.**
00b0: 20 6b 6e 6f 77 6e 20 61 73 20 74 68 65 20 22 32   known as the "2
00c0: 2d 43 6c 61 75 73 65 20 4c 69 63 65 6e 73 65 22  -Clause License"
00d0: 20 6f 72 20 22 46 72 65 65 42 53 44 20 4c 69 63   or "FreeBSD Lic
00e0: 65 6e 73 65 22 2e 29 0a 2a 2a 0a 2a 2a 20 54 68  ense".).**.** Th
00f0: 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 64 69  is program is di
0100: 73 74 72 69 62 75 74 65 64 20 69 6e 20 74 68 65  stributed in the
0110: 20 68 6f 70 65 20 74 68 61 74 20 69 74 20 77 69   hope that it wi
0120: 6c 6c 20 62 65 20 75 73 65 66 75 6c 2c 0a 2a 2a  ll be useful,.**
0130: 20 62 75 74 20 77 69 74 68 6f 75 74 20 61 6e 79   but without any
0140: 20 77 61 72 72 61 6e 74 79 3b 20 77 69 74 68 6f   warranty; witho
0150: 75 74 20 65 76 65 6e 20 74 68 65 20 69 6d 70 6c  ut even the impl
0160: 69 65 64 20 77 61 72 72 61 6e 74 79 20 6f 66 0a  ied warranty of.
0170: 2a 2a 20 6d 65 72 63 68 61 6e 74 61 62 69 6c 69  ** merchantabili
0180: 74 79 20 6f 72 20 66 69 74 6e 65 73 73 20 66 6f  ty or fitness fo
0190: 72 20 61 20 70 61 72 74 69 63 75 6c 61 72 20 70  r a particular p
01a0: 75 72 70 6f 73 65 2e 0a 2a 2a 0a 2a 2a 20 41 75  urpose..**.** Au
01b0: 74 68 6f 72 20 63 6f 6e 74 61 63 74 20 69 6e 66  thor contact inf
01c0: 6f 72 6d 61 74 69 6f 6e 3a 0a 2a 2a 20 20 20 64  ormation:.**   d
01d0: 72 68 40 73 71 6c 69 74 65 2e 6f 72 67 0a 2a 2a  rh@sqlite.org.**
01e0: 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  .***************
01f0: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0200: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0210: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0220: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0230: 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 66 69 6c 65  .**.** This file
0240: 20 69 6d 70 6c 65 6d 65 6e 74 73 20 61 20 63 61   implements a ca
0250: 63 68 65 20 66 6f 72 20 65 78 70 65 6e 73 65 20  che for expense 
0260: 6f 70 65 72 61 74 69 6f 6e 73 20 73 75 63 68 20  operations such 
0270: 61 73 0a 2a 2a 20 2f 7a 69 70 20 61 6e 64 20 2f  as.** /zip and /
0280: 74 61 72 62 61 6c 6c 2e 0a 2a 2f 0a 23 69 6e 63  tarball..*/.#inc
0290: 6c 75 64 65 20 22 63 6f 6e 66 69 67 2e 68 22 0a  lude "config.h".
02a0: 23 69 6e 63 6c 75 64 65 20 3c 73 71 6c 69 74 65  #include <sqlite
02b0: 33 2e 68 3e 0a 23 69 6e 63 6c 75 64 65 20 22 63  3.h>.#include "c
02c0: 61 63 68 65 2e 68 22 0a 0a 2f 2a 0a 2a 2a 20 43  ache.h"../*.** C
02d0: 6f 6e 73 74 72 75 63 74 20 74 68 65 20 6e 61 6d  onstruct the nam
02e0: 65 20 6f 66 20 74 68 65 20 72 65 70 6f 73 69 74  e of the reposit
02f0: 6f 72 79 20 63 61 63 68 65 20 66 69 6c 65 0a 2a  ory cache file.*
0300: 2f 0a 73 74 61 74 69 63 20 63 68 61 72 20 2a 63  /.static char *c
0310: 61 63 68 65 4e 61 6d 65 28 76 6f 69 64 29 7b 0a  acheName(void){.
0320: 20 20 69 6e 74 20 69 3b 0a 20 20 69 6e 74 20 6e    int i;.  int n
0330: 3b 0a 0a 20 20 69 66 28 20 67 2e 7a 52 65 70 6f  ;..  if( g.zRepo
0340: 73 69 74 6f 72 79 4e 61 6d 65 3d 3d 30 20 29 20  sitoryName==0 ) 
0350: 72 65 74 75 72 6e 20 30 3b 0a 20 20 6e 20 3d 20  return 0;.  n = 
0360: 28 69 6e 74 29 73 74 72 6c 65 6e 28 67 2e 7a 52  (int)strlen(g.zR
0370: 65 70 6f 73 69 74 6f 72 79 4e 61 6d 65 29 3b 0a  epositoryName);.
0380: 20 20 66 6f 72 28 69 3d 6e 2d 31 3b 20 69 3e 3d    for(i=n-1; i>=
0390: 30 3b 20 69 2d 2d 29 7b 0a 20 20 20 20 69 66 28  0; i--){.    if(
03a0: 20 67 2e 7a 52 65 70 6f 73 69 74 6f 72 79 4e 61   g.zRepositoryNa
03b0: 6d 65 5b 69 5d 3d 3d 27 2f 27 20 29 7b 20 69 20  me[i]=='/' ){ i 
03c0: 3d 20 6e 3b 20 62 72 65 61 6b 3b 20 7d 0a 20 20  = n; break; }.  
03d0: 20 20 69 66 28 20 67 2e 7a 52 65 70 6f 73 69 74    if( g.zReposit
03e0: 6f 72 79 4e 61 6d 65 5b 69 5d 3d 3d 27 2e 27 20  oryName[i]=='.' 
03f0: 29 20 62 72 65 61 6b 3b 0a 20 20 7d 0a 20 20 69  ) break;.  }.  i
0400: 66 28 20 69 3c 30 20 29 20 69 20 3d 20 6e 3b 0a  f( i<0 ) i = n;.
0410: 20 20 72 65 74 75 72 6e 20 6d 70 72 69 6e 74 66    return mprintf
0420: 28 22 25 2e 2a 73 2e 63 61 63 68 65 22 2c 20 69  ("%.*s.cache", i
0430: 2c 20 67 2e 7a 52 65 70 6f 73 69 74 6f 72 79 4e  , g.zRepositoryN
0440: 61 6d 65 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 41  ame);.}../*.** A
0450: 74 74 65 6d 70 74 20 74 6f 20 6f 70 65 6e 20 74  ttempt to open t
0460: 68 65 20 63 61 63 68 65 20 64 61 74 61 62 61 73  he cache databas
0470: 65 2c 20 69 66 20 73 75 63 68 20 61 20 64 61 74  e, if such a dat
0480: 61 62 61 73 65 20 65 78 69 73 74 73 2e 0a 2a 2a  abase exists..**
0490: 20 4d 61 6b 65 20 73 75 72 65 20 74 68 65 20 63   Make sure the c
04a0: 61 63 68 65 20 74 61 62 6c 65 20 65 78 69 73 74  ache table exist
04b0: 73 20 77 69 74 68 69 6e 20 74 68 61 74 20 64 61  s within that da
04c0: 74 61 62 61 73 65 2e 0a 2a 2f 0a 73 74 61 74 69  tabase..*/.stati
04d0: 63 20 73 71 6c 69 74 65 33 20 2a 63 61 63 68 65  c sqlite3 *cache
04e0: 4f 70 65 6e 28 69 6e 74 20 62 46 6f 72 63 65 29  Open(int bForce)
04f0: 7b 0a 20 20 63 68 61 72 20 2a 7a 44 62 4e 61 6d  {.  char *zDbNam
0500: 65 3b 0a 20 20 73 71 6c 69 74 65 33 20 2a 64 62  e;.  sqlite3 *db
0510: 20 3d 20 30 3b 0a 20 20 69 6e 74 20 72 63 3b 0a   = 0;.  int rc;.
0520: 20 20 69 36 34 20 73 7a 3b 0a 0a 20 20 7a 44 62    i64 sz;..  zDb
0530: 4e 61 6d 65 20 3d 20 63 61 63 68 65 4e 61 6d 65  Name = cacheName
0540: 28 29 3b 0a 20 20 69 66 28 20 7a 44 62 4e 61 6d  ();.  if( zDbNam
0550: 65 3d 3d 30 20 29 20 72 65 74 75 72 6e 20 30 3b  e==0 ) return 0;
0560: 0a 20 20 69 66 28 20 62 46 6f 72 63 65 3d 3d 30  .  if( bForce==0
0570: 20 29 7b 0a 20 20 20 20 73 7a 20 3d 20 66 69 6c   ){.    sz = fil
0580: 65 5f 73 69 7a 65 28 7a 44 62 4e 61 6d 65 2c 20  e_size(zDbName, 
0590: 45 78 74 46 49 4c 45 29 3b 0a 20 20 20 20 69 66  ExtFILE);.    if
05a0: 28 20 73 7a 3c 3d 30 20 29 7b 0a 20 20 20 20 20  ( sz<=0 ){.     
05b0: 20 66 6f 73 73 69 6c 5f 66 72 65 65 28 7a 44 62   fossil_free(zDb
05c0: 4e 61 6d 65 29 3b 0a 20 20 20 20 20 20 72 65 74  Name);.      ret
05d0: 75 72 6e 20 30 3b 0a 20 20 20 20 7d 0a 20 20 7d  urn 0;.    }.  }
05e0: 0a 20 20 72 63 20 3d 20 73 71 6c 69 74 65 33 5f  .  rc = sqlite3_
05f0: 6f 70 65 6e 28 7a 44 62 4e 61 6d 65 2c 20 26 64  open(zDbName, &d
0600: 62 29 3b 0a 20 20 66 6f 73 73 69 6c 5f 66 72 65  b);.  fossil_fre
0610: 65 28 7a 44 62 4e 61 6d 65 29 3b 0a 20 20 69 66  e(zDbName);.  if
0620: 28 20 72 63 20 29 7b 0a 20 20 20 20 73 71 6c 69  ( rc ){.    sqli
0630: 74 65 33 5f 63 6c 6f 73 65 28 64 62 29 3b 0a 20  te3_close(db);. 
0640: 20 20 20 72 65 74 75 72 6e 20 30 3b 0a 20 20 7d     return 0;.  }
0650: 0a 20 20 73 71 6c 69 74 65 33 5f 62 75 73 79 5f  .  sqlite3_busy_
0660: 74 69 6d 65 6f 75 74 28 64 62 2c 20 35 30 30 30  timeout(db, 5000
0670: 29 3b 0a 20 20 69 66 28 20 73 71 6c 69 74 65 33  );.  if( sqlite3
0680: 5f 74 61 62 6c 65 5f 63 6f 6c 75 6d 6e 5f 6d 65  _table_column_me
0690: 74 61 64 61 74 61 28 64 62 2c 30 2c 22 62 6c 6f  tadata(db,0,"blo
06a0: 62 22 2c 22 6b 65 79 22 2c 30 2c 30 2c 30 2c 30  b","key",0,0,0,0
06b0: 2c 30 29 21 3d 53 51 4c 49 54 45 5f 4f 4b 20 29  ,0)!=SQLITE_OK )
06c0: 7b 0a 20 20 20 20 72 63 20 3d 20 73 71 6c 69 74  {.    rc = sqlit
06d0: 65 33 5f 65 78 65 63 28 64 62 2c 0a 20 20 20 20  e3_exec(db,.    
06e0: 20 20 20 22 50 52 41 47 4d 41 20 70 61 67 65 5f     "PRAGMA page_
06f0: 73 69 7a 65 3d 38 31 39 32 3b 22 0a 20 20 20 20  size=8192;".    
0700: 20 20 20 22 43 52 45 41 54 45 20 54 41 42 4c 45     "CREATE TABLE
0710: 20 49 46 20 4e 4f 54 20 45 58 49 53 54 53 20 62   IF NOT EXISTS b
0720: 6c 6f 62 28 69 64 20 49 4e 54 45 47 45 52 20 50  lob(id INTEGER P
0730: 52 49 4d 41 52 59 20 4b 45 59 2c 20 64 61 74 61  RIMARY KEY, data
0740: 20 42 4c 4f 42 29 3b 22 0a 20 20 20 20 20 20 20   BLOB);".       
0750: 22 43 52 45 41 54 45 20 54 41 42 4c 45 20 49 46  "CREATE TABLE IF
0760: 20 4e 4f 54 20 45 58 49 53 54 53 20 63 61 63 68   NOT EXISTS cach
0770: 65 28 22 0a 20 20 20 20 20 20 20 20 20 22 6b 65  e(".         "ke
0780: 79 20 54 45 58 54 20 50 52 49 4d 41 52 59 20 4b  y TEXT PRIMARY K
0790: 45 59 2c 22 20 20 20 20 20 2f 2a 20 4b 65 79 20  EY,"     /* Key 
07a0: 75 73 65 64 20 74 6f 20 61 63 63 65 73 73 20 74  used to access t
07b0: 68 65 20 63 61 63 68 65 20 2a 2f 0a 20 20 20 20  he cache */.    
07c0: 20 20 20 20 20 22 69 64 20 49 4e 54 20 52 45 46       "id INT REF
07d0: 45 52 45 4e 43 45 53 20 62 6c 6f 62 2c 22 20 20  ERENCES blob,"  
07e0: 20 2f 2a 20 54 68 65 20 63 61 63 68 65 20 63 6f   /* The cache co
07f0: 6e 74 65 6e 74 20 2a 2f 0a 20 20 20 20 20 20 20  ntent */.       
0800: 20 20 22 73 7a 20 49 4e 54 2c 22 20 20 20 20 20    "sz INT,"     
0810: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a                /*
0820: 20 53 69 7a 65 20 6f 66 20 63 6f 6e 74 65 6e 74   Size of content
0830: 20 69 6e 20 62 79 74 65 73 20 2a 2f 0a 20 20 20   in bytes */.   
0840: 20 20 20 20 20 20 22 74 6d 20 49 4e 54 2c 22 20        "tm INT," 
0850: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0860: 20 20 2f 2a 20 4c 61 73 74 20 61 63 63 65 73 73    /* Last access
0870: 20 74 69 6d 65 20 28 75 6e 69 78 20 74 69 6d 65   time (unix time
0880: 73 74 61 6d 70 65 29 20 2a 2f 0a 20 20 20 20 20  stampe) */.     
0890: 20 20 20 20 22 6e 72 65 66 20 49 4e 54 22 20 20      "nref INT"  
08a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
08b0: 2f 2a 20 4e 75 6d 62 65 72 20 6f 66 20 75 73 65  /* Number of use
08c0: 73 20 2a 2f 0a 20 20 20 20 20 20 20 22 29 3b 22  s */.       ");"
08d0: 0a 20 20 20 20 20 20 20 22 43 52 45 41 54 45 20  .       "CREATE 
08e0: 54 52 49 47 47 45 52 20 49 46 20 4e 4f 54 20 45  TRIGGER IF NOT E
08f0: 58 49 53 54 53 20 63 61 63 68 65 44 65 6c 20 41  XISTS cacheDel A
0900: 46 54 45 52 20 44 45 4c 45 54 45 20 4f 4e 20 63  FTER DELETE ON c
0910: 61 63 68 65 20 42 45 47 49 4e 22 0a 20 20 20 20  ache BEGIN".    
0920: 20 20 20 22 20 20 44 45 4c 45 54 45 20 46 52 4f     "  DELETE FRO
0930: 4d 20 62 6c 6f 62 20 57 48 45 52 45 20 69 64 3d  M blob WHERE id=
0940: 4f 4c 44 2e 69 64 3b 22 0a 20 20 20 20 20 20 20  OLD.id;".       
0950: 22 45 4e 44 3b 22 2c 0a 20 20 20 20 20 20 20 30  "END;",.       0
0960: 2c 20 30 2c 20 30 0a 20 20 20 20 29 3b 0a 20 20  , 0, 0.    );.  
0970: 20 20 69 66 28 20 72 63 21 3d 53 51 4c 49 54 45    if( rc!=SQLITE
0980: 5f 4f 4b 20 29 7b 0a 20 20 20 20 20 20 73 71 6c  _OK ){.      sql
0990: 69 74 65 33 5f 63 6c 6f 73 65 28 64 62 29 3b 0a  ite3_close(db);.
09a0: 20 20 20 20 20 20 72 65 74 75 72 6e 20 30 3b 0a        return 0;.
09b0: 20 20 20 20 7d 0a 20 20 7d 0a 20 20 72 65 74 75      }.  }.  retu
09c0: 72 6e 20 64 62 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20  rn db;.}../*.** 
09d0: 41 74 74 65 6d 70 74 20 74 6f 20 63 6f 6e 73 74  Attempt to const
09e0: 72 75 63 74 20 61 20 70 72 65 70 61 72 65 64 20  ruct a prepared 
09f0: 73 74 61 74 65 6d 65 6e 74 20 66 6f 72 20 74 68  statement for th
0a00: 65 20 63 61 63 68 65 20 64 61 74 61 62 61 73 65  e cache database
0a10: 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 73 71 6c 69  ..*/.static sqli
0a20: 74 65 33 5f 73 74 6d 74 20 2a 63 61 63 68 65 53  te3_stmt *cacheS
0a30: 74 6d 74 28 73 71 6c 69 74 65 33 20 2a 64 62 2c  tmt(sqlite3 *db,
0a40: 20 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 53 71   const char *zSq
0a50: 6c 29 7b 0a 20 20 73 71 6c 69 74 65 33 5f 73 74  l){.  sqlite3_st
0a60: 6d 74 20 2a 70 53 74 6d 74 20 3d 20 30 3b 0a 20  mt *pStmt = 0;. 
0a70: 20 69 6e 74 20 72 63 3b 0a 0a 20 20 72 63 20 3d   int rc;..  rc =
0a80: 20 73 71 6c 69 74 65 33 5f 70 72 65 70 61 72 65   sqlite3_prepare
0a90: 5f 76 32 28 64 62 2c 20 7a 53 71 6c 2c 20 2d 31  _v2(db, zSql, -1
0aa0: 2c 20 26 70 53 74 6d 74 2c 20 30 29 3b 0a 20 20  , &pStmt, 0);.  
0ab0: 69 66 28 20 72 63 20 29 7b 0a 20 20 20 20 73 71  if( rc ){.    sq
0ac0: 6c 69 74 65 33 5f 66 69 6e 61 6c 69 7a 65 28 70  lite3_finalize(p
0ad0: 53 74 6d 74 29 3b 0a 20 20 20 20 70 53 74 6d 74  Stmt);.    pStmt
0ae0: 20 3d 20 30 3b 0a 20 20 7d 0a 20 20 72 65 74 75   = 0;.  }.  retu
0af0: 72 6e 20 70 53 74 6d 74 3b 0a 7d 0a 0a 2f 2a 0a  rn pStmt;.}../*.
0b00: 2a 2a 20 54 68 69 73 20 72 6f 75 74 69 6e 65 20  ** This routine 
0b10: 69 6d 70 6c 65 6d 65 6e 74 73 20 61 6e 20 53 51  implements an SQ
0b20: 4c 20 66 75 6e 63 74 69 6f 6e 20 74 68 61 74 20  L function that 
0b30: 72 65 6e 64 65 72 73 20 61 20 6c 61 72 67 65 20  renders a large 
0b40: 69 6e 74 65 67 65 72 0a 2a 2a 20 63 6f 6d 70 61  integer.** compa
0b50: 63 74 6c 79 3a 20 20 65 78 3a 20 31 32 2e 33 4d  ctly:  ex: 12.3M
0b60: 42 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69 64  B.*/.static void
0b70: 20 63 61 63 68 65 5f 73 69 7a 65 6e 61 6d 65 28   cache_sizename(
0b80: 0a 20 20 73 71 6c 69 74 65 33 5f 63 6f 6e 74 65  .  sqlite3_conte
0b90: 78 74 20 2a 63 6f 6e 74 65 78 74 2c 0a 20 20 69  xt *context,.  i
0ba0: 6e 74 20 61 72 67 63 2c 0a 20 20 73 71 6c 69 74  nt argc,.  sqlit
0bb0: 65 33 5f 76 61 6c 75 65 20 2a 2a 61 72 67 76 0a  e3_value **argv.
0bc0: 29 7b 0a 20 20 63 68 61 72 20 7a 42 75 66 5b 33  ){.  char zBuf[3
0bd0: 30 5d 3b 0a 20 20 64 6f 75 62 6c 65 20 76 2c 20  0];.  double v, 
0be0: 78 3b 0a 20 20 61 73 73 65 72 74 28 20 61 72 67  x;.  assert( arg
0bf0: 63 3d 3d 31 20 29 3b 0a 20 20 76 20 3d 20 73 71  c==1 );.  v = sq
0c00: 6c 69 74 65 33 5f 76 61 6c 75 65 5f 64 6f 75 62  lite3_value_doub
0c10: 6c 65 28 61 72 67 76 5b 30 5d 29 3b 0a 20 20 78  le(argv[0]);.  x
0c20: 20 3d 20 76 3c 30 2e 30 20 3f 20 2d 76 20 3a 20   = v<0.0 ? -v : 
0c30: 76 3b 0a 20 20 69 66 28 20 78 3e 3d 31 65 39 20  v;.  if( x>=1e9 
0c40: 29 7b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 73  ){.    sqlite3_s
0c50: 6e 70 72 69 6e 74 66 28 73 69 7a 65 6f 66 28 7a  nprintf(sizeof(z
0c60: 42 75 66 29 2c 20 7a 42 75 66 2c 20 22 25 2e 31  Buf), zBuf, "%.1
0c70: 66 47 42 22 2c 20 76 2f 31 65 39 29 3b 0a 20 20  fGB", v/1e9);.  
0c80: 7d 65 6c 73 65 20 69 66 28 20 78 3e 3d 31 65 36  }else if( x>=1e6
0c90: 20 29 7b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f   ){.    sqlite3_
0ca0: 73 6e 70 72 69 6e 74 66 28 73 69 7a 65 6f 66 28  snprintf(sizeof(
0cb0: 7a 42 75 66 29 2c 20 7a 42 75 66 2c 20 22 25 2e  zBuf), zBuf, "%.
0cc0: 31 66 4d 42 22 2c 20 76 2f 31 65 36 29 3b 0a 20  1fMB", v/1e6);. 
0cd0: 20 7d 65 6c 73 65 20 69 66 28 20 78 3e 3d 31 65   }else if( x>=1e
0ce0: 33 20 29 7b 0a 20 20 20 20 73 71 6c 69 74 65 33  3 ){.    sqlite3
0cf0: 5f 73 6e 70 72 69 6e 74 66 28 73 69 7a 65 6f 66  _snprintf(sizeof
0d00: 28 7a 42 75 66 29 2c 20 7a 42 75 66 2c 20 22 25  (zBuf), zBuf, "%
0d10: 2e 31 66 4b 42 22 2c 20 76 2f 31 65 33 29 3b 0a  .1fKB", v/1e3);.
0d20: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 73 71 6c    }else{.    sql
0d30: 69 74 65 33 5f 73 6e 70 72 69 6e 74 66 28 73 69  ite3_snprintf(si
0d40: 7a 65 6f 66 28 7a 42 75 66 29 2c 20 7a 42 75 66  zeof(zBuf), zBuf
0d50: 2c 20 22 25 67 42 22 2c 20 76 29 3b 0a 20 20 7d  , "%gB", v);.  }
0d60: 0a 20 20 73 71 6c 69 74 65 33 5f 72 65 73 75 6c  .  sqlite3_resul
0d70: 74 5f 74 65 78 74 28 63 6f 6e 74 65 78 74 2c 20  t_text(context, 
0d80: 7a 42 75 66 2c 20 2d 31 2c 20 53 51 4c 49 54 45  zBuf, -1, SQLITE
0d90: 5f 54 52 41 4e 53 49 45 4e 54 29 3b 0a 7d 0a 0a  _TRANSIENT);.}..
0da0: 2f 2a 0a 2a 2a 20 52 65 67 69 73 74 65 72 20 74  /*.** Register t
0db0: 68 65 20 73 69 7a 65 6e 61 6d 65 28 29 20 53 51  he sizename() SQ
0dc0: 4c 20 66 75 6e 63 74 69 6f 6e 20 77 69 74 68 20  L function with 
0dd0: 74 68 65 20 53 51 4c 69 74 65 20 64 61 74 61 62  the SQLite datab
0de0: 61 73 65 0a 2a 2a 20 63 6f 6e 6e 65 63 74 69 6f  ase.** connectio
0df0: 6e 2e 0a 2a 2f 0a 73 74 61 74 69 63 20 76 6f 69  n..*/.static voi
0e00: 64 20 63 61 63 68 65 5f 72 65 67 69 73 74 65 72  d cache_register
0e10: 5f 73 69 7a 65 6e 61 6d 65 28 73 71 6c 69 74 65  _sizename(sqlite
0e20: 33 20 2a 64 62 29 7b 0a 20 20 73 71 6c 69 74 65  3 *db){.  sqlite
0e30: 33 5f 63 72 65 61 74 65 5f 66 75 6e 63 74 69 6f  3_create_functio
0e40: 6e 28 64 62 2c 20 22 73 69 7a 65 6e 61 6d 65 22  n(db, "sizename"
0e50: 2c 20 31 2c 20 53 51 4c 49 54 45 5f 55 54 46 38  , 1, SQLITE_UTF8
0e60: 2c 20 30 2c 0a 20 20 20 20 20 20 20 20 20 20 20  , 0,.           
0e70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63                 c
0e80: 61 63 68 65 5f 73 69 7a 65 6e 61 6d 65 2c 20 30  ache_sizename, 0
0e90: 2c 20 30 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 41  , 0);.}../*.** A
0ea0: 74 74 65 6d 70 74 20 74 6f 20 77 72 69 74 65 20  ttempt to write 
0eb0: 70 43 6f 6e 74 65 6e 74 20 69 6e 74 6f 20 74 68  pContent into th
0ec0: 65 20 63 61 63 68 65 2e 20 20 49 66 20 74 68 65  e cache.  If the
0ed0: 20 63 61 63 68 65 20 66 69 6c 65 20 64 6f 65 73   cache file does
0ee0: 0a 2a 2a 20 6e 6f 74 20 65 78 69 73 74 2c 20 74  .** not exist, t
0ef0: 68 65 6e 20 74 68 69 73 20 72 6f 75 74 69 6e 65  hen this routine
0f00: 20 69 73 20 61 20 6e 6f 2d 6f 70 2e 20 20 4f 6c   is a no-op.  Ol
0f10: 64 65 72 20 63 61 63 68 65 20 65 6e 74 72 69 65  der cache entrie
0f20: 73 20 6d 69 67 68 74 0a 2a 2a 20 62 65 20 64 65  s might.** be de
0f30: 6c 65 74 65 64 2e 0a 2a 2f 0a 76 6f 69 64 20 63  leted..*/.void c
0f40: 61 63 68 65 5f 77 72 69 74 65 28 42 6c 6f 62 20  ache_write(Blob 
0f50: 2a 70 43 6f 6e 74 65 6e 74 2c 20 63 6f 6e 73 74  *pContent, const
0f60: 20 63 68 61 72 20 2a 7a 4b 65 79 29 7b 0a 20 20   char *zKey){.  
0f70: 73 71 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 73  sqlite3 *db;.  s
0f80: 71 6c 69 74 65 33 5f 73 74 6d 74 20 2a 70 53 74  qlite3_stmt *pSt
0f90: 6d 74 3b 0a 20 20 69 6e 74 20 72 63 20 3d 20 30  mt;.  int rc = 0
0fa0: 3b 0a 20 20 69 6e 74 20 6e 4b 65 65 70 3b 0a 0a  ;.  int nKeep;..
0fb0: 20 20 64 62 20 3d 20 63 61 63 68 65 4f 70 65 6e    db = cacheOpen
0fc0: 28 30 29 3b 0a 20 20 69 66 28 20 64 62 3d 3d 30  (0);.  if( db==0
0fd0: 20 29 20 72 65 74 75 72 6e 3b 0a 20 20 73 71 6c   ) return;.  sql
0fe0: 69 74 65 33 5f 62 75 73 79 5f 74 69 6d 65 6f 75  ite3_busy_timeou
0ff0: 74 28 64 62 2c 20 31 30 30 30 30 29 3b 0a 20 20  t(db, 10000);.  
1000: 73 71 6c 69 74 65 33 5f 65 78 65 63 28 64 62 2c  sqlite3_exec(db,
1010: 20 22 42 45 47 49 4e 20 49 4d 4d 45 44 49 41 54   "BEGIN IMMEDIAT
1020: 45 22 2c 20 30 2c 20 30 2c 20 30 29 3b 0a 20 20  E", 0, 0, 0);.  
1030: 70 53 74 6d 74 20 3d 20 63 61 63 68 65 53 74 6d  pStmt = cacheStm
1040: 74 28 64 62 2c 20 22 49 4e 53 45 52 54 20 49 4e  t(db, "INSERT IN
1050: 54 4f 20 62 6c 6f 62 28 64 61 74 61 29 20 56 41  TO blob(data) VA
1060: 4c 55 45 53 28 3f 31 29 22 29 3b 0a 20 20 69 66  LUES(?1)");.  if
1070: 28 20 70 53 74 6d 74 3d 3d 30 20 29 20 67 6f 74  ( pStmt==0 ) got
1080: 6f 20 63 61 63 68 65 5f 77 72 69 74 65 5f 65 6e  o cache_write_en
1090: 64 3b 0a 20 20 73 71 6c 69 74 65 33 5f 62 69 6e  d;.  sqlite3_bin
10a0: 64 5f 62 6c 6f 62 28 70 53 74 6d 74 2c 20 31 2c  d_blob(pStmt, 1,
10b0: 20 62 6c 6f 62 5f 62 75 66 66 65 72 28 70 43 6f   blob_buffer(pCo
10c0: 6e 74 65 6e 74 29 2c 20 62 6c 6f 62 5f 73 69 7a  ntent), blob_siz
10d0: 65 28 70 43 6f 6e 74 65 6e 74 29 2c 0a 20 20 20  e(pContent),.   
10e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
10f0: 20 53 51 4c 49 54 45 5f 53 54 41 54 49 43 29 3b   SQLITE_STATIC);
1100: 0a 20 20 69 66 28 20 73 71 6c 69 74 65 33 5f 73  .  if( sqlite3_s
1110: 74 65 70 28 70 53 74 6d 74 29 21 3d 53 51 4c 49  tep(pStmt)!=SQLI
1120: 54 45 5f 44 4f 4e 45 20 29 20 67 6f 74 6f 20 63  TE_DONE ) goto c
1130: 61 63 68 65 5f 77 72 69 74 65 5f 65 6e 64 3b 0a  ache_write_end;.
1140: 20 20 73 71 6c 69 74 65 33 5f 66 69 6e 61 6c 69    sqlite3_finali
1150: 7a 65 28 70 53 74 6d 74 29 3b 0a 20 20 70 53 74  ze(pStmt);.  pSt
1160: 6d 74 20 3d 20 63 61 63 68 65 53 74 6d 74 28 64  mt = cacheStmt(d
1170: 62 2c 0a 20 20 20 20 20 20 22 49 4e 53 45 52 54  b,.      "INSERT
1180: 20 4f 52 20 49 47 4e 4f 52 45 20 49 4e 54 4f 20   OR IGNORE INTO 
1190: 63 61 63 68 65 28 6b 65 79 2c 73 7a 2c 74 6d 2c  cache(key,sz,tm,
11a0: 6e 72 65 66 2c 69 64 29 22 0a 20 20 20 20 20 20  nref,id)".      
11b0: 22 56 41 4c 55 45 53 28 3f 31 2c 3f 32 2c 73 74  "VALUES(?1,?2,st
11c0: 72 66 74 69 6d 65 28 27 25 73 27 2c 27 6e 6f 77  rftime('%s','now
11d0: 27 29 2c 31 2c 3f 33 29 22 0a 20 20 29 3b 0a 20  '),1,?3)".  );. 
11e0: 20 69 66 28 20 70 53 74 6d 74 3d 3d 30 20 29 20   if( pStmt==0 ) 
11f0: 67 6f 74 6f 20 63 61 63 68 65 5f 77 72 69 74 65  goto cache_write
1200: 5f 65 6e 64 3b 0a 20 20 73 71 6c 69 74 65 33 5f  _end;.  sqlite3_
1210: 62 69 6e 64 5f 74 65 78 74 28 70 53 74 6d 74 2c  bind_text(pStmt,
1220: 20 31 2c 20 7a 4b 65 79 2c 20 2d 31 2c 20 53 51   1, zKey, -1, SQ
1230: 4c 49 54 45 5f 53 54 41 54 49 43 29 3b 0a 20 20  LITE_STATIC);.  
1240: 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f 69 6e 74  sqlite3_bind_int
1250: 28 70 53 74 6d 74 2c 20 32 2c 20 62 6c 6f 62 5f  (pStmt, 2, blob_
1260: 73 69 7a 65 28 70 43 6f 6e 74 65 6e 74 29 29 3b  size(pContent));
1270: 0a 20 20 73 71 6c 69 74 65 33 5f 62 69 6e 64 5f  .  sqlite3_bind_
1280: 69 6e 74 28 70 53 74 6d 74 2c 20 33 2c 20 73 71  int(pStmt, 3, sq
1290: 6c 69 74 65 33 5f 6c 61 73 74 5f 69 6e 73 65 72  lite3_last_inser
12a0: 74 5f 72 6f 77 69 64 28 64 62 29 29 3b 0a 20 20  t_rowid(db));.  
12b0: 69 66 28 20 73 71 6c 69 74 65 33 5f 73 74 65 70  if( sqlite3_step
12c0: 28 70 53 74 6d 74 29 21 3d 53 51 4c 49 54 45 5f  (pStmt)!=SQLITE_
12d0: 44 4f 4e 45 29 20 67 6f 74 6f 20 63 61 63 68 65  DONE) goto cache
12e0: 5f 77 72 69 74 65 5f 65 6e 64 3b 0a 20 20 72 63  _write_end;.  rc
12f0: 20 3d 20 73 71 6c 69 74 65 33 5f 63 68 61 6e 67   = sqlite3_chang
1300: 65 73 28 64 62 29 3b 0a 0a 20 20 2f 2a 20 49 66  es(db);..  /* If
1310: 20 74 68 65 20 77 72 69 74 65 20 77 61 73 20 73   the write was s
1320: 75 63 63 65 73 73 66 75 6c 2c 20 74 72 75 6e 63  uccessful, trunc
1330: 61 74 65 20 74 68 65 20 63 61 63 68 65 20 74 6f  ate the cache to
1340: 20 6b 65 65 70 20 61 74 20 6d 6f 73 74 0a 20 20   keep at most.  
1350: 2a 2a 20 6d 61 78 2d 63 61 63 68 65 2d 65 6e 74  ** max-cache-ent
1360: 72 79 20 65 6e 74 72 69 65 73 20 69 6e 20 74 68  ry entries in th
1370: 65 20 63 61 63 68 65 2e 0a 20 20 2a 2a 0a 20 20  e cache..  **.  
1380: 2a 2a 20 54 68 65 20 63 61 63 68 65 20 65 6e 74  ** The cache ent
1390: 72 79 20 72 65 70 6c 61 63 65 6d 65 6e 74 20 61  ry replacement a
13a0: 6c 67 6f 72 69 74 68 6d 20 69 73 20 61 70 70 72  lgorithm is appr
13b0: 6f 78 69 6d 61 74 65 6c 79 20 4c 52 55 0a 20 20  oximately LRU.  
13c0: 2a 2a 20 28 6c 65 61 73 74 20 72 65 63 65 6e 74  ** (least recent
13d0: 6c 79 20 75 73 65 64 29 2e 20 20 48 6f 77 65 76  ly used).  Howev
13e0: 65 72 2c 20 65 61 63 68 20 61 63 63 65 73 73 20  er, each access 
13f0: 6f 66 20 61 6e 20 65 6e 74 72 79 20 62 75 79 73  of an entry buys
1400: 0a 20 20 2a 2a 20 74 68 61 74 20 65 6e 74 72 79  .  ** that entry
1410: 20 61 6e 20 65 78 74 72 61 20 68 6f 75 72 20 6f   an extra hour o
1420: 66 20 67 72 61 63 65 2c 20 73 6f 20 74 68 61 74  f grace, so that
1430: 20 6d 6f 72 65 20 63 6f 6d 6d 6f 6e 6c 79 20 61   more commonly a
1440: 63 63 65 73 73 65 64 0a 20 20 2a 2a 20 65 6e 74  ccessed.  ** ent
1450: 72 69 65 73 20 61 72 65 20 68 65 6c 64 20 69 6e  ries are held in
1460: 20 63 61 63 68 65 20 6c 6f 6e 67 65 72 2e 20 20   cache longer.  
1470: 54 68 65 20 65 78 74 72 61 20 22 67 72 61 63 65  The extra "grace
1480: 22 20 61 6c 6c 6f 74 74 65 64 20 74 6f 0a 20 20  " allotted to.  
1490: 2a 2a 20 61 6e 20 65 6e 74 72 79 20 69 73 20 6c  ** an entry is l
14a0: 69 6d 69 74 65 64 20 74 6f 20 32 20 64 61 79 73  imited to 2 days
14b0: 20 77 6f 72 74 68 2e 0a 20 20 2a 2f 0a 20 20 69   worth..  */.  i
14c0: 66 28 20 72 63 20 29 7b 0a 20 20 20 20 6e 4b 65  f( rc ){.    nKe
14d0: 65 70 20 3d 20 64 62 5f 67 65 74 5f 69 6e 74 28  ep = db_get_int(
14e0: 22 6d 61 78 2d 63 61 63 68 65 2d 65 6e 74 72 79  "max-cache-entry
14f0: 22 2c 31 30 29 3b 0a 20 20 20 20 73 71 6c 69 74  ",10);.    sqlit
1500: 65 33 5f 66 69 6e 61 6c 69 7a 65 28 70 53 74 6d  e3_finalize(pStm
1510: 74 29 3b 0a 20 20 20 20 70 53 74 6d 74 20 3d 20  t);.    pStmt = 
1520: 63 61 63 68 65 53 74 6d 74 28 64 62 2c 0a 20 20  cacheStmt(db,.  
1530: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22                 "
1540: 44 45 4c 45 54 45 20 46 52 4f 4d 20 63 61 63 68  DELETE FROM cach
1550: 65 20 57 48 45 52 45 20 72 6f 77 69 64 20 49 4e  e WHERE rowid IN
1560: 20 28 22 0a 20 20 20 20 20 20 20 20 20 20 20 20   (".            
1570: 20 20 20 20 20 20 20 20 22 53 45 4c 45 43 54 20          "SELECT 
1580: 72 6f 77 69 64 20 46 52 4f 4d 20 63 61 63 68 65  rowid FROM cache
1590: 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20  ".              
15a0: 20 20 20 20 20 20 22 20 4f 52 44 45 52 20 42 59        " ORDER BY
15b0: 20 28 74 6d 20 2b 20 33 36 30 30 2a 6d 69 6e 28   (tm + 3600*min(
15c0: 6e 52 65 66 2c 34 38 29 29 20 44 45 53 43 22 0a  nRef,48)) DESC".
15d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
15e0: 20 20 20 20 22 20 4c 49 4d 49 54 20 2d 31 20 4f      " LIMIT -1 O
15f0: 46 46 53 45 54 20 3f 31 29 22 29 3b 0a 20 20 20  FFSET ?1)");.   
1600: 20 69 66 28 20 70 53 74 6d 74 20 29 7b 0a 20 20   if( pStmt ){.  
1610: 20 20 20 20 73 71 6c 69 74 65 33 5f 62 69 6e 64      sqlite3_bind
1620: 5f 69 6e 74 28 70 53 74 6d 74 2c 20 31 2c 20 6e  _int(pStmt, 1, n
1630: 4b 65 65 70 29 3b 0a 20 20 20 20 20 20 73 71 6c  Keep);.      sql
1640: 69 74 65 33 5f 73 74 65 70 28 70 53 74 6d 74 29  ite3_step(pStmt)
1650: 3b 0a 20 20 20 20 7d 0a 20 20 7d 0a 0a 63 61 63  ;.    }.  }..cac
1660: 68 65 5f 77 72 69 74 65 5f 65 6e 64 3a 0a 20 20  he_write_end:.  
1670: 73 71 6c 69 74 65 33 5f 66 69 6e 61 6c 69 7a 65  sqlite3_finalize
1680: 28 70 53 74 6d 74 29 3b 0a 20 20 73 71 6c 69 74  (pStmt);.  sqlit
1690: 65 33 5f 65 78 65 63 28 64 62 2c 20 72 63 20 3f  e3_exec(db, rc ?
16a0: 20 22 43 4f 4d 4d 49 54 22 20 3a 20 22 52 4f 4c   "COMMIT" : "ROL
16b0: 4c 42 41 43 4b 22 2c 20 30 2c 20 30 2c 20 30 29  LBACK", 0, 0, 0)
16c0: 3b 0a 20 20 73 71 6c 69 74 65 33 5f 63 6c 6f 73  ;.  sqlite3_clos
16d0: 65 28 64 62 29 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20  e(db);.}../*.** 
16e0: 41 74 74 65 6d 70 74 20 74 6f 20 72 65 61 64 20  Attempt to read 
16f0: 63 6f 6e 74 65 6e 74 20 6f 75 74 20 6f 66 20 74  content out of t
1700: 68 65 20 63 61 63 68 65 20 77 69 74 68 20 74 68  he cache with th
1710: 65 20 67 69 76 65 6e 20 7a 4b 65 79 2e 20 20 52  e given zKey.  R
1720: 65 74 75 72 6e 0a 2a 2a 20 6e 6f 6e 2d 7a 65 72  eturn.** non-zer
1730: 6f 20 6f 6e 20 73 75 63 63 65 73 73 20 61 6e 64  o on success and
1740: 20 7a 65 72 6f 20 69 66 20 75 6e 61 62 6c 65 20   zero if unable 
1750: 74 6f 20 6c 6f 63 61 74 65 20 74 68 65 20 63 6f  to locate the co
1760: 6e 74 65 6e 74 2e 0a 2a 2a 0a 2a 2a 20 50 6f 73  ntent..**.** Pos
1770: 73 69 62 6c 65 20 72 65 61 73 6f 6e 73 20 66 6f  sible reasons fo
1780: 72 20 72 65 74 75 72 6e 69 6e 67 20 7a 65 72 6f  r returning zero
1790: 3a 0a 2a 2a 20 20 20 28 31 29 20 20 54 68 69 73  :.**   (1)  This
17a0: 20 73 65 72 76 65 72 20 64 6f 65 73 20 6e 6f 74   server does not
17b0: 20 69 6d 70 6c 65 6d 65 6e 74 20 61 20 63 61 63   implement a cac
17c0: 68 65 0a 2a 2a 20 20 20 28 32 29 20 20 54 68 65  he.**   (2)  The
17d0: 20 72 65 71 75 65 73 74 65 64 20 65 6c 65 6d 65   requested eleme
17e0: 6e 74 20 69 73 20 6e 6f 74 20 69 6e 20 74 68 65  nt is not in the
17f0: 20 63 61 63 68 65 0a 2a 2f 0a 69 6e 74 20 63 61   cache.*/.int ca
1800: 63 68 65 5f 72 65 61 64 28 42 6c 6f 62 20 2a 70  che_read(Blob *p
1810: 43 6f 6e 74 65 6e 74 2c 20 63 6f 6e 73 74 20 63  Content, const c
1820: 68 61 72 20 2a 7a 4b 65 79 29 7b 0a 20 20 73 71  har *zKey){.  sq
1830: 6c 69 74 65 33 20 2a 64 62 3b 0a 20 20 73 71 6c  lite3 *db;.  sql
1840: 69 74 65 33 5f 73 74 6d 74 20 2a 70 53 74 6d 74  ite3_stmt *pStmt
1850: 3b 0a 20 20 69 6e 74 20 72 63 20 3d 20 30 3b 0a  ;.  int rc = 0;.
1860: 0a 20 20 64 62 20 3d 20 63 61 63 68 65 4f 70 65  .  db = cacheOpe
1870: 6e 28 30 29 3b 0a 20 20 69 66 28 20 64 62 3d 3d  n(0);.  if( db==
1880: 30 20 29 20 72 65 74 75 72 6e 20 30 3b 0a 20 20  0 ) return 0;.  
1890: 73 71 6c 69 74 65 33 5f 62 75 73 79 5f 74 69 6d  sqlite3_busy_tim
18a0: 65 6f 75 74 28 64 62 2c 20 31 30 30 30 30 29 3b  eout(db, 10000);
18b0: 0a 20 20 73 71 6c 69 74 65 33 5f 65 78 65 63 28  .  sqlite3_exec(
18c0: 64 62 2c 20 22 42 45 47 49 4e 20 49 4d 4d 45 44  db, "BEGIN IMMED
18d0: 49 41 54 45 22 2c 20 30 2c 20 30 2c 20 30 29 3b  IATE", 0, 0, 0);
18e0: 0a 20 20 70 53 74 6d 74 20 3d 20 63 61 63 68 65  .  pStmt = cache
18f0: 53 74 6d 74 28 64 62 2c 0a 20 20 20 20 22 53 45  Stmt(db,.    "SE
1900: 4c 45 43 54 20 62 6c 6f 62 2e 64 61 74 61 20 46  LECT blob.data F
1910: 52 4f 4d 20 63 61 63 68 65 2c 20 62 6c 6f 62 22  ROM cache, blob"
1920: 0a 20 20 20 20 22 20 57 48 45 52 45 20 63 61 63  .    " WHERE cac
1930: 68 65 2e 6b 65 79 3d 3f 31 20 41 4e 44 20 63 61  he.key=?1 AND ca
1940: 63 68 65 2e 69 64 3d 62 6c 6f 62 2e 69 64 22 29  che.id=blob.id")
1950: 3b 0a 20 20 69 66 28 20 70 53 74 6d 74 3d 3d 30  ;.  if( pStmt==0
1960: 20 29 20 67 6f 74 6f 20 63 61 63 68 65 5f 72 65   ) goto cache_re
1970: 61 64 5f 64 6f 6e 65 3b 0a 20 20 73 71 6c 69 74  ad_done;.  sqlit
1980: 65 33 5f 62 69 6e 64 5f 74 65 78 74 28 70 53 74  e3_bind_text(pSt
1990: 6d 74 2c 20 31 2c 20 7a 4b 65 79 2c 20 2d 31 2c  mt, 1, zKey, -1,
19a0: 20 53 51 4c 49 54 45 5f 53 54 41 54 49 43 29 3b   SQLITE_STATIC);
19b0: 0a 20 20 69 66 28 20 73 71 6c 69 74 65 33 5f 73  .  if( sqlite3_s
19c0: 74 65 70 28 70 53 74 6d 74 29 3d 3d 53 51 4c 49  tep(pStmt)==SQLI
19d0: 54 45 5f 52 4f 57 20 29 7b 0a 20 20 20 20 62 6c  TE_ROW ){.    bl
19e0: 6f 62 5f 61 70 70 65 6e 64 28 70 43 6f 6e 74 65  ob_append(pConte
19f0: 6e 74 2c 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75  nt, sqlite3_colu
1a00: 6d 6e 5f 62 6c 6f 62 28 70 53 74 6d 74 2c 20 30  mn_blob(pStmt, 0
1a10: 29 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  ),.             
1a20: 20 20 20 20 20 20 20 20 20 20 20 20 20 73 71 6c               sql
1a30: 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 62 79 74 65  ite3_column_byte
1a40: 73 28 70 53 74 6d 74 2c 20 30 29 29 3b 0a 20 20  s(pStmt, 0));.  
1a50: 20 20 72 63 20 3d 20 31 3b 0a 20 20 20 20 73 71    rc = 1;.    sq
1a60: 6c 69 74 65 33 5f 72 65 73 65 74 28 70 53 74 6d  lite3_reset(pStm
1a70: 74 29 3b 0a 20 20 20 20 70 53 74 6d 74 20 3d 20  t);.    pStmt = 
1a80: 63 61 63 68 65 53 74 6d 74 28 64 62 2c 0a 20 20  cacheStmt(db,.  
1a90: 20 20 20 20 20 20 20 20 20 20 20 20 22 55 50 44              "UPD
1aa0: 41 54 45 20 63 61 63 68 65 20 53 45 54 20 6e 72  ATE cache SET nr
1ab0: 65 66 3d 6e 72 65 66 2b 31 2c 20 74 6d 3d 73 74  ef=nref+1, tm=st
1ac0: 72 66 74 69 6d 65 28 27 25 73 27 2c 27 6e 6f 77  rftime('%s','now
1ad0: 27 29 22 0a 20 20 20 20 20 20 20 20 20 20 20 20  ')".            
1ae0: 20 20 22 20 57 48 45 52 45 20 6b 65 79 3d 3f 31    " WHERE key=?1
1af0: 22 29 3b 0a 20 20 20 20 69 66 28 20 70 53 74 6d  ");.    if( pStm
1b00: 74 20 29 7b 0a 20 20 20 20 20 20 73 71 6c 69 74  t ){.      sqlit
1b10: 65 33 5f 62 69 6e 64 5f 74 65 78 74 28 70 53 74  e3_bind_text(pSt
1b20: 6d 74 2c 20 31 2c 20 7a 4b 65 79 2c 20 2d 31 2c  mt, 1, zKey, -1,
1b30: 20 53 51 4c 49 54 45 5f 53 54 41 54 49 43 29 3b   SQLITE_STATIC);
1b40: 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 73  .      sqlite3_s
1b50: 74 65 70 28 70 53 74 6d 74 29 3b 0a 20 20 20 20  tep(pStmt);.    
1b60: 7d 0a 20 20 7d 0a 20 20 73 71 6c 69 74 65 33 5f  }.  }.  sqlite3_
1b70: 66 69 6e 61 6c 69 7a 65 28 70 53 74 6d 74 29 3b  finalize(pStmt);
1b80: 0a 63 61 63 68 65 5f 72 65 61 64 5f 64 6f 6e 65  .cache_read_done
1b90: 3a 0a 20 20 73 71 6c 69 74 65 33 5f 65 78 65 63  :.  sqlite3_exec
1ba0: 28 64 62 2c 20 22 43 4f 4d 4d 49 54 22 2c 20 30  (db, "COMMIT", 0
1bb0: 2c 20 30 2c 20 30 29 3b 0a 20 20 73 71 6c 69 74  , 0, 0);.  sqlit
1bc0: 65 33 5f 63 6c 6f 73 65 28 64 62 29 3b 0a 20 20  e3_close(db);.  
1bd0: 72 65 74 75 72 6e 20 72 63 3b 0a 7d 0a 0a 2f 2a  return rc;.}../*
1be0: 0a 2a 2a 20 43 72 65 61 74 65 20 61 20 63 61 63  .** Create a cac
1bf0: 68 65 20 64 61 74 61 62 61 73 65 20 66 6f 72 20  he database for 
1c00: 74 68 65 20 63 75 72 72 65 6e 74 20 72 65 70 6f  the current repo
1c10: 73 69 74 6f 72 79 20 69 66 20 6e 6f 20 73 75 63  sitory if no suc
1c20: 68 0a 2a 2a 20 64 61 74 61 62 61 73 65 20 61 6c  h.** database al
1c30: 72 65 61 64 79 20 65 78 69 73 74 73 2e 0a 2a 2f  ready exists..*/
1c40: 0a 76 6f 69 64 20 63 61 63 68 65 5f 69 6e 69 74  .void cache_init
1c50: 69 61 6c 69 7a 65 28 76 6f 69 64 29 7b 0a 20 20  ialize(void){.  
1c60: 73 71 6c 69 74 65 33 5f 63 6c 6f 73 65 28 63 61  sqlite3_close(ca
1c70: 63 68 65 4f 70 65 6e 28 31 29 29 3b 0a 7d 0a 0a  cheOpen(1));.}..
1c80: 2f 2a 0a 2a 2a 20 43 4f 4d 4d 41 4e 44 3a 20 63  /*.** COMMAND: c
1c90: 61 63 68 65 2a 0a 2a 2a 0a 2a 2a 20 55 73 61 67  ache*.**.** Usag
1ca0: 65 3a 20 25 66 6f 73 73 69 6c 20 63 61 63 68 65  e: %fossil cache
1cb0: 20 53 55 42 43 4f 4d 4d 41 4e 44 0a 2a 2a 0a 2a   SUBCOMMAND.**.*
1cc0: 2a 20 4d 61 6e 61 67 65 20 74 68 65 20 63 61 63  * Manage the cac
1cd0: 68 65 20 75 73 65 64 20 66 6f 72 20 70 6f 74 65  he used for pote
1ce0: 6e 74 69 61 6c 6c 79 20 65 78 70 65 6e 73 69 76  ntially expensiv
1cf0: 65 20 77 65 62 20 70 61 67 65 73 20 73 75 63 68  e web pages such
1d00: 20 61 73 0a 2a 2a 20 2f 7a 69 70 20 61 6e 64 20   as.** /zip and 
1d10: 2f 74 61 72 62 61 6c 6c 2e 20 20 20 53 55 42 43  /tarball.   SUBC
1d20: 4f 4d 4d 41 4e 44 20 63 61 6e 20 62 65 3a 0a 2a  OMMAND can be:.*
1d30: 2a 0a 2a 2a 20 20 20 20 63 6c 65 61 72 20 20 20  *.**    clear   
1d40: 20 20 20 20 20 52 65 6d 6f 76 65 20 61 6c 6c 20       Remove all 
1d50: 65 6e 74 72 69 65 73 20 66 72 6f 6d 20 74 68 65  entries from the
1d60: 20 63 61 63 68 65 2e 0a 2a 2a 0a 2a 2a 20 20 20   cache..**.**   
1d70: 20 69 6e 69 74 20 20 20 20 20 20 20 20 20 43 72   init         Cr
1d80: 65 61 74 65 20 74 68 65 20 63 61 63 68 65 20 66  eate the cache f
1d90: 69 6c 65 20 69 66 20 69 74 20 64 6f 65 73 20 6e  ile if it does n
1da0: 6f 74 20 61 6c 72 65 61 64 79 20 65 78 69 73 74  ot already exist
1db0: 2e 0a 2a 2a 0a 2a 2a 20 20 20 20 6c 69 73 74 7c  ..**.**    list|
1dc0: 6c 73 20 20 20 20 20 20 4c 69 73 74 20 74 68 65  ls      List the
1dd0: 20 6b 65 79 73 20 61 6e 64 20 63 6f 6e 74 65 6e   keys and conten
1de0: 74 20 73 69 7a 65 73 20 61 6e 64 20 6f 74 68 65  t sizes and othe
1df0: 72 20 73 74 61 74 73 20 66 6f 72 0a 2a 2a 20 20  r stats for.**  
1e00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61                 a
1e10: 6c 6c 20 65 6e 74 72 69 65 73 20 63 75 72 72 65  ll entries curre
1e20: 6e 74 6c 79 20 69 6e 20 74 68 65 20 63 61 63 68  ntly in the cach
1e30: 65 2e 0a 2a 2a 0a 2a 2a 20 20 20 20 73 74 61 74  e..**.**    stat
1e40: 75 73 20 20 20 20 20 20 20 53 68 6f 77 20 61 20  us       Show a 
1e50: 73 75 6d 6d 61 72 79 20 6f 66 20 74 68 65 20 63  summary of the c
1e60: 61 63 68 65 20 73 74 61 74 75 73 2e 0a 2a 2a 0a  ache status..**.
1e70: 2a 2a 20 54 68 65 20 63 61 63 68 65 20 69 73 20  ** The cache is 
1e80: 73 74 6f 72 65 64 20 69 6e 20 61 20 66 69 6c 65  stored in a file
1e90: 20 74 68 61 74 20 69 73 20 64 69 73 74 69 6e 63   that is distinc
1ea0: 74 20 66 72 6f 6d 20 74 68 65 20 72 65 70 6f 73  t from the repos
1eb0: 69 74 6f 72 79 0a 2a 2a 20 62 75 74 20 74 68 61  itory.** but tha
1ec0: 74 20 69 73 20 68 65 6c 64 20 69 6e 20 74 68 65  t is held in the
1ed0: 20 73 61 6d 65 20 64 69 72 65 63 74 6f 72 79 20   same directory 
1ee0: 61 73 20 74 68 65 20 72 65 70 6f 73 69 74 6f 72  as the repositor
1ef0: 79 2e 20 20 54 68 65 20 63 61 63 68 65 0a 2a 2a  y.  The cache.**
1f00: 20 66 69 6c 65 20 63 61 6e 20 62 65 20 64 65 6c   file can be del
1f10: 65 74 65 64 20 69 6e 20 6f 72 64 65 72 20 74 6f  eted in order to
1f20: 20 63 6f 6d 70 6c 65 74 65 6c 79 20 64 69 73 61   completely disa
1f30: 62 6c 65 20 74 68 65 20 63 61 63 68 65 2e 0a 2a  ble the cache..*
1f40: 2f 0a 76 6f 69 64 20 63 61 63 68 65 5f 63 6d 64  /.void cache_cmd
1f50: 28 76 6f 69 64 29 7b 0a 20 20 63 6f 6e 73 74 20  (void){.  const 
1f60: 63 68 61 72 20 2a 7a 43 6d 64 3b 0a 20 20 69 6e  char *zCmd;.  in
1f70: 74 20 6e 43 6d 64 3b 0a 20 20 73 71 6c 69 74 65  t nCmd;.  sqlite
1f80: 33 20 2a 64 62 3b 0a 20 20 73 71 6c 69 74 65 33  3 *db;.  sqlite3
1f90: 5f 73 74 6d 74 20 2a 70 53 74 6d 74 3b 0a 0a 20  _stmt *pStmt;.. 
1fa0: 20 64 62 5f 66 69 6e 64 5f 61 6e 64 5f 6f 70 65   db_find_and_ope
1fb0: 6e 5f 72 65 70 6f 73 69 74 6f 72 79 28 30 2c 30  n_repository(0,0
1fc0: 29 3b 0a 20 20 7a 43 6d 64 20 3d 20 67 2e 61 72  );.  zCmd = g.ar
1fd0: 67 63 3e 3d 33 20 3f 20 67 2e 61 72 67 76 5b 32  gc>=3 ? g.argv[2
1fe0: 5d 20 3a 20 22 22 3b 0a 20 20 6e 43 6d 64 20 3d  ] : "";.  nCmd =
1ff0: 20 28 69 6e 74 29 73 74 72 6c 65 6e 28 7a 43 6d   (int)strlen(zCm
2000: 64 29 3b 0a 20 20 69 66 28 20 6e 43 6d 64 3c 3d  d);.  if( nCmd<=
2010: 31 20 29 7b 0a 20 20 20 20 66 6f 73 73 69 6c 5f  1 ){.    fossil_
2020: 66 61 74 61 6c 28 22 55 73 61 67 65 3a 20 25 73  fatal("Usage: %s
2030: 20 63 61 63 68 65 20 53 55 42 43 4f 4d 4d 41 4e   cache SUBCOMMAN
2040: 44 22 2c 20 67 2e 61 72 67 76 5b 30 5d 29 3b 0a  D", g.argv[0]);.
2050: 20 20 7d 0a 20 20 69 66 28 20 73 74 72 6e 63 6d    }.  if( strncm
2060: 70 28 7a 43 6d 64 2c 20 22 69 6e 69 74 22 2c 20  p(zCmd, "init", 
2070: 6e 43 6d 64 29 3d 3d 30 20 29 7b 0a 20 20 20 20  nCmd)==0 ){.    
2080: 64 62 20 3d 20 63 61 63 68 65 4f 70 65 6e 28 30  db = cacheOpen(0
2090: 29 3b 0a 20 20 20 20 73 71 6c 69 74 65 33 5f 63  );.    sqlite3_c
20a0: 6c 6f 73 65 28 64 62 29 3b 0a 20 20 20 20 69 66  lose(db);.    if
20b0: 28 20 64 62 20 29 7b 0a 20 20 20 20 20 20 66 6f  ( db ){.      fo
20c0: 73 73 69 6c 5f 70 72 69 6e 74 28 22 63 61 63 68  ssil_print("cach
20d0: 65 20 61 6c 72 65 61 64 79 20 65 78 69 73 74 73  e already exists
20e0: 20 69 6e 20 66 69 6c 65 20 25 7a 5c 6e 22 2c 20   in file %z\n", 
20f0: 63 61 63 68 65 4e 61 6d 65 28 29 29 3b 0a 20 20  cacheName());.  
2100: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 64    }else{.      d
2110: 62 20 3d 20 63 61 63 68 65 4f 70 65 6e 28 31 29  b = cacheOpen(1)
2120: 3b 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f  ;.      sqlite3_
2130: 63 6c 6f 73 65 28 64 62 29 3b 0a 20 20 20 20 20  close(db);.     
2140: 20 69 66 28 20 64 62 20 29 7b 0a 20 20 20 20 20   if( db ){.     
2150: 20 20 20 66 6f 73 73 69 6c 5f 70 72 69 6e 74 28     fossil_print(
2160: 22 63 61 63 68 65 20 63 72 65 61 74 65 64 20 69  "cache created i
2170: 6e 20 66 69 6c 65 20 25 7a 5c 6e 22 2c 20 63 61  n file %z\n", ca
2180: 63 68 65 4e 61 6d 65 28 29 29 3b 0a 20 20 20 20  cheName());.    
2190: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 20    }else{.       
21a0: 20 66 6f 73 73 69 6c 5f 66 61 74 61 6c 28 22 75   fossil_fatal("u
21b0: 6e 61 62 6c 65 20 74 6f 20 63 72 65 61 74 65 20  nable to create 
21c0: 63 61 63 68 65 20 66 69 6c 65 20 25 7a 22 2c 20  cache file %z", 
21d0: 63 61 63 68 65 4e 61 6d 65 28 29 29 3b 0a 20 20  cacheName());.  
21e0: 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 7d 65      }.    }.  }e
21f0: 6c 73 65 20 69 66 28 20 73 74 72 6e 63 6d 70 28  lse if( strncmp(
2200: 7a 43 6d 64 2c 20 22 63 6c 65 61 72 22 2c 20 6e  zCmd, "clear", n
2210: 43 6d 64 29 3d 3d 30 20 29 7b 0a 20 20 20 20 64  Cmd)==0 ){.    d
2220: 62 20 3d 20 63 61 63 68 65 4f 70 65 6e 28 30 29  b = cacheOpen(0)
2230: 3b 0a 20 20 20 20 69 66 28 20 64 62 20 29 7b 0a  ;.    if( db ){.
2240: 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 65 78        sqlite3_ex
2250: 65 63 28 64 62 2c 20 22 44 45 4c 45 54 45 20 46  ec(db, "DELETE F
2260: 52 4f 4d 20 63 61 63 68 65 3b 20 44 45 4c 45 54  ROM cache; DELET
2270: 45 20 46 52 4f 4d 20 62 6c 6f 62 3b 20 56 41 43  E FROM blob; VAC
2280: 55 55 4d 3b 22 2c 30 2c 30 2c 30 29 3b 0a 20 20  UUM;",0,0,0);.  
2290: 20 20 20 20 73 71 6c 69 74 65 33 5f 63 6c 6f 73      sqlite3_clos
22a0: 65 28 64 62 29 3b 0a 20 20 20 20 20 20 66 6f 73  e(db);.      fos
22b0: 73 69 6c 5f 70 72 69 6e 74 28 22 63 61 63 68 65  sil_print("cache
22c0: 20 63 6c 65 61 72 65 64 5c 6e 22 29 3b 0a 20 20   cleared\n");.  
22d0: 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 20 66    }else{.      f
22e0: 6f 73 73 69 6c 5f 70 72 69 6e 74 28 22 6e 6f 74  ossil_print("not
22f0: 68 69 6e 67 20 74 6f 20 63 6c 65 61 72 3b 20 63  hing to clear; c
2300: 61 63 68 65 20 64 6f 65 73 20 6e 6f 74 20 65 78  ache does not ex
2310: 69 73 74 5c 6e 22 29 3b 0a 20 20 20 20 7d 0a 20  ist\n");.    }. 
2320: 20 7d 65 6c 73 65 20 69 66 28 28 20 73 74 72 6e   }else if(( strn
2330: 63 6d 70 28 7a 43 6d 64 2c 20 22 6c 69 73 74 22  cmp(zCmd, "list"
2340: 2c 20 6e 43 6d 64 29 3d 3d 30 20 29 0a 20 20 20  , nCmd)==0 ).   
2350: 20 20 20 20 20 20 20 20 20 20 7c 7c 20 28 20 73            || ( s
2360: 74 72 6e 63 6d 70 28 7a 43 6d 64 2c 20 22 6c 73  trncmp(zCmd, "ls
2370: 22 2c 20 6e 43 6d 64 29 3d 3d 30 20 29 29 7b 0a  ", nCmd)==0 )){.
2380: 20 20 20 20 64 62 20 3d 20 63 61 63 68 65 4f 70      db = cacheOp
2390: 65 6e 28 30 29 3b 0a 20 20 20 20 69 66 28 20 64  en(0);.    if( d
23a0: 62 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 66 6f  b==0 ){.      fo
23b0: 73 73 69 6c 5f 70 72 69 6e 74 28 22 63 61 63 68  ssil_print("cach
23c0: 65 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74  e does not exist
23d0: 5c 6e 22 29 3b 0a 20 20 20 20 7d 65 6c 73 65 7b  \n");.    }else{
23e0: 0a 20 20 20 20 20 20 69 6e 74 20 6e 45 6e 74 72  .      int nEntr
23f0: 79 20 3d 20 30 3b 0a 20 20 20 20 20 20 63 68 61  y = 0;.      cha
2400: 72 20 2a 7a 44 62 4e 61 6d 65 20 3d 20 63 61 63  r *zDbName = cac
2410: 68 65 4e 61 6d 65 28 29 3b 0a 20 20 20 20 20 20  heName();.      
2420: 63 61 63 68 65 5f 72 65 67 69 73 74 65 72 5f 73  cache_register_s
2430: 69 7a 65 6e 61 6d 65 28 64 62 29 3b 0a 20 20 20  izename(db);.   
2440: 20 20 20 70 53 74 6d 74 20 3d 20 63 61 63 68 65     pStmt = cache
2450: 53 74 6d 74 28 64 62 2c 0a 20 20 20 20 20 20 20  Stmt(db,.       
2460: 20 20 20 20 22 53 45 4c 45 43 54 20 6b 65 79 2c      "SELECT key,
2470: 20 73 69 7a 65 6e 61 6d 65 28 73 7a 29 2c 20 6e   sizename(sz), n
2480: 52 65 66 2c 20 64 61 74 65 74 69 6d 65 28 74 6d  Ref, datetime(tm
2490: 2c 27 75 6e 69 78 65 70 6f 63 68 27 29 22 0a 20  ,'unixepoch')". 
24a0: 20 20 20 20 20 20 20 20 20 20 22 20 20 46 52 4f            "  FRO
24b0: 4d 20 63 61 63 68 65 22 0a 20 20 20 20 20 20 20  M cache".       
24c0: 20 20 20 20 22 20 4f 52 44 45 52 20 42 59 20 74      " ORDER BY t
24d0: 6d 20 44 45 53 43 22 0a 20 20 20 20 20 20 29 3b  m DESC".      );
24e0: 0a 20 20 20 20 20 20 69 66 28 20 70 53 74 6d 74  .      if( pStmt
24f0: 20 29 7b 0a 20 20 20 20 20 20 20 20 77 68 69 6c   ){.        whil
2500: 65 28 20 73 71 6c 69 74 65 33 5f 73 74 65 70 28  e( sqlite3_step(
2510: 70 53 74 6d 74 29 3d 3d 53 51 4c 49 54 45 5f 52  pStmt)==SQLITE_R
2520: 4f 57 20 29 7b 0a 20 20 20 20 20 20 20 20 20 20  OW ){.          
2530: 66 6f 73 73 69 6c 5f 70 72 69 6e 74 28 22 25 73  fossil_print("%s
2540: 20 25 34 64 20 25 38 73 20 25 73 5c 6e 22 2c 0a   %4d %8s %s\n",.
2550: 20 20 20 20 20 20 20 20 20 20 20 20 20 73 71 6c               sql
2560: 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 74 65 78 74  ite3_column_text
2570: 28 70 53 74 6d 74 2c 20 33 29 2c 0a 20 20 20 20  (pStmt, 3),.    
2580: 20 20 20 20 20 20 20 20 20 73 71 6c 69 74 65 33           sqlite3
2590: 5f 63 6f 6c 75 6d 6e 5f 69 6e 74 28 70 53 74 6d  _column_int(pStm
25a0: 74 2c 20 32 29 2c 0a 20 20 20 20 20 20 20 20 20  t, 2),.         
25b0: 20 20 20 20 73 71 6c 69 74 65 33 5f 63 6f 6c 75      sqlite3_colu
25c0: 6d 6e 5f 74 65 78 74 28 70 53 74 6d 74 2c 20 31  mn_text(pStmt, 1
25d0: 29 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  ),.             
25e0: 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d 6e 5f 74  sqlite3_column_t
25f0: 65 78 74 28 70 53 74 6d 74 2c 20 30 29 29 3b 0a  ext(pStmt, 0));.
2600: 20 20 20 20 20 20 20 20 20 20 6e 45 6e 74 72 79            nEntry
2610: 2b 2b 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20  ++;.        }.  
2620: 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f 66 69        sqlite3_fi
2630: 6e 61 6c 69 7a 65 28 70 53 74 6d 74 29 3b 0a 20  nalize(pStmt);. 
2640: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 73 71 6c       }.      sql
2650: 69 74 65 33 5f 63 6c 6f 73 65 28 64 62 29 3b 0a  ite3_close(db);.
2660: 20 20 20 20 20 20 66 6f 73 73 69 6c 5f 70 72 69        fossil_pri
2670: 6e 74 28 22 45 6e 74 72 69 65 73 3a 20 25 64 20  nt("Entries: %d 
2680: 20 43 61 63 68 65 2d 66 69 6c 65 20 53 69 7a 65   Cache-file Size
2690: 3a 20 25 6c 6c 64 5c 6e 22 2c 0a 20 20 20 20 20  : %lld\n",.     
26a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 45                nE
26b0: 6e 74 72 79 2c 20 66 69 6c 65 5f 73 69 7a 65 28  ntry, file_size(
26c0: 7a 44 62 4e 61 6d 65 2c 20 45 78 74 46 49 4c 45  zDbName, ExtFILE
26d0: 29 29 3b 0a 20 20 20 20 20 20 66 6f 73 73 69 6c  ));.      fossil
26e0: 5f 66 72 65 65 28 7a 44 62 4e 61 6d 65 29 3b 0a  _free(zDbName);.
26f0: 20 20 20 20 7d 0a 20 20 7d 65 6c 73 65 20 69 66      }.  }else if
2700: 28 20 73 74 72 6e 63 6d 70 28 7a 43 6d 64 2c 20  ( strncmp(zCmd, 
2710: 22 73 74 61 74 75 73 22 2c 20 6e 43 6d 64 29 3d  "status", nCmd)=
2720: 3d 30 20 29 7b 0a 20 20 20 20 66 6f 73 73 69 6c  =0 ){.    fossil
2730: 5f 70 72 69 6e 74 28 22 54 42 44 2e 2e 2e 5c 6e  _print("TBD...\n
2740: 22 29 3b 0a 20 20 7d 65 6c 73 65 7b 0a 20 20 20  ");.  }else{.   
2750: 20 66 6f 73 73 69 6c 5f 66 61 74 61 6c 28 22 55   fossil_fatal("U
2760: 6e 6b 6e 6f 77 6e 20 73 75 62 63 6f 6d 6d 61 6e  nknown subcomman
2770: 64 20 5c 22 25 73 5c 22 2e 22 0a 20 20 20 20 20  d \"%s\".".     
2780: 20 20 20 20 20 20 20 20 20 20 20 20 22 20 53 68              " Sh
2790: 6f 75 6c 64 20 62 65 20 6f 6e 65 20 6f 66 3a 20  ould be one of: 
27a0: 63 6c 65 61 72 20 69 6e 69 74 20 6c 69 73 74 20  clear init list 
27b0: 73 74 61 74 75 73 22 2c 20 7a 43 6d 64 29 3b 0a  status", zCmd);.
27c0: 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 57 45 42    }.}../*.** WEB
27d0: 50 41 47 45 3a 20 63 61 63 68 65 73 74 61 74 0a  PAGE: cachestat.
27e0: 2a 2a 0a 2a 2a 20 53 68 6f 77 20 69 6e 66 6f 72  **.** Show infor
27f0: 6d 61 74 69 6f 6e 20 61 62 6f 75 74 20 74 68 65  mation about the
2800: 20 77 65 62 70 61 67 65 20 63 61 63 68 65 2e 20   webpage cache. 
2810: 20 52 65 71 75 69 72 65 73 20 53 65 74 75 70 20   Requires Setup 
2820: 70 72 69 76 69 6c 65 67 65 2e 0a 2a 2f 0a 76 6f  privilege..*/.vo
2830: 69 64 20 63 61 63 68 65 5f 70 61 67 65 28 76 6f  id cache_page(vo
2840: 69 64 29 7b 0a 20 20 73 71 6c 69 74 65 33 20 2a  id){.  sqlite3 *
2850: 64 62 3b 0a 20 20 73 71 6c 69 74 65 33 5f 73 74  db;.  sqlite3_st
2860: 6d 74 20 2a 70 53 74 6d 74 3b 0a 20 20 63 68 61  mt *pStmt;.  cha
2870: 72 20 7a 42 75 66 5b 31 30 30 5d 3b 0a 0a 20 20  r zBuf[100];..  
2880: 6c 6f 67 69 6e 5f 63 68 65 63 6b 5f 63 72 65 64  login_check_cred
2890: 65 6e 74 69 61 6c 73 28 29 3b 0a 20 20 69 66 28  entials();.  if(
28a0: 20 21 67 2e 70 65 72 6d 2e 53 65 74 75 70 20 29   !g.perm.Setup )
28b0: 7b 20 6c 6f 67 69 6e 5f 6e 65 65 64 65 64 28 30  { login_needed(0
28c0: 29 3b 20 72 65 74 75 72 6e 3b 20 7d 0a 20 20 73  ); return; }.  s
28d0: 74 79 6c 65 5f 68 65 61 64 65 72 28 22 57 65 62  tyle_header("Web
28e0: 20 43 61 63 68 65 20 53 74 61 74 75 73 22 29 3b   Cache Status");
28f0: 0a 20 20 64 62 20 3d 20 63 61 63 68 65 4f 70 65  .  db = cacheOpe
2900: 6e 28 30 29 3b 0a 20 20 69 66 28 20 64 62 3d 3d  n(0);.  if( db==
2910: 30 20 29 7b 0a 20 20 20 20 40 20 54 68 65 20 77  0 ){.    @ The w
2920: 65 62 2d 70 61 67 65 20 63 61 63 68 65 20 69 73  eb-page cache is
2930: 20 64 69 73 61 62 6c 65 64 20 66 6f 72 20 74 68   disabled for th
2940: 69 73 20 72 65 70 6f 73 69 74 6f 72 79 0a 20 20  is repository.  
2950: 7d 65 6c 73 65 7b 0a 20 20 20 20 63 68 61 72 20  }else{.    char 
2960: 2a 7a 44 62 4e 61 6d 65 20 3d 20 63 61 63 68 65  *zDbName = cache
2970: 4e 61 6d 65 28 29 3b 0a 20 20 20 20 63 61 63 68  Name();.    cach
2980: 65 5f 72 65 67 69 73 74 65 72 5f 73 69 7a 65 6e  e_register_sizen
2990: 61 6d 65 28 64 62 29 3b 0a 20 20 20 20 70 53 74  ame(db);.    pSt
29a0: 6d 74 20 3d 20 63 61 63 68 65 53 74 6d 74 28 64  mt = cacheStmt(d
29b0: 62 2c 0a 20 20 20 20 20 20 20 20 20 22 53 45 4c  b,.         "SEL
29c0: 45 43 54 20 6b 65 79 2c 20 73 69 7a 65 6e 61 6d  ECT key, sizenam
29d0: 65 28 73 7a 29 2c 20 6e 52 65 66 2c 20 64 61 74  e(sz), nRef, dat
29e0: 65 74 69 6d 65 28 74 6d 2c 27 75 6e 69 78 65 70  etime(tm,'unixep
29f0: 6f 63 68 27 29 22 0a 20 20 20 20 20 20 20 20 20  och')".         
2a00: 22 20 20 46 52 4f 4d 20 63 61 63 68 65 22 0a 20  "  FROM cache". 
2a10: 20 20 20 20 20 20 20 20 22 20 4f 52 44 45 52 20          " ORDER 
2a20: 42 59 20 28 74 6d 20 2b 20 33 36 30 30 2a 6d 69  BY (tm + 3600*mi
2a30: 6e 28 6e 52 65 66 2c 34 38 29 29 20 44 45 53 43  n(nRef,48)) DESC
2a40: 22 0a 20 20 20 20 29 3b 0a 20 20 20 20 69 66 28  ".    );.    if(
2a50: 20 70 53 74 6d 74 20 29 7b 0a 20 20 20 20 20 20   pStmt ){.      
2a60: 40 20 3c 6f 6c 3e 0a 20 20 20 20 20 20 77 68 69  @ <ol>.      whi
2a70: 6c 65 28 20 73 71 6c 69 74 65 33 5f 73 74 65 70  le( sqlite3_step
2a80: 28 70 53 74 6d 74 29 3d 3d 53 51 4c 49 54 45 5f  (pStmt)==SQLITE_
2a90: 52 4f 57 20 29 7b 0a 20 20 20 20 20 20 20 20 63  ROW ){.        c
2aa0: 6f 6e 73 74 20 75 6e 73 69 67 6e 65 64 20 63 68  onst unsigned ch
2ab0: 61 72 20 2a 7a 4e 61 6d 65 20 3d 20 73 71 6c 69  ar *zName = sqli
2ac0: 74 65 33 5f 63 6f 6c 75 6d 6e 5f 74 65 78 74 28  te3_column_text(
2ad0: 70 53 74 6d 74 2c 30 29 3b 0a 20 20 20 20 20 20  pStmt,0);.      
2ae0: 20 20 40 20 3c 6c 69 3e 3c 70 3e 25 7a 28 68 72    @ <li><p>%z(hr
2af0: 65 66 28 22 25 52 2f 63 61 63 68 65 67 65 74 3f  ef("%R/cacheget?
2b00: 6b 65 79 3d 25 54 22 2c 7a 4e 61 6d 65 29 29 25  key=%T",zName))%
2b10: 68 28 7a 4e 61 6d 65 29 3c 2f 61 3e 3c 62 72 20  h(zName)</a><br 
2b20: 2f 3e 0a 20 20 20 20 20 20 20 20 40 20 73 69 7a  />.        @ siz
2b30: 65 3a 20 25 73 28 73 71 6c 69 74 65 33 5f 63 6f  e: %s(sqlite3_co
2b40: 6c 75 6d 6e 5f 74 65 78 74 28 70 53 74 6d 74 2c  lumn_text(pStmt,
2b50: 31 29 29 0a 20 20 20 20 20 20 20 20 40 20 68 69  1)).        @ hi
2b60: 74 2d 63 6f 75 6e 74 3a 20 25 64 28 73 71 6c 69  t-count: %d(sqli
2b70: 74 65 33 5f 63 6f 6c 75 6d 6e 5f 69 6e 74 28 70  te3_column_int(p
2b80: 53 74 6d 74 2c 32 29 29 0a 20 20 20 20 20 20 20  Stmt,2)).       
2b90: 20 40 20 6c 61 73 74 2d 61 63 63 65 73 73 3a 20   @ last-access: 
2ba0: 25 73 28 73 71 6c 69 74 65 33 5f 63 6f 6c 75 6d  %s(sqlite3_colum
2bb0: 6e 5f 74 65 78 74 28 70 53 74 6d 74 2c 33 29 29  n_text(pStmt,3))
2bc0: 3c 2f 70 3e 3c 2f 6c 69 3e 0a 20 20 20 20 20 20  </p></li>.      
2bd0: 7d 0a 20 20 20 20 20 20 73 71 6c 69 74 65 33 5f  }.      sqlite3_
2be0: 66 69 6e 61 6c 69 7a 65 28 70 53 74 6d 74 29 3b  finalize(pStmt);
2bf0: 0a 20 20 20 20 20 20 40 20 3c 2f 6f 6c 3e 0a 20  .      @ </ol>. 
2c00: 20 20 20 7d 0a 20 20 20 20 7a 44 62 4e 61 6d 65     }.    zDbName
2c10: 20 3d 20 63 61 63 68 65 4e 61 6d 65 28 29 3b 0a   = cacheName();.
2c20: 20 20 20 20 62 69 67 53 69 7a 65 4e 61 6d 65 28      bigSizeName(
2c30: 73 69 7a 65 6f 66 28 7a 42 75 66 29 2c 20 7a 42  sizeof(zBuf), zB
2c40: 75 66 2c 20 66 69 6c 65 5f 73 69 7a 65 28 7a 44  uf, file_size(zD
2c50: 62 4e 61 6d 65 2c 20 45 78 74 46 49 4c 45 29 29  bName, ExtFILE))
2c60: 3b 0a 20 20 20 20 40 20 3c 70 3e 63 61 63 68 65  ;.    @ <p>cache
2c70: 2d 66 69 6c 65 20 6e 61 6d 65 3a 20 25 68 28 7a  -file name: %h(z
2c80: 44 62 4e 61 6d 65 29 3c 2f 70 3e 0a 20 20 20 20  DbName)</p>.    
2c90: 40 20 3c 70 3e 63 61 63 68 65 2d 66 69 6c 65 20  @ <p>cache-file 
2ca0: 73 69 7a 65 3a 20 25 73 28 7a 42 75 66 29 3c 2f  size: %s(zBuf)</
2cb0: 70 3e 0a 20 20 20 20 66 6f 73 73 69 6c 5f 66 72  p>.    fossil_fr
2cc0: 65 65 28 7a 44 62 4e 61 6d 65 29 3b 0a 20 20 20  ee(zDbName);.   
2cd0: 20 73 71 6c 69 74 65 33 5f 63 6c 6f 73 65 28 64   sqlite3_close(d
2ce0: 62 29 3b 0a 20 20 7d 0a 20 20 73 74 79 6c 65 5f  b);.  }.  style_
2cf0: 66 6f 6f 74 65 72 28 29 3b 0a 7d 0a 0a 2f 2a 0a  footer();.}../*.
2d00: 2a 2a 20 57 45 42 50 41 47 45 3a 20 63 61 63 68  ** WEBPAGE: cach
2d10: 65 67 65 74 0a 2a 2a 0a 2a 2a 20 55 73 61 67 65  eget.**.** Usage
2d20: 3a 20 20 2f 63 61 63 68 65 67 65 74 3f 6b 65 79  :  /cacheget?key
2d30: 3d 4b 45 59 0a 2a 2a 0a 2a 2a 20 44 6f 77 6e 6c  =KEY.**.** Downl
2d40: 6f 61 64 20 61 20 73 69 6e 67 6c 65 20 65 6e 74  oad a single ent
2d50: 72 79 20 66 6f 72 20 74 68 65 20 63 61 63 68 65  ry for the cache
2d60: 2c 20 69 64 65 6e 74 69 66 69 65 64 20 62 79 20  , identified by 
2d70: 4b 45 59 2e 0a 2a 2a 20 54 68 69 73 20 70 61 67  KEY..** This pag
2d80: 65 20 69 73 20 6e 6f 72 6d 61 6c 6c 79 20 61 20  e is normally a 
2d90: 68 79 70 65 72 6c 69 6e 6b 20 66 72 6f 6d 20 74  hyperlink from t
2da0: 68 65 20 2f 63 61 63 68 65 73 74 61 74 20 70 61  he /cachestat pa
2db0: 67 65 2e 0a 2a 2a 20 52 65 71 75 69 72 65 73 20  ge..** Requires 
2dc0: 41 64 6d 69 6e 20 70 72 69 76 69 6c 65 67 65 2e  Admin privilege.
2dd0: 0a 2a 2f 0a 76 6f 69 64 20 63 61 63 68 65 5f 67  .*/.void cache_g
2de0: 65 74 70 61 67 65 28 76 6f 69 64 29 7b 0a 20 20  etpage(void){.  
2df0: 63 6f 6e 73 74 20 63 68 61 72 20 2a 7a 4b 65 79  const char *zKey
2e00: 3b 0a 20 20 42 6c 6f 62 20 63 6f 6e 74 65 6e 74  ;.  Blob content
2e10: 3b 0a 0a 20 20 6c 6f 67 69 6e 5f 63 68 65 63 6b  ;..  login_check
2e20: 5f 63 72 65 64 65 6e 74 69 61 6c 73 28 29 3b 0a  _credentials();.
2e30: 20 20 69 66 28 20 21 67 2e 70 65 72 6d 2e 53 65    if( !g.perm.Se
2e40: 74 75 70 20 29 7b 20 6c 6f 67 69 6e 5f 6e 65 65  tup ){ login_nee
2e50: 64 65 64 28 30 29 3b 20 72 65 74 75 72 6e 3b 20  ded(0); return; 
2e60: 7d 0a 20 20 7a 4b 65 79 20 3d 20 50 44 28 22 6b  }.  zKey = PD("k
2e70: 65 79 22 2c 22 22 29 3b 0a 20 20 62 6c 6f 62 5f  ey","");.  blob_
2e80: 7a 65 72 6f 28 26 63 6f 6e 74 65 6e 74 29 3b 0a  zero(&content);.
2e90: 20 20 69 66 28 20 63 61 63 68 65 5f 72 65 61 64    if( cache_read
2ea0: 28 26 63 6f 6e 74 65 6e 74 2c 20 7a 4b 65 79 29  (&content, zKey)
2eb0: 3d 3d 30 20 29 7b 0a 20 20 20 20 73 74 79 6c 65  ==0 ){.    style
2ec0: 5f 68 65 61 64 65 72 28 22 43 61 63 68 65 20 44  _header("Cache D
2ed0: 6f 77 6e 6c 6f 61 64 20 45 72 72 6f 72 22 29 3b  ownload Error");
2ee0: 0a 20 20 20 20 40 20 54 68 65 20 63 61 63 68 65  .    @ The cache
2ef0: 20 64 6f 65 73 20 6e 6f 74 20 63 6f 6e 74 61 69   does not contai
2f00: 6e 20 61 6e 79 20 65 6e 74 72 79 20 77 69 74 68  n any entry with
2f10: 20 74 68 69 73 20 6b 65 79 3a 20 22 25 68 28 7a   this key: "%h(z
2f20: 4b 65 79 29 22 0a 20 20 20 20 73 74 79 6c 65 5f  Key)".    style_
2f30: 66 6f 6f 74 65 72 28 29 3b 0a 20 20 20 20 72 65  footer();.    re
2f40: 74 75 72 6e 3b 0a 20 20 7d 0a 20 20 63 67 69 5f  turn;.  }.  cgi_
2f50: 73 65 74 5f 63 6f 6e 74 65 6e 74 28 26 63 6f 6e  set_content(&con
2f60: 74 65 6e 74 29 3b 0a 20 20 63 67 69 5f 73 65 74  tent);.  cgi_set
2f70: 5f 63 6f 6e 74 65 6e 74 5f 74 79 70 65 28 22 61  _content_type("a
2f80: 70 70 6c 69 63 61 74 69 6f 6e 2f 78 2d 63 6f 6d  pplication/x-com
2f90: 70 72 65 73 73 65 64 22 29 3b 0a 7d 0a           pressed");.}.