Code:

bind pub n !gline PubAdd:G-Lineproc PubAdd:G-Line {nick host hand chan text} {  set text [regsub -all -- {\s{2,}} [string trim [stripcodes * $text]] { }]  set items [split $text] if {[llength $items] < 1 } { putserv "notice $nick :Syntax\: !gline  \<duration\> \<ident@host\> \<reason\>" ; return }  set target [lindex [split $text] 0]  set duration [lindex [split $text] 1] if {![regexp {^[0-9]{1,3}} $duration] || $duration eq ""} {  set duration "1h" }  set reason [join [lrange [split $text] 2 end]] if {$reason eq ""} { set reason "Please respect the network rules, thank you." } if {![onchan $target $chan]} { if {[string match *@* $target]} { putserv "GLINE $target $duration $reason"  } else {  putserv "GLINE *@$target $duration $reason"  } } else {  putserv "GLINE $target $duration $reason"   }}

Code:

proc ipc:yes {nick host hand chan arg} {    global ipc    if {![info exists ipc($host:waitCall)]} {        return    }    putserv "PRIVMSG $ipc(channel) :Answered for \002YES\002 for [lindex $ipc($host:waitCall) 0]. GLine action applied."       foreach tmr [utimers] {if {[string match -nocase "*ipc:time_elapsed $host*" [join [lindex $tmr 1]]]} {killutimer [lindex $tmr 2]}}    putserv "gline *@[lindex $ipc($host:waitCall) 1] $ipc(gline_time) $ipc(gline_reason)"    unset ipc($host:waitCall)}