pi razy drzwi 30 sekund timeout
This commit is contained in:
parent
90996dfcb6
commit
f874b97291
@ -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 {
|
||||||
|
@ -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% \
|
||||||
|
@ -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} {
|
||||||
|
Loading…
x
Reference in New Issue
Block a user