Code:

# if you're on a non RFC 1459 compliant network, remove this alias# and replace the calls to it with 'string tolower' or whatever...interp alias {} irc2lower {} string map {A a B b C c D d E e F f G g H h I i J j K k L l M m N n O o P p Q q R r S s T t U u V v W w X x Y y Z z \[ \{ \] \} \\ |}proc userhostGline {nick why} {upvar #0 gline_on_302 reason# store the reason in a global array...set reason([irc2lower $nick]) $why# ...and let the other proc do the restputserv "USERHOST $nick"}bind raw - 302 userhostGline:rawproc userhostGline:raw {server 302 arg} {upvar #0 gline_on_302 reason# trim off the unwanted "prefix" and check if the reply was emptyif {[scan $arg "%*s :%\[^\n\]" arg]} {# support for several hosts in a single replyforeach host [split $arg] {# dig out the nick and @host parts...scan $host {%[^*=]%*[^@]%s} nick hostset nick [irc2lower $nick]# and gline if there's a reason :)if {[info exists reason($nick)]} {putserv "GLINE add *$host 3600s $reason($nick)"unset reason($nick)}}}}

Code:

bind raw - 302 raw:realhostproc raw:realhost { from key text } {upvar #0 g_host g_hostset g_host [lindex [lrange [split $text "@"] 1 end] 0] putlog "$g_host from realhost"}proc user:host {bnick breason} {putserv "userhost $bnick"utimer 2 [list userhost:gline $breason] }proc userhost:gline {breason} { global g_host set g_host $g_host putserv "gline add *@$g_host 3600s $breason"putlog "$g_host $breason from gline"} 

Code:

bind pubm - "* *" badword:pubm:check bind raw - 302  realhost proc badword:pubm:check { nick uhost handle chan arg } {    global BadwordWarn g_message g_host    set input " [bad:filter $arg] "    #Search through the list to see if the badword is present.    if { [file exists badword.txt] } {       set read [open badword.txt r]       while  { ![eof $read] } {          gets $read line          set helpwanted [string range $line 0 [expr [string first # $line]-1]]          set g_message [string range $line [expr [string first # $line]+1] end]          if { [string match -nocase "* $helpwanted *" $input] && $helpwanted != "" } {             if {([info exists BadwordWarn($uhost)] == 1)} {                putserv "userhost $nick" #gline part goes here, need the g_host to do that..       utimer 2 [list dummy]       vwait g_host #and now you got he g_host....                unset BadwordWarn($uhost)             } else {                set BadwordWarn($uhost) 1                timer 60 "unset BadwordWarn($uhost)"                putserv "kill $nick $message"             }          }       }       close $read    } } proc realhost { from key arg } {    upvar #0 g_host g_host    set g_host [lindex [lrange [split $arg "@"] 1 end] 0] } proc dummy {} {   global g_host   set g_host $g_host}

Code:

bind raw - 302 realhostproc realhost { from key text } {putlog "$text"upvar #0 g_host g_hostset g_host [lindex [lrange [split $text "@"] 1 end] 0] putlog "$g_host"}proc get:host { arg } {global g_hostputserv "userhost $arg"putlog "$g_host from get:host proc"return $g_host}