Check-in [39ee1aca6e]
Not logged in

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: 39ee1aca6e6a5d113bfcee88bd92ae14e7d58791
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
    }