323 |
} elseif {$queue == 0} { |
} elseif {$queue == 0} { |
324 |
# What?! We didn't wait long enough!? How is that possible! =P |
# What?! We didn't wait long enough!? How is that possible! =P |
325 |
# Anyways, let's wait out the rest of the time, plus a little bit more and try again.. |
# Anyways, let's wait out the rest of the time, plus a little bit more and try again.. |
326 |
after [expr $SentData(penalty) - $waited + 99] [list ::tcldrop::server::Queue 0] |
after [expr {$SentData(penalty) - $waited + 99}] [list ::tcldrop::server::Queue 0] |
327 |
} |
} |
328 |
} |
} |
329 |
|
|
342 |
# $queue must be mode, serv, help, or a integer from 1-99. |
# $queue must be mode, serv, help, or a integer from 1-99. |
343 |
# $option can be -normal or -next (Like in Eggdrop). |
# $option can be -normal or -next (Like in Eggdrop). |
344 |
proc ::tcldrop::server::putqueue {queue text {option {-normal}}} { |
proc ::tcldrop::server::putqueue {queue text {option {-normal}}} { |
345 |
|
variable QueueAliases |
346 |
if {[info exists QueueAliases($queue)]} { |
if {[info exists QueueAliases($queue)]} { |
347 |
set queue $QueueAliases($queue) |
set priority $QueueAliases($queue) |
348 |
} |
} |
349 |
|
variable Queue |
350 |
# Unlike Eggdrop, we deal with people sending multiple lines at once.. |
# Unlike Eggdrop, we deal with people sending multiple lines at once.. |
351 |
foreach line [split $text \n] { |
foreach line [split $text \n] { |
352 |
if {$line != {}} { |
if {$line != {}} { |
353 |
putloglev v * "\[!$queue\] $line" |
if {[info exists "::double-$queue"] && ![set "::double-$queue"] && [lsearch -exact $Queue($priority) $line] != -1} { |
354 |
Queue $queue $line $option |
putloglev d * "msg already queued. skipping: $line" |
355 |
|
} else { |
356 |
|
putloglev v * "\[!$queue\] $line" |
357 |
|
Queue $priority $line $option |
358 |
|
} |
359 |
} |
} |
360 |
} |
} |
361 |
} |
} |
366 |
} |
} |
367 |
|
|
368 |
proc ::tcldrop::server::putserv {text {option {-normal}}} { |
proc ::tcldrop::server::putserv {text {option {-normal}}} { |
369 |
putqueue serv $text $option |
putqueue server $text $option |
370 |
} |
} |
371 |
|
|
372 |
proc ::tcldrop::server::puthelp {text {option {-normal}}} { |
proc ::tcldrop::server::puthelp {text {option {-normal}}} { |