Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | use curl option -sslverifypeer 0 in TSB's Northwind example |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
39ee1aca6e6a5d113bfcee88bd92ae14 |
| User & Date: | chw 2019-07-07 04:51:11 |
Context
|
2019-07-07
| ||
| 05:18 | improve fix from [d74c9c42c0] check-in: ab2836e6c1 user: chw tags: trunk | |
| 04:51 | use curl option -sslverifypeer 0 in TSB's Northwind example check-in: 39ee1aca6e user: chw tags: trunk | |
| 04:42 | option to specify angle in degrees from ticket [36481a3e08] check-in: 09d123a672 user: chw tags: trunk | |
Changes
Changes to undroid/tsb/examples/northwind.tsb.
1 2 3 4 5 6 7 8 9 10 11 12 |
1 {h2 "Northwind Sample With SQLite3"} 2 {#HTML
<p>Some helper code to fetch data from an URL ...</p>} 3 {if {![catch {package require TclCurl}]} {
proc fetch_url {url} {
set handle [curl::init]
$handle configure -url $url -bodyvar result
catch {$handle perform} code
if {$code != 0} {
return -code error [curl::easystrerror $code]
}
$handle cleanup
return $result
}
|
| |
1 2 3 4 5 6 7 8 9 10 11 12 |
1 {h2 "Northwind Sample With SQLite3"} 2 {#HTML
<p>Some helper code to fetch data from an URL ...</p>} 3 {if {![catch {package require TclCurl}]} {
proc fetch_url {url} {
set handle [curl::init]
$handle configure -url $url -bodyvar result -sslverifypeer 0
catch {$handle perform} code
if {$code != 0} {
return -code error [curl::easystrerror $code]
}
$handle cleanup
return $result
}
|