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]
  set whom6 [lindex $text 0]
  set reason6 "Requested"

  if {[llength $text]>1} {
    set dur [join [lrange $text 1 end]]
  } else {
   putquick "NOTICE $nick :Error, Incorrect parameters, please enter the duration"
  }

  if {[llength $text]>1} { set reason [join [lrange $text 2 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 $dur $reason6 "
  } else {
    putquick "NOTICE $nick :$whom6 is not on $chan"
  }
}