!gline

bind pub | !g pubm:gline
bind pub | !gl pubm:gline
bind pub | !gline pubm:gline

proc pubm:gline {nick host hand chan text} {
  set text [split $text]
  putquick "NOTICE $nick :is $text"
  set whom6 [lindex $text 0]
  set reason6 "Requested"
  if {[llength $text]>1} { set reason [join [lrange $text 1 end]] }

  if {[set chost [getchanhost $whom6 $chan]] ne ""} {

    if {[string match "*.irccloud.com" $chost]} {
      set mask6 [string trimleft [string tolower [lindex [split $chost "@"] 0]] "~"]@*
    } else {  set mask6  $whom6 }
    putquick "NOTICE $nick :Glined  $whom6 ------- With Reason: $reason6"
    putserv "GLINE $mask6 2h $reason6 "
  } else {
    putquick "NOTICE $nick :$whom6 is not on $chan"
  }
}