Addon Gline list pour ircop

Menu channel,status {
&Gline List:/dialog -m glinelist glinelist
}

on *:DIALOG:glinelist:init:0: {
.enable #glinelist
gline
.timergls 1 2 did -z glinelist 1
}

dialog glinelist {
title "Gline List"
size -1 -1 325 301
option dbu
list 1, 6 18 313 205, size extsel hsbar vsbar
button "Delete Selected Gline(s)", 2, 6 228 70 10
button "Delete Selected Gzline(s)", 3, 78 228 70 10
box "Add Gline / GZline ", 4, 6 243 313 52
edit "<user@host> or <*@ip>", 5, 12 258 100 10
edit "<reason>", 6, 114 258 100 10
radio "30 mins", 7, 12 270 30 10
radio "1 hour", 8, 12 282 30 10
radio "5 hours", 9, 42 270 30 10
radio "24 hours", 10, 42 282 30 10
radio "3 days", 11, 78 270 30 10
radio "7 days", 12, 78 282 30 10
radio "30 days", 13, 108 270 30 10
radio "Perm", 14, 108 282 30 10
button "Gline", 15, 144 270 37 10
button "Gzline", 16, 144 282 37 10
edit "", 17, 6 6 166 10
button "Search", 18, 174 6 37 10
button "Refresh", 19, 282 6 37 10
text "No of Lines:", 21, 268 228 29 8
edit "", 22, 298 227 21 10, disable center
}

on *:dialog:glinelist:close:*:{ write -c glinelist.txt
unset %glinelisttime
.disable #glinelist
}

ON *:DIALOG:glinelist:sclick:2:{
var %x 1
while (%x <= $did(glinelist, 1, 0).sel) {
gline - $+ $gettok($did(glinelist, 1, $did(glinelist, 1, %x).sel).text,2,32)
inc %x
}
did -r glinelist 1
gline
}

ON *:DIALOG:glinelist:sclick:3:{
var %x 1
while (%x <= $did(glinelist, 1, 0).sel) {
gzline - $+ $gettok($did(glinelist, 1, $did(glinelist, 1, %x).sel).text,2,32)
inc %x
}
did -r glinelist 1
gline
}

ON *:DIALOG:glinelist:sclick:18:{
glinesearch $did(17)
if (%glinesearch == 0) { dialog -m glinelisterror glinelisterror }
else { did -ck glinelist 1 %glinesearch }
}

ON *:DIALOG:glinelist:sclick:19:{
did -r glinelist 1
gline
}

ON *:DIALOG:glinelist:sclick:7-14: {
set %glinelisttime $replace($did,7,30m,8,1h,9,5h,10,24h,11,3d,12,7d,13,30d,14,0)
}


ON *:DIALOG:glinelist:sclick:15:{
gline $did(5) %glinelisttime $did(6)
}

ON *:DIALOG:glinelist:sclick:16:{
gline $did(5) %glinelisttime $did(6)
}

alias glinesearch {
noop $read(glinelist.txt,w,$+(*,$$1,*))
set %glinesearch $readn
}

dialog glinelisterror {
title "Error"
size -1 -1 121 45
option dbu
text "Sorry There Was No Result Returned For Your Search...", 1, 4 4 113 14, center
button "OK", 2, 45 28 30 10, ok
}

#glinelist off
raw 223:*:{
$iif($dialog(glinelist), did -a glinelist 1 $2-)
write glinelist.txt $2-
haltdef
did -ra glinelist 22 $lines(glinelist.txt)
}

raw 219:*:{
haltdef
}