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 -onvarcreated
option -onvarupdated option -onvarupdated
option -onvardestroyed option -onvardestroyed
option -timeout 6000 option -timeout 30000
constructor args { constructor args {
set private_key [expr rand()] set private_key [expr rand()]
@ -135,7 +135,7 @@ method {inspect proc} proc {
signal trap SIGALRM [list ::interpx::timeout $self $private_key] signal trap SIGALRM [list ::interpx::timeout $self $private_key]
alarm [expr {[$self cget -timeout] / 1000.0}] 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] set code [catch {$interp eval $script} result]
interp limit $interp time -seconds {} interp limit $interp time -seconds {}
if $timeout { 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 versioned_interpreter] {$versioned_interpreter destroy}
if ![info exists smeggdrop_state_path] {set smeggdrop_state_path state} 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_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} if ![info exists smeggdrop_trigger] {set smeggdrop_trigger tcl}
set versioned_interpreter [versioned_interpreter create %AUTO% \ 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 variable created_at
option -verbose -readonly true -default false 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} option -logcommand -readonly true -default {puts stderr}
constructor {path_to_state args} { constructor {path_to_state args} {