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

Diff of /tcldrop/modules/irc/irc.tcl

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

revision 1.32 by fireegl, Mon Dec 1 06:49:31 2003 UTC revision 1.33 by fireegl, Mon Dec 1 21:19:54 2003 UTC
# Line 123  namespace eval ::tcldrop::irc { Line 123  namespace eval ::tcldrop::irc {
123  # irc.inter.net.il: 353 FireEgl @ #pgpnet @Jax @Parker @Delta` @Dispatch @Lilo @Whore @DJ @Harley @Robin @Skyway @Slut` @Batman FireEgl @pgpbot @Deryl @ardya @pgpkeys  # irc.inter.net.il: 353 FireEgl @ #pgpnet @Jax @Parker @Delta` @Dispatch @Lilo @Whore @DJ @Harley @Robin @Skyway @Slut` @Batman FireEgl @pgpbot @Deryl @ardya @pgpkeys
124  # irc.inter.net.il: 329 FireEgl #pgpnet 1064713818  # irc.inter.net.il: 329 FireEgl #pgpnet 1064713818
125  # irc.inter.net.il: 401 FireEgl Deryl_ No such nick/channel  # irc.inter.net.il: 401 FireEgl Deryl_ No such nick/channel
126    # irc.choopa.net: 402 FireEgl papillon No such server
127    
128  proc ::tcldrop::irc::resetchan {channel} {  proc ::tcldrop::irc::resetchan {channel} {
129          putquick "MODE $channel +b"          putquick "MODE $channel +b"
# Line 265  proc ::tcldrop::irc::JoinChannels {args} Line 266  proc ::tcldrop::irc::JoinChannels {args}
266                          lappend joinchannels $channel                          lappend joinchannels $channel
267                  } elseif {![botisop $channel]} {                  } elseif {![botisop $channel]} {
268                          callneed $channel op                          callneed $channel op
269                            if {![botishalfop $channel]} {
270                                    # FixMe: This should only ask for halfop's on networks that support halfops.
271                                    callneed $channel halfop
272                                    if {![botisvoice $channel]} {
273                                            callneed $channel voice
274                                    }
275                            }
276                  }                  }
                 # Note/FixMe: This is where support for need-voice and need-halfops would go, if we want that.  
277          }          }
278          if {[info exists joinchannels]} { putserv "JOIN [join $joinchannels ,]" }          if {[info exists joinchannels]} { putserv "JOIN [join $joinchannels ,]" }
279          if {[info exists partchannels]} { puthelp "PART [join $partchannels ,]" }          if {[info exists partchannels]} { puthelp "PART [join $partchannels ,]" }
# Line 731  proc ::tcldrop::irc::NOTICE {from key ar Line 738  proc ::tcldrop::irc::NOTICE {from key ar
738          set handle [finduser $from]          set handle [finduser $from]
739          set dest [lindex $larg 0]          set dest [lindex $larg 0]
740          set text [string range [join [lrange $larg 1 end]] 1 end]          set text [string range [join [lrange $larg 1 end]] 1 end]
741            # FixMe: Support for ctcr binds go here.
742          # Call all the notc binds:          # Call all the notc binds:
743          foreach b [binds notc] {          foreach b [binds notc] {
744                  foreach {type flags mask count proc} $b {}                  foreach {type flags mask count proc} $b {}

Legend:
Removed from v.1.32  
changed lines
  Added in v.1.33

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