/[tcldrop]/tcldrop/modules/server/server.tcl
ViewVC logotype

Diff of /tcldrop/modules/server/server.tcl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.16 by fireegl, Tue Dec 2 09:01:46 2003 UTC revision 1.17 by fireegl, Wed Dec 3 04:08:36 2003 UTC
# Line 58  namespace eval ::tcldrop::server { Line 58  namespace eval ::tcldrop::server {
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    
# Line 342  proc ::tcldrop::server::putnow {text} { Line 343  proc ::tcldrop::server::putnow {text} {
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          }          }

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26