0000: 23 21 2f 75 73 72 2f 62 69 6e 2f 74 63 6c 73 68 #!/usr/bin/tclsh
0010: 2e 64 6f 63 73 72 63 0a 23 23 23 23 20 49 6d 70 .docsrc.#### Imp
0020: 6f 72 74 20 6f 66 20 77 61 70 70 2e 74 63 6c 0a ort of wapp.tcl.
0030: 49 4e 43 4c 55 44 45 20 77 61 70 70 2e 74 63 6c INCLUDE wapp.tcl
0040: 0a 23 23 23 23 20 45 6e 64 20 6f 66 20 77 61 70 .#### End of wap
0050: 70 2e 74 63 6c 0a 0a 23 20 47 65 6e 65 72 61 74 p.tcl..# Generat
0060: 65 20 61 6c 6c 20 68 65 61 64 65 72 20 63 6f 6e e all header con
0070: 74 65 6e 74 20 66 6f 72 20 74 68 65 20 6f 75 74 tent for the out
0080: 70 75 74 20 64 6f 63 75 6d 65 6e 74 0a 23 0a 70 put document.#.p
0090: 72 6f 63 20 73 65 61 72 63 68 5f 68 65 61 64 65 roc search_heade
00a0: 72 20 7b 7d 20 7b 0a 20 20 77 61 70 70 2d 74 72 r {} {. wapp-tr
00b0: 69 6d 20 7b 0a 44 4f 43 48 45 41 44 20 7b 53 65 im {.DOCHEAD {Se
00c0: 61 72 63 68 20 53 51 4c 69 74 65 20 44 6f 63 75 arch SQLite Docu
00d0: 6d 65 6e 74 61 74 69 6f 6e 7d 20 7b 7d 0a 20 20 mentation} {}.
00e0: 7d 0a 7d 0a 0a 23 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d }.}..#----------
00f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0100: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0110: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0120: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
0130: 23 20 41 64 64 20 61 6e 20 65 6e 74 72 79 20 74 # Add an entry t
0140: 6f 20 74 68 65 20 6c 6f 67 20 64 61 74 61 62 61 o the log databa
0150: 73 65 20 66 6f 72 20 74 68 65 20 63 75 72 72 65 se for the curre
0160: 6e 74 20 71 75 65 72 79 2e 20 57 68 69 63 68 20 nt query. Which
0170: 0a 23 20 72 65 74 75 72 6e 73 20 24 6e 52 65 73 .# returns $nRes
0180: 20 72 65 73 75 6c 74 73 2e 0a 23 0a 70 72 6f 63 results..#.proc
0190: 20 73 65 61 72 63 68 5f 61 64 64 5f 6c 6f 67 5f search_add_log_
01a0: 65 6e 74 72 79 20 7b 6e 52 65 73 7d 20 7b 0a 20 entry {nRes} {.
01b0: 20 69 66 20 7b 5b 77 61 70 70 2d 70 61 72 61 6d if {[wapp-param
01c0: 2d 65 78 69 73 74 73 20 64 6f 6e 6f 74 6c 6f 67 -exists donotlog
01d0: 5d 7d 20 72 65 74 75 72 6e 0a 20 20 73 71 6c 69 ]} return. sqli
01e0: 74 65 33 20 64 62 32 20 5b 66 69 6c 65 20 64 69 te3 db2 [file di
01f0: 72 20 5b 77 61 70 70 2d 70 61 72 61 6d 20 53 43 r [wapp-param SC
0200: 52 49 50 54 5f 46 49 4c 45 4e 41 4d 45 5d 5d 2f RIPT_FILENAME]]/
0210: 73 65 61 72 63 68 2e 64 2f 73 65 61 72 63 68 6c search.d/searchl
0220: 6f 67 2e 64 62 0a 20 20 64 62 32 20 74 69 6d 65 og.db. db2 time
0230: 6f 75 74 20 31 30 30 30 30 0a 20 20 73 65 74 20 out 10000. set
0240: 69 70 20 5b 77 61 70 70 2d 70 61 72 61 6d 20 52 ip [wapp-param R
0250: 45 4d 4f 54 45 5f 41 44 44 52 5d 0a 20 20 73 65 EMOTE_ADDR]. se
0260: 74 20 71 75 65 72 79 20 5b 77 61 70 70 2d 70 61 t query [wapp-pa
0270: 72 61 6d 20 71 5d 0a 20 20 64 62 32 20 65 76 61 ram q]. db2 eva
0280: 6c 20 7b 0a 20 20 20 20 50 52 41 47 4d 41 20 73 l {. PRAGMA s
0290: 79 6e 63 68 72 6f 6e 6f 75 73 3d 4f 46 46 3b 0a ynchronous=OFF;.
02a0: 20 20 20 20 50 52 41 47 4d 41 20 6a 6f 75 72 6e PRAGMA journ
02b0: 61 6c 5f 6d 6f 64 65 3d 4f 46 46 3b 0a 20 20 20 al_mode=OFF;.
02c0: 20 42 45 47 49 4e 3b 0a 20 20 20 20 20 20 43 52 BEGIN;. CR
02d0: 45 41 54 45 20 54 41 42 4c 45 20 49 46 20 4e 4f EATE TABLE IF NO
02e0: 54 20 45 58 49 53 54 53 20 6c 6f 67 28 0a 20 20 T EXISTS log(.
02f0: 20 20 20 20 20 20 69 70 2c 20 20 20 20 20 20 20 ip,
0300: 20 20 20 20 20 20 20 20 20 20 20 2d 2d 20 49 50 -- IP
0310: 20 71 75 65 72 79 20 77 61 73 20 6d 61 64 65 20 query was made
0320: 66 72 6f 6d 0a 20 20 20 20 20 20 20 20 71 75 65 from. que
0330: 72 79 2c 20 20 20 20 20 20 20 20 20 20 20 20 20 ry,
0340: 20 20 2d 2d 20 46 74 73 35 20 71 75 65 72 79 20 -- Fts5 query
0350: 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 6e string. n
0360: 72 65 73 2c 20 20 20 20 20 20 20 20 20 20 20 20 res,
0370: 20 20 20 20 2d 2d 20 4e 75 6d 62 65 72 20 6f 66 -- Number of
0380: 20 72 65 73 75 6c 74 73 0a 20 20 20 20 20 20 20 results.
0390: 20 74 69 6d 65 73 74 61 6d 70 20 44 45 46 41 55 timestamp DEFAU
03a0: 4c 54 20 43 55 52 52 45 4e 54 5f 54 49 4d 45 53 LT CURRENT_TIMES
03b0: 54 41 4d 50 0a 20 20 20 20 20 20 29 3b 0a 20 20 TAMP. );.
03c0: 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 INSERT INTO
03d0: 6c 6f 67 28 69 70 2c 20 71 75 65 72 79 2c 20 6e log(ip, query, n
03e0: 72 65 73 29 20 56 41 4c 55 45 53 28 24 69 70 2c res) VALUES($ip,
03f0: 20 24 71 75 65 72 79 2c 20 24 6e 52 65 73 29 3b $query, $nRes);
0400: 0a 20 20 20 20 43 4f 4d 4d 49 54 3b 0a 20 20 7d . COMMIT;. }
0410: 0a 20 20 64 62 32 20 63 6c 6f 73 65 0a 7d 0a 0a . db2 close.}..
0420: 23 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d #---------------
0430: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0440: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0450: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0460: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 23 20 54 68 69 ----------.# Thi
0470: 73 20 63 6f 6d 6d 61 6e 64 20 69 73 20 73 69 6d s command is sim
0480: 69 6c 61 72 20 74 6f 20 74 68 65 20 62 75 69 6c ilar to the buil
0490: 74 69 6e 20 54 63 6c 20 5b 74 69 6d 65 5d 20 63 tin Tcl [time] c
04a0: 6f 6d 6d 61 6e 64 2c 20 65 78 63 65 70 74 20 74 ommand, except t
04b0: 68 61 74 0a 23 20 69 74 20 6f 6e 6c 79 20 65 76 hat.# it only ev
04c0: 65 72 20 72 75 6e 73 20 74 68 65 20 73 75 70 70 er runs the supp
04d0: 6c 69 65 64 20 73 63 72 69 70 74 20 6f 6e 63 65 lied script once
04e0: 2e 20 41 6c 73 6f 2c 20 69 6e 73 74 65 61 64 20 . Also, instead
04f0: 6f 66 20 72 65 74 75 72 6e 69 6e 67 0a 23 20 61 of returning.# a
0500: 20 73 74 72 69 6e 67 20 6c 69 6b 65 20 22 78 78 string like "xx
0510: 78 20 6d 69 63 72 6f 73 65 63 6f 6e 64 73 20 70 x microseconds p
0520: 65 72 20 69 74 65 72 61 74 69 6f 6e 22 2c 20 69 er iteration", i
0530: 74 20 72 65 74 75 72 6e 73 20 22 78 2e 79 79 20 t returns "x.yy
0540: 6d 73 22 20 6f 72 0a 23 20 22 78 2e 79 79 20 73 ms" or.# "x.yy s
0550: 22 2c 20 64 65 70 65 6e 64 69 6e 67 20 6f 6e 20 ", depending on
0560: 74 68 65 20 6d 61 67 6e 69 74 75 64 65 20 6f 66 the magnitude of
0570: 20 74 68 65 20 74 69 6d 65 20 73 70 65 6e 74 20 the time spent
0580: 72 75 6e 6e 69 6e 67 20 74 68 65 20 0a 23 20 63 running the .# c
0590: 6f 6d 6d 61 6e 64 2e 20 46 6f 72 20 65 78 61 6d ommand. For exam
05a0: 70 6c 65 3a 0a 23 0a 23 20 20 20 25 20 74 74 69 ple:.#.# % tti
05b0: 6d 65 20 7b 61 66 74 65 72 20 31 35 30 30 7d 0a me {after 1500}.
05c0: 23 20 20 20 31 2e 35 30 20 73 0a 23 20 20 20 25 # 1.50 s.# %
05d0: 20 74 74 69 6d 65 20 7b 61 66 74 65 72 20 34 35 ttime {after 45
05e0: 7d 0a 23 20 20 20 34 35 2e 30 32 20 6d 73 0a 23 }.# 45.02 ms.#
05f0: 0a 70 72 6f 63 20 74 74 69 6d 65 20 7b 73 63 72 .proc ttime {scr
0600: 69 70 74 7d 20 7b 0a 20 20 73 65 74 20 74 20 5b ipt} {. set t [
0610: 6c 69 6e 64 65 78 20 5b 74 69 6d 65 20 5b 6c 69 lindex [time [li
0620: 73 74 20 75 70 6c 65 76 65 6c 20 24 73 63 72 69 st uplevel $scri
0630: 70 74 5d 5d 20 30 5d 0a 20 20 69 66 20 7b 24 74 pt]] 0]. if {$t
0640: 3e 31 30 30 30 30 30 30 7d 20 7b 20 72 65 74 75 >1000000} { retu
0650: 72 6e 20 5b 66 6f 72 6d 61 74 20 22 25 2e 32 66 rn [format "%.2f
0660: 20 73 22 20 5b 65 78 70 72 20 7b 24 74 2f 31 30 s" [expr {$t/10
0670: 30 30 30 30 30 2e 30 7d 5d 5d 20 7d 0a 20 20 72 00000.0}]] }. r
0680: 65 74 75 72 6e 20 5b 66 6f 72 6d 61 74 20 22 25 eturn [format "%
0690: 2e 32 66 20 6d 73 22 20 5b 65 78 70 72 20 7b 24 .2f ms" [expr {$
06a0: 74 2f 31 30 30 30 2e 30 7d 5d 5d 0a 7d 0a 0a 23 t/1000.0}]].}..#
06b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
06c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
06d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
06e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
06f0: 2d 2d 2d 2d 2d 2d 2d 0a 23 20 44 6f 20 61 20 73 -------.# Do a s
0700: 65 61 72 63 68 20 6f 66 20 74 68 65 20 63 68 61 earch of the cha
0710: 6e 67 65 20 6c 6f 67 0a 23 0a 70 72 6f 63 20 73 nge log.#.proc s
0720: 65 61 72 63 68 63 68 61 6e 67 65 73 20 7b 7d 20 earchchanges {}
0730: 7b 0a 20 20 73 65 74 20 71 20 5b 77 61 70 70 2d {. set q [wapp-
0740: 70 61 72 61 6d 20 71 5d 0a 20 20 69 66 20 7b 24 param q]. if {$
0750: 71 3d 3d 22 22 7d 20 7b 72 65 74 75 72 6e 20 7b q==""} {return {
0760: 7d 7d 0a 20 20 69 66 20 7b 5b 72 65 67 65 78 70 }}. if {[regexp
0770: 20 2d 61 6c 6c 20 5c 78 32 32 20 24 71 5d 20 25 -all \x22 $q] %
0780: 20 32 7d 20 7b 20 61 70 70 65 6e 64 20 71 20 5c 2} { append q \
0790: 78 32 32 20 7d 0a 20 20 73 65 74 20 78 20 22 22 x22 }. set x ""
07a0: 0a 20 20 66 6f 72 65 61 63 68 20 77 6f 72 64 20 . foreach word
07b0: 5b 73 70 6c 69 74 20 24 71 20 22 20 22 5d 20 7b [split $q " "] {
07c0: 0a 20 20 20 20 61 70 70 65 6e 64 20 78 20 22 20 . append x "
07d0: 5c 22 5b 73 74 72 69 6e 67 20 6d 61 70 20 5b 6c \"[string map [l
07e0: 69 73 74 20 22 5c 22 22 20 22 5c 22 5c 22 22 5d ist "\"" "\"\""]
07f0: 20 24 77 6f 72 64 5d 5c 22 22 0a 20 20 7d 0a 20 $word]\"". }.
0800: 20 73 65 74 20 71 20 5b 73 74 72 69 6e 67 20 74 set q [string t
0810: 72 69 6d 20 24 78 5d 0a 20 20 72 65 67 73 75 62 rim $x]. regsub
0820: 20 2d 2d 61 6c 6c 20 7b 5b 5e 61 2d 7a 41 2d 5a --all {[^a-zA-Z
0830: 30 2d 39 5f 5d 7d 20 24 71 20 7b 20 7d 20 71 0a 0-9_]} $q { } q.
0840: 20 20 73 65 74 20 6f 70 65 6e 20 7b 3c 73 70 61 set open {<spa
0850: 6e 20 73 74 79 6c 65 3d 22 62 61 63 6b 67 72 6f n style="backgro
0860: 75 6e 64 2d 63 6f 6c 6f 72 3a 23 64 39 66 32 65 und-color:#d9f2e
0870: 36 22 3e 7d 0a 20 20 73 65 74 20 63 6c 6f 73 65 6">}. set close
0880: 20 7b 3c 2f 73 70 61 6e 3e 7d 0a 20 20 73 65 74 {</span>}. set
0890: 20 71 75 65 72 79 20 7b 0a 20 20 20 20 53 45 4c query {. SEL
08a0: 45 43 54 20 75 72 6c 2c 20 76 65 72 73 69 6f 6e ECT url, version
08b0: 2c 20 69 64 78 2c 20 68 69 67 68 6c 69 67 68 74 , idx, highlight
08c0: 28 63 68 61 6e 67 65 2c 20 33 2c 20 24 6f 70 65 (change, 3, $ope
08d0: 6e 2c 20 24 63 6c 6f 73 65 29 20 41 53 20 74 65 n, $close) AS te
08e0: 78 74 20 0a 20 20 20 20 46 52 4f 4d 20 63 68 61 xt . FROM cha
08f0: 6e 67 65 28 24 71 29 20 4f 52 44 45 52 20 42 59 nge($q) ORDER BY
0900: 20 72 6f 77 69 64 20 41 53 43 0a 20 20 7d 0a 20 rowid ASC. }.
0910: 20 77 61 70 70 2d 74 72 69 6d 20 7b 0a 20 20 20 wapp-trim {.
0920: 20 3c 70 3e 43 68 61 6e 67 65 20 6c 6f 67 20 65 <p>Change log e
0930: 6e 74 72 69 65 73 20 6d 65 6e 74 69 6f 6e 69 6e ntries mentionin
0940: 67 3a 20 3c 62 3e 25 68 74 6d 6c 28 24 71 29 3c g: <b>%html($q)<
0950: 2f 62 3e 0a 20 20 20 20 3c 74 61 62 6c 65 20 62 /b>. <table b
0960: 6f 72 64 65 72 3d 30 3e 0a 20 20 7d 0a 20 20 73 order=0>. }. s
0970: 65 74 20 73 32 20 22 73 74 79 6c 65 3d 5c 22 6d et s2 "style=\"m
0980: 61 72 67 69 6e 2d 74 6f 70 3a 30 5c 22 22 0a 20 argin-top:0\"".
0990: 20 73 65 74 20 73 31 20 22 73 74 79 6c 65 3d 5c set s1 "style=\
09a0: 22 66 6f 6e 74 2d 73 69 7a 65 3a 6c 61 72 67 65 "font-size:large
09b0: 72 3b 20 74 65 78 74 2d 61 6c 69 67 6e 3a 6c 65 r; text-align:le
09c0: 66 74 5c 22 20 63 6c 61 73 73 3d 6e 6f 75 6e 64 ft\" class=nound
09d0: 65 72 6c 69 6e 65 22 0a 20 20 73 65 74 20 70 72 erline". set pr
09e0: 65 76 20 22 22 0a 20 20 64 62 20 65 76 61 6c 20 ev "". db eval
09f0: 24 71 75 65 72 79 20 7b 0a 20 20 20 20 69 66 20 $query {. if
0a00: 7b 24 70 72 65 76 21 3d 24 76 65 72 73 69 6f 6e {$prev!=$version
0a10: 7d 20 7b 0a 20 20 20 20 20 20 77 61 70 70 2d 74 } {. wapp-t
0a20: 72 69 6d 20 7b 0a 20 20 20 20 20 20 20 20 3c 74 rim {. <t
0a30: 72 3e 20 3c 74 64 20 25 75 6e 73 61 66 65 28 24 r> <td %unsafe($
0a40: 73 31 29 20 76 61 6c 69 67 6e 3d 74 6f 70 3e 20 s1) valign=top>
0a50: 3c 61 20 68 72 65 66 3d 27 25 75 72 6c 28 24 75 <a href='%url($u
0a60: 72 6c 29 27 3e 25 68 74 6d 6c 28 24 76 65 72 73 rl)'>%html($vers
0a70: 69 6f 6e 29 3c 2f 61 3e 0a 20 20 20 20 20 20 20 ion)</a>.
0a80: 20 3c 74 64 3e 20 3c 75 6c 20 25 75 6e 73 61 66 <td> <ul %unsaf
0a90: 65 28 24 73 32 29 3e 0a 20 20 20 20 20 20 7d 0a e($s2)>. }.
0aa0: 20 20 20 20 20 20 73 65 74 20 70 72 65 76 20 24 set prev $
0ab0: 76 65 72 73 69 6f 6e 0a 20 20 20 20 7d 0a 20 20 version. }.
0ac0: 20 20 77 61 70 70 2d 73 75 62 73 74 20 7b 3c 6c wapp-subst {<l
0ad0: 69 20 76 61 6c 75 65 3d 25 68 74 6d 6c 28 24 69 i value=%html($i
0ae0: 64 78 29 3e 20 28 25 68 74 6d 6c 28 24 69 64 78 dx)> (%html($idx
0af0: 29 29 20 25 75 6e 73 61 66 65 28 24 74 65 78 74 )) %unsafe($text
0b00: 29 5c 6e 7d 0a 20 20 7d 0a 20 20 77 61 70 70 2d )\n}. }. wapp-
0b10: 74 72 69 6d 20 7b 0a 20 20 20 20 3c 2f 74 61 62 trim {. </tab
0b20: 6c 65 3e 0a 20 20 20 20 3c 63 65 6e 74 65 72 3e le>. <center>
0b30: 3c 70 3e 59 6f 75 20 63 61 6e 20 61 6c 73 6f 20 <p>You can also
0b40: 73 65 65 20 74 68 65 20 3c 61 20 68 72 65 66 3d see the <a href=
0b50: 63 68 61 6e 67 65 73 2e 68 74 6d 6c 3e 65 6e 74 changes.html>ent
0b60: 69 72 65 0a 20 20 20 20 63 68 61 6e 67 65 6c 6f ire. changelo
0b70: 67 20 61 73 20 61 20 73 69 6e 67 6c 65 20 70 61 g as a single pa
0b80: 67 65 3c 2f 61 3e 20 69 66 20 79 6f 75 20 77 69 ge</a> if you wi
0b90: 73 68 2e 3c 2f 63 65 6e 74 65 72 3e 0a 20 20 7d sh.</center>. }
0ba0: 0a 7d 0a 0a 23 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d .}..#-----------
0bb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0bc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0bd0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0be0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 23 20 44 ------------.# D
0bf0: 6f 20 61 20 73 65 61 72 63 68 20 6f 76 65 72 20 o a search over
0c00: 61 6c 6c 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f all documentatio
0c10: 6e 20 6f 74 68 65 72 20 74 68 61 6e 20 74 68 65 n other than the
0c20: 20 63 68 61 6e 67 65 20 6c 6f 67 0a 23 0a 70 72 change log.#.pr
0c30: 6f 63 20 73 65 61 72 63 68 72 65 73 75 6c 74 73 oc searchresults
0c40: 20 7b 7d 20 7b 0a 20 20 73 65 74 20 71 20 5b 77 {} {. set q [w
0c50: 61 70 70 2d 70 61 72 61 6d 20 71 5d 0a 20 20 69 app-param q]. i
0c60: 66 20 7b 24 71 3d 3d 22 22 7d 20 7b 72 65 74 75 f {$q==""} {retu
0c70: 72 6e 20 22 22 7d 0a 0a 20 20 23 20 43 6f 75 6e rn ""}.. # Coun
0c80: 74 20 74 68 65 20 27 22 27 20 63 68 61 72 61 63 t the '"' charac
0c90: 74 65 72 73 20 69 6e 20 24 3a 3a 41 28 71 29 2e ters in $::A(q).
0ca0: 20 49 66 20 74 68 65 72 65 20 69 73 20 61 6e 20 If there is an
0cb0: 6f 64 64 20 6e 75 6d 62 65 72 20 6f 66 0a 20 20 odd number of.
0cc0: 23 20 6f 63 63 75 72 65 6e 63 65 73 2c 20 61 64 # occurences, ad
0cd0: 64 20 61 20 22 20 74 6f 20 74 68 65 20 65 6e 64 d a " to the end
0ce0: 20 6f 66 20 74 68 65 20 71 75 65 72 79 20 73 6f of the query so
0cf0: 20 74 68 61 74 20 66 74 73 35 20 63 61 6e 20 70 that fts5 can p
0d00: 61 72 73 65 0a 20 20 23 20 69 74 20 77 69 74 68 arse. # it with
0d10: 6f 75 74 20 65 72 72 6f 72 2e 0a 20 20 69 66 20 out error.. if
0d20: 7b 5b 72 65 67 65 78 70 20 2d 61 6c 6c 20 5c 78 {[regexp -all \x
0d30: 32 32 20 24 71 5d 20 25 20 32 7d 20 7b 20 61 70 22 $q] % 2} { ap
0d40: 70 65 6e 64 20 71 20 5c 78 32 32 20 7d 0a 0a 20 pend q \x22 }..
0d50: 20 23 20 53 65 74 20 69 53 74 61 72 74 20 74 6f # Set iStart to
0d60: 20 74 68 65 20 69 6e 64 65 78 20 6f 66 20 74 68 the index of th
0d70: 65 20 66 69 72 73 74 20 72 65 73 75 6c 74 20 74 e first result t
0d80: 6f 20 64 69 73 70 6c 61 79 2e 20 52 65 73 75 6c o display. Resul
0d90: 74 73 20 61 72 65 0a 20 20 23 20 69 6e 64 65 78 ts are. # index
0da0: 65 64 20 73 74 61 72 74 69 6e 67 20 61 74 20 7a ed starting at z
0db0: 65 72 6f 20 66 72 6f 6d 20 6d 6f 73 74 20 74 6f ero from most to
0dc0: 20 6c 65 61 73 74 20 72 65 6c 65 76 61 6e 74 2e least relevant.
0dd0: 0a 20 20 23 0a 20 20 73 65 74 20 69 53 74 61 72 . #. set iStar
0de0: 74 20 30 0a 20 20 63 61 74 63 68 20 7b 73 65 74 t 0. catch {set
0df0: 20 69 53 74 61 72 74 20 5b 65 78 70 72 20 7b 5b iStart [expr {[
0e00: 77 61 70 70 2d 70 61 72 61 6d 20 69 20 30 5d 2a wapp-param i 0]*
0e10: 31 30 7d 5d 7d 0a 0a 20 20 23 20 47 72 61 62 20 10}]}.. # Grab
0e20: 61 20 6c 69 73 74 20 6f 66 20 72 6f 77 69 64 20 a list of rowid
0e30: 72 65 73 75 6c 74 73 2e 0a 20 20 23 0a 20 20 73 results.. #. s
0e40: 65 74 20 73 71 6c 20 7b 0a 20 20 20 20 53 45 4c et sql {. SEL
0e50: 45 43 54 20 72 6f 77 69 64 20 46 52 4f 4d 20 70 ECT rowid FROM p
0e60: 61 67 65 20 57 48 45 52 45 20 70 61 67 65 20 4d age WHERE page M
0e70: 41 54 43 48 20 24 71 0a 20 20 20 20 4f 52 44 45 ATCH $q. ORDE
0e80: 52 20 42 59 20 73 72 61 6e 6b 28 70 61 67 65 29 R BY srank(page)
0e90: 20 44 45 53 43 2c 0a 20 20 20 20 72 61 6e 6b 20 DESC,. rank
0ea0: 2a 20 43 4f 41 4c 45 53 43 45 28 0a 20 20 20 20 * COALESCE(.
0eb0: 20 20 28 53 45 4c 45 43 54 20 70 65 72 63 65 6e (SELECT percen
0ec0: 74 20 46 52 4f 4d 20 77 65 69 67 68 74 20 57 48 t FROM weight WH
0ed0: 45 52 45 20 69 64 3d 70 61 67 65 2e 72 6f 77 69 ERE id=page.rowi
0ee0: 64 29 2c 20 31 30 30 0a 20 20 20 20 29 3b 0a 20 d), 100. );.
0ef0: 20 7d 0a 20 20 69 66 20 7b 5b 63 61 74 63 68 20 }. if {[catch
0f00: 7b 20 73 65 74 20 6c 52 6f 77 69 64 20 5b 64 62 { set lRowid [db
0f10: 20 65 76 61 6c 20 24 73 71 6c 5d 20 7d 5d 7d 20 eval $sql] }]}
0f20: 7b 0a 20 20 20 20 73 65 74 20 78 20 22 22 0a 20 {. set x "".
0f30: 20 20 20 66 6f 72 65 61 63 68 20 77 6f 72 64 20 foreach word
0f40: 5b 73 70 6c 69 74 20 24 71 20 22 20 22 5d 20 7b [split $q " "] {
0f50: 0a 20 20 20 20 20 20 61 70 70 65 6e 64 20 78 20 . append x
0f60: 22 20 5c 22 5b 73 74 72 69 6e 67 20 6d 61 70 20 " \"[string map
0f70: 5b 6c 69 73 74 20 22 5c 22 22 20 22 5c 22 5c 22 [list "\"" "\"\"
0f80: 22 5d 20 24 77 6f 72 64 5d 5c 22 22 0a 20 20 20 "] $word]\"".
0f90: 20 7d 0a 20 20 20 20 73 65 74 20 71 20 5b 73 74 }. set q [st
0fa0: 72 69 6e 67 20 74 72 69 6d 20 24 78 5d 0a 20 20 ring trim $x].
0fb0: 20 20 73 65 74 20 6c 52 6f 77 69 64 20 5b 64 62 set lRowid [db
0fc0: 20 65 76 61 6c 20 24 73 71 6c 5d 0a 20 20 7d 0a eval $sql]. }.
0fd0: 0a 20 20 73 65 74 20 6c 52 65 73 20 5b 6c 69 73 . set lRes [lis
0fe0: 74 5d 0a 20 20 66 6f 72 65 61 63 68 20 72 6f 77 t]. foreach row
0ff0: 69 64 20 24 6c 52 6f 77 69 64 20 7b 0a 20 20 20 id $lRowid {.
1000: 20 69 66 20 7b 24 72 6f 77 69 64 20 3e 20 31 30 if {$rowid > 10
1010: 30 30 7d 20 7b 0a 20 20 20 20 20 20 73 65 74 20 00} {. set
1020: 70 61 72 65 6e 74 20 5b 65 78 70 72 20 24 72 6f parent [expr $ro
1030: 77 69 64 20 2f 20 31 30 30 30 5d 0a 20 20 20 20 wid / 1000].
1040: 20 20 6c 61 70 70 65 6e 64 20 73 75 62 73 65 63 lappend subsec
1050: 74 69 6f 6e 73 28 24 70 61 72 65 6e 74 29 20 24 tions($parent) $
1060: 72 6f 77 69 64 0a 20 20 20 20 7d 20 65 6c 73 65 rowid. } else
1070: 20 7b 0a 20 20 20 20 20 20 6c 61 70 70 65 6e 64 {. lappend
1080: 20 6c 52 65 73 20 24 72 6f 77 69 64 0a 20 20 20 lRes $rowid.
1090: 20 7d 0a 20 20 7d 0a 0a 20 20 73 65 74 20 6e 52 }. }.. set nR
10a0: 65 73 20 5b 6c 6c 65 6e 67 74 68 20 24 6c 52 65 es [llength $lRe
10b0: 73 5d 0a 20 20 73 65 74 20 6c 52 65 73 20 5b 6c s]. set lRes [l
10c0: 72 61 6e 67 65 20 24 6c 52 65 73 20 24 69 53 74 range $lRes $iSt
10d0: 61 72 74 20 5b 65 78 70 72 20 24 69 53 74 61 72 art [expr $iStar
10e0: 74 2b 39 5d 5d 0a 0a 20 20 23 20 41 64 64 20 61 t+9]].. # Add a
10f0: 6e 20 65 6e 74 72 79 20 74 6f 20 74 68 65 20 6c n entry to the l
1100: 6f 67 20 64 61 74 61 62 61 73 65 2e 0a 20 20 23 og database.. #
1110: 0a 20 20 73 65 61 72 63 68 5f 61 64 64 5f 6c 6f . search_add_lo
1120: 67 5f 65 6e 74 72 79 20 24 6e 52 65 73 0a 0a 20 g_entry $nRes..
1130: 20 23 20 49 66 20 74 68 65 72 65 20 61 72 65 20 # If there are
1140: 6e 6f 20 72 65 73 75 6c 74 73 2c 20 72 65 74 75 no results, retu
1150: 72 6e 20 61 20 6d 65 73 73 61 67 65 20 74 6f 20 rn a message to
1160: 74 68 61 74 20 65 66 66 65 63 74 2e 0a 20 20 23 that effect.. #
1170: 0a 20 20 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 . if {[llength
1180: 24 6c 52 65 73 5d 20 3d 3d 20 30 7d 20 7b 0a 20 $lRes] == 0} {.
1190: 20 20 20 77 61 70 70 2d 73 75 62 73 74 20 7b 3c wapp-subst {<
11a0: 70 3e 4e 6f 20 52 65 73 75 6c 74 73 20 66 6f 72 p>No Results for
11b0: 3a 20 3c 62 3e 25 68 74 6d 6c 28 24 71 29 3c 2f : <b>%html($q)</
11c0: 62 3e 5c 6e 7d 0a 20 20 7d 0a 20 20 0a 20 20 23 b>\n}. }. . #
11d0: 20 48 54 4d 4c 20 6d 61 72 6b 75 70 20 75 73 65 HTML markup use
11e0: 64 20 74 6f 20 68 69 67 68 6c 69 67 68 74 20 6b d to highlight k
11f0: 65 79 77 6f 72 64 73 20 77 69 74 68 69 6e 20 46 eywords within F
1200: 54 53 35 20 67 65 6e 65 72 61 74 65 64 20 73 6e TS5 generated sn
1210: 69 70 70 65 74 73 2e 0a 20 20 23 0a 20 20 73 65 ippets.. #. se
1220: 74 20 6f 70 65 6e 20 7b 3c 73 70 61 6e 20 73 74 t open {<span st
1230: 79 6c 65 3d 22 62 61 63 6b 67 72 6f 75 6e 64 2d yle="background-
1240: 63 6f 6c 6f 72 3a 23 64 39 66 32 65 36 22 3e 7d color:#d9f2e6">}
1250: 0a 20 20 73 65 74 20 63 6c 6f 73 65 20 7b 3c 2f . set close {</
1260: 73 70 61 6e 3e 7d 0a 20 20 73 65 74 20 65 6c 6c span>}. set ell
1270: 69 70 73 69 73 20 7b 3c 62 3e 26 6e 62 73 70 3b ipsis {<b>
1280: 2e 2e 2e 26 6e 62 73 70 3b 3c 2f 62 3e 7d 0a 0a ... </b>}..
1290: 20 20 23 20 47 72 61 62 20 74 68 65 20 72 65 71 # Grab the req
12a0: 75 69 72 65 64 20 64 61 74 61 0a 20 20 23 0a 20 uired data. #.
12b0: 20 64 62 20 65 76 61 6c 20 5b 73 74 72 69 6e 67 db eval [string
12c0: 20 6d 61 70 20 5b 6c 69 73 74 20 25 4c 49 53 54 map [list %LIST
12d0: 25 20 5b 6a 6f 69 6e 20 24 6c 52 6f 77 69 64 20 % [join $lRowid
12e0: 2c 5d 5d 20 7b 0a 20 20 20 20 53 45 4c 45 43 54 ,]] {. SELECT
12f0: 20 0a 20 20 20 20 20 20 72 6f 77 69 64 20 41 53 . rowid AS
1300: 20 70 61 72 65 6e 74 69 64 2c 20 0a 20 20 20 20 parentid, .
1310: 20 20 73 6e 69 70 70 65 74 28 70 61 67 65 2c 20 snippet(page,
1320: 30 2c 20 24 6f 70 65 6e 2c 20 24 63 6c 6f 73 65 0, $open, $close
1330: 2c 20 24 65 6c 6c 69 70 73 69 73 2c 20 36 29 20 , $ellipsis, 6)
1340: 20 41 53 20 73 5f 61 70 69 73 2c 0a 20 20 20 20 AS s_apis,.
1350: 20 20 73 6e 69 70 70 65 74 28 70 61 67 65 2c 20 snippet(page,
1360: 32 2c 20 24 6f 70 65 6e 2c 20 24 63 6c 6f 73 65 2, $open, $close
1370: 2c 20 27 27 2c 20 34 30 29 20 20 20 20 20 20 20 , '', 40)
1380: 20 41 53 20 73 5f 74 69 74 6c 65 31 2c 0a 20 20 AS s_title1,.
1390: 20 20 20 20 73 6e 69 70 70 65 74 28 70 61 67 65 snippet(page
13a0: 2c 20 33 2c 20 24 6f 70 65 6e 2c 20 24 63 6c 6f , 3, $open, $clo
13b0: 73 65 2c 20 24 65 6c 6c 69 70 73 69 73 2c 20 34 se, $ellipsis, 4
13c0: 30 29 20 41 53 20 73 5f 74 69 74 6c 65 32 2c 0a 0) AS s_title2,.
13d0: 20 20 20 20 20 20 73 6e 69 70 70 65 74 28 70 61 snippet(pa
13e0: 67 65 2c 20 34 2c 20 24 6f 70 65 6e 2c 20 24 63 ge, 4, $open, $c
13f0: 6c 6f 73 65 2c 20 24 65 6c 6c 69 70 73 69 73 2c lose, $ellipsis,
1400: 20 34 30 29 20 41 53 20 73 5f 63 6f 6e 74 65 6e 40) AS s_conten
1410: 74 2c 0a 20 20 20 20 20 20 75 72 6c 2c 20 72 61 t,. url, ra
1420: 6e 6b 0a 20 20 20 20 46 52 4f 4d 20 70 61 67 65 nk. FROM page
1430: 28 24 71 29 0a 20 20 20 20 57 48 45 52 45 20 72 ($q). WHERE r
1440: 6f 77 69 64 20 49 4e 20 28 25 4c 49 53 54 25 29 owid IN (%LIST%)
1450: 0a 20 20 7d 5d 20 58 20 7b 0a 20 20 20 20 66 6f . }] X {. fo
1460: 72 65 61 63 68 20 6b 20 5b 61 72 72 61 79 20 6e reach k [array n
1470: 61 6d 65 73 20 58 5d 20 7b 20 73 65 74 20 64 61 ames X] { set da
1480: 74 61 28 24 58 28 70 61 72 65 6e 74 69 64 29 2c ta($X(parentid),
1490: 24 6b 29 20 5b 73 65 74 20 58 28 24 6b 29 5d 20 $k) [set X($k)]
14a0: 7d 0a 20 20 7d 0a 0a 20 20 73 65 74 20 69 31 20 }. }.. set i1
14b0: 5b 65 78 70 72 20 7b 24 69 53 74 61 72 74 2b 31 [expr {$iStart+1
14c0: 7d 5d 0a 20 20 73 65 74 20 69 32 20 5b 65 78 70 }]. set i2 [exp
14d0: 72 20 7b 28 24 6e 52 65 73 20 3c 20 24 69 53 74 r {($nRes < $iSt
14e0: 61 72 74 2b 31 30 29 20 3f 20 24 6e 52 65 73 20 art+10) ? $nRes
14f0: 3a 20 24 69 53 74 61 72 74 2b 31 30 7d 5d 0a 20 : $iStart+10}].
1500: 20 77 61 70 70 2d 74 72 69 6d 20 7b 0a 20 20 20 wapp-trim {.
1510: 20 3c 74 61 62 6c 65 20 62 6f 72 64 65 72 3d 30 <table border=0
1520: 3e 0a 20 20 20 20 3c 70 3e 53 65 61 72 63 68 20 >. <p>Search
1530: 72 65 73 75 6c 74 73 20 25 68 74 6d 6c 28 24 69 results %html($i
1540: 31 29 2e 2e 25 68 74 6d 6c 28 24 69 32 29 20 6f 1)..%html($i2) o
1550: 66 20 25 68 74 6d 6c 28 24 6e 52 65 73 29 20 66 f %html($nRes) f
1560: 6f 72 3a 20 3c 62 3e 25 68 74 6d 6c 28 24 71 29 or: <b>%html($q)
1570: 3c 2f 62 3e 0a 20 20 7d 0a 0a 20 20 66 6f 72 65 </b>. }.. fore
1580: 61 63 68 20 72 6f 77 69 64 20 24 6c 52 65 73 20 ach rowid $lRes
1590: 7b 0a 0a 20 20 20 20 66 6f 72 65 61 63 68 20 61 {.. foreach a
15a0: 20 7b 70 61 72 65 6e 74 69 64 20 73 5f 61 70 69 {parentid s_api
15b0: 73 20 73 5f 74 69 74 6c 65 31 20 73 5f 63 6f 6e s s_title1 s_con
15c0: 74 65 6e 74 20 75 72 6c 20 72 61 6e 6b 7d 20 7b tent url rank} {
15d0: 0a 20 20 20 20 20 20 73 65 74 20 24 61 20 24 64 . set $a $d
15e0: 61 74 61 28 24 72 6f 77 69 64 2c 24 61 29 0a 20 ata($rowid,$a).
15f0: 20 20 20 7d 0a 0a 20 20 20 20 69 66 20 7b 5b 69 }.. if {[i
1600: 6e 66 6f 20 65 78 69 73 74 73 20 73 75 62 73 65 nfo exists subse
1610: 63 74 69 6f 6e 73 28 24 70 61 72 65 6e 74 69 64 ctions($parentid
1620: 29 5d 7d 20 7b 0a 20 20 20 20 20 20 73 65 74 20 )]} {. set
1630: 63 68 69 6c 64 69 64 20 5b 6c 69 6e 64 65 78 20 childid [lindex
1640: 24 73 75 62 73 65 63 74 69 6f 6e 73 28 24 70 61 $subsections($pa
1650: 72 65 6e 74 69 64 29 20 30 5d 0a 20 20 20 20 20 rentid) 0].
1660: 20 73 65 74 20 6c 69 6e 6b 20 24 64 61 74 61 28 set link $data(
1670: 24 63 68 69 6c 64 69 64 2c 75 72 6c 29 0a 20 20 $childid,url).
1680: 20 20 20 20 73 65 74 20 68 64 72 20 24 64 61 74 set hdr $dat
1690: 61 28 24 63 68 69 6c 64 69 64 2c 73 5f 74 69 74 a($childid,s_tit
16a0: 6c 65 32 29 0a 0a 20 20 20 20 20 20 69 66 20 7b le2).. if {
16b0: 24 68 64 72 3d 3d 22 22 7d 20 7b 0a 20 20 20 20 $hdr==""} {.
16c0: 20 20 20 20 73 65 74 20 73 5f 63 6f 6e 74 65 6e set s_conten
16d0: 74 20 22 22 0a 20 20 20 20 20 20 7d 20 65 6c 73 t "". } els
16e0: 65 20 7b 0a 20 20 20 20 20 20 20 20 73 65 74 20 e {. set
16f0: 73 5f 63 6f 6e 74 65 6e 74 20 5b 73 75 62 73 74 s_content [subst
1700: 20 7b 0a 20 20 20 20 20 20 20 20 20 20 3c 62 3e {. <b>
1710: 3c 61 20 73 74 79 6c 65 3d 63 6f 6c 6f 72 3a 23 <a style=color:#
1720: 30 34 34 61 36 34 20 68 72 65 66 3d 24 6c 69 6e 044a64 href=$lin
1730: 6b 3e 24 68 64 72 3c 2f 61 3e 3c 2f 62 3e 0a 20 k>$hdr</a></b>.
1740: 20 20 20 20 20 20 20 7d 5d 0a 20 20 20 20 20 20 }].
1750: 7d 0a 0a 20 20 20 20 20 20 61 70 70 65 6e 64 20 }.. append
1760: 73 5f 63 6f 6e 74 65 6e 74 20 22 20 24 64 61 74 s_content " $dat
1770: 61 28 24 63 68 69 6c 64 69 64 2c 73 5f 63 6f 6e a($childid,s_con
1780: 74 65 6e 74 29 22 0a 20 20 20 20 7d 0a 0a 20 20 tent)". }..
1790: 20 20 77 61 70 70 2d 74 72 69 6d 20 7b 3c 74 72 wapp-trim {<tr
17a0: 3e 0a 20 20 20 20 20 20 3c 74 64 20 76 61 6c 69 >. <td vali
17b0: 67 6e 3d 74 6f 70 20 73 74 79 6c 65 3d 22 6c 69 gn=top style="li
17c0: 6e 65 2d 68 65 69 67 68 74 3a 31 35 30 25 22 3e ne-height:150%">
17d0: 0a 20 20 20 20 20 20 20 20 3c 64 69 76 20 73 74 . <div st
17e0: 79 6c 65 3d 22 77 68 69 74 65 2d 73 70 61 63 65 yle="white-space
17f0: 3a 77 72 61 70 3b 66 6f 6e 74 2d 73 69 7a 65 3a :wrap;font-size:
1800: 6c 61 72 67 65 72 22 20 63 6c 61 73 73 3d 6e 6f larger" class=no
1810: 75 6e 64 65 72 6c 69 6e 65 3e 0a 20 20 20 20 20 underline>.
1820: 20 20 20 20 20 3c 61 20 68 72 65 66 3d 22 25 75 <a href="%u
1830: 72 6c 28 24 75 72 6c 29 22 3e 25 75 6e 73 61 66 rl($url)">%unsaf
1840: 65 28 24 73 5f 74 69 74 6c 65 31 29 3c 2f 61 3e e($s_title1)</a>
1850: 20 0a 20 20 20 20 20 20 20 20 20 20 3c 64 69 76 . <div
1860: 20 73 74 79 6c 65 3d 22 66 6c 6f 61 74 3a 72 69 style="float:ri
1870: 67 68 74 3b 66 6f 6e 74 2d 73 69 7a 65 3a 73 6d ght;font-size:sm
1880: 61 6c 6c 65 72 3b 63 6f 6c 6f 72 3a 23 42 42 42 aller;color:#BBB
1890: 22 3e 28 25 75 72 6c 28 24 75 72 6c 29 29 3c 2f ">(%url($url))</
18a0: 64 69 76 3e 0a 20 20 20 20 20 20 20 20 3c 2f 64 div>. </d
18b0: 69 76 3e 0a 20 20 20 20 20 20 20 20 20 20 3c 64 iv>. <d
18c0: 69 76 20 73 74 79 6c 65 3d 22 6d 61 72 67 69 6e iv style="margin
18d0: 2d 6c 65 66 74 3a 20 31 30 65 78 3b 20 66 6f 6e -left: 10ex; fon
18e0: 74 3a 6c 61 72 67 65 72 20 6d 6f 6e 6f 73 70 61 t:larger monospa
18f0: 63 65 22 3e 25 75 6e 73 61 66 65 28 24 73 5f 61 ce">%unsafe($s_a
1900: 70 69 73 29 3c 2f 64 69 76 3e 0a 20 20 20 20 20 pis)</div>.
1910: 20 20 20 3c 64 69 76 20 73 74 79 6c 65 3d 22 6d <div style="m
1920: 61 72 67 69 6e 2d 6c 65 66 74 3a 20 34 65 78 3b argin-left: 4ex;
1930: 20 6d 61 72 67 69 6e 2d 62 6f 74 74 6f 6d 3a 31 margin-bottom:1
1940: 2e 35 65 6d 22 3e 0a 20 20 20 20 20 20 20 20 20 .5em">.
1950: 20 20 25 75 6e 73 61 66 65 28 24 73 5f 63 6f 6e %unsafe($s_con
1960: 74 65 6e 74 29 0a 20 20 20 20 20 20 20 20 3c 2f tent). </
1970: 64 69 76 3e 0a 20 20 20 20 20 20 3c 2f 74 64 3e div>. </td>
1980: 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 77 61 70 . }. }. wap
1990: 70 2d 73 75 62 73 74 20 7b 3c 2f 74 61 62 6c 65 p-subst {</table
19a0: 3e 5c 6e 7d 0a 0a 0a 20 20 23 20 49 66 20 74 68 >\n}... # If th
19b0: 65 20 71 75 65 72 79 20 72 65 74 75 72 6e 65 64 e query returned
19c0: 20 6d 6f 72 65 20 74 68 61 6e 20 31 30 20 72 65 more than 10 re
19d0: 73 75 6c 74 73 2c 20 61 64 64 20 75 70 20 74 6f sults, add up to
19e0: 20 31 30 20 6c 69 6e 6b 73 20 74 6f 20 0a 20 20 10 links to .
19f0: 23 20 65 61 63 68 20 73 65 74 20 6f 66 20 31 30 # each set of 10
1a00: 20 72 65 73 75 6c 74 73 20 28 66 69 72 73 74 20 results (first
1a10: 6c 69 6e 6b 20 74 6f 20 72 65 73 75 6c 74 73 20 link to results
1a20: 31 2d 31 30 2c 20 73 65 63 6f 6e 64 20 74 6f 20 1-10, second to
1a30: 31 31 2d 32 30 2c 20 0a 20 20 23 20 74 68 69 72 11-20, . # thir
1a40: 64 20 74 6f 20 32 31 2d 33 30 2c 20 61 73 20 72 d to 21-30, as r
1a50: 65 71 75 69 72 65 64 29 2e 0a 20 20 23 0a 20 20 equired).. #.
1a60: 69 66 20 7b 24 6e 52 65 73 3e 31 30 7d 20 7b 0a if {$nRes>10} {.
1a70: 20 20 20 20 73 65 74 20 73 28 30 29 20 7b 62 6f set s(0) {bo
1a80: 72 64 65 72 3a 73 6f 6c 69 64 20 23 30 34 34 61 rder:solid #044a
1a90: 36 34 20 31 70 78 3b 70 61 64 64 69 6e 67 3a 31 64 1px;padding:1
1aa0: 65 78 3b 6d 61 72 67 69 6e 3a 31 65 78 3b 6c 69 ex;margin:1ex;li
1ab0: 6e 65 2d 68 65 69 67 68 74 3a 33 30 30 25 3b 7d ne-height:300%;}
1ac0: 0a 20 20 20 20 73 65 74 20 73 28 31 29 20 22 24 . set s(1) "$
1ad0: 73 28 30 29 3b 62 61 63 6b 67 72 6f 75 6e 64 3a s(0);background:
1ae0: 23 30 34 34 61 36 34 3b 63 6f 6c 6f 72 3a 77 68 #044a64;color:wh
1af0: 69 74 65 22 0a 20 20 20 20 77 61 70 70 2d 73 75 ite". wapp-su
1b00: 62 73 74 20 7b 3c 63 65 6e 74 65 72 3e 3c 70 3e bst {<center><p>
1b10: 5c 6e 7d 0a 20 20 20 20 66 6f 72 20 7b 73 65 74 \n}. for {set
1b20: 20 69 20 30 7d 20 7b 24 69 20 3c 20 31 30 20 26 i 0} {$i < 10 &
1b30: 26 20 28 24 69 2a 31 30 29 3c 24 6e 52 65 73 7d & ($i*10)<$nRes}
1b40: 20 7b 69 6e 63 72 20 69 7d 20 7b 0a 20 20 20 20 {incr i} {.
1b50: 20 20 73 65 74 20 73 74 79 6c 65 20 24 73 28 5b set style $s([
1b60: 65 78 70 72 20 7b 28 24 69 53 74 61 72 74 2f 31 expr {($iStart/1
1b70: 30 29 3d 3d 24 69 7d 5d 29 0a 20 20 20 20 20 20 0)==$i}]).
1b80: 77 61 70 70 2d 74 72 69 6d 20 7b 0a 20 20 20 20 wapp-trim {.
1b90: 20 20 20 20 3c 61 20 73 74 79 6c 65 3d 22 25 68 <a style="%h
1ba0: 74 6d 6c 28 24 73 74 79 6c 65 29 22 0a 20 20 20 tml($style)".
1bb0: 20 20 20 20 20 20 20 20 68 72 65 66 3d 22 73 65 href="se
1bc0: 61 72 63 68 3f 71 3d 25 71 70 28 24 71 29 26 69 arch?q=%qp($q)&i
1bd0: 3d 25 71 70 28 24 69 29 22 3e 25 68 74 6d 6c 28 =%qp($i)">%html(
1be0: 5b 65 78 70 72 20 24 69 2b 31 5d 29 3c 2f 61 3e [expr $i+1])</a>
1bf0: 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 . }. }.
1c00: 20 20 20 77 61 70 70 2d 73 75 62 73 74 20 7b 3c wapp-subst {<
1c10: 2f 63 65 6e 74 65 72 3e 5c 6e 7d 0a 20 20 7d 0a /center>\n}. }.
1c20: 7d 0a 0a 23 20 54 68 69 73 20 69 73 20 74 68 65 }..# This is the
1c30: 20 6d 61 69 6e 20 65 6e 74 72 79 20 70 6f 69 6e main entry poin
1c40: 74 20 69 6e 74 6f 20 74 68 65 20 73 65 61 72 63 t into the searc
1c50: 68 20 72 65 73 75 6c 74 20 70 61 67 65 20 67 65 h result page ge
1c60: 6e 65 72 61 74 6f 72 0a 23 0a 70 72 6f 63 20 77 nerator.#.proc w
1c70: 61 70 70 2d 64 65 66 61 75 6c 74 20 7b 7d 20 7b app-default {} {
1c80: 0a 20 20 77 61 70 70 2d 63 6f 6e 74 65 6e 74 2d . wapp-content-
1c90: 73 65 63 75 72 69 74 79 2d 70 6f 6c 69 63 79 20 security-policy
1ca0: 7b 64 65 66 61 75 6c 74 2d 73 72 63 20 27 73 65 {default-src 'se
1cb0: 6c 66 27 20 27 75 6e 73 61 66 65 2d 69 6e 6c 69 lf' 'unsafe-inli
1cc0: 6e 65 27 7d 0a 20 20 77 61 70 70 2d 61 6c 6c 6f ne'}. wapp-allo
1cd0: 77 2d 78 6f 72 69 67 69 6e 2d 70 61 72 61 6d 73 w-xorigin-params
1ce0: 0a 20 20 69 66 20 7b 5b 77 61 70 70 2d 70 61 72 . if {[wapp-par
1cf0: 61 6d 2d 65 78 69 73 74 73 20 65 6e 76 5d 7d 20 am-exists env]}
1d00: 7b 0a 20 20 20 20 73 65 61 72 63 68 5f 68 65 61 {. search_hea
1d10: 64 65 72 0a 20 20 20 20 77 61 70 70 2d 74 72 69 der. wapp-tri
1d20: 6d 20 7b 0a 20 20 20 20 20 20 3c 68 31 3e 45 6e m {. <h1>En
1d30: 76 69 72 6f 6e 6d 65 6e 74 20 44 75 6d 70 20 46 vironment Dump F
1d40: 6f 72 20 44 65 62 75 67 67 69 6e 67 3c 2f 68 31 or Debugging</h1
1d50: 3e 0a 20 20 20 20 20 20 3c 70 72 65 3e 25 68 74 >. <pre>%ht
1d60: 6d 6c 28 5b 77 61 70 70 2d 64 65 62 75 67 2d 65 ml([wapp-debug-e
1d70: 6e 76 5d 29 3c 2f 70 72 65 3e 0a 20 20 20 20 7d nv])</pre>. }
1d80: 0a 20 20 20 20 72 65 74 75 72 6e 0a 20 20 7d 0a . return. }.
1d90: 0a 20 20 23 20 57 68 65 6e 20 72 75 6e 6e 69 6e . # When runnin
1da0: 67 20 75 73 69 6e 67 20 74 68 65 20 62 75 69 6c g using the buil
1db0: 74 2d 69 6e 20 77 65 62 73 65 72 76 65 72 20 69 t-in webserver i
1dc0: 6e 20 57 61 70 70 20 28 69 6e 20 6f 74 68 65 72 n Wapp (in other
1dd0: 20 77 6f 72 64 73 2c 0a 20 20 23 20 77 68 65 6e words,. # when
1de0: 20 6e 6f 74 20 72 75 6e 6e 69 6e 67 20 61 73 20 not running as
1df0: 43 47 49 29 20 61 6e 79 20 66 69 6c 65 6e 61 6d CGI) any filenam
1e00: 65 20 74 68 61 74 20 63 6f 6e 74 61 69 6e 73 20 e that contains
1e10: 61 20 22 2e 22 20 6c 6f 61 64 73 0a 20 20 23 20 a "." loads. #
1e20: 64 69 72 65 63 74 6c 79 20 66 72 6f 6d 20 74 68 directly from th
1e30: 65 20 66 69 6c 65 73 79 73 74 65 6d 2e 0a 20 20 e filesystem..
1e40: 69 66 20 7b 5b 77 61 70 70 2d 70 61 72 61 6d 20 if {[wapp-param
1e50: 57 41 50 50 5f 4d 4f 44 45 5d 21 3d 22 63 67 69 WAPP_MODE]!="cgi
1e60: 22 0a 20 20 20 26 26 20 5b 73 74 72 69 6e 67 20 ". && [string
1e70: 6d 61 74 63 68 20 2a 2e 2a 20 5b 77 61 70 70 2d match *.* [wapp-
1e80: 70 61 72 61 6d 20 50 41 54 48 5f 49 4e 46 4f 5d param PATH_INFO]
1e90: 5d 0a 20 20 7d 20 7b 0a 20 20 20 20 73 65 74 20 ]. } {. set
1ea0: 61 6c 74 66 69 6c 65 20 5b 66 69 6c 65 20 64 69 altfile [file di
1eb0: 72 20 5b 77 61 70 70 2d 70 61 72 61 6d 20 53 43 r [wapp-param SC
1ec0: 52 49 50 54 5f 46 49 4c 45 4e 41 4d 45 5d 5d 5b RIPT_FILENAME]][
1ed0: 77 61 70 70 2d 70 61 72 61 6d 20 50 41 54 48 5f wapp-param PATH_
1ee0: 49 4e 46 4f 5d 0a 20 20 20 20 73 65 74 20 66 64 INFO]. set fd
1ef0: 20 5b 6f 70 65 6e 20 24 61 6c 74 66 69 6c 65 20 [open $altfile
1f00: 72 62 5d 0a 20 20 20 20 66 63 6f 6e 66 69 67 75 rb]. fconfigu
1f10: 72 65 20 24 66 64 20 2d 74 72 61 6e 73 6c 61 74 re $fd -translat
1f20: 69 6f 6e 20 62 69 6e 61 72 79 0a 20 20 20 20 77 ion binary. w
1f30: 61 70 70 2d 75 6e 73 61 66 65 20 5b 72 65 61 64 app-unsafe [read
1f40: 20 24 66 64 5d 0a 20 20 20 20 63 6c 6f 73 65 20 $fd]. close
1f50: 24 66 64 0a 20 20 20 20 73 77 69 74 63 68 20 2d $fd. switch -
1f60: 67 6c 6f 62 20 2d 2d 20 24 61 6c 74 66 69 6c 65 glob -- $altfile
1f70: 20 7b 0a 20 20 20 20 20 20 2a 2e 68 74 6d 6c 20 {. *.html
1f80: 7b 0a 20 20 20 20 20 20 20 20 77 61 70 70 2d 6d {. wapp-m
1f90: 69 6d 65 74 79 70 65 20 74 65 78 74 2f 68 74 6d imetype text/htm
1fa0: 6c 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 l. }.
1fb0: 2a 2e 63 73 73 20 7b 0a 20 20 20 20 20 20 20 20 *.css {.
1fc0: 77 61 70 70 2d 6d 69 6d 65 74 79 70 65 20 74 65 wapp-mimetype te
1fd0: 78 74 2f 63 73 73 0a 20 20 20 20 20 20 7d 0a 20 xt/css. }.
1fe0: 20 20 20 20 20 2a 2e 67 69 66 20 7b 0a 20 20 20 *.gif {.
1ff0: 20 20 20 20 20 77 61 70 70 2d 6d 69 6d 65 74 79 wapp-mimety
2000: 70 65 20 69 6d 61 67 65 2f 67 69 66 0a 20 20 20 pe image/gif.
2010: 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20 20 72 }. }. r
2020: 65 74 75 72 6e 0a 20 20 7d 0a 0a 20 20 73 65 61 eturn. }.. sea
2030: 72 63 68 5f 68 65 61 64 65 72 0a 20 20 73 71 6c rch_header. sql
2040: 69 74 65 33 20 64 62 20 5b 66 69 6c 65 20 64 69 ite3 db [file di
2050: 72 20 5b 77 61 70 70 2d 70 61 72 61 6d 20 53 43 r [wapp-param SC
2060: 52 49 50 54 5f 46 49 4c 45 4e 41 4d 45 5d 5d 2f RIPT_FILENAME]]/
2070: 73 65 61 72 63 68 2e 64 2f 73 65 61 72 63 68 2e search.d/search.
2080: 64 62 0a 20 20 73 65 74 20 73 65 61 72 63 68 54 db. set searchT
2090: 79 70 65 20 5b 77 61 70 70 2d 70 61 72 61 6d 20 ype [wapp-param
20a0: 73 20 64 5d 0a 20 20 69 66 20 7b 24 73 65 61 72 s d]. if {$sear
20b0: 63 68 54 79 70 65 3d 3d 22 63 22 7d 20 7b 0a 20 chType=="c"} {.
20c0: 20 20 20 73 65 74 20 63 6d 64 20 73 65 61 72 63 set cmd searc
20d0: 68 63 68 61 6e 67 65 73 0a 20 20 7d 20 65 6c 73 hchanges. } els
20e0: 65 20 7b 0a 20 20 20 20 73 65 74 20 63 6d 64 20 e {. set cmd
20f0: 73 65 61 72 63 68 72 65 73 75 6c 74 73 0a 20 20 searchresults.
2100: 7d 0a 20 20 64 62 20 74 72 61 6e 73 61 63 74 69 }. db transacti
2110: 6f 6e 20 7b 0a 20 20 20 20 73 65 74 20 74 20 5b on {. set t [
2120: 74 74 69 6d 65 20 7b 24 63 6d 64 7d 5d 0a 20 20 ttime {$cmd}].
2130: 7d 0a 20 20 77 61 70 70 2d 74 72 69 6d 20 7b 0a }. wapp-trim {.
2140: 20 20 20 20 3c 63 65 6e 74 65 72 3e 0a 20 20 20 <center>.
2150: 20 3c 70 3e 50 61 67 65 20 67 65 6e 65 72 61 74 <p>Page generat
2160: 65 64 20 62 79 20 3c 61 20 68 72 65 66 3d 27 66 ed by <a href='f
2170: 74 73 35 2e 68 74 6d 6c 27 3e 46 54 53 35 3c 2f ts5.html'>FTS5</
2180: 61 3e 20 69 6e 20 61 62 6f 75 74 20 25 68 74 6d a> in about %htm
2190: 6c 28 24 74 29 2e 0a 20 20 20 20 3c 2f 63 65 6e l($t).. </cen
21a0: 74 65 72 3e 0a 20 20 20 20 3c 73 63 72 69 70 74 ter>. <script
21b0: 3e 0a 20 20 20 20 20 20 77 69 6e 64 6f 77 2e 61 >. window.a
21c0: 64 64 45 76 65 6e 74 4c 69 73 74 65 6e 65 72 28 ddEventListener(
21d0: 27 6c 6f 61 64 27 2c 20 66 75 6e 63 74 69 6f 6e 'load', function
21e0: 28 29 20 7b 0a 20 20 20 20 20 20 20 20 76 61 72 () {. var
21f0: 20 77 20 3d 20 64 6f 63 75 6d 65 6e 74 2e 67 65 w = document.ge
2200: 74 45 6c 65 6d 65 6e 74 42 79 49 64 28 22 73 65 tElementById("se
2210: 61 72 63 68 6d 65 6e 75 22 29 3b 0a 20 20 20 20 archmenu");.
2220: 20 20 20 20 77 2e 73 74 79 6c 65 2e 64 69 73 70 w.style.disp
2230: 6c 61 79 20 3d 20 22 62 6c 6f 63 6b 22 3b 0a 20 lay = "block";.
2240: 20 20 20 20 20 20 20 77 20 3d 20 64 6f 63 75 6d w = docum
2250: 65 6e 74 2e 67 65 74 45 6c 65 6d 65 6e 74 42 79 ent.getElementBy
2260: 49 64 28 22 73 65 61 72 63 68 74 79 70 65 22 29 Id("searchtype")
2270: 3b 0a 20 20 20 20 20 20 20 20 77 2e 76 61 6c 75 ;. w.valu
2280: 65 20 3d 20 22 25 73 74 72 69 6e 67 28 24 73 65 e = "%string($se
2290: 61 72 63 68 54 79 70 65 29 22 0a 20 20 20 20 20 archType)".
22a0: 20 20 20 73 65 74 54 69 6d 65 6f 75 74 28 66 75 setTimeout(fu
22b0: 6e 63 74 69 6f 6e 28 29 7b 0a 20 20 20 20 20 20 nction(){.
22c0: 20 20 20 20 76 61 72 20 73 20 3d 20 64 6f 63 75 var s = docu
22d0: 6d 65 6e 74 2e 67 65 74 45 6c 65 6d 65 6e 74 42 ment.getElementB
22e0: 79 49 64 28 22 73 65 61 72 63 68 62 6f 78 22 29 yId("searchbox")
22f0: 3b 0a 20 20 20 20 20 20 20 20 20 20 73 2e 76 61 ;. s.va
2300: 6c 75 65 20 3d 20 22 25 73 74 72 69 6e 67 28 5b lue = "%string([
2310: 77 61 70 70 2d 70 61 72 61 6d 20 71 5d 29 22 0a wapp-param q])".
2320: 20 20 20 20 20 20 20 20 20 20 73 2e 66 6f 63 75 s.focu
2330: 73 28 29 3b 0a 20 20 20 20 20 20 20 20 20 20 73 s();. s
2340: 2e 73 65 6c 65 63 74 28 29 3b 0a 20 20 20 20 20 .select();.
2350: 20 20 20 7d 2c 20 33 30 29 3b 0a 20 20 20 20 20 }, 30);.
2360: 20 7d 29 3b 0a 20 20 20 20 3c 2f 73 63 72 69 70 });. </scrip
2370: 74 3e 0a 20 20 7d 0a 7d 0a 77 61 70 70 2d 73 74 t>. }.}.wapp-st
2380: 61 72 74 20 24 61 72 67 76 0a art $argv.