wrath/shaniqua-core
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

pi razy drzwi 30 sekund timeout

Browse Source
This commit is contained in:
Jon Doe 2020-09-23 20:31:14 +02:00 committed by Maciej Bonin
parent 90996dfcb6
commit f874b97291
3 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/smeggdrop/smeggdrop/interpx.tcl
View File

@ -14,7 +14,7 @@ snit::type interpx {
option -onvarcreated
option -onvarupdated
option -onvardestroyed
option -timeout 6000
option -timeout 30000
constructor args {
set private_key [expr rand()]
@ -135,7 +135,7 @@ method {inspect proc} proc {
signal trap SIGALRM [list ::interpx::timeout $self $private_key]
alarm [expr {[$self cget -timeout] / 1000.0}]
}
interp limit $interp time -seconds [clock add [clock seconds] 5 seconds]
interp limit $interp time -seconds [clock add [clock seconds] 30 seconds]
set code [catch {$interp eval $script} result]
interp limit $interp time -seconds {}
if $timeout {

2
src/smeggdrop/smeggdrop/smeggdrop.tcl
View File

@ -176,7 +176,7 @@ proc pub:tcl:perform {nick mask hand channel line} {
if [info exists versioned_interpreter] {$versioned_interpreter destroy}
if ![info exists smeggdrop_state_path] {set smeggdrop_state_path state}
if ![info exists smeggdrop_max_lines] {set smeggdrop_max_lines 10}
if ![info exists smeggdrop_timeout] {set smeggdrop_timeout 5000}
if ![info exists smeggdrop_timeout] {set smeggdrop_timeout 30000}
if ![info exists smeggdrop_trigger] {set smeggdrop_trigger tcl}
set versioned_interpreter [versioned_interpreter create %AUTO% \

2
src/smeggdrop/smeggdrop/versioned_interpreter.tcl
View File

@ -13,7 +13,7 @@ snit::type versioned_interpreter {
variable created_at
option -verbose -readonly true -default false
option -timeout -readonly true -default 5000
option -timeout -readonly true -default 30000
option -logcommand -readonly true -default {puts stderr}
constructor {path_to_state args} {