Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Sanitize the search string when doing a search against the changelog. |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA3-256: |
0a969667a740e806f0d3e8ec2181076c |
User & Date: | drh 2019-02-27 13:20:42.381 |
Context
2019-02-27
| ||
13:46 | Updates to the althttpd.md documentation. (check-in: 9ea89e32bf user: drh tags: trunk) | |
13:20 | Sanitize the search string when doing a search against the changelog. (check-in: 0a969667a7 user: drh tags: trunk) | |
13:08 | In althttpd.c, add a newline after error message replies. (check-in: 12f6c3b314 user: drh tags: trunk) | |
Changes
Changes to search/search.tcl.in.
︙ | ︙ | |||
57 58 59 60 61 62 63 64 65 66 67 68 69 70 | #----------------------------------------------------------------------- # Do a search of the change log # proc searchchanges {} { set q [wapp-param q] if {$q==""} {return {}} set open {<span style="background-color:#d9f2e6">} set close {</span>} set query { SELECT url, version, idx, highlight(change, 3, $open, $close) AS text FROM change($q) ORDER BY rowid ASC } wapp-trim { | > > > > > > | 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 | #----------------------------------------------------------------------- # Do a search of the change log # proc searchchanges {} { set q [wapp-param q] if {$q==""} {return {}} if {[regexp -all \x22 $q] % 2} { append q \x22 } set x "" foreach word [split $q " "] { append x " \"[string map [list "\"" "\"\""] $word]\"" } set q [string trim $x] set open {<span style="background-color:#d9f2e6">} set close {</span>} set query { SELECT url, version, idx, highlight(change, 3, $open, $close) AS text FROM change($q) ORDER BY rowid ASC } wapp-trim { |
︙ | ︙ |