Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | In fossil-stress.tcl, retry connection failures after a 1-second delay. |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA3-256: |
7ce35a048d450a78f41130f8348a7ed8 |
User & Date: | drh 2017-12-28 16:04:19.547 |
Context
2017-12-28
| ||
17:16 | In the Win32 server code, prevent fclose() from being called on an already closed FILE. ... (check-in: 8d60cd57 user: mistachkin tags: trunk) | |
16:04 | In fossil-stress.tcl, retry connection failures after a 1-second delay. ... (check-in: 7ce35a04 user: drh tags: trunk) | |
15:49 | Add the "--threads N" option to the fossil-stress.tcl script. Default value is 10. ... (check-in: 08f5fb62 user: drh tags: trunk) | |
Changes
Changes to tools/fossil-stress.tcl.
︙ | ︙ | |||
31 32 33 34 35 36 37 | } set useragent {Mozilla/5.0 (X11; Linux x86_64; rv:57.0) Gecko/20100101 Firefox/57.0} set path [string trimright $path /] set port [string trimleft $port :] if {$port==""} {set port 80} proc send_one_request {tid domain port path} { | > | | | | | | | | | | | | | | > > > > | 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 | } set useragent {Mozilla/5.0 (X11; Linux x86_64; rv:57.0) Gecko/20100101 Firefox/57.0} set path [string trimright $path /] set port [string trimleft $port :] if {$port==""} {set port 80} proc send_one_request {tid domain port path} { while {[catch { set x [socket $domain $port] fconfigure $x -translation binary puts $x "GET $path HTTP/1.0\r" if {$port==80} { puts $x "Host: $domain\r" } else { puts $x "Host: $domain:$port\r" } puts $x "User-Agent: $::useragent\r" puts $x "Accept: text/html,q=0.9,*/*;q=0.8\r" puts $x "Accept-Language: en-US,en;q=0.5\r" puts $x "Connection: close\r" puts $x "\r" flush $x } msg]} { puts "ERROR: $msg" after 1000 } global cnt set cnt($x) 0 fconfigure $x -blocking 0 fileevent $x readable [list get_reply $tid $path $x] } proc get_reply {tid info x} { |
︙ | ︙ |