Documentation Source Text

Check-in [0a969667a7]
Login

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: 0a969667a740e806f0d3e8ec2181076c7a5e9bd0ef9935a69b4e42d207f1b2bb
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
Unified Diff Ignore Whitespace Patch
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 {
︙︙