/[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.9 by fireegl, Fri Nov 14 15:58:48 2003 UTC revision 1.10 by fireegl, Fri Nov 21 01:37:27 2003 UTC
# Line 323  proc ::tcldrop::server::Queue {{queue {9 Line 323  proc ::tcldrop::server::Queue {{queue {9
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    
# Line 342  proc ::tcldrop::server::putnow {text} { Line 342  proc ::tcldrop::server::putnow {text} {
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  }  }
# Line 360  proc ::tcldrop::server::putquick {text { Line 366  proc ::tcldrop::server::putquick {text {
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}}} {

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

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