58 |
::tcldrop::SetDefault servererror-quit {1} |
::tcldrop::SetDefault servererror-quit {1} |
59 |
::tcldrop::SetDefault botname {} |
::tcldrop::SetDefault botname {} |
60 |
::tcldrop::SetDefault botnick {} |
::tcldrop::SetDefault botnick {} |
61 |
|
::tcldrop::SetDefault max-queue-msg {99} |
62 |
checkmodule conn |
checkmodule conn |
63 |
} |
} |
64 |
|
|
343 |
# $queue must be mode, serv, help, or a integer from 1-99. |
# $queue must be mode, serv, help, or a integer from 1-99. |
344 |
# $option can be -normal or -next (Like in Eggdrop). |
# $option can be -normal or -next (Like in Eggdrop). |
345 |
proc ::tcldrop::server::putqueue {queue text {option {-normal}}} { |
proc ::tcldrop::server::putqueue {queue text {option {-normal}}} { |
346 |
variable QueueAliases |
if {[queuesize] < ${::max-queue-msg}} { |
347 |
if {[info exists QueueAliases($queue)]} { set priority $QueueAliases($queue) } |
variable QueueAliases |
348 |
variable Queue |
if {[info exists QueueAliases($queue)]} { set priority $QueueAliases($queue) } |
349 |
# Unlike Eggdrop, we deal with people sending multiple lines at once.. |
variable Queue |
350 |
foreach line [split $text \n] { |
# Unlike Eggdrop, we deal with people sending multiple lines at once.. |
351 |
if {$line != {}} { |
foreach line [split $text \n] { |
352 |
if {[info exists "::double-$queue"] && ![set "::double-$queue"] && [lsearch -exact $Queue($priority) $line] != -1} { |
if {$line != {}} { |
353 |
putloglev d * "msg already queued. skipping: $line" |
if {[info exists "::double-$queue"] && ![set "::double-$queue"] && [lsearch -exact $Queue($priority) $line] != -1} { |
354 |
} else { |
putloglev d * "msg already queued. skipping: $line" |
355 |
putloglev v * "\[!$queue\] $line" |
} else { |
356 |
Queue $priority $line $option |
putloglev v * "\[!$queue\] $line" |
357 |
|
Queue $priority $line $option |
358 |
|
} |
359 |
} |
} |
360 |
} |
} |
361 |
} |
} |