Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Sanitize the search string when doing a search against the changelog. |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: | 0a969667a740e806f0d3e8ec2181076c |
| User & Date: | drh 2019-02-27 13:20:42 |
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 {
|