Documentation Source Text

Check-in [ebe9a614eb]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:On the /search.d/admin page, show the Wapp environment if the env=1 query parameter is present.
Timelines: family | ancestors | descendants | both | search-refactor
Files: files | file ages | folders
SHA3-256:ebe9a614ebb00773e5f08d9b81cd9ea535276fc373774c5ec45fcdc9576338c3
User & Date: drh 2018-02-05 00:47:57
Context
2018-02-05
01:15
Update the built-in wapp.tcl to the latest from wapp.tcl.tk. Closed-Leaf check-in: 9c03c81fbb user: drh tags: search-refactor
00:47
On the /search.d/admin page, show the Wapp environment if the env=1 query parameter is present. check-in: ebe9a614eb user: drh tags: search-refactor
2018-02-04
23:30
Add the search.d/admin script. check-in: 685371e833 user: drh tags: search-refactor
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to search/admin.tcl.in.

37
38
39
40
41
42
43








44
45
46
47
48
49
50
    return
  }
  wapp-page-admin
}
proc wapp-page-admin {} {
  wapp-allow-xorigin-params
  wapp-content-security-policy off








  sqlite3 db2 [file dir [wapp-param SCRIPT_FILENAME]]/searchlog.db
  set where ""
  set res ""

  set ipfilter ""
  set ipaddr [wapp-param ip]
  if {$ipaddr!=""} {







>
>
>
>
>
>
>
>







37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
    return
  }
  wapp-page-admin
}
proc wapp-page-admin {} {
  wapp-allow-xorigin-params
  wapp-content-security-policy off
  if {[wapp-param-exists env]} {
    search_header
    wapp-trim {
      <h1>Environment</h1>
      <pre>%html([wapp-debug-env])</pre>
    }
    return
  }
  sqlite3 db2 [file dir [wapp-param SCRIPT_FILENAME]]/searchlog.db
  set where ""
  set res ""

  set ipfilter ""
  set ipaddr [wapp-param ip]
  if {$ipaddr!=""} {