Documentation Source Text

Hex Artifact Content
Login

Artifact 9142d215b94648da01fb06ff8705572e0994aa83:


0000: 23 21 2f 75 73 72 2f 62 69 6e 2f 74 63 6c 73 71  #!/usr/bin/tclsq
0010: 6c 69 74 65 33 2e 66 74 73 33 0a 0a 23 20 44 65  lite3.fts3..# De
0020: 63 6f 64 65 20 61 6e 20 48 54 54 50 20 25 2d 65  code an HTTP %-e
0030: 6e 63 6f 64 65 64 20 73 74 72 69 6e 67 0a 23 0a  ncoded string.#.
0040: 70 72 6f 63 20 70 65 72 63 65 6e 74 5f 64 65 63  proc percent_dec
0050: 6f 64 65 20 7b 73 74 72 7d 20 7b 0a 20 20 20 20  ode {str} {.    
0060: 23 20 72 65 77 72 69 74 65 20 22 2b 22 20 62 61  # rewrite "+" ba
0070: 63 6b 20 74 6f 20 73 70 61 63 65 0a 20 20 20 20  ck to space.    
0080: 23 20 70 72 6f 74 65 63 74 20 5c 20 61 6e 64 20  # protect \ and 
0090: 5b 20 61 6e 64 20 5d 20 62 79 20 71 75 6f 74 69  [ and ] by quoti
00a0: 6e 67 20 77 69 74 68 20 27 5c 27 0a 20 20 20 20  ng with '\'.    
00b0: 73 65 74 20 73 74 72 20 5b 73 74 72 69 6e 67 20  set str [string 
00c0: 6d 61 70 20 5b 6c 69 73 74 20 2b 20 7b 20 7d 20  map [list + { } 
00d0: 22 5c 5c 22 20 22 5c 5c 5c 5c 22 20 5c 5b 20 5c  "\\" "\\\\" \[ \
00e0: 5c 5c 5b 20 5c 5d 20 5c 5c 5c 5d 5d 20 24 73 74  \\[ \] \\\]] $st
00f0: 72 5d 0a 0a 20 20 20 20 23 20 70 72 65 70 61 72  r]..    # prepar
0100: 65 20 74 6f 20 70 72 6f 63 65 73 73 20 61 6c 6c  e to process all
0110: 20 25 2d 65 73 63 61 70 65 73 0a 20 20 20 20 72   %-escapes.    r
0120: 65 67 73 75 62 20 2d 61 6c 6c 20 2d 2d 20 7b 25  egsub -all -- {%
0130: 28 5b 41 2d 46 61 2d 66 5d 5b 41 2d 46 61 2d 66  ([A-Fa-f][A-Fa-f
0140: 30 2d 39 5d 29 25 28 5b 41 2d 46 61 2d 66 38 39  0-9])%([A-Fa-f89
0150: 5d 5b 41 2d 46 61 2d 66 30 2d 39 5d 29 7d 20 5c  ][A-Fa-f0-9])} \
0160: 0a 20 20 20 20 20 20 20 20 24 73 74 72 20 7b 5b  .        $str {[
0170: 65 6e 63 6f 64 69 6e 67 20 63 6f 6e 76 65 72 74  encoding convert
0180: 66 72 6f 6d 20 75 74 66 2d 38 20 5b 62 69 6e 61  from utf-8 [bina
0190: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 5c 31  ry decode hex \1
01a0: 5c 32 5d 5d 7d 20 73 74 72 0a 20 20 20 20 72 65  \2]]} str.    re
01b0: 67 73 75 62 20 2d 61 6c 6c 20 2d 2d 20 7b 25 28  gsub -all -- {%(
01c0: 5b 30 2d 37 5d 5b 41 2d 46 61 2d 66 30 2d 39 5d  [0-7][A-Fa-f0-9]
01d0: 29 7d 20 24 73 74 72 20 7b 5c 5c 75 30 30 5c 31  )} $str {\\u00\1
01e0: 7d 20 73 74 72 0a 0a 20 20 20 20 23 20 70 72 6f  } str..    # pro
01f0: 63 65 73 73 20 25 2d 65 73 63 61 70 65 73 0a 20  cess %-escapes. 
0200: 20 20 20 72 65 74 75 72 6e 20 5b 73 75 62 73 74     return [subst
0210: 20 2d 6e 6f 76 61 72 20 24 73 74 72 5d 0a 7d 0a   -novar $str].}.
0220: 0a 23 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  .#==============
0230: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
0240: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
0250: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
0260: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 23 20 54 68  ===========.# Th
0270: 69 73 20 70 72 6f 63 20 69 73 20 63 61 6c 6c 65  is proc is calle
0280: 64 20 74 6f 20 70 61 72 73 65 20 74 68 65 20 61  d to parse the a
0290: 72 67 75 6d 65 6e 74 73 20 70 61 73 73 65 64 20  rguments passed 
02a0: 74 6f 20 74 68 69 73 20 69 6e 76 6f 63 61 74 69  to this invocati
02b0: 6f 6e 20 6f 66 0a 23 20 74 68 65 20 43 47 49 20  on of.# the CGI 
02c0: 70 72 6f 67 72 61 6d 20 28 76 69 61 20 65 69 74  program (via eit
02d0: 68 65 72 20 74 68 65 20 47 45 54 20 6f 72 20 50  her the GET or P
02e0: 4f 53 54 20 6d 65 74 68 6f 64 29 2e 20 49 74 20  OST method). It 
02f0: 72 65 74 75 72 6e 73 20 61 0a 23 20 6b 65 79 2f  returns a.# key/
0300: 76 61 6c 75 65 20 6c 69 73 74 20 63 6f 6e 74 61  value list conta
0310: 69 6e 69 6e 67 20 74 68 65 20 61 72 67 75 6d 65  ining the argume
0320: 6e 74 73 20 73 75 69 74 61 62 6c 65 20 66 6f 72  nts suitable for
0330: 20 70 61 73 73 69 6e 67 20 74 6f 20 5b 61 72 72   passing to [arr
0340: 61 79 0a 23 20 73 65 74 5d 2e 20 46 6f 72 20 65  ay.# set]. For e
0350: 78 61 6d 70 6c 65 2c 20 69 66 20 74 68 65 20 43  xample, if the C
0360: 47 49 20 69 73 20 69 6e 76 6f 6b 65 64 20 76 69  GI is invoked vi
0370: 61 20 61 20 47 45 54 20 72 65 71 75 65 73 74 20  a a GET request 
0380: 6f 6e 20 74 68 65 20 55 52 49 3a 0a 23 0a 23 20  on the URI:.#.# 
0390: 20 20 68 74 74 70 3a 2f 2f 77 77 77 2e 73 71 6c    http://www.sql
03a0: 69 74 65 2e 6f 72 67 2f 73 65 61 72 63 68 3f 71  ite.org/search?q
03b0: 75 65 72 79 3d 66 74 73 33 2b 74 61 62 6c 65 26  uery=fts3+table&
03c0: 72 65 73 75 6c 74 73 3d 31 30 0a 23 0a 23 20 74  results=10.#.# t
03d0: 68 65 6e 20 74 68 65 20 72 65 74 75 72 6e 65 64  hen the returned
03e0: 20 6c 69 73 74 20 76 61 6c 75 65 20 69 73 3a 20   list value is: 
03f0: 0a 23 0a 23 20 20 20 7b 71 75 65 72 79 20 7b 66  .#.#   {query {f
0400: 74 73 33 20 74 61 62 6c 65 7d 20 72 65 73 75 6c  ts3 table} resul
0410: 74 73 20 31 30 7d 0a 23 0a 70 72 6f 63 20 63 67  ts 10}.#.proc cg
0420: 69 5f 70 61 72 73 65 5f 61 72 67 73 20 7b 7d 20  i_parse_args {} 
0430: 7b 0a 20 20 67 6c 6f 62 61 6c 20 65 6e 76 20 41  {.  global env A
0440: 0a 0a 20 20 69 66 20 7b 24 65 6e 76 28 52 45 51  ..  if {$env(REQ
0450: 55 45 53 54 5f 4d 45 54 48 4f 44 29 20 3d 3d 20  UEST_METHOD) == 
0460: 22 47 45 54 22 7d 20 7b 0a 20 20 20 20 66 6f 72  "GET"} {.    for
0470: 65 61 63 68 20 71 20 5b 73 70 6c 69 74 20 24 65  each q [split $e
0480: 6e 76 28 51 55 45 52 59 5f 53 54 52 49 4e 47 29  nv(QUERY_STRING)
0490: 20 26 5d 20 7b 0a 20 20 20 20 20 20 69 66 20 7b   &] {.      if {
04a0: 5b 72 65 67 65 78 70 20 7b 28 5b 61 2d 7a 30 2d  [regexp {([a-z0-
04b0: 39 5d 2a 29 3d 28 2e 2a 29 7d 20 24 71 20 61 6c  9]*)=(.*)} $q al
04c0: 6c 20 76 61 72 20 76 61 6c 75 65 5d 7d 20 7b 0a  l var value]} {.
04d0: 20 20 20 20 20 20 20 20 73 65 74 20 41 28 24 76          set A($v
04e0: 61 72 29 20 5b 70 65 72 63 65 6e 74 5f 64 65 63  ar) [percent_dec
04f0: 6f 64 65 20 24 76 61 6c 75 65 5d 0a 20 20 20 20  ode $value].    
0500: 20 20 7d 0a 20 20 20 20 7d 0a 20 20 7d 20 65 6c    }.    }.  } el
0510: 73 65 69 66 20 7b 24 65 6e 76 28 52 45 51 55 45  seif {$env(REQUE
0520: 53 54 5f 4d 45 54 48 4f 44 29 20 3d 3d 20 22 50  ST_METHOD) == "P
0530: 4f 53 54 22 7d 20 7b 0a 20 20 20 20 73 65 74 20  OST"} {.    set 
0540: 71 73 74 72 69 6e 67 20 5b 72 65 61 64 20 73 74  qstring [read st
0550: 64 69 6e 20 24 65 6e 76 28 43 4f 4e 54 45 4e 54  din $env(CONTENT
0560: 5f 4c 45 4e 47 54 48 29 5d 0a 20 20 20 20 66 6f  _LENGTH)].    fo
0570: 72 65 61 63 68 20 71 20 5b 73 70 6c 69 74 20 24  reach q [split $
0580: 71 73 74 72 69 6e 67 20 26 5d 20 7b 0a 20 20 20  qstring &] {.   
0590: 20 20 20 69 66 20 7b 5b 72 65 67 65 78 70 20 7b     if {[regexp {
05a0: 28 5b 61 2d 7a 30 2d 39 5d 2a 29 3d 28 2e 2a 29  ([a-z0-9]*)=(.*)
05b0: 7d 20 24 71 20 61 6c 6c 20 76 61 72 20 76 61 6c  } $q all var val
05c0: 75 65 5d 7d 20 7b 0a 20 20 20 20 20 20 20 20 73  ue]} {.        s
05d0: 65 74 20 41 28 24 76 61 72 29 20 5b 70 65 72 63  et A($var) [perc
05e0: 65 6e 74 5f 64 65 63 6f 64 65 20 24 76 61 6c 75  ent_decode $valu
05f0: 65 5d 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d  e].      }.    }
0600: 0a 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20  .  } else {.    
0610: 65 72 72 6f 72 20 22 55 6e 72 65 63 6f 67 6e 69  error "Unrecogni
0620: 7a 65 64 20 6d 65 74 68 6f 64 3a 20 24 65 6e 76  zed method: $env
0630: 28 52 45 51 55 45 53 54 5f 4d 45 54 48 4f 44 29  (REQUEST_METHOD)
0640: 22 0a 20 20 7d 0a 7d 0a 0a 0a 23 3d 3d 3d 3d 3d  ".  }.}...#=====
0650: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
0660: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
0670: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
0680: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
0690: 3d 3d 3d 3d 0a 23 20 52 65 64 69 72 65 63 74 20  ====.# Redirect 
06a0: 74 68 65 20 77 65 62 2d 62 72 6f 77 73 65 72 20  the web-browser 
06b0: 74 6f 20 55 52 4c 20 24 75 72 6c 2e 20 54 68 69  to URL $url. Thi
06c0: 73 20 63 6f 6d 6d 61 6e 64 20 64 6f 65 73 20 6e  s command does n
06d0: 6f 74 20 72 65 74 75 72 6e 2e 0a 23 0a 70 72 6f  ot return..#.pro
06e0: 63 20 63 67 69 5f 72 65 64 69 72 65 63 74 20 7b  c cgi_redirect {
06f0: 75 72 6c 7d 20 7b 0a 20 20 73 65 74 20 73 65 72  url} {.  set ser
0700: 76 65 72 20 24 3a 3a 65 6e 76 28 53 45 52 56 45  ver $::env(SERVE
0710: 52 5f 4e 41 4d 45 29 0a 20 20 73 65 74 20 70 61  R_NAME).  set pa
0720: 74 68 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65  th [file dirname
0730: 20 24 3a 3a 65 6e 76 28 52 45 51 55 45 53 54 5f   $::env(REQUEST_
0740: 55 52 49 29 5d 0a 20 20 69 66 20 7b 5b 73 74 72  URI)].  if {[str
0750: 69 6e 67 20 72 61 6e 67 65 20 24 70 61 74 68 20  ing range $path 
0760: 65 6e 64 20 65 6e 64 5d 21 3d 22 2f 22 7d 20 7b  end end]!="/"} {
0770: 0a 20 20 20 20 61 70 70 65 6e 64 20 70 61 74 68  .    append path
0780: 20 2f 0a 20 20 7d 0a 0a 20 20 70 75 74 73 20 22   /.  }..  puts "
0790: 53 74 61 74 75 73 3a 20 33 30 32 20 52 65 64 69  Status: 302 Redi
07a0: 72 65 63 74 22 0a 20 20 70 75 74 73 20 22 4c 6f  rect".  puts "Lo
07b0: 63 61 74 69 6f 6e 3a 20 68 74 74 70 3a 2f 2f 24  cation: http://$
07c0: 7b 73 65 72 76 65 72 7d 24 7b 70 61 74 68 7d 24  {server}${path}$
07d0: 7b 75 72 6c 7d 22 0a 20 20 70 75 74 73 20 22 43  {url}".  puts "C
07e0: 6f 6e 74 65 6e 74 2d 4c 65 6e 67 74 68 3a 20 30  ontent-Length: 0
07f0: 22 0a 20 20 70 75 74 73 20 22 22 0a 20 20 65 78  ".  puts "".  ex
0800: 69 74 0a 7d 0a 0a 23 3d 3d 3d 3d 3d 3d 3d 3d 3d  it.}..#=========
0810: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
0820: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
0830: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
0840: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
0850: 0a 23 20 54 68 65 20 61 72 67 75 6d 65 6e 74 20  .# The argument 
0860: 63 6f 6e 74 61 69 6e 73 20 61 20 6b 65 79 20 76  contains a key v
0870: 61 6c 75 65 20 6c 69 73 74 2e 20 54 68 65 20 76  alue list. The v
0880: 61 6c 75 65 73 20 69 6e 20 74 68 65 20 6c 69 73  alues in the lis
0890: 74 20 61 72 65 0a 23 20 74 72 61 6e 73 66 6f 72  t are.# transfor
08a0: 6d 65 64 20 74 6f 20 61 6e 20 48 54 54 50 20 71  med to an HTTP q
08b0: 75 65 72 79 20 6b 65 79 20 76 61 6c 75 65 20 6c  uery key value l
08c0: 69 73 74 2e 20 46 6f 72 20 65 78 61 6d 70 6c 65  ist. For example
08d0: 3a 0a 23 0a 23 20 20 20 25 20 63 67 69 5f 65 6e  :.#.#   % cgi_en
08e0: 63 6f 64 65 5f 61 72 67 73 20 7b 73 20 22 73 65  code_args {s "se
08f0: 61 72 63 68 20 73 74 72 69 6e 67 22 20 74 20 22  arch string" t "
0900: 73 65 61 72 63 68 20 5c 22 74 79 70 65 5c 22 22  search \"type\""
0910: 7d 0a 23 20 20 20 73 3d 73 65 61 72 63 68 2b 73  }.#   s=search+s
0920: 74 72 69 6e 67 26 74 3d 73 65 61 72 63 68 2b 25  tring&t=search+%
0930: 32 32 74 79 70 65 25 32 32 0a 23 0a 70 72 6f 63  22type%22.#.proc
0940: 20 63 67 69 5f 65 6e 63 6f 64 65 5f 61 72 67 73   cgi_encode_args
0950: 20 7b 6c 69 73 74 7d 20 7b 0a 20 20 73 65 74 20   {list} {.  set 
0960: 72 65 73 6c 69 73 74 20 5b 6c 69 73 74 5d 0a 20  reslist [list]. 
0970: 20 66 6f 72 65 61 63 68 20 7b 6b 65 79 20 76 61   foreach {key va
0980: 6c 75 65 7d 20 24 6c 69 73 74 20 7b 0a 20 20 20  lue} $list {.   
0990: 20 73 65 74 20 76 61 6c 75 65 20 5b 73 74 72 69   set value [stri
09a0: 6e 67 20 6d 61 70 20 7b 0a 20 20 20 20 20 20 5c  ng map {.      \
09b0: 78 32 30 20 2b 20 20 20 5c 78 32 31 20 25 32 31  x20 +   \x21 %21
09c0: 20 5c 78 32 41 20 25 32 41 20 5c 78 32 32 20 25   \x2A %2A \x22 %
09d0: 32 32 20 5c 78 32 37 20 25 32 37 20 5c 78 32 38  22 \x27 %27 \x28
09e0: 20 25 32 38 20 5c 78 32 39 20 25 32 39 20 5c 78   %28 \x29 %29 \x
09f0: 33 42 20 25 33 42 20 0a 20 20 20 20 20 20 5c 78  3B %3B .      \x
0a00: 33 41 20 25 33 41 20 5c 78 34 30 20 25 34 30 20  3A %3A \x40 %40 
0a10: 5c 78 32 36 20 25 32 36 20 5c 78 33 44 20 25 33  \x26 %26 \x3D %3
0a20: 44 20 5c 78 32 42 20 25 32 42 20 5c 78 32 34 20  D \x2B %2B \x24 
0a30: 25 32 34 20 5c 78 32 43 20 25 32 43 20 5c 78 32  %24 \x2C %2C \x2
0a40: 46 20 25 32 46 20 0a 20 20 20 20 20 20 5c 78 33  F %2F .      \x3
0a50: 46 20 25 33 46 20 5c 78 32 35 20 25 32 35 20 5c  F %3F \x25 %25 \
0a60: 78 32 33 20 25 32 33 20 5c 78 35 42 20 25 35 42  x23 %23 \x5B %5B
0a70: 20 5c 78 35 44 20 25 35 44 0a 20 20 20 20 7d 20   \x5D %5D.    } 
0a80: 24 76 61 6c 75 65 5d 0a 0a 20 20 20 20 6c 61 70  $value]..    lap
0a90: 70 65 6e 64 20 72 65 73 6c 69 73 74 20 22 24 6b  pend reslist "$k
0aa0: 65 79 3d 24 76 61 6c 75 65 22 0a 20 20 7d 0a 20  ey=$value".  }. 
0ab0: 20 6a 6f 69 6e 20 24 72 65 73 6c 69 73 74 20 26   join $reslist &
0ac0: 0a 7d 0a 0a 70 72 6f 63 20 68 74 6d 6c 69 7a 65  .}..proc htmlize
0ad0: 20 7b 73 74 72 7d 20 7b 20 73 74 72 69 6e 67 20   {str} { string 
0ae0: 6d 61 70 20 7b 3c 20 26 6c 74 3b 20 3e 20 26 67  map {< &lt; > &g
0af0: 74 3b 7d 20 24 73 74 72 20 7d 0a 70 72 6f 63 20  t;} $str }.proc 
0b00: 61 74 74 72 69 7a 65 20 7b 73 74 72 7d 20 7b 20  attrize {str} { 
0b10: 73 74 72 69 6e 67 20 6d 61 70 20 7b 3c 20 26 6c  string map {< &l
0b20: 74 3b 20 3e 20 26 67 74 3b 20 5c 78 32 32 20 5c  t; > &gt; \x22 \
0b30: 78 35 63 5c 78 32 32 7d 20 24 73 74 72 20 7d 0a  x5c\x22} $str }.
0b40: 0a 23 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  .#==============
0b50: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
0b60: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
0b70: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
0b80: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 0a 70 72 6f  ===========..pro
0b90: 63 20 63 67 69 5f 65 6e 76 5f 64 75 6d 70 20 7b  c cgi_env_dump {
0ba0: 7d 20 7b 0a 0a 20 20 73 65 74 20 72 65 74 20 22  } {..  set ret "
0bb0: 3c 68 31 3e 41 72 67 75 6d 65 6e 74 73 3c 2f 68  <h1>Arguments</h
0bc0: 31 3e 3c 74 61 62 6c 65 3e 22 0a 20 20 66 6f 72  1><table>".  for
0bd0: 65 61 63 68 20 7b 6b 65 79 20 76 61 6c 75 65 7d  each {key value}
0be0: 20 5b 61 72 72 61 79 20 67 65 74 20 3a 3a 41 5d   [array get ::A]
0bf0: 20 7b 0a 20 20 20 20 61 70 70 65 6e 64 20 72 65   {.    append re
0c00: 74 20 22 3c 74 72 3e 3c 74 64 3e 5b 68 74 6d 6c  t "<tr><td>[html
0c10: 69 7a 65 20 24 6b 65 79 5d 3c 74 64 3e 5b 68 74  ize $key]<td>[ht
0c20: 6d 6c 69 7a 65 20 24 76 61 6c 75 65 5d 22 0a 20  mlize $value]". 
0c30: 20 7d 0a 20 20 61 70 70 65 6e 64 20 72 65 74 20   }.  append ret 
0c40: 22 3c 2f 74 61 62 6c 65 3e 22 0a 0a 20 20 61 70  "</table>"..  ap
0c50: 70 65 6e 64 20 72 65 74 20 22 3c 68 31 3e 45 6e  pend ret "<h1>En
0c60: 76 69 72 6f 6e 6d 65 6e 74 3c 2f 68 31 3e 3c 74  vironment</h1><t
0c70: 61 62 6c 65 3e 22 0a 20 20 66 6f 72 65 61 63 68  able>".  foreach
0c80: 20 7b 6b 65 79 20 76 61 6c 75 65 7d 20 5b 61 72   {key value} [ar
0c90: 72 61 79 20 67 65 74 20 3a 3a 65 6e 76 5d 20 7b  ray get ::env] {
0ca0: 0a 20 20 20 20 61 70 70 65 6e 64 20 72 65 74 20  .    append ret 
0cb0: 22 3c 74 72 3e 3c 74 64 3e 5b 68 74 6d 6c 69 7a  "<tr><td>[htmliz
0cc0: 65 20 24 6b 65 79 5d 3c 74 64 3e 5b 68 74 6d 6c  e $key]<td>[html
0cd0: 69 7a 65 20 24 76 61 6c 75 65 5d 22 0a 20 20 7d  ize $value]".  }
0ce0: 0a 20 20 61 70 70 65 6e 64 20 72 65 74 20 22 3c  .  append ret "<
0cf0: 2f 74 61 62 6c 65 3e 22 0a 20 20 72 65 74 75 72  /table>".  retur
0d00: 6e 20 24 72 65 74 0a 7d 0a 0a 70 72 6f 63 20 73  n $ret.}..proc s
0d10: 65 61 72 63 68 66 6f 72 6d 20 7b 7d 20 7b 0a 20  earchform {} {. 
0d20: 20 72 65 74 75 72 6e 20 7b 7d 0a 20 20 73 65 74   return {}.  set
0d30: 20 69 6e 69 74 69 61 6c 20 22 45 6e 74 65 72 20   initial "Enter 
0d40: 73 65 61 72 63 68 20 74 65 72 6d 3a 22 0a 20 20  search term:".  
0d50: 63 61 74 63 68 20 7b 20 73 65 74 20 69 6e 69 74  catch { set init
0d60: 69 61 6c 20 24 3a 3a 41 28 71 29 20 7d 0a 20 20  ial $::A(q) }.  
0d70: 72 65 74 75 72 6e 20 5b 73 75 62 73 74 20 7b 0a  return [subst {.
0d80: 20 20 20 20 3c 74 61 62 6c 65 20 73 74 79 6c 65      <table style
0d90: 3d 22 6d 61 72 67 69 6e 3a 20 31 65 6d 20 61 75  ="margin: 1em au
0da0: 74 6f 22 3e 20 3c 74 72 3e 3c 74 64 3e 53 65 61  to"> <tr><td>Sea
0db0: 72 63 68 20 53 51 4c 69 74 65 20 64 6f 63 73 20  rch SQLite docs 
0dc0: 66 6f 72 3a 3c 74 64 3e 0a 20 20 20 20 20 20 3c  for:<td>.      <
0dd0: 66 6f 72 6d 20 6e 61 6d 65 3d 66 20 6d 65 74 68  form name=f meth
0de0: 6f 64 3d 47 45 54 20 61 63 74 69 6f 6e 3d 73 65  od=GET action=se
0df0: 61 72 63 68 3e 0a 20 20 20 20 20 20 20 20 3c 69  arch>.        <i
0e00: 6e 70 75 74 20 6e 61 6d 65 3d 71 20 74 79 70 65  nput name=q type
0e10: 3d 74 65 78 74 20 77 69 64 74 68 3d 33 35 20 76  =text width=35 v
0e20: 61 6c 75 65 3d 22 5b 61 74 74 72 69 7a 65 20 24  alue="[attrize $
0e30: 69 6e 69 74 69 61 6c 5d 22 3e 3c 2f 69 6e 70 75  initial]"></inpu
0e40: 74 3e 0a 20 20 20 20 20 20 20 20 3c 69 6e 70 75  t>.        <inpu
0e50: 74 20 6e 61 6d 65 3d 73 20 74 79 70 65 3d 73 75  t name=s type=su
0e60: 62 6d 69 74 20 76 61 6c 75 65 3d 22 53 65 61 72  bmit value="Sear
0e70: 63 68 22 3e 3c 2f 69 6e 70 75 74 3e 0a 20 20 20  ch"></input>.   
0e80: 20 20 20 20 20 3c 69 6e 70 75 74 20 6e 61 6d 65       <input name
0e90: 3d 73 20 74 79 70 65 3d 73 75 62 6d 69 74 20 76  =s type=submit v
0ea0: 61 6c 75 65 3d 22 4c 75 63 6b 79 22 3e 3c 2f 69  alue="Lucky"></i
0eb0: 6e 70 75 74 3e 0a 20 20 20 20 20 20 3c 2f 66 6f  nput>.      </fo
0ec0: 72 6d 3e 0a 20 20 20 20 3c 2f 74 61 62 6c 65 3e  rm>.    </table>
0ed0: 0a 20 20 20 20 3c 73 63 72 69 70 74 3e 20 0a 20  .    <script> . 
0ee0: 20 20 20 20 20 64 6f 63 75 6d 65 6e 74 2e 66 6f       document.fo
0ef0: 72 6d 73 2e 66 2e 71 2e 66 6f 63 75 73 28 29 0a  rms.f.q.focus().
0f00: 20 20 20 20 20 20 64 6f 63 75 6d 65 6e 74 2e 66        document.f
0f10: 6f 72 6d 73 2e 66 2e 71 2e 73 65 6c 65 63 74 28  orms.f.q.select(
0f20: 29 0a 20 20 20 20 3c 2f 73 63 72 69 70 74 3e 0a  ).    </script>.
0f30: 20 20 7d 5d 0a 7d 0a 0a 70 72 6f 63 20 66 6f 6f    }].}..proc foo
0f40: 74 65 72 20 7b 7d 20 7b 0a 20 20 72 65 74 75 72  ter {} {.  retur
0f50: 6e 20 7b 0a 20 20 20 20 3c 68 72 3e 0a 20 20 20  n {.    <hr>.   
0f60: 20 3c 74 61 62 6c 65 20 61 6c 69 67 6e 3d 72 69   <table align=ri
0f70: 67 68 74 3e 0a 20 20 20 20 3c 74 64 3e 0a 20 20  ght>.    <td>.  
0f80: 20 20 20 20 3c 69 3e 50 6f 77 65 72 65 64 20 62      <i>Powered b
0f90: 79 20 3c 61 20 68 72 65 66 3d 22 68 74 74 70 3a  y <a href="http:
0fa0: 2f 2f 77 77 77 2e 73 71 6c 69 74 65 2e 6f 72 67  //www.sqlite.org
0fb0: 2f 66 74 73 33 2e 68 74 6d 6c 22 3e 46 54 53 33  /fts3.html">FTS3
0fc0: 3c 2f 61 3e 2e 3c 2f 69 3e 0a 20 20 20 20 3c 2f  </a>.</i>.    </
0fd0: 74 61 62 6c 65 3e 0a 20 20 7d 0a 7d 0a 0a 0a 23  table>.  }.}...#
0fe0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0ff0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1000: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1010: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1020: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 23 20 54 68 69 73  ---------.# This
1030: 20 63 6f 6d 6d 61 6e 64 20 69 73 20 73 69 6d 69   command is simi
1040: 6c 61 72 20 74 6f 20 74 68 65 20 62 75 69 6c 74  lar to the built
1050: 69 6e 20 54 63 6c 20 5b 74 69 6d 65 5d 20 63 6f  in Tcl [time] co
1060: 6d 6d 61 6e 64 2c 20 65 78 63 65 70 74 20 74 68  mmand, except th
1070: 61 74 0a 23 20 69 74 20 6f 6e 6c 79 20 65 76 65  at.# it only eve
1080: 72 20 72 75 6e 73 20 74 68 65 20 73 75 70 70 6c  r runs the suppl
1090: 69 65 64 20 73 63 72 69 70 74 20 6f 6e 63 65 2e  ied script once.
10a0: 20 41 6c 73 6f 2c 20 69 6e 73 74 65 61 64 20 6f   Also, instead o
10b0: 66 20 72 65 74 75 72 6e 69 6e 67 0a 23 20 61 20  f returning.# a 
10c0: 73 74 72 69 6e 67 20 6c 69 6b 65 20 22 78 78 78  string like "xxx
10d0: 20 6d 69 63 72 6f 73 65 63 6f 6e 64 73 20 70 65   microseconds pe
10e0: 72 20 69 74 65 72 61 74 69 6f 6e 22 2c 20 69 74  r iteration", it
10f0: 20 72 65 74 75 72 6e 73 20 22 78 2e 79 79 20 6d   returns "x.yy m
1100: 73 22 20 6f 72 0a 23 20 22 78 2e 79 79 20 73 22  s" or.# "x.yy s"
1110: 2c 20 64 65 70 65 6e 64 69 6e 67 20 6f 6e 20 74  , depending on t
1120: 68 65 20 6d 61 67 6e 69 74 75 64 65 20 6f 66 20  he magnitude of 
1130: 74 68 65 20 74 69 6d 65 20 73 70 65 6e 74 20 72  the time spent r
1140: 75 6e 6e 69 6e 67 20 74 68 65 20 0a 23 20 63 6f  unning the .# co
1150: 6d 6d 61 6e 64 2e 20 46 6f 72 20 65 78 61 6d 70  mmand. For examp
1160: 6c 65 3a 0a 23 0a 23 20 20 20 25 20 74 74 69 6d  le:.#.#   % ttim
1170: 65 20 7b 61 66 74 65 72 20 31 35 30 30 7d 0a 23  e {after 1500}.#
1180: 20 20 20 31 2e 35 30 20 73 0a 23 20 20 20 25 20     1.50 s.#   % 
1190: 74 74 69 6d 65 20 7b 61 66 74 65 72 20 34 35 7d  ttime {after 45}
11a0: 0a 23 20 20 20 34 35 2e 30 32 20 6d 73 0a 23 0a  .#   45.02 ms.#.
11b0: 70 72 6f 63 20 74 74 69 6d 65 20 7b 73 63 72 69  proc ttime {scri
11c0: 70 74 7d 20 7b 0a 20 20 73 65 74 20 74 20 5b 6c  pt} {.  set t [l
11d0: 69 6e 64 65 78 20 5b 74 69 6d 65 20 5b 6c 69 73  index [time [lis
11e0: 74 20 75 70 6c 65 76 65 6c 20 24 73 63 72 69 70  t uplevel $scrip
11f0: 74 5d 5d 20 30 5d 0a 20 20 69 66 20 7b 24 74 3e  t]] 0].  if {$t>
1200: 31 30 30 30 30 30 30 7d 20 7b 20 72 65 74 75 72  1000000} { retur
1210: 6e 20 5b 66 6f 72 6d 61 74 20 22 25 2e 32 66 20  n [format "%.2f 
1220: 73 22 20 5b 65 78 70 72 20 7b 24 74 2f 31 30 30  s" [expr {$t/100
1230: 30 30 30 30 2e 30 7d 5d 5d 20 7d 0a 20 20 72 65  0000.0}]] }.  re
1240: 74 75 72 6e 20 5b 66 6f 72 6d 61 74 20 22 25 2e  turn [format "%.
1250: 32 66 20 6d 73 22 20 5b 65 78 70 72 20 7b 24 74  2f ms" [expr {$t
1260: 2f 31 30 30 30 2e 30 7d 5d 5d 0a 7d 0a 0a 70 72  /1000.0}]].}..pr
1270: 6f 63 20 72 61 6e 6b 20 7b 6d 61 74 63 68 69 6e  oc rank {matchin
1280: 66 6f 20 61 72 67 73 7d 20 7b 0a 20 20 62 69 6e  fo args} {.  bin
1290: 61 72 79 20 73 63 61 6e 20 24 6d 61 74 63 68 69  ary scan $matchi
12a0: 6e 66 6f 20 69 2a 20 49 0a 0a 20 20 73 65 74 20  nfo i* I..  set 
12b0: 6e 50 68 72 61 73 65 20 5b 6c 69 6e 64 65 78 20  nPhrase [lindex 
12c0: 24 49 20 30 5d 0a 20 20 73 65 74 20 6e 43 6f 6c  $I 0].  set nCol
12d0: 20 5b 6c 69 6e 64 65 78 20 24 49 20 31 5d 0a 0a   [lindex $I 1]..
12e0: 20 20 73 65 74 20 47 20 5b 6c 72 61 6e 67 65 20    set G [lrange 
12f0: 24 49 20 32 20 5b 65 78 70 72 20 7b 31 2b 24 6e  $I 2 [expr {1+$n
1300: 43 6f 6c 2a 24 6e 50 68 72 61 73 65 7d 5d 5d 0a  Col*$nPhrase}]].
1310: 20 20 73 65 74 20 4c 20 5b 6c 72 61 6e 67 65 20    set L [lrange 
1320: 24 49 20 5b 65 78 70 72 20 7b 32 2b 24 6e 43 6f  $I [expr {2+$nCo
1330: 6c 2a 24 6e 50 68 72 61 73 65 7d 5d 20 65 6e 64  l*$nPhrase}] end
1340: 5d 0a 0a 20 20 66 6f 72 65 61 63 68 20 61 20 24  ]..  foreach a $
1350: 61 72 67 73 20 7b 20 6c 61 70 70 65 6e 64 20 6c  args { lappend l
1360: 6f 67 20 5b 65 78 70 72 20 7b 6c 6f 67 31 30 28  og [expr {log10(
1370: 31 30 30 2b 24 61 29 7d 5d 20 7d 0a 0a 20 20 73  100+$a)}] }..  s
1380: 65 74 20 73 63 6f 72 65 20 30 2e 30 0a 20 20 73  et score 0.0.  s
1390: 65 74 20 69 20 30 0a 20 20 66 6f 72 65 61 63 68  et i 0.  foreach
13a0: 20 6c 20 24 4c 20 67 20 24 47 20 7b 0a 20 20 20   l $L g $G {.   
13b0: 20 69 66 20 7b 24 6c 20 3e 20 30 7d 20 7b 0a 20   if {$l > 0} {. 
13c0: 20 20 20 20 20 73 65 74 20 64 69 76 20 5b 6c 69       set div [li
13d0: 6e 64 65 78 20 24 6c 6f 67 20 5b 65 78 70 72 20  ndex $log [expr 
13e0: 24 69 25 33 5d 5d 0a 20 20 20 20 20 20 73 65 74  $i%3]].      set
13f0: 20 73 63 6f 72 65 20 5b 65 78 70 72 20 7b 24 73   score [expr {$s
1400: 63 6f 72 65 20 2b 20 28 64 6f 75 62 6c 65 28 24  core + (double($
1410: 6c 29 20 2f 20 64 6f 75 62 6c 65 28 24 67 29 29  l) / double($g))
1420: 20 2f 20 24 64 69 76 7d 5d 0a 20 20 20 20 7d 0a   / $div}].    }.
1430: 20 20 20 20 69 6e 63 72 20 69 0a 20 20 7d 0a 0a      incr i.  }..
1440: 20 20 72 65 74 75 72 6e 20 24 73 63 6f 72 65 0a    return $score.
1450: 7d 0a 70 72 6f 63 20 65 72 61 6e 6b 20 7b 6d 61  }.proc erank {ma
1460: 74 63 68 69 6e 66 6f 20 61 72 67 73 7d 20 7b 0a  tchinfo args} {.
1470: 20 20 65 76 61 6c 20 72 61 6e 6b 20 5b 6c 69 73    eval rank [lis
1480: 74 20 24 6d 61 74 63 68 69 6e 66 6f 5d 20 24 61  t $matchinfo] $a
1490: 72 67 73 0a 7d 0a 0a 0a 70 72 6f 63 20 73 65 61  rgs.}...proc sea
14a0: 72 63 68 72 65 73 75 6c 74 73 20 7b 7d 20 7b 0a  rchresults {} {.
14b0: 20 20 69 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69    if {![info exi
14c0: 73 74 73 20 3a 3a 41 28 71 29 5d 7d 20 72 65 74  sts ::A(q)]} ret
14d0: 75 72 6e 20 22 22 0a 20 20 23 73 65 74 20 3a 3a  urn "".  #set ::
14e0: 41 28 71 29 20 5b 73 74 72 69 6e 67 20 6d 61 70  A(q) [string map
14f0: 20 7b 27 20 27 27 7d 20 24 41 28 71 29 5d 0a 20   {' ''} $A(q)]. 
1500: 20 23 72 65 67 73 75 62 20 2d 61 6c 6c 20 7b 5b   #regsub -all {[
1510: 5e 2d 2f 22 41 2d 5a 61 2d 7a 30 2d 39 5d 7d 20  ^-/"A-Za-z0-9]} 
1520: 24 3a 3a 41 28 71 29 20 7b 20 7d 20 3a 3a 41 28  $::A(q) { } ::A(
1530: 71 29 0a 0a 20 20 23 20 43 6f 75 6e 74 20 74 68  q)..  # Count th
1540: 65 20 27 22 27 20 63 68 61 72 61 63 74 65 72 73  e '"' characters
1550: 20 69 6e 20 24 3a 3a 41 28 71 29 2e 20 49 66 20   in $::A(q). If 
1560: 74 68 65 72 65 20 69 73 20 61 6e 20 6f 64 64 20  there is an odd 
1570: 6e 75 6d 62 65 72 20 6f 66 0a 20 20 23 20 6f 63  number of.  # oc
1580: 63 75 72 65 6e 63 65 73 2c 20 61 64 64 20 61 20  curences, add a 
1590: 22 20 74 6f 20 74 68 65 20 65 6e 64 20 6f 66 20  " to the end of 
15a0: 74 68 65 20 71 75 65 72 79 20 73 6f 20 74 68 61  the query so tha
15b0: 74 20 66 74 73 33 20 63 61 6e 20 70 61 72 73 65  t fts3 can parse
15c0: 0a 20 20 23 20 69 74 20 77 69 74 68 6f 75 74 20  .  # it without 
15d0: 65 72 72 6f 72 2e 0a 20 20 69 66 20 7b 5b 72 65  error..  if {[re
15e0: 67 65 78 70 20 2d 61 6c 6c 20 5c 78 32 32 20 24  gexp -all \x22 $
15f0: 3a 3a 41 28 71 29 5d 20 25 20 32 7d 20 7b 20 61  ::A(q)] % 2} { a
1600: 70 70 65 6e 64 20 3a 3a 41 28 71 29 20 5c 78 32  ppend ::A(q) \x2
1610: 32 20 7d 0a 0a 20 20 73 65 74 20 3a 3a 54 49 54  2 }..  set ::TIT
1620: 4c 45 20 22 52 65 73 75 6c 74 73 20 66 6f 72 3a  LE "Results for:
1630: 20 5c 22 5b 68 74 6d 6c 69 7a 65 20 24 3a 3a 41   \"[htmlize $::A
1640: 28 71 29 5d 5c 22 22 0a 0a 20 20 23 64 62 20 66  (q)]\""..  #db f
1650: 75 6e 63 20 72 61 6e 6b 20 72 61 6e 6b 0a 20 20  unc rank rank.  
1660: 23 64 62 20 66 75 6e 63 20 65 72 61 6e 6b 20 65  #db func erank e
1670: 72 61 6e 6b 0a 0a 20 20 23 20 49 66 20 74 68 65  rank..  # If the
1680: 20 75 73 65 72 20 68 61 73 20 63 6c 69 63 6b 65   user has clicke
1690: 64 20 74 68 65 20 22 4c 75 63 6b 79 22 20 62 75  d the "Lucky" bu
16a0: 74 74 6f 6e 20 61 6e 64 20 74 68 65 20 71 75 65  tton and the que
16b0: 72 79 20 72 65 74 75 72 6e 73 20 6f 6e 65 20 6f  ry returns one o
16c0: 72 0a 20 20 23 20 6d 6f 72 65 20 72 65 73 75 6c  r.  # more resul
16d0: 74 73 2c 20 72 65 64 69 72 65 63 74 20 74 68 65  ts, redirect the
16e0: 20 62 72 6f 77 73 65 72 20 74 6f 20 74 68 65 20   browser to the 
16f0: 68 69 67 68 65 73 74 20 72 61 6e 6b 65 64 20 72  highest ranked r
1700: 65 73 75 6c 74 2e 20 49 66 20 74 68 65 0a 20 20  esult. If the.  
1710: 23 20 71 75 65 72 79 20 72 65 74 75 72 6e 73 20  # query returns 
1720: 7a 65 72 6f 20 72 65 73 75 6c 74 73 2c 20 66 61  zero results, fa
1730: 6c 6c 20 74 68 72 6f 75 67 68 20 61 6e 64 20 64  ll through and d
1740: 69 73 70 6c 61 79 20 74 68 65 20 22 4e 6f 20 72  isplay the "No r
1750: 65 73 75 6c 74 73 22 0a 20 20 23 20 70 61 67 65  esults".  # page
1760: 20 61 73 20 69 66 20 74 68 65 20 75 73 65 72 20   as if the user 
1770: 68 61 64 20 63 6c 69 63 6b 65 64 20 22 53 65 61  had clicked "Sea
1780: 72 63 68 22 2e 0a 20 20 23 0a 20 20 69 66 20 7b  rch"..  #.  if {
1790: 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 41  [info exists ::A
17a0: 28 73 29 5d 20 26 26 20 24 3a 3a 41 28 73 29 20  (s)] && $::A(s) 
17b0: 3d 3d 20 22 4c 75 63 6b 79 22 7d 20 7b 0a 20 20  == "Lucky"} {.  
17c0: 20 20 73 65 74 20 75 72 6c 20 5b 64 62 20 6f 6e    set url [db on
17d0: 65 20 7b 0a 20 20 20 20 20 20 53 45 4c 45 43 54  e {.      SELECT
17e0: 20 75 72 6c 20 46 52 4f 4d 20 70 61 67 65 2c 20   url FROM page, 
17f0: 70 61 67 65 64 61 74 61 20 0a 20 20 20 20 20 20  pagedata .      
1800: 57 48 45 52 45 20 70 61 67 65 20 4d 41 54 43 48  WHERE page MATCH
1810: 20 24 3a 3a 41 28 71 29 20 41 4e 44 20 70 61 67   $::A(q) AND pag
1820: 65 2e 64 6f 63 69 64 20 3d 20 70 61 67 65 64 61  e.docid = pageda
1830: 74 61 2e 64 6f 63 69 64 0a 20 20 20 20 20 20 4f  ta.docid.      O
1840: 52 44 45 52 20 42 59 20 72 61 6e 6b 28 6d 61 74  RDER BY rank(mat
1850: 63 68 69 6e 66 6f 28 70 61 67 65 29 2c 20 6e 6b  chinfo(page), nk
1860: 2c 20 6e 74 2c 20 6e 63 29 20 44 45 53 43 0a 20  , nt, nc) DESC. 
1870: 20 20 20 7d 5d 0a 20 20 20 20 69 66 20 7b 24 75     }].    if {$u
1880: 72 6c 20 21 3d 20 22 22 7d 20 7b 20 63 67 69 5f  rl != ""} { cgi_
1890: 72 65 64 69 72 65 63 74 20 24 75 72 6c 20 7d 0a  redirect $url }.
18a0: 20 20 7d 0a 0a 20 20 73 65 74 20 73 63 6f 72 65    }..  set score
18b0: 20 30 0a 20 20 63 61 74 63 68 20 7b 73 65 74 20   0.  catch {set 
18c0: 73 63 6f 72 65 20 24 3a 3a 41 28 73 63 6f 72 65  score $::A(score
18d0: 29 7d 0a 0a 20 20 23 20 53 65 74 20 6e 52 65 73  )}..  # Set nRes
18e0: 20 74 6f 20 74 68 65 20 74 6f 74 61 6c 20 6e 75   to the total nu
18f0: 6d 62 65 72 20 6f 66 20 64 6f 63 75 6d 65 6e 74  mber of document
1900: 73 20 74 68 61 74 20 74 68 65 20 75 73 65 72 73  s that the users
1910: 20 71 75 65 72 79 20 6d 61 74 63 68 65 73 2e 0a   query matches..
1920: 20 20 23 20 49 66 20 6e 52 65 73 20 69 73 20 30    # If nRes is 0
1930: 2c 20 74 68 65 6e 20 74 68 65 20 75 73 65 72 73  , then the users
1940: 20 71 75 65 72 79 20 72 65 74 75 72 6e 65 64 20   query returned 
1950: 7a 65 72 6f 20 72 65 73 75 6c 74 73 2e 20 52 65  zero results. Re
1960: 74 75 72 6e 20 61 20 73 68 6f 72 74 20 0a 20 20  turn a short .  
1970: 23 20 6d 65 73 73 61 67 65 20 74 6f 20 74 68 61  # message to tha
1980: 74 20 65 66 66 65 63 74 2e 0a 20 20 23 0a 20 20  t effect..  #.  
1990: 73 65 74 20 6e 52 65 73 20 5b 64 62 20 6f 6e 65  set nRes [db one
19a0: 20 7b 20 53 45 4c 45 43 54 20 63 6f 75 6e 74 28   { SELECT count(
19b0: 2a 29 20 46 52 4f 4d 20 70 61 67 65 20 57 48 45  *) FROM page WHE
19c0: 52 45 20 70 61 67 65 20 4d 41 54 43 48 20 24 3a  RE page MATCH $:
19d0: 3a 41 28 71 29 20 7d 5d 0a 20 20 69 66 20 7b 24  :A(q) }].  if {$
19e0: 6e 52 65 73 20 3d 3d 20 30 7d 20 7b 0a 20 20 20  nRes == 0} {.   
19f0: 20 72 65 74 75 72 6e 20 5b 73 75 62 73 74 20 7b   return [subst {
1a00: 20 4e 6f 20 72 65 73 75 6c 74 73 20 66 6f 72 3a   No results for:
1a10: 20 3c 62 3e 5b 68 74 6d 6c 69 7a 65 20 24 3a 3a   <b>[htmlize $::
1a20: 41 28 71 29 5d 3c 2f 62 3e 20 7d 5d 0a 20 20 7d  A(q)]</b> }].  }
1a30: 0a 0a 20 20 23 20 53 65 74 20 69 53 74 61 72 74  ..  # Set iStart
1a40: 20 74 6f 20 74 68 65 20 69 6e 64 65 78 20 6f 66   to the index of
1a50: 20 74 68 65 20 66 69 72 73 74 20 72 65 73 75 6c   the first resul
1a60: 74 20 74 6f 20 64 69 73 70 6c 61 79 2e 20 52 65  t to display. Re
1a70: 73 75 6c 74 73 20 61 72 65 0a 20 20 23 20 69 6e  sults are.  # in
1a80: 64 65 78 65 64 20 73 74 61 72 74 69 6e 67 20 61  dexed starting a
1a90: 74 20 7a 65 72 6f 20 66 72 6f 6d 20 6d 6f 73 74  t zero from most
1aa0: 20 74 6f 20 6c 65 61 73 74 20 72 65 6c 65 76 61   to least releva
1ab0: 6e 74 2e 0a 20 20 23 0a 20 20 73 65 74 20 69 53  nt..  #.  set iS
1ac0: 74 61 72 74 20 5b 65 78 70 72 20 7b 28 5b 69 6e  tart [expr {([in
1ad0: 66 6f 20 65 78 69 73 74 73 20 3a 3a 41 28 69 29  fo exists ::A(i)
1ae0: 5d 20 3f 20 24 3a 3a 41 28 69 29 20 3a 20 30 29  ] ? $::A(i) : 0)
1af0: 2a 31 30 7d 5d 0a 0a 20 20 23 20 48 54 4d 4c 20  *10}]..  # HTML 
1b00: 6d 61 72 6b 75 70 20 75 73 65 64 20 74 6f 20 68  markup used to h
1b10: 69 67 68 6c 69 67 68 74 20 6b 65 79 77 6f 72 64  ighlight keyword
1b20: 73 20 77 69 74 68 69 6e 20 46 54 53 33 20 67 65  s within FTS3 ge
1b30: 6e 65 72 61 74 65 64 20 73 6e 69 70 70 65 74 73  nerated snippets
1b40: 2e 0a 20 20 23 0a 20 20 73 65 74 20 6f 70 65 6e  ..  #.  set open
1b50: 20 7b 3c 73 70 61 6e 20 73 74 79 6c 65 3d 22 66   {<span style="f
1b60: 6f 6e 74 2d 77 65 69 67 68 74 3a 62 6f 6c 64 3b  ont-weight:bold;
1b70: 20 63 6f 6c 6f 72 3a 6e 61 76 79 22 3e 7d 0a 20   color:navy">}. 
1b80: 20 73 65 74 20 63 6c 6f 73 65 20 7b 3c 2f 73 70   set close {</sp
1b90: 61 6e 3e 7d 0a 20 20 73 65 74 20 65 6c 6c 69 70  an>}.  set ellip
1ba0: 73 69 73 20 7b 3c 62 3e 26 6e 62 73 70 3b 2e 2e  sis {<b>&nbsp;..
1bb0: 2e 26 6e 62 73 70 3b 3c 2f 62 3e 7d 0a 0a 20 20  .&nbsp;</b>}..  
1bc0: 73 65 74 20 72 65 74 20 5b 73 75 62 73 74 20 7b  set ret [subst {
1bd0: 0a 20 20 20 20 3c 74 61 62 6c 65 20 62 6f 72 64  .    <table bord
1be0: 65 72 3d 30 3e 0a 20 20 20 20 3c 70 3e 53 65 61  er=0>.    <p>Sea
1bf0: 72 63 68 20 72 65 73 75 6c 74 73 20 0a 20 20 20  rch results .   
1c00: 20 20 20 20 5b 65 78 70 72 20 24 69 53 74 61 72      [expr $iStar
1c10: 74 2b 31 5d 2e 2e 5b 65 78 70 72 20 7b 28 24 6e  t+1]..[expr {($n
1c20: 52 65 73 20 3c 20 24 69 53 74 61 72 74 2b 31 30  Res < $iStart+10
1c30: 29 20 3f 20 24 6e 52 65 73 20 3a 20 24 69 53 74  ) ? $nRes : $iSt
1c40: 61 72 74 2b 31 30 7d 5d 20 0a 20 20 20 20 20 20  art+10}] .      
1c50: 20 6f 66 20 24 6e 52 65 73 20 66 6f 72 3a 20 3c   of $nRes for: <
1c60: 62 3e 5b 68 74 6d 6c 69 7a 65 20 24 3a 3a 41 28  b>[htmlize $::A(
1c70: 71 29 5d 3c 2f 62 3e 0a 20 20 7d 5d 0a 20 20 64  q)]</b>.  }].  d
1c80: 62 20 65 76 61 6c 20 7b 0a 20 20 20 20 53 45 4c  b eval {.    SEL
1c90: 45 43 54 20 0a 20 20 20 20 20 20 72 65 73 75 6c  ECT .      resul
1ca0: 74 2e 72 6f 77 69 64 2b 24 69 53 74 61 72 74 20  t.rowid+$iStart 
1cb0: 41 53 20 72 65 73 6e 75 6d 2c 0a 20 20 20 20 20  AS resnum,.     
1cc0: 20 43 4f 41 4c 45 53 43 45 28 4e 55 4c 4c 49 46   COALESCE(NULLIF
1cd0: 28 74 69 74 6c 65 2c 27 27 29 2c 20 27 4e 6f 20  (title,''), 'No 
1ce0: 54 69 74 6c 65 2e 27 29 20 41 53 20 74 69 74 6c  Title.') AS titl
1cf0: 65 2c 0a 20 20 20 20 20 20 73 6e 69 70 70 65 74  e,.      snippet
1d00: 28 70 61 67 65 2c 20 24 6f 70 65 6e 2c 20 24 63  (page, $open, $c
1d10: 6c 6f 73 65 2c 20 24 65 6c 6c 69 70 73 69 73 2c  lose, $ellipsis,
1d20: 20 32 2c 20 34 30 29 20 41 53 20 73 6e 69 70 70   2, 40) AS snipp
1d30: 65 74 2c 0a 20 20 20 20 20 20 75 72 6c 2c 0a 20  et,.      url,. 
1d40: 20 20 20 20 20 43 41 53 45 20 57 48 45 4e 20 24       CASE WHEN $
1d50: 73 63 6f 72 65 20 54 48 45 4e 20 65 72 61 6e 6b  score THEN erank
1d60: 28 6d 61 74 63 68 69 6e 66 6f 28 70 61 67 65 29  (matchinfo(page)
1d70: 2c 20 6e 6b 2c 20 6e 74 2c 20 6e 63 29 0a 20 20  , nk, nt, nc).  
1d80: 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 27 27           ELSE ''
1d90: 20 45 4e 44 20 41 53 20 72 65 70 6f 72 74 0a 20   END AS report. 
1da0: 20 20 20 46 52 4f 4d 20 70 61 67 65 2c 20 28 0a     FROM page, (.
1db0: 20 20 20 20 20 20 20 20 53 45 4c 45 43 54 20 0a          SELECT .
1dc0: 20 20 20 20 20 20 20 20 20 20 70 61 67 65 2e 64            page.d
1dd0: 6f 63 69 64 20 41 53 20 64 6f 63 69 64 2c 20 75  ocid AS docid, u
1de0: 72 6c 2c 20 6e 6b 2c 20 6e 74 2c 20 6e 63 0a 20  rl, nk, nt, nc. 
1df0: 20 20 20 20 20 20 20 46 52 4f 4d 20 70 61 67 65         FROM page
1e00: 2c 20 70 61 67 65 64 61 74 61 20 0a 20 20 20 20  , pagedata .    
1e10: 20 20 20 20 20 20 57 48 45 52 45 20 70 61 67 65        WHERE page
1e20: 20 4d 41 54 43 48 20 24 3a 3a 41 28 71 29 20 41   MATCH $::A(q) A
1e30: 4e 44 20 70 61 67 65 2e 64 6f 63 69 64 20 3d 20  ND page.docid = 
1e40: 70 61 67 65 64 61 74 61 2e 64 6f 63 69 64 0a 20  pagedata.docid. 
1e50: 20 20 20 20 20 20 20 20 20 4f 52 44 45 52 20 42           ORDER B
1e60: 59 20 72 61 6e 6b 28 6d 61 74 63 68 69 6e 66 6f  Y rank(matchinfo
1e70: 28 70 61 67 65 29 2c 20 6e 6b 2c 20 6e 74 2c 20  (page), nk, nt, 
1e80: 6e 63 29 0a 20 20 20 20 20 20 20 20 20 20 44 45  nc).          DE
1e90: 53 43 20 4c 49 4d 49 54 20 31 30 20 4f 46 46 53  SC LIMIT 10 OFFS
1ea0: 45 54 20 24 69 53 74 61 72 74 0a 20 20 20 20 20  ET $iStart.     
1eb0: 20 29 20 41 53 20 72 65 73 75 6c 74 0a 20 20 20   ) AS result.   
1ec0: 20 57 48 45 52 45 20 70 61 67 65 20 4d 41 54 43   WHERE page MATC
1ed0: 48 20 24 3a 3a 41 28 71 29 20 41 4e 44 20 70 61  H $::A(q) AND pa
1ee0: 67 65 2e 64 6f 63 69 64 20 3d 20 72 65 73 75 6c  ge.docid = resul
1ef0: 74 2e 64 6f 63 69 64 0a 20 20 20 20 4f 52 44 45  t.docid.    ORDE
1f00: 52 20 42 59 20 72 65 73 6e 75 6d 3b 0a 20 20 7d  R BY resnum;.  }
1f10: 20 7b 0a 20 20 20 20 61 70 70 65 6e 64 20 72 65   {.    append re
1f20: 74 20 5b 73 75 62 73 74 20 2d 6e 6f 63 6f 6d 6d  t [subst -nocomm
1f30: 61 6e 64 73 20 7b 3c 74 72 3e 0a 20 20 20 20 20  ands {<tr>.     
1f40: 20 3c 74 64 20 76 61 6c 69 67 6e 3d 74 6f 70 3e   <td valign=top>
1f50: 24 7b 72 65 73 6e 75 6d 7d 2e 3c 2f 74 64 3e 0a  ${resnum}.</td>.
1f60: 20 20 20 20 20 20 3c 74 64 20 76 61 6c 69 67 6e        <td valign
1f70: 3d 74 6f 70 3e 0a 20 20 20 20 20 20 20 20 3c 64  =top>.        <d
1f80: 69 76 20 73 74 79 6c 65 3d 22 77 68 69 74 65 2d  iv style="white-
1f90: 73 70 61 63 65 3a 77 72 61 70 22 3e 0a 20 20 20  space:wrap">.   
1fa0: 20 20 20 20 20 20 20 3c 61 20 68 72 65 66 3d 22         <a href="
1fb0: 24 75 72 6c 22 3e 24 74 69 74 6c 65 3c 2f 61 3e  $url">$title</a>
1fc0: 0a 20 20 20 20 20 20 20 20 3c 2f 64 69 76 3e 0a  .        </div>.
1fd0: 20 20 20 20 20 20 20 20 3c 64 69 76 20 73 74 79          <div sty
1fe0: 6c 65 3d 22 66 6f 6e 74 2d 73 69 7a 65 3a 73 6d  le="font-size:sm
1ff0: 61 6c 6c 3b 6d 61 72 67 69 6e 2d 6c 65 66 74 3a  all;margin-left:
2000: 20 32 65 78 22 3e 0a 20 20 20 20 20 20 20 20 20   2ex">.         
2010: 20 3c 64 69 76 20 73 74 79 6c 65 3d 22 77 69 64   <div style="wid
2020: 74 68 3a 38 30 65 78 22 3e 20 24 73 6e 69 70 70  th:80ex"> $snipp
2030: 65 74 20 3c 2f 64 69 76 3e 0a 20 20 20 20 20 20  et </div>.      
2040: 20 20 20 20 3c 64 69 76 20 73 74 79 6c 65 3d 22      <div style="
2050: 6d 61 72 67 69 6e 2d 62 6f 74 74 6f 6d 3a 31 65  margin-bottom:1e
2060: 6d 22 3e 3c 61 20 68 72 65 66 3d 22 24 75 72 6c  m"><a href="$url
2070: 22 3e 24 75 72 6c 3c 2f 61 3e 3c 2f 64 69 76 3e  ">$url</a></div>
2080: 0a 20 20 20 20 20 20 20 20 3c 2f 64 69 76 3e 0a  .        </div>.
2090: 20 20 20 20 20 20 3c 2f 74 64 3e 0a 0a 20 20 20        </td>..   
20a0: 20 20 20 3c 74 64 20 77 69 64 74 68 3d 31 30 30     <td width=100
20b0: 25 3e 0a 20 20 20 20 20 20 3c 74 64 20 76 61 6c  %>.      <td val
20c0: 69 67 6e 3d 74 6f 70 20 73 74 79 6c 65 3d 22 66  ign=top style="f
20d0: 6f 6e 74 2d 73 69 7a 65 3a 36 35 25 3b 77 68 69  ont-size:65%;whi
20e0: 74 65 2d 73 70 61 63 65 3a 6e 6f 77 72 61 70 22  te-space:nowrap"
20f0: 3e 20 24 72 65 70 6f 72 74 20 3c 2f 74 64 3e 0a  > $report </td>.
2100: 20 20 20 20 7d 5d 0a 20 20 7d 0a 20 20 61 70 70      }].  }.  app
2110: 65 6e 64 20 72 65 74 20 7b 20 3c 2f 74 61 62 6c  end ret { </tabl
2120: 65 3e 20 7d 0a 0a 0a 20 20 23 20 49 66 20 74 68  e> }...  # If th
2130: 65 20 71 75 65 72 79 20 72 65 74 75 72 6e 65 64  e query returned
2140: 20 6d 6f 72 65 20 74 68 61 6e 20 31 30 20 72 65   more than 10 re
2150: 73 75 6c 74 73 2c 20 61 64 64 20 75 70 20 74 6f  sults, add up to
2160: 20 31 30 20 6c 69 6e 6b 73 20 74 6f 20 0a 20 20   10 links to .  
2170: 23 20 65 61 63 68 20 73 65 74 20 6f 66 20 31 30  # each set of 10
2180: 20 72 65 73 75 6c 74 73 20 28 66 69 72 73 74 20   results (first 
2190: 6c 69 6e 6b 20 74 6f 20 72 65 73 75 6c 74 73 20  link to results 
21a0: 31 2d 31 30 2c 20 73 65 63 6f 6e 64 20 74 6f 20  1-10, second to 
21b0: 31 31 2d 32 30 2c 20 0a 20 20 23 20 74 68 69 72  11-20, .  # thir
21c0: 64 20 74 6f 20 32 31 2d 33 30 2c 20 61 73 20 72  d to 21-30, as r
21d0: 65 71 75 69 72 65 64 29 2e 0a 20 20 23 0a 20 20  equired)..  #.  
21e0: 69 66 20 7b 24 6e 52 65 73 3e 31 30 7d 20 7b 0a  if {$nRes>10} {.
21f0: 20 20 20 20 73 65 74 20 73 28 30 29 20 7b 62 6f      set s(0) {bo
2200: 72 64 65 72 3a 20 73 6f 6c 69 64 20 23 30 34 34  rder: solid #044
2210: 61 36 34 20 31 70 78 20 3b 20 70 61 64 64 69 6e  a64 1px ; paddin
2220: 67 3a 20 31 65 78 20 3b 20 6d 61 72 67 69 6e 3a  g: 1ex ; margin:
2230: 20 31 65 78 7d 0a 20 20 20 20 73 65 74 20 73 28   1ex}.    set s(
2240: 31 29 20 22 24 73 28 30 29 3b 62 61 63 6b 67 72  1) "$s(0);backgr
2250: 6f 75 6e 64 3a 23 30 34 34 61 36 34 3b 63 6f 6c  ound:#044a64;col
2260: 6f 72 3a 77 68 69 74 65 22 0a 20 20 20 20 61 70  or:white".    ap
2270: 70 65 6e 64 20 72 65 74 20 3c 63 65 6e 74 65 72  pend ret <center
2280: 3e 3c 70 3e 0a 20 20 20 20 66 6f 72 20 7b 73 65  ><p>.    for {se
2290: 74 20 69 20 30 7d 20 7b 24 69 20 3c 20 31 30 20  t i 0} {$i < 10 
22a0: 26 26 20 28 24 69 2a 31 30 29 3c 24 6e 52 65 73  && ($i*10)<$nRes
22b0: 7d 20 7b 69 6e 63 72 20 69 7d 20 7b 0a 20 20 20  } {incr i} {.   
22c0: 20 20 20 61 70 70 65 6e 64 20 72 65 74 20 5b 73     append ret [s
22d0: 75 62 73 74 20 7b 0a 20 20 20 20 20 20 20 20 3c  ubst {.        <
22e0: 61 20 73 74 79 6c 65 3d 22 24 73 28 5b 65 78 70  a style="$s([exp
22f0: 72 20 7b 28 24 69 53 74 61 72 74 2f 31 30 29 3d  r {($iStart/10)=
2300: 3d 24 69 7d 5d 29 22 20 0a 20 20 20 20 20 20 20  =$i}])" .       
2310: 20 20 20 20 68 72 65 66 3d 22 73 65 61 72 63 68      href="search
2320: 3f 5b 63 67 69 5f 65 6e 63 6f 64 65 5f 61 72 67  ?[cgi_encode_arg
2330: 73 20 5b 6c 69 73 74 20 71 20 24 3a 3a 41 28 71  s [list q $::A(q
2340: 29 20 69 20 24 69 5d 5d 22 3e 5b 65 78 70 72 20  ) i $i]]">[expr 
2350: 24 69 2b 31 5d 3c 2f 61 3e 0a 20 20 20 20 20 20  $i+1]</a>.      
2360: 7d 5d 0a 20 20 20 20 7d 0a 20 20 20 20 61 70 70  }].    }.    app
2370: 65 6e 64 20 72 65 74 20 3c 2f 63 65 6e 74 65 72  end ret </center
2380: 3e 0a 20 20 7d 0a 0a 20 20 72 65 74 75 72 6e 20  >.  }..  return 
2390: 24 72 65 74 0a 7d 0a 0a 70 72 6f 63 20 6d 61 69  $ret.}..proc mai
23a0: 6e 20 7b 7d 20 7b 0a 20 20 67 6c 6f 62 61 6c 20  n {} {.  global 
23b0: 41 0a 20 20 73 71 6c 69 74 65 33 20 64 62 20 73  A.  sqlite3 db s
23c0: 65 61 72 63 68 2e 64 62 0a 20 20 63 67 69 5f 70  earch.db.  cgi_p
23d0: 61 72 73 65 5f 61 72 67 73 0a 0a 20 20 64 62 20  arse_args..  db 
23e0: 74 72 61 6e 73 61 63 74 69 6f 6e 20 7b 0a 20 20  transaction {.  
23f0: 20 20 69 66 20 7b 5b 63 61 74 63 68 20 73 65 61    if {[catch sea
2400: 72 63 68 72 65 73 75 6c 74 73 20 73 72 63 68 6f  rchresults srcho
2410: 75 74 5d 7d 20 7b 0a 20 20 20 20 20 20 73 65 74  ut]} {.      set
2420: 20 41 28 71 29 20 5b 73 74 72 69 6e 67 20 74 6f   A(q) [string to
2430: 6c 6f 77 65 72 20 24 41 28 71 29 5d 0a 20 20 20  lower $A(q)].   
2440: 20 20 20 73 65 74 20 73 72 63 68 6f 75 74 20 5b     set srchout [
2450: 73 65 61 72 63 68 72 65 73 75 6c 74 73 5d 0a 20  searchresults]. 
2460: 20 20 20 7d 0a 20 20 20 20 73 65 74 20 74 20 5b     }.    set t [
2470: 74 74 69 6d 65 20 7b 20 73 65 74 20 64 6f 63 20  ttime { set doc 
2480: 22 5b 73 65 61 72 63 68 66 6f 72 6d 5d 20 24 73  "[searchform] $s
2490: 72 63 68 6f 75 74 20 5b 66 6f 6f 74 65 72 5d 22  rchout [footer]"
24a0: 20 7d 5d 0a 20 20 7d 0a 20 20 61 70 70 65 6e 64   }].  }.  append
24b0: 20 64 6f 63 20 22 3c 70 3e 50 61 67 65 20 67 65   doc "<p>Page ge
24c0: 6e 65 72 61 74 65 64 20 69 6e 20 24 74 2e 22 0a  nerated in $t.".
24d0: 20 20 72 65 74 75 72 6e 20 24 64 6f 63 0a 0a 20    return $doc.. 
24e0: 20 23 20 72 65 74 75 72 6e 20 5b 63 67 69 5f 65   # return [cgi_e
24f0: 6e 76 5f 64 75 6d 70 5d 0a 7d 0a 0a 23 3d 3d 3d  nv_dump].}..#===
2500: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
2510: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
2520: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
2530: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d  ================
2540: 3d 3d 3d 3d 3d 3d 0a 0a 73 65 74 20 3a 3a 48 45  ======..set ::HE
2550: 41 44 45 52 20 7b 0a 20 20 3c 21 44 4f 43 54 59  ADER {.  <!DOCTY
2560: 50 45 20 48 54 4d 4c 20 50 55 42 4c 49 43 20 22  PE HTML PUBLIC "
2570: 2d 2f 2f 57 33 43 2f 2f 44 54 44 20 48 54 4d 4c  -//W3C//DTD HTML
2580: 20 34 2e 30 31 2f 2f 45 4e 22 0a 20 20 22 68 74   4.01//EN".  "ht
2590: 74 70 3a 2f 2f 77 77 77 2e 77 33 2e 6f 72 67 2f  tp://www.w3.org/
25a0: 54 52 2f 68 74 6d 6c 34 2f 73 74 72 69 63 74 2e  TR/html4/strict.
25b0: 64 74 64 22 3e 0a 20 20 3c 68 74 6d 6c 3e 3c 68  dtd">.  <html><h
25c0: 65 61 64 3e 0a 20 20 3c 74 69 74 6c 65 3e 24 54  ead>.  <title>$T
25d0: 49 54 4c 45 3c 2f 74 69 74 6c 65 3e 0a 20 20 3c  ITLE</title>.  <
25e0: 73 74 79 6c 65 20 74 79 70 65 3d 22 74 65 78 74  style type="text
25f0: 2f 63 73 73 22 3e 0a 20 20 62 6f 64 79 20 7b 0a  /css">.  body {.
2600: 20 20 20 20 6d 61 72 67 69 6e 3a 20 61 75 74 6f      margin: auto
2610: 3b 0a 20 20 20 20 66 6f 6e 74 2d 66 61 6d 69 6c  ;.    font-famil
2620: 79 3a 20 56 65 72 64 61 6e 61 2c 20 73 61 6e 73  y: Verdana, sans
2630: 2d 73 65 72 69 66 3b 0a 20 20 20 20 70 61 64 64  -serif;.    padd
2640: 69 6e 67 3a 20 38 70 78 20 31 25 3b 0a 20 20 7d  ing: 8px 1%;.  }
2650: 0a 0a 20 20 61 20 7b 20 63 6f 6c 6f 72 3a 20 23  ..  a { color: #
2660: 30 34 34 61 36 34 20 7d 0a 20 20 61 3a 76 69 73  044a64 }.  a:vis
2670: 69 74 65 64 20 7b 20 63 6f 6c 6f 72 3a 20 23 37  ited { color: #7
2680: 33 34 35 35 39 20 7d 0a 0a 20 20 2e 6c 6f 67 6f  34559 }..  .logo
2690: 20 7b 20 70 6f 73 69 74 69 6f 6e 3a 61 62 73 6f   { position:abso
26a0: 6c 75 74 65 3b 20 6d 61 72 67 69 6e 3a 33 70 78  lute; margin:3px
26b0: 3b 20 7d 0a 20 20 2e 74 61 67 6c 69 6e 65 20 7b  ; }.  .tagline {
26c0: 0a 20 20 20 20 66 6c 6f 61 74 3a 72 69 67 68 74  .    float:right
26d0: 3b 0a 20 20 20 20 74 65 78 74 2d 61 6c 69 67 6e  ;.    text-align
26e0: 3a 72 69 67 68 74 3b 0a 20 20 20 20 66 6f 6e 74  :right;.    font
26f0: 2d 73 74 79 6c 65 3a 69 74 61 6c 69 63 3b 0a 20  -style:italic;. 
2700: 20 20 20 77 69 64 74 68 3a 33 30 30 70 78 3b 0a     width:300px;.
2710: 20 20 20 20 6d 61 72 67 69 6e 3a 31 32 70 78 3b      margin:12px;
2720: 0a 20 20 20 20 6d 61 72 67 69 6e 2d 74 6f 70 3a  .    margin-top:
2730: 35 38 70 78 3b 0a 20 20 7d 0a 20 20 2e 6d 65 6e  58px;.  }.  .men
2740: 75 62 61 72 20 7b 0a 20 20 20 20 63 6c 65 61 72  ubar {.    clear
2750: 3a 20 62 6f 74 68 3b 0a 20 20 20 20 62 6f 72 64  : both;.    bord
2760: 65 72 2d 72 61 64 69 75 73 3a 20 38 70 78 3b 0a  er-radius: 8px;.
2770: 20 20 20 20 62 61 63 6b 67 72 6f 75 6e 64 3a 20      background: 
2780: 23 30 34 34 61 36 34 3b 0a 20 20 20 20 70 61 64  #044a64;.    pad
2790: 64 69 6e 67 3a 20 30 70 78 3b 0a 20 20 20 20 6d  ding: 0px;.    m
27a0: 61 72 67 69 6e 3a 20 30 70 78 3b 0a 20 20 20 20  argin: 0px;.    
27b0: 63 65 6c 6c 2d 73 70 61 63 69 6e 67 3a 20 30 70  cell-spacing: 0p
27c0: 78 3b 0a 20 20 7d 0a 20 20 2e 74 6f 6f 6c 62 61  x;.  }.  .toolba
27d0: 72 20 7b 0a 20 20 20 20 74 65 78 74 2d 61 6c 69  r {.    text-ali
27e0: 67 6e 3a 20 63 65 6e 74 65 72 3b 0a 20 20 20 20  gn: center;.    
27f0: 6c 69 6e 65 2d 68 65 69 67 68 74 3a 20 31 2e 36  line-height: 1.6
2800: 65 6d 3b 0a 20 20 20 20 6d 61 72 67 69 6e 3a 20  em;.    margin: 
2810: 30 3b 0a 20 20 20 20 70 61 64 64 69 6e 67 3a 20  0;.    padding: 
2820: 30 70 78 20 38 70 78 3b 0a 20 20 7d 0a 20 20 2e  0px 8px;.  }.  .
2830: 74 6f 6f 6c 62 61 72 20 61 20 7b 20 63 6f 6c 6f  toolbar a { colo
2840: 72 3a 20 77 68 69 74 65 3b 0a 20 20 74 65 78 74  r: white;.  text
2850: 2d 64 65 63 6f 72 61 74 69 6f 6e 3a 20 6e 6f 6e  -decoration: non
2860: 65 3b 20 70 61 64 64 69 6e 67 3a 20 36 70 78 0a  e; padding: 6px.
2870: 20 20 31 32 70 78 3b 20 7d 0a 20 20 2e 74 6f 6f    12px; }.  .too
2880: 6c 62 61 72 20 61 3a 76 69 73 69 74 65 64 20 7b  lbar a:visited {
2890: 20 63 6f 6c 6f 72 3a 20 77 68 69 74 65 3b 20 7d   color: white; }
28a0: 0a 20 20 2e 74 6f 6f 6c 62 61 72 20 61 3a 68 6f  .  .toolbar a:ho
28b0: 76 65 72 20 7b 20 63 6f 6c 6f 72 3a 20 23 30 34  ver { color: #04
28c0: 34 61 36 34 3b 0a 20 20 62 61 63 6b 67 72 6f 75  4a64;.  backgrou
28d0: 6e 64 3a 20 77 68 69 74 65 3b 20 7d 0a 0a 20 20  nd: white; }..  
28e0: 2e 63 6f 6e 74 65 6e 74 20 20 20 20 7b 20 6d 61  .content    { ma
28f0: 72 67 69 6e 3a 20 35 25 3b 20 7d 0a 20 20 2e 63  rgin: 5%; }.  .c
2900: 6f 6e 74 65 6e 74 20 64 74 20 7b 20 66 6f 6e 74  ontent dt { font
2910: 2d 77 65 69 67 68 74 3a 62 6f 6c 64 3b 20 7d 0a  -weight:bold; }.
2920: 20 20 2e 63 6f 6e 74 65 6e 74 20 64 64 20 7b 20    .content dd { 
2930: 6d 61 72 67 69 6e 2d 62 6f 74 74 6f 6d 3a 20 32  margin-bottom: 2
2940: 35 70 78 3b 20 6d 61 72 67 69 6e 2d 6c 65 66 74  5px; margin-left
2950: 3a 32 30 25 3b 20 7d 0a 20 20 2e 63 6f 6e 74 65  :20%; }.  .conte
2960: 6e 74 20 75 6c 20 7b 20 70 61 64 64 69 6e 67 3a  nt ul { padding:
2970: 30 70 78 3b 20 70 61 64 64 69 6e 67 2d 6c 65 66  0px; padding-lef
2980: 74 3a 20 31 35 70 78 3b 20 6d 61 72 67 69 6e 3a  t: 15px; margin:
2990: 30 70 78 3b 20 7d 0a 20 20 3c 2f 73 74 79 6c 65  0px; }.  </style
29a0: 3e 0a 20 20 3c 6d 65 74 61 20 68 74 74 70 2d 65  >.  <meta http-e
29b0: 71 75 69 76 3d 22 63 6f 6e 74 65 6e 74 2d 74 79  quiv="content-ty
29c0: 70 65 22 20 63 6f 6e 74 65 6e 74 3d 22 74 65 78  pe" content="tex
29d0: 74 2f 68 74 6d 6c 3b 20 63 68 61 72 73 65 74 3d  t/html; charset=
29e0: 55 54 46 2d 38 22 3e 0a 20 20 20 20 0a 20 20 3c  UTF-8">.    .  <
29f0: 2f 68 65 61 64 3e 0a 20 20 3c 62 6f 64 79 3e 0a  /head>.  <body>.
2a00: 20 20 3c 64 69 76 3e 3c 21 2d 2d 20 63 6f 6e 74    <div><!-- cont
2a10: 61 69 6e 65 72 20 64 69 76 20 74 6f 20 73 61 74  ainer div to sat
2a20: 69 73 66 79 20 76 61 6c 69 64 61 74 6f 72 20 2d  isfy validator -
2a30: 2d 3e 0a 0a 20 20 3c 61 20 68 72 65 66 3d 22 69  ->..  <a href="i
2a40: 6e 64 65 78 2e 68 74 6d 6c 22 3e 0a 20 20 3c 69  ndex.html">.  <i
2a50: 6d 67 20 63 6c 61 73 73 3d 22 6c 6f 67 6f 22 20  mg class="logo" 
2a60: 73 72 63 3d 22 69 6d 61 67 65 73 2f 73 71 6c 69  src="images/sqli
2a70: 74 65 33 37 30 5f 62 61 6e 6e 65 72 2e 67 69 66  te370_banner.gif
2a80: 22 20 61 6c 74 3d 22 53 51 4c 69 74 65 20 4c 6f  " alt="SQLite Lo
2a90: 67 6f 22 20 62 6f 72 64 65 72 3d 22 30 22 3e 3c  go" border="0"><
2aa0: 2f 61 3e 0a 20 20 20 20 3c 64 69 76 3e 3c 21 2d  /a>.    <div><!-
2ab0: 2d 20 49 45 20 68 61 63 6b 20 74 6f 20 70 72 65  - IE hack to pre
2ac0: 76 65 6e 74 20 64 69 73 61 70 70 65 61 72 69 6e  vent disappearin
2ad0: 67 20 6c 6f 67 6f 2d 2d 3e 3c 2f 64 69 76 3e 0a  g logo--></div>.
2ae0: 20 20 20 20 3c 64 69 76 20 63 6c 61 73 73 3d 22      <div class="
2af0: 74 61 67 6c 69 6e 65 22 3e 53 6d 61 6c 6c 2e 20  tagline">Small. 
2b00: 46 61 73 74 2e 20 52 65 6c 69 61 62 6c 65 2e 3c  Fast. Reliable.<
2b10: 62 72 3e 43 68 6f 6f 73 65 20 61 6e 79 20 74 68  br>Choose any th
2b20: 72 65 65 2e 3c 2f 64 69 76 3e 0a 0a 20 20 20 20  ree.</div>..    
2b30: 3c 74 61 62 6c 65 20 77 69 64 74 68 3d 31 30 30  <table width=100
2b40: 25 20 63 6c 61 73 73 3d 22 6d 65 6e 75 62 61 72  % class="menubar
2b50: 22 3e 3c 74 72 3e 3c 74 64 3e 0a 20 20 3c 74 61  "><tr><td>.  <ta
2b60: 62 6c 65 20 77 69 64 74 68 3d 31 30 30 25 20 73  ble width=100% s
2b70: 74 79 6c 65 3d 22 70 61 64 64 69 6e 67 3a 30 3b  tyle="padding:0;
2b80: 6d 61 72 67 69 6e 3a 30 3b 63 65 6c 6c 2d 73 70  margin:0;cell-sp
2b90: 61 63 69 6e 67 3a 30 22 3e 3c 74 72 3e 0a 20 20  acing:0"><tr>.  
2ba0: 3c 74 64 20 77 69 64 74 68 3d 31 30 30 25 3e 0a  <td width=100%>.
2bb0: 20 20 3c 64 69 76 20 63 6c 61 73 73 3d 22 74 6f    <div class="to
2bc0: 6f 6c 62 61 72 22 3e 0a 20 20 20 20 3c 61 20 68  olbar">.    <a h
2bd0: 72 65 66 3d 22 61 62 6f 75 74 2e 68 74 6d 6c 22  ref="about.html"
2be0: 3e 41 62 6f 75 74 3c 2f 61 3e 0a 20 20 20 20 3c  >About</a>.    <
2bf0: 61 20 68 72 65 66 3d 22 73 69 74 65 6d 61 70 2e  a href="sitemap.
2c00: 68 74 6d 6c 22 3e 53 69 74 65 6d 61 70 3c 2f 61  html">Sitemap</a
2c10: 3e 0a 20 20 20 20 3c 61 20 68 72 65 66 3d 22 64  >.    <a href="d
2c20: 6f 63 73 2e 68 74 6d 6c 22 3e 44 6f 63 75 6d 65  ocs.html">Docume
2c30: 6e 74 61 74 69 6f 6e 3c 2f 61 3e 0a 20 20 20 20  ntation</a>.    
2c40: 3c 61 20 68 72 65 66 3d 22 64 6f 77 6e 6c 6f 61  <a href="downloa
2c50: 64 2e 68 74 6d 6c 22 3e 44 6f 77 6e 6c 6f 61 64  d.html">Download
2c60: 3c 2f 61 3e 0a 20 20 20 20 3c 61 20 68 72 65 66  </a>.    <a href
2c70: 3d 22 63 6f 70 79 72 69 67 68 74 2e 68 74 6d 6c  ="copyright.html
2c80: 22 3e 4c 69 63 65 6e 73 65 3c 2f 61 3e 0a 20 20  ">License</a>.  
2c90: 20 20 3c 61 20 68 72 65 66 3d 22 6e 65 77 73 2e    <a href="news.
2ca0: 68 74 6d 6c 22 3e 4e 65 77 73 3c 2f 61 3e 0a 20  html">News</a>. 
2cb0: 20 20 20 3c 61 20 68 72 65 66 3d 22 73 75 70 70     <a href="supp
2cc0: 6f 72 74 2e 68 74 6d 6c 22 3e 53 75 70 70 6f 72  ort.html">Suppor
2cd0: 74 3c 2f 61 3e 0a 20 20 3c 2f 64 69 76 3e 0a 3c  t</a>.  </div>.<
2ce0: 74 64 3e 0a 20 20 20 20 3c 64 69 76 20 73 74 79  td>.    <div sty
2cf0: 6c 65 3d 22 70 61 64 64 69 6e 67 3a 30 20 31 65  le="padding:0 1e
2d00: 6d 20 30 70 78 20 30 3b 77 68 69 74 65 2d 73 70  m 0px 0;white-sp
2d10: 61 63 65 3a 6e 6f 77 72 61 70 22 3e 0a 20 20 20  ace:nowrap">.   
2d20: 20 3c 66 6f 72 6d 20 6e 61 6d 65 3d 66 20 6d 65   <form name=f me
2d30: 74 68 6f 64 3d 22 47 45 54 22 20 61 63 74 69 6f  thod="GET" actio
2d40: 6e 3d 22 68 74 74 70 3a 2f 2f 77 77 77 2e 73 71  n="http://www.sq
2d50: 6c 69 74 65 2e 6f 72 67 2f 73 65 61 72 63 68 22  lite.org/search"
2d60: 3e 0a 20 20 20 20 20 20 3c 69 6e 70 75 74 20 69  >.      <input i
2d70: 64 3d 71 20 6e 61 6d 65 3d 71 20 74 79 70 65 3d  d=q name=q type=
2d80: 74 65 78 74 20 76 61 6c 75 65 3d 22 22 0a 20 20  text value="".  
2d90: 20 20 20 20 20 6f 6e 66 6f 63 75 73 3d 22 65 6e       onfocus="en
2da0: 74 65 72 73 65 61 72 63 68 28 29 22 20 6f 6e 62  tersearch()" onb
2db0: 6c 75 72 3d 22 6c 65 61 76 65 73 65 61 72 63 68  lur="leavesearch
2dc0: 28 29 22 20 73 74 79 6c 65 3d 22 77 69 64 74 68  ()" style="width
2dd0: 3a 32 34 65 78 3b 70 61 64 64 69 6e 67 3a 31 70  :24ex;padding:1p
2de0: 78 20 31 65 78 3b 20 62 6f 72 64 65 72 3a 73 6f  x 1ex; border:so
2df0: 6c 69 64 20 77 68 69 74 65 20 31 70 78 3b 20 66  lid white 1px; f
2e00: 6f 6e 74 2d 73 69 7a 65 3a 30 2e 39 65 6d 22 3e  ont-size:0.9em">
2e10: 0a 20 20 20 20 20 20 3c 69 6e 70 75 74 20 74 79  .      <input ty
2e20: 70 65 3d 73 75 62 6d 69 74 20 76 61 6c 75 65 3d  pe=submit value=
2e30: 22 47 6f 22 20 73 74 79 6c 65 3d 22 62 6f 72 64  "Go" style="bord
2e40: 65 72 3a 73 6f 6c 69 64 20 77 68 69 74 65 20 31  er:solid white 1
2e50: 70 78 3b 62 61 63 6b 67 72 6f 75 6e 64 2d 63 6f  px;background-co
2e60: 6c 6f 72 3a 23 30 34 34 61 36 34 3b 63 6f 6c 6f  lor:#044a64;colo
2e70: 72 3a 77 68 69 74 65 3b 66 6f 6e 74 2d 73 69 7a  r:white;font-siz
2e80: 65 3a 30 2e 39 65 6d 3b 70 61 64 64 69 6e 67 3a  e:0.9em;padding:
2e90: 30 20 31 65 78 22 3e 0a 20 20 20 20 3c 2f 66 6f  0 1ex">.    </fo
2ea0: 72 6d 3e 0a 20 20 20 20 3c 2f 64 69 76 3e 0a 20  rm>.    </div>. 
2eb0: 20 3c 2f 74 61 62 6c 65 3e 0a 3c 2f 64 69 76 3e   </table>.</div>
2ec0: 3c 2f 64 69 76 3e 3c 2f 64 69 76 3e 3c 2f 64 69  </div></div></di
2ed0: 76 3e 0a 3c 2f 74 64 3e 3c 2f 74 72 3e 3c 2f 74  v>.</td></tr></t
2ee0: 61 62 6c 65 3e 0a 20 20 0a 3c 73 63 72 69 70 74  able>.  .<script
2ef0: 3e 0a 20 20 67 4d 73 67 20 3d 20 22 53 65 61 72  >.  gMsg = "Sear
2f00: 63 68 20 53 51 4c 69 74 65 20 44 6f 63 73 2e 2e  ch SQLite Docs..
2f10: 2e 22 0a 20 20 66 75 6e 63 74 69 6f 6e 20 65 6e  .".  function en
2f20: 74 65 72 73 65 61 72 63 68 28 29 20 7b 0a 20 20  tersearch() {.  
2f30: 20 20 76 61 72 20 71 20 3d 20 64 6f 63 75 6d 65    var q = docume
2f40: 6e 74 2e 67 65 74 45 6c 65 6d 65 6e 74 42 79 49  nt.getElementByI
2f50: 64 28 22 71 22 29 3b 0a 20 20 20 20 69 66 28 20  d("q");.    if( 
2f60: 71 2e 76 61 6c 75 65 20 3d 3d 20 67 4d 73 67 20  q.value == gMsg 
2f70: 29 20 7b 20 71 2e 76 61 6c 75 65 20 3d 20 22 22  ) { q.value = ""
2f80: 20 7d 0a 20 20 20 20 71 2e 73 74 79 6c 65 2e 63   }.    q.style.c
2f90: 6f 6c 6f 72 20 3d 20 22 62 6c 61 63 6b 22 0a 20  olor = "black". 
2fa0: 20 20 20 71 2e 73 74 79 6c 65 2e 66 6f 6e 74 53     q.style.fontS
2fb0: 74 79 6c 65 20 3d 20 22 6e 6f 72 6d 61 6c 22 0a  tyle = "normal".
2fc0: 20 20 7d 0a 20 20 66 75 6e 63 74 69 6f 6e 20 6c    }.  function l
2fd0: 65 61 76 65 73 65 61 72 63 68 28 29 20 7b 0a 20  eavesearch() {. 
2fe0: 20 20 20 76 61 72 20 71 20 3d 20 64 6f 63 75 6d     var q = docum
2ff0: 65 6e 74 2e 67 65 74 45 6c 65 6d 65 6e 74 42 79  ent.getElementBy
3000: 49 64 28 22 71 22 29 3b 0a 20 20 20 20 69 66 28  Id("q");.    if(
3010: 20 71 2e 76 61 6c 75 65 20 3d 3d 20 22 22 20 29   q.value == "" )
3020: 20 7b 20 0a 20 20 20 20 20 20 71 2e 76 61 6c 75   { .      q.valu
3030: 65 20 3d 20 67 4d 73 67 0a 20 20 20 20 20 20 71  e = gMsg.      q
3040: 2e 73 74 79 6c 65 2e 63 6f 6c 6f 72 20 3d 20 22  .style.color = "
3050: 23 30 34 34 61 36 34 22 0a 20 20 20 20 20 20 71  #044a64".      q
3060: 2e 73 74 79 6c 65 2e 66 6f 6e 74 53 74 79 6c 65  .style.fontStyle
3070: 20 3d 20 22 69 74 61 6c 69 63 22 0a 20 20 20 20   = "italic".    
3080: 7d 0a 20 20 7d 0a 20 20 66 75 6e 63 74 69 6f 6e  }.  }.  function
3090: 20 69 6e 69 74 73 65 61 72 63 68 28 29 20 7b 0a   initsearch() {.
30a0: 20 20 20 20 76 61 72 20 71 20 3d 20 64 6f 63 75      var q = docu
30b0: 6d 65 6e 74 2e 67 65 74 45 6c 65 6d 65 6e 74 42  ment.getElementB
30c0: 79 49 64 28 22 71 22 29 3b 0a 20 20 20 20 71 2e  yId("q");.    q.
30d0: 76 61 6c 75 65 20 3d 20 22 22 0a 20 20 20 20 20  value = "".     
30e0: 20 71 2e 76 61 6c 75 65 20 3d 20 24 3a 3a 49 4e   q.value = $::IN
30f0: 49 54 53 45 41 52 43 48 0a 20 20 20 20 20 20 71  ITSEARCH.      q
3100: 2e 73 74 79 6c 65 2e 63 6f 6c 6f 72 20 3d 20 22  .style.color = "
3110: 62 6c 61 63 6b 22 0a 20 20 20 20 20 20 71 2e 73  black".      q.s
3120: 74 79 6c 65 2e 66 6f 6e 74 53 74 79 6c 65 20 3d  tyle.fontStyle =
3130: 20 22 6e 6f 72 6d 61 6c 22 0a 20 20 7d 0a 20 20   "normal".  }.  
3140: 77 69 6e 64 6f 77 2e 6f 6e 6c 6f 61 64 20 3d 20  window.onload = 
3150: 69 6e 69 74 73 65 61 72 63 68 0a 3c 2f 73 63 72  initsearch.</scr
3160: 69 70 74 3e 0a 7d 0a 0a 69 66 20 7b 21 5b 69 6e  ipt>.}..if {![in
3170: 66 6f 20 65 78 69 73 74 73 20 65 6e 76 28 52 45  fo exists env(RE
3180: 51 55 45 53 54 5f 4d 45 54 48 4f 44 29 5d 7d 20  QUEST_METHOD)]} 
3190: 7b 0a 20 20 73 65 74 20 65 6e 76 28 52 45 51 55  {.  set env(REQU
31a0: 45 53 54 5f 4d 45 54 48 4f 44 29 20 47 45 54 0a  EST_METHOD) GET.
31b0: 20 20 73 65 74 20 65 6e 76 28 51 55 45 52 59 5f    set env(QUERY_
31c0: 53 54 52 49 4e 47 29 20 72 65 62 75 69 6c 64 3d  STRING) rebuild=
31d0: 31 0a 20 20 73 65 74 20 3a 3a 48 45 41 44 45 52  1.  set ::HEADER
31e0: 20 22 22 0a 0a 20 20 23 73 65 74 20 65 6e 76 28   ""..  #set env(
31f0: 51 55 45 52 59 5f 53 54 52 49 4e 47 29 20 7b 71  QUERY_STRING) {q
3200: 3d 22 6f 6e 65 2b 74 77 6f 2b 74 68 72 65 65 2b  ="one+two+three+
3210: 66 6f 75 72 22 2b 65 6c 65 76 65 6e 7d 0a 20 20  four"+eleven}.  
3220: 73 65 74 20 65 6e 76 28 51 55 45 52 59 5f 53 54  set env(QUERY_ST
3230: 52 49 4e 47 29 20 7b 71 3d 77 69 6e 64 6f 77 73  RING) {q=windows
3240: 7d 0a 20 20 73 65 74 20 3a 3a 48 45 41 44 45 52  }.  set ::HEADER
3250: 20 22 22 0a 7d 0a 0a 0a 73 65 74 20 54 49 54 4c   "".}...set TITL
3260: 45 20 22 53 65 61 72 63 68 20 53 51 4c 69 74 65  E "Search SQLite
3270: 20 44 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 22 0a   Documentation".
3280: 0a 69 66 20 7b 30 3d 3d 5b 63 61 74 63 68 20 6d  .if {0==[catch m
3290: 61 69 6e 20 72 65 73 5d 7d 20 7b 0a 20 20 69 66  ain res]} {.  if
32a0: 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 3a   {[info exists :
32b0: 3a 41 28 71 29 5d 7d 20 7b 0a 20 20 20 20 73 65  :A(q)]} {.    se
32c0: 74 20 3a 3a 49 4e 49 54 53 45 41 52 43 48 20 5c  t ::INITSEARCH \
32d0: 22 5b 61 74 74 72 69 7a 65 20 24 3a 3a 41 28 71  "[attrize $::A(q
32e0: 29 5d 5c 22 0a 20 20 7d 20 65 6c 73 65 20 7b 0a  )]\".  } else {.
32f0: 20 20 20 20 73 65 74 20 3a 3a 49 4e 49 54 53 45      set ::INITSE
3300: 41 52 43 48 20 5c 22 5c 22 0a 20 20 7d 0a 20 20  ARCH \"\".  }.  
3310: 73 65 74 20 64 6f 63 75 6d 65 6e 74 20 5b 73 75  set document [su
3320: 62 73 74 20 2d 6e 6f 63 6f 6d 6d 61 6e 64 73 20  bst -nocommands 
3330: 24 3a 3a 48 45 41 44 45 52 5d 0a 20 20 61 70 70  $::HEADER].  app
3340: 65 6e 64 20 64 6f 63 75 6d 65 6e 74 20 24 72 65  end document $re
3350: 73 0a 7d 20 65 6c 73 65 20 7b 0a 20 20 73 65 74  s.} else {.  set
3360: 20 64 6f 63 75 6d 65 6e 74 20 22 3c 70 72 65 3e   document "<pre>
3370: 22 0a 20 20 61 70 70 65 6e 64 20 64 6f 63 75 6d  ".  append docum
3380: 65 6e 74 20 22 45 72 72 6f 72 3a 20 24 72 65 73  ent "Error: $res
3390: 5c 6e 5c 6e 22 0a 20 20 61 70 70 65 6e 64 20 64  \n\n".  append d
33a0: 6f 63 75 6d 65 6e 74 20 24 3a 3a 65 72 72 6f 72  ocument $::error
33b0: 49 6e 66 6f 0a 20 20 61 70 70 65 6e 64 20 64 6f  Info.  append do
33c0: 63 75 6d 65 6e 74 20 22 3c 2f 70 72 65 3e 22 0a  cument "</pre>".
33d0: 7d 0a 0a 70 75 74 73 20 22 43 6f 6e 74 65 6e 74  }..puts "Content
33e0: 2d 74 79 70 65 3a 20 74 65 78 74 2f 68 74 6d 6c  -type: text/html
33f0: 22 20 0a 70 75 74 73 20 22 43 6f 6e 74 65 6e 74  " .puts "Content
3400: 2d 4c 65 6e 67 74 68 3a 20 5b 73 74 72 69 6e 67  -Length: [string
3410: 20 6c 65 6e 67 74 68 20 24 64 6f 63 75 6d 65 6e   length $documen
3420: 74 5d 22 0a 70 75 74 73 20 22 22 0a 70 75 74 73  t]".puts "".puts
3430: 20 24 64 6f 63 75 6d 65 6e 74 0a 70 75 74 73 20   $document.puts 
3440: 22 22 0a 66 6c 75 73 68 20 73 74 64 6f 75 74 0a  "".flush stdout.
3450: 63 6c 6f 73 65 20 73 74 64 6f 75 74 0a 0a 65 78  close stdout..ex
3460: 69 74 0a                                         it.